Apa Kita Pernah Bertanya Pada Diri Sendiri, Mengapa Kita Hidup dan Dilahirkan?

Tidak akan turun hujan setetes pun tanpa izin dari Yang Mahakuasa. seringkali kita takut pada suatu hal yang belum tentu terjadi. Terkadang ketakutan kita terlalu 'prematur' dan sangat dini untuk 'dilahirkan'. Mungkin secara manusiawi ini sangatlah wajar,akan tetapi jika rasa was-was itu terlalu sering dan sering terjadi dan itu berulang ulang,bukankah itu merupakan sebuah hambatan yang besar bagi pengembangan jiwa yang positif? Apakah anda juga pernah merasakan ketakutan akan sesuatu? Padahal ternyata di kemudian hari ketakutan itu tidak terbukti.

Kupikir semua orang pasti pernah merasakan takut, tapi mungkin itu tergantung dari kuat tidaknya hati seseorang untuk menanggapi hal itu secara positif atau tidak. Jujur saja, ketika sadar kadang aku bertanya pada diri "Pantaskah aku hidup di dunia?" Secara hidup di dunia penuh dengan berbagai macam problematika, mulai dari soal Ekonomi, masalah keluarga, berperkara dengan pasangan, kecewa dengan rekan kerja, bermasalah dengan pekerjaan, sampai dengan soal bunuh diri.

Pernahkah anda bertanya tanya kenapa tuhan memilih anda yang dilahirkan kedunia ini? Kenapa tuhan melahirkan di tempat anda dilahirkan? Sejujurnya, setiap pagi hingga hari ini, aku masih bertanya pada diri sendiri "Mengapa aku hidup? Kenapa aku ada?" Kadang-kadang jawabannya sangat jelas.

Namun, di lain waktu tidak terlalu. Aku tersenyum pada diri sendiri dan menerima apa pun yang dipersembahkan kehidupan kepadaku. Yang baik, yang buruk dan yang menyakitkan. Sebab jauh di lubuk hati, aku tahu kalau aku berada di jalan yang telah digariskan sejak lahir. Tak seorang pun dapat menolak atau menjauhinya dariku.

Banyak kejadian menyedihkan yang dialami oleh orang-orang di sekitarku maupun mereka yang ada di luar sana, tapi mereka dengan jiwa yang kuat mampu melewati cobaan itu dengan baik. Karena itulah aku kembali tersadar, betapa malunya aku hidup didunia sebagai seorang pecundang, dimana masih banyak orang yang hidupnya lebih merisaukan. kembali aku bertanya: "Pantaskah Aku hidup didunia?" Padahal jawabannya sangatlah mudah,hanya diri kita sendiri yang mampu menjawabnya,karena kekuatan dan kebahagiaan itu bersumber dari dalam diri kita

Stop bilang “Kenapa sih nggak ada yang ngertiin aku?” mulai sekarang ya, guys!
Setiap orang itu punya pola pikir unik. Ketika nggak ada orang yang bisa mengertikamu, berarti kamu keren! Setiap manusia lahir dengan keunikannya sendiri. Meniru orang lain sama halnya seperti bunuh diri.

"Koq Gw Gak galau?" Kenapa harus Galau??

Im not going to stress over you anymore. It isnt worth it. I tried to work something out but you just ignored it. Im not trying to say I dont want you, because I definitely do. All Im saying is Im done chasing after you.

(Aku tidak akan stres atas Anda lagi. Hal ini tidak layak. Saya mencoba untuk melakukan sesuatu tetapi Anda hanya mengabaikannya. Aku tidak berusaha untuk mengatakan aku nggak ingin kau, karena aku pasti melakukannya. Yang saya katakan adalah saya sudah selesai mengejar Anda.)

Sekedar share, 3 hari lalu gue baru putus sama pacar gue setelah jalan bareng setahun lebih. Alasan kenapa putusnya gak penting, tapi yang pengen gue ceritain disini itu adalah kenapa koq gak galau?

Banyak temen gue yang tanya, "lo beneran putus sama doi? koq tampang lo biasa2 aja?", atau "koq lo gak galau?, apa emang lo udah ngarepin putus?", gue balikin aja, kenapa gue harus galau?, No, bukannya gue gak sayang, bukannya gue ngarep putus, or bukannya gue gak ada perjuangannya.. sederhana aja, emang keadaan itu udah gak terelakan lagi. gue udah coba pertahanin sebisa mungkin, dan gue pun masih sayang sampe sekarang, tapi ternyata emang dia udah gak mau sama gue, terus kenapa harus gue pertahanin terus?

In life you need one thing to survive: The ability to realize shit happens. You step in it. Accept it, get over it and keep moving.

(Dalam kehidupan yang Anda butuhkan untuk bertahan hidup satu hal: Kemampuan untuk mewujudkan kotoran terjadi. Anda melangkah di dalamnya. Terimalah, mendapatkan lebih dari itu dan terus bergerak.)

Kalau kita bisa mengubah keadaan sesuai dengan apa yang kita inginkan, berusahalah mengubahnya. Tapi kalau ternyata kita gak bisa mengubahnya, yaudah cara terbaiknya cuma terima dengan lapang dada. Termasuk dalam hal pacaran. Ngapain kita mati-matian pertahanin hubungan klo nyatanya cuma bakal terus nyakitin salah satu pihak? pacaran untuk apa sih? Pacaran yang baik itu adalah ketika sang pacar tidak pernah menuntut kita untuk jadi orang lain.

Terkadang kita tidak bisa mengelak dari keadaan yang kita tidak inginkan. Tetapi kita tetap bisa memilih sikap atau tindakan apa yang akan kita ambil, sebagai reaksi atas keadaan itu. Nah, bagaimana reaksi kita selanjutnya akan menentukan keadaaan itu selanjutnya, apa jadi lebih baik atau malah jadi lebih buruk.

Pacaran juga gitu. Bisa aja kita tidak bisa mengelak dari status jomblo (baca: putus). Kita sudah berdoa, memohon, berusaha begitu keras. Tapi koq sang puteri tetep aja minta putus. Terus gimana?

Tidak ada cara lain, terima apa yang ada dengan lapang dada. Jalani apa adanya. Jangan kebanyakan ngeluh. Toh ngeluh juga gak ada gunanya, cuma nambahin beban aja. Jangan cari-cari kambing hitam. Kita malah jadi gk bisa intropeksi diri. Jangan juga nyalahin diri sendiri. Itu gak nyelesaiin masalah.

Itu semua tergantung kita. Kalau kita melihat "putus" itu sebagai sebuah aib, sesuatu yang mengerikan, memalukan dan menyedihkan, ya kita bisa terus tenggelam dalam kekecewaan dan kekesalan. Rasanya Allah tidak adil. Hidup terasa gak enak. sepi. getir. sengsara. murung. hidup segan mati tak mau. efeknya juga bakal buruk buat hidup kita, kesehatan terganggu, prestasi menurun, gak ada gairah kerja. useless lah.

Tapi klo kita melihat putus cinta itu secara positif; sebagai bagian dari rencana Allah atas hidup kita. Percaya deh, putus itu gak akan jadi beban yang menakutkan. Hey, hal-hal buruk selalu terjadi dalam hidup. Kita gak bisa nuntut hal-hal baik selalu terjadi. Simple, Terima aja, jalanin, dan lewati keadaan buruk itu. Efeknya, pikiran kita pun akan jadi lebih terbuka melihat sisi-sisi baiknya. Kita bisa tetep enjoy sama hidup kita.

Yah gue akuin sih, kadang perasaan lonely jg ada. Biasanya ada yang ngucapin selamat pagi, selamat tidur, ngingetin makan, dll, sekarang udah gak lagi. Tapi ya cuma sebatas itu, pikiran dan perasaan kayak gitu gak perlu membuat kita jadi melow, galau, nelangsa. Apalagi sampai mengutuk or caci maki malam dimana kita sendirian.

Sekali lagi, Bahwa putus cinta gak melulu surem dan muram koq. Ada banyak warna di sana. Tergantung gimana kita menyikapi dan menjalaninya. Dan semua itu berawal dari hati. Hati yang bersyukur akan membuat pikiran kita jernih. Pikiran jernih akan melahirkan sikap-sikap produktif. Pastinya akan jadi baik buat diri sendiri.

Jadi kesimpulannya, baik dan buruknya hidup itu kadang tergantung pilihan kita sendiri. Kita mau berpikir dan menyikapinya secara positif, atau kita mau berpikir dan bersikap negatif? Terserah Lo.. Suka-suka lo lah.. Kumaha maneh..


"Life is like a roller coaster. It has its ups and downs. But it's your choice to either scream or enjoy the ride."

(Hidup ini seperti roller coaster ini memiliki pasang surut.. Tapi itu pilihan Anda baik menjerit atau menikmati perjalanan.)

Membuat Auto Number Rolling..

Private Sub frmTransPenjualanBaru_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    RandomCharAndNum()

End Sub

Private Sub RandomCharAndNum()

    Dim tahun = Format(CDate(DateAndTime.Now), "yMMddhhss")

    TextBox1.Text = RandomString(4, _chars) & tahun & RandomString(2, _nums)

End Sub

Private Const _chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Private Const _nums As String = "0123456789"

Private Shared ReadOnly _randLock = New Object()

Private Shared ReadOnly _rnd = New Random()

Private Shared Function RandomString(ByVal size As Integer, ByVal chars As String) As String

    Dim arr = New Char(size - 1) {}

    For i As Integer = 0 To size - 1

        SyncLock _randLock

            arr(i) = chars(_rnd.Next(chars.Length))

        End SyncLock

    Next

    Return New String(arr)

End Function

Mengatasi error saat menampilkan laporan dengan crystal report di windows 64 bit

An error has occured while attempting to load the Crystal Reports runtime.

Either the Crystal Reports registry key permissions are insufficient or the Crystal Reports runtime is not installed correctly.

Please install the appropriate Crystal Reports redistributable (CRRedist*.msi) containing the correct version of the Crystal Reports runtime (x86, x64, or Itanium) required. Please go to http://www.businessobjects.com/support for more information.

Sedikit share tentang pengalaman tadi sore di kampus sama temen yang menemui masalah saat akan menampilkan laporan dengan crystal report pada vb.net 2005, karena sama-sama menggunakan windows 64 bit, kita sama-sama mencarinya. Yang tentunya siapa lagi kalau bukan mbah google hehe...setelah mencari dari beberapa sumber, Alhamdulilah dapat juga solusinya .berikut step by stepnya

Nb : sebenarnya cara ini bisa diterapkan pada visual studio versi berapa saja

1.       Buka project yang telah dibuat, setelah itu klik menu project -> properties  untuk lebih jelasnya lihat gambat berikut.

1.      2.   Muncul tampilan berikut, pada tab compile pilih Advanced Compile Options 

1.       3.  Untuk selanjutnya  muncul jendela berikut, Pada Target CPU pilih yang 32bit atau x86, klik ok dan coba kembali jalankan aplikasi yang telah anda buat, insya Allah berhasil.

Berikut adalah tampilan laporan yang berhasil dijalankan, terima kasih sudah berkunjung dan selamat mencoba...

Membuat Form Login Dengan Captcha di VB.Net

Let's chek it on!

1. Pertama buka dulu visual studio agan , kemudian buat sebuah form dengan nama "frmLogin" . Silahkan terserah cara agan mendesainnya , yang jelas objek yang ada yaitu :

• 3 buah textbox ( texbox untuk menampung username , password , dan captcha ).
• 2 buah button ( button login dan button refresh captcha ).
• 1 buah picture box untuk menampilkan kode captcha .

hasilnya seperti ini gan :

silahkan kreasikan sendiri imaginasinya agan untuk mendesainnya .

2. Jika sudah lanjut ke tahap berikutnya yaitu buatlah sebuah modul untuk koneksi database mysql dengan vb.net nya . Klik menu project pada bagian atas kemudian pilih add module , dan copas saja gan code berikut ini :

Imports MySql.Data.MySqlClient.MySqlConnection
Module modKoneksi
    Public conn As New MySql.Data.MySqlClient.MySqlConnection
    Public Sub koneksi(ByVal server As String, ByVal user As String, ByVal pass As String, _
                       ByVal db As String, ByVal port As String)
        Try
            If conn.State = ConnectionState.Closed Then
                conn.ConnectionString = "DATABASE=" & db _
                & ";SERVER = " & server _
                & ";user id=" & user & ";password=" & pass & ";port=" & port & ";charset=utf8"
                conn.Open()

            End If
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MsgBox("Koneksi ke server gagal", MsgBoxStyle.Critical, "USB Monitoring")
        End Try
    End Sub

    Public Sub disconnect()
        Try
            conn.Open()
        Catch ex As MySql.Data.MySqlClient.MySqlException

        End Try
    End Sub
End Module

simpan code diatas dengan nama modKoneksi atau terserah agan aja dech mau pake nama apa.

3. Jika sudah , klik 2x pada form login , dan pada baris paling atas , importlah mysql data .  Berikut kodenya :

Imports MySql.Data.MySqlClient

jika pada waktu ketika imports pilihan mysql belum ada , maka caranya , klik menu project dan pilih add reference , kemudian cari MySQL data , jika sudah klik OK.

dan selajutnya buat deklarasi variable untuk objeknya , copas saja gan kode berikut ini :

 Dim DrawingFont As New Font("Arial", 20)
    Dim CaptchaImage As New Bitmap(140, 40)
    Dim CaptchaGraf As Graphics = Graphics.FromImage(CaptchaImage)
    Dim Alphabet As String = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
    Dim CaptchaString, TickRandom As String
    Dim ProcessNumber As Integer

jika sudah , kemudian buat sebuah fungsi untuk mengenerate kode captcha nya , seperti ini :

Private Sub GenerateCaptcha()
        ProcessNumber = My.Computer.Clock.LocalTime.Millisecond
        If ProcessNumber < 521 Then
            ProcessNumber = ProcessNumber \ 10
            CaptchaString = Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString = CStr(My.Computer.Clock.LocalTime.Second \ 6)
        End If
        ProcessNumber = My.Computer.Clock.LocalTime.Second
        If ProcessNumber < 30 Then
            ProcessNumber = Math.Abs(ProcessNumber - 8)
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString += CStr(My.Computer.Clock.LocalTime.Minute \ 6)
        End If
        ProcessNumber = My.Computer.Clock.LocalTime.DayOfYear
        If ProcessNumber Mod 2 = 0 Then
            ProcessNumber = ProcessNumber \ 8
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString += CStr(ProcessNumber \ 37)
        End If
        TickRandom = My.Computer.Clock.TickCount.ToString
        ProcessNumber = Val(TickRandom.Substring(TickRandom.Length - 1, 1))
        If ProcessNumber Mod 2 = 0 Then
            CaptchaString += CStr(ProcessNumber)
        Else
            ProcessNumber = Math.Abs(Int(Math.Cos(Val(TickRandom)) * 51))
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        End If
        ProcessNumber = My.Computer.Clock.LocalTime.Hour
        If ProcessNumber Mod 2 = 0 Then
            ProcessNumber = Math.Abs(Int(Math.Sin(Val(My.Computer.Clock.LocalTime.Year)) * 51))
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString += CStr(ProcessNumber \ 3)
        End If
        ProcessNumber = My.Computer.Clock.LocalTime.Millisecond
        If ProcessNumber > 521 Then
            ProcessNumber = Math.Abs((ProcessNumber \ 10) - 52)
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString += CStr(My.Computer.Clock.LocalTime.Second \ 6)
        End If
        CaptchaGraf.Clear(Color.White)

        For hasher As Integer = 0 To 5
            CaptchaGraf.DrawString(CaptchaString.Substring(hasher, 1), DrawingFont, Brushes.Black, hasher * 20 + hasher + ProcessNumber \ 200, (hasher Mod 3) * (ProcessNumber \ 200))
        Next
        PictureBox2.Image = CaptchaImage
    End Sub

kemudian tambahkan baris kode dibawah ini pada form_load nya :

Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GenerateCaptcha()
        koneksi("localhost", "root", "WnbZNXD7Hrmr4cLC", "dbUSB", "")
    End Sub

kemudian tambahkan kode untuk memanggil fungsi generate captcha diatas tadi pada form refresh sehingga , jika diklik maka kode akan diacak lagi . kodenya seperti ni :

 GenerateCaptcha()

dan yang terakhir pada button loginnya copas kode berikut ini gan :

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If txtUsername.Text = "" Then
            MsgBox("Username masih kosong", vbExclamation, "USB Monitoring")
            txtUsername.Focus()
            Exit Sub
        ElseIf txtPassword.Text = "" Then
            MsgBox("Password masih kosong", vbExclamation, "USB Monitoring")
            txtPassword.Focus()
            Exit Sub
        Else
            If txtCaptcha.Text = CaptchaString Then
                Dim myAdapter As New MySqlDataAdapter
                Dim sqlQuery = "SELECT * FROM user WHERE username='" + txtUsername.Text + "' AND password='" + txtPassword.Text + "'"
                Dim myCommand As New MySqlCommand
                myCommand.Connection = conn
                myCommand.CommandText = sqlQuery
                myAdapter.SelectCommand = myCommand
                Dim myData As MySqlDataReader
                myData = myCommand.ExecuteReader()

                If myData.HasRows = 0 Then
                    MsgBox("Username atau Password yang anda masukkan salah.! Kemungkinan juga username anda belum terdaftar. Hubungi development.!", vbExclamation, "USB Monitoring")
                    txtUsername.Text = ""
                    txtPassword.Text = ""
                    txtCaptcha.Text = ""
                    txtUsername.Focus()
                    Call GenerateCaptcha()
                Else
                    Me.Hide()
                    frmUtama.StatusStrip1.Items(0).Text = "Login As : " & txtUsername.Text
                    frmUtama.Show()

                End If


            Else
                MsgBox("Kode Captcha yang anda masukkan salah.!", vbExclamation, "USB Monitoring")
                txtUsername.Text = ""
                txtPassword.Text = ""
                txtCaptcha.Text = ""
                txtUsername.Focus()
                Exit Sub
            End If
        End If
    End Sub

Jadi kode lengkapnya kayak gini gan :

Imports MySql.Data.MySqlClient
Public Class frmLogin
    Dim DrawingFont As New Font("Arial", 20)
    Dim CaptchaImage As New Bitmap(140, 40)
    Dim CaptchaGraf As Graphics = Graphics.FromImage(CaptchaImage)
    Dim Alphabet As String = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
    Dim CaptchaString, TickRandom As String
    Dim ProcessNumber As Integer
    Private Sub GenerateCaptcha()
        ProcessNumber = My.Computer.Clock.LocalTime.Millisecond
        If ProcessNumber < 521 Then
            ProcessNumber = ProcessNumber \ 10
            CaptchaString = Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString = CStr(My.Computer.Clock.LocalTime.Second \ 6)
        End If
        ProcessNumber = My.Computer.Clock.LocalTime.Second
        If ProcessNumber < 30 Then
            ProcessNumber = Math.Abs(ProcessNumber - 8)
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString += CStr(My.Computer.Clock.LocalTime.Minute \ 6)
        End If
        ProcessNumber = My.Computer.Clock.LocalTime.DayOfYear
        If ProcessNumber Mod 2 = 0 Then
            ProcessNumber = ProcessNumber \ 8
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString += CStr(ProcessNumber \ 37)
        End If
        TickRandom = My.Computer.Clock.TickCount.ToString
        ProcessNumber = Val(TickRandom.Substring(TickRandom.Length - 1, 1))
        If ProcessNumber Mod 2 = 0 Then
            CaptchaString += CStr(ProcessNumber)
        Else
            ProcessNumber = Math.Abs(Int(Math.Cos(Val(TickRandom)) * 51))
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        End If
        ProcessNumber = My.Computer.Clock.LocalTime.Hour
        If ProcessNumber Mod 2 = 0 Then
            ProcessNumber = Math.Abs(Int(Math.Sin(Val(My.Computer.Clock.LocalTime.Year)) * 51))
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString += CStr(ProcessNumber \ 3)
        End If
        ProcessNumber = My.Computer.Clock.LocalTime.Millisecond
        If ProcessNumber > 521 Then
            ProcessNumber = Math.Abs((ProcessNumber \ 10) - 52)
            CaptchaString += Alphabet.Substring(ProcessNumber, 1)
        Else
            CaptchaString += CStr(My.Computer.Clock.LocalTime.Second \ 6)
        End If
        CaptchaGraf.Clear(Color.White)

        For hasher As Integer = 0 To 5
            CaptchaGraf.DrawString(CaptchaString.Substring(hasher, 1), DrawingFont, Brushes.Black, hasher * 20 + hasher + ProcessNumber \ 200, (hasher Mod 3) * (ProcessNumber \ 200))
        Next
        PictureBox2.Image = CaptchaImage
    End Sub
    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GenerateCaptcha()
        koneksi("localhost", "root", "WnbZNXD7Hrmr4cLC", "dbUSB", "")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GenerateCaptcha()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If txtUsername.Text = "" Then
            MsgBox("Username masih kosong", vbExclamation, "USB Monitoring")
            txtUsername.Focus()
            Exit Sub
        ElseIf txtPassword.Text = "" Then
            MsgBox("Password masih kosong", vbExclamation, "USB Monitoring")
            txtPassword.Focus()
            Exit Sub
        Else
            If txtCaptcha.Text = CaptchaString Then
                Dim myAdapter As New MySqlDataAdapter
                Dim sqlQuery = "SELECT * FROM user WHERE username='" + txtUsername.Text + "' AND password='" + txtPassword.Text + "'"
                Dim myCommand As New MySqlCommand
                myCommand.Connection = conn
                myCommand.CommandText = sqlQuery
                myAdapter.SelectCommand = myCommand
                Dim myData As MySqlDataReader
                myData = myCommand.ExecuteReader()

                If myData.HasRows = 0 Then
                    MsgBox("Username atau Password yang anda masukkan salah.! Kemungkinan juga username anda belum terdaftar. Hubungi development.!", vbExclamation, "USB Monitoring")
                    txtUsername.Text = ""
                    txtPassword.Text = ""
                    txtCaptcha.Text = ""
                    txtUsername.Focus()
                    Call GenerateCaptcha()
                Else
                    Me.Hide()
                    frmUtama.StatusStrip1.Items(0).Text = "Login As : " & txtUsername.Text
                    frmUtama.Show()

                End If


            Else
                MsgBox("Kode Captcha yang anda masukkan salah.!", vbExclamation, "USB Monitoring")
                txtUsername.Text = ""
                txtPassword.Text = ""
                txtCaptcha.Text = ""
                txtUsername.Focus()
                Exit Sub
            End If
        End If
    End Sub
End Class

selesai dech gan , silahkan agan test hasilnya sendiri ,

see uuuu next time . . . .

Subroutine di VB.Net

Subroutine merupakan suatu perintah yang dapat digunakan untuk mendefinisikan sebuah fungsi yang sering anda gunakan dalam melakukan programming. Jadi proses ngoding bisa dilakukan dengan lebih efisien karena tidak lagi memasukan perintah yang sama berulang ulang, tinggal panggil saja subroutine yang sudah di buat tersebut.

Untuk lebih mudah mempelajari contoh soal dari subroutine ini, buatlah sebuah project VB.Net baru, lalu tambahkan 3 buah label, 3 buah textbox dan sebuah button. Atur tampilannya menjadi seperti berikut ini :

Sekarang masukan perintah berikut :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = "Firdan"

        TextBox2.Text = "Ardiansyah"

        TextBox3.Text = "Potlot"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call bersihkan()

    End Sub

    Sub bersihkan()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

End Class

Selanjutnya coba jalankan programmnya, lalu klik tombol bersihkan yang sudah dibuat. Nanti secara otomatis teks yang ada di textbox1, textbox2 dan textbox3 akan terhapus. Nanti jika ingin menggunakan perintah yang sama seperti penghapusan diatas, anda tinggal memanggil subroutinenya saja dengan perintah Call bersihkan()

Seperti itulah contoh dari penggunaan subroutine di VB.Net, semoga tutorial ini dapat berguna bagi para pembaca sekalian. 

Membuat Aplikasi Pemutar Musik Dengan VB.Net

Siapa sih yang tidak suka musik? Hampir setiap kali kita menggunakan komputer pasti ditemani dengan suara musik. Kali ini virdane.blogspot.com akan sharing bagaimana cara membuat aplikasi pemutar musik sederhana menggunakan VB.Net.

Cara membuat aplikasi pemutar musik dengan VB.Net sebenarnya tidak terlalu ribet, karena Visual basic.Net sudah menyertakan komponen media player yang dapat digunakan untuk memutar musik.

• Buat sebuah project visual basic.net baru.
• Pada bagian toolbox, klik kanan lalu pilih Choose Items…

• Buka tab Com Components lalu pilih / ceklis Windows Media Player, klik Ok.

• Jika sudah nanti di Toolbox akan ada tools baru dengan nama Windows Media Player

• Drag Tool Windows Media Player ke project, tambahkan juga sebuah button dan tool OpenFileDialog.
• Atur tampilannya menjadi seperti gambar berikut ini :

• Pada bagian properties OpenFileDialog, ubah properties filter menjadi |*.mp3 seperti pada gambar berikut :

• Jika sudah, klik 2 kali tombol Musik… lalu masukan perintah seperti berikut ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
    End Sub

Jika langkah-langkah diatas sudah diikuti dengan benar, sekarang aplikasi pemutar musik yang dibuat menggunakan VB.Net sudah siap digunakan. Jalankan aplikasinya, lalu klik tombol musik untuk mencari musik dan file musik pun siap dimainkan dengan aplikasi musik yang baru saja kita buat.

Menampilkan Data Dari Database MySQL Ke ComboBox Di VB.Net.

Menampilkan Data Dari Database MySQL Ke ComboBox Di VB.Net. - Pada kesempatan kali ini saya sebagai Admin dari blog virdane.blogspot.com akan sharing bagaimana cara menampilkan data dari MySQL ke ComboBox yang ada di vb.net.

Karena pada tutorial kali ini data yang akan ditampilkan ke ComboBox mengambil nilai dari database mysql, maka sebaiknya jika Anda belum begitu familiar dengan cara membuat database di mysql silahkan melihat tutorial belajar database mysql disini.

Jika Anda sudah familiar atau terbiasa dengan penggunaan database mysql, silahkan buat sebuah database sekolah lalu buat sebuah table baru dengan nama siswa. Lalu masukan datanya seperti pada gambar dibawah ini :

Jika database sekolah dan table siswa sudah dibuat di database mysql, sekarang kita akan membahas bagaimana cara menampilkan nilai database ke ComboBox pada vb.net.

Menampilkan Data Dari Database MySQL Ke ComboBox Di VB.Net.

• Buat sebuah project VB.Net baru.
• Langkah pertama adalah membuat sebuah module koneksi antara VB.Net dengan database MySql, jika Anda belum tahu caranya, silahkan lihat dulu tutorial mengenai bagaimana cara membuat module koneksi Antara VB.Net dan Database MySQL disini.
• Jika module koneksi sudah dibuat, silahkan Anda tambahkan sebuah ComboBox pada project yang baru dibuat tersebut.
• Import data mysql kedalam project dengan perintah seperti berikut :

Imports MySql.Data.MySqlClient

• Buat sebuah subroutine baru denga nama tampilDataComboBox lalu masukan perintah seperti berikut ini :

Sub tampilDataComboBox()
        Call koneksi()
        Dim str As String
        str = "select NIP from siswa"
        cmd = New MySqlCommand(str, conn)
        rd = cmd.ExecuteReader
        If rd.HasRows Then
            Do While rd.Read
                ComboBox1.Items.Add(rd("NIP"))
            Loop
        Else

        End If
    End Sub

• Sekarang tinggal Anda panggil sub tampilDataComboBox tersebut pada saat program di load dengan memasukan perintah seperti berikut ini :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tampilDataComboBox()
    End Sub

• Selanjutnya silahkan Anda coba jalankan programnya, nanti data NIP yang ada pada table siswa di database MySQL akan ditampilkan di ComboBox seperti berikut :

Berikut ini adalah full code dari cara Menampilkan Data Dari Database MySQL Ke ComboBox Di VB.Net.

Imports MySql.Data.MySqlClient
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tampilDataComboBox()
    End Sub

    Sub tampilDataComboBox()
        Call koneksi()
        Dim str As String
        str = "select NIP from siswa"
        cmd = New MySqlCommand(str, conn)
        rd = cmd.ExecuteReader
        If rd.HasRows Then
            Do While rd.Read
                ComboBox1.Items.Add(rd("NIP"))
            Loop
        Else

        End If
    End Sub
End Class

Seperti itulah cara bagaimana menampilkan data dari database mysql ke ComboBox yang ada di VB.Net. semoga tutorial mengenai cara Menampilkan Data Dari Database MySQL Ke ComboBox Di VB.Net ini dapat bermanfaat bagi Anda yang sedang membangun sistem dengan database MySQL. Sampai bertemu di tutorial belajar VB.Net lainnya ya.

Membuat AutoText di TextBox VB.Net.

Membuat AutoText di TextBox VB.Net. - Pada kesempatan kali ini saya sebagai Admin dari blog virdane.blogspot.com akan sharing bagaimana cara membuat auto text di textbox yang ada di vb.net dimana auto text yang akan ditampilkan diambil dari data yang ada di database mysql.

Karena pada tutorial kali ini data auto text yang akan ditampilkan mengambil nilai dari database mysql, maka sebaiknya jika Anda belum begitu familiar dengan cara membuat database di mysql silahkan melihat tutorial belajar database mysql disini.

Jika Anda sudah familiar atau terbiasa dengan penggunaan database mysql, silahkan buat sebuah database sekolah lalu buat sebuah table baru dengan nama siswa. Lalu masukan datanya seperti pada gambar dibawah ini :

Jika database sekolah dan table siswa sudah dibuat di database mysql, sekarang kita akan membahas bagaimana cara membuat auto text di textbox pada vb.net.

Membuat Auto Text di Textbox Pada VB.Net.

• Buat sebuah project VB.Net baru.
• Langkah pertama adalah membuat sebuah module koneksi antara VB.Net dengan database MySql, jika Anda belum tahu caranya, silahkan lihat dulu tutorial mengenai bagaimana cara membuat module koneksi Antara VB.Net dan Database MySQL disini.
• Jika module koneksi sudah dibuat, silahkan Anda tambahkan sebuah textbox pada project yang baru dibuat tersebut.
• Import data mysql kedalam project dengan perintah seperti berikut :

Imports MySql.Data.MySqlClient

• Buat sebuah subroutine baru denga nama autotext lalu masukan perintah seperti berikut ini :

Private Sub AutoText()

        Call koneksi()

        Dim str As String

        Dim adaptor As New MySqlDataAdapter

        Dim dt = New DataTable

        str = "select NAMA from siswa where NAMA like '%" & TextBox1.Text & "%'"

        cmd = New MySqlCommand(str, conn)

        adaptor = New MySqlDataAdapter(cmd)

        dt = New DataTable()



        adaptor.Fill(dt)

        Dim col As New AutoCompleteStringCollection

        For i As Integer = 0 To dt.Rows.Count - 1

            col.Add(dt.Rows(i)("NAMA"))

        Next



        TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

        TextBox1.AutoCompleteCustomSource = col

        TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest



    End Sub

• Sekarang tinggal Anda panggil sub AutoText tersebut pada saat program di load dengan memasukan perintah seperti berikut ini :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call AutoText()

    End Sub

Sekarang silahkan Anda coba jalankan programnya, lalu masukan salah satu nama siswa, nanti sugesti autotext dari nama yang Anda masukan akan ditampilkan misalnya seperti pada gambar berikut ini :

Berikut ini adalah full code dari cara membuat Auto Text di Textbox VB.Net :

Imports MySql.Data.MySqlClient

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call AutoText()

    End Sub



    Private Sub AutoText()

        Call koneksi()

        Dim str As String

        Dim adaptor As New MySqlDataAdapter

        Dim dt = New DataTable

        str = "select NAMA from siswa where NAMA like '%" & TextBox1.Text & "%'"

        cmd = New MySqlCommand(str, conn)

        adaptor = New MySqlDataAdapter(cmd)

        dt = New DataTable()



        adaptor.Fill(dt)

        Dim col As New AutoCompleteStringCollection

        For i As Integer = 0 To dt.Rows.Count - 1

            col.Add(dt.Rows(i)("NAMA"))

        Next



        TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

        TextBox1.AutoCompleteCustomSource = col

        TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest



    End Sub

End Class

Seperti itulah cara bagaimana membuat AutoText di textbox vb.net, semoga tutorial mengenai bagaimana cara membuat autotext di vb.net ini dapat berguna bagi Anda yang sedang membangun sistem informasi dengan VB.Net. Sampai jumpa di tutorial belajar VB.Net Lainnya ya.

Mengganti Tampilan Cursor Saat Meload Data di VB.Net.

Mengganti Tampilan Cursor Saat Meload Data di VB.Net - Pernahkah Anda membuat sebuah system dimana salah satu modul di system tersebut harus meload data yang jumlahnya sangat banyak. Secara default biasanya saat sistem meload data yang banyak tersebut cursor mouse tetap berbentuk panah dan bukannya berubah menjadi lingkaran yang berputar yang menunjukan bahwa sistem tersebut masih memproses data.

Nah pada kesempatan kali ini blog virdane.blogspot.com akan sharing bagaimana merubah bentuk cursor mouse menjadi seperti loading pada saat sistem memproses data yang banyak.

Cara Mengganti Tampilan Cursor di VB. Net

Untuk merubah tampilan cursor mouse di vb.net cukup menggunakan perintah System.Windows.Forms.Cursor.Current = Cursors.WaitCursor untuk merubah tampilan cursor menjadi seperti sedang loading dan juga perintah System.Windows.Forms.Cursor.Current = Cursors.Default untuk merubah tampilan cursor menjadi seperti sebelumnya.

Untuk lebih jelasnya silahkan Anda buat sebuah project di VB.Net lalu tambahkan sebuah button dan sebuah listView. Atur tampilannya seperti pada gambar dibawah ini :

Selanjutnya masukan perintah seperti berikut ini :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call hitung()

    End Sub

    Sub hitung()
        System.Windows.Forms.Cursor.Current = Cursors.WaitCursor
        Dim i As Integer
        i = 1
        Do While i < 10000
            ListBox1.Items.Add(i)
            i = i + 1
        Loop
        System.Windows.Forms.Cursor.Current = Cursors.Default
    End Sub

End Class

Selanjutnya coba jalankan project vb.net yang baru Anda buat tersebut lalu tekan tombol button1. Nanti pada saat sistem melakukan proses perulangan, cursor mouse akan berubah menjadi gambar bulat yang sedang berputar yang menandakan bahwa proses perulangan sedang berjalan seperti pada gambar berikut.

Nah seperti itulah cara bagaimana merubah tampilan cursor mouse di vb.net pada saat sistem meload data yang banyak, semoga tutorial vb.net ini dapat membantu pembaca setia virdane.blogspot.com yang sedang membuat sebuah sistem, sampai jumpa di tutorial belajar visual basic.net lainnya ya.