Notes On Lectures

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.

Mencegah User Menginput Di ComboBox.

Kali ini saya akan share kembali mengenai tips and trick di VB.Net. Pada kesempatan ini kita akan membahas mengenai cara mencegah user untuk menginput di Combobox, karena biasanya nilai yang ada di ComboBox VB.Net sudah tersedia, jadi user tidak perlu lagi untuk menginput data yang dibutuhkan.

Buat sebuah project VB.Net Baru.

Tambahkan sebuah ComboBox dan sebuah Label di Project VB.Net tersebut.

Pada Combobox1 Ubah properties DropDownStyle menjadi DropDownList seperti gambar berikut :

Nah jika properties DropDownStyle sudah dirubah menjadi DropDownList maka si user tidak dapat melakukan editing data di ComboBox VB.Net

Seperti itulah cara untuk mencegah uer menginput di combobox, semoga tutorial vb.net sederhana ini bermanfaat bagi Anda yang menggunakannya. Sampai bertemu di tutorial VB.Net lainnya.

Merubah Input Textbox Menjadi Huruf Besar Atau Kecil.

Ok kali ini saya akan share bagaimana caranya supaya teks yang diinput ke TextBox vb.net itu menjadi huruf besar atau huruf saja. Tanpa harus melakukan proses koding Anda bisa membuat kondisi untuk merubah textbox agar menjadi huruf besar atau kecil saja.

Buat sebuah project baru di VB.Net.
Tambahkan dua buah label dan dua buah textbox seperti gambar dibawah ini :

Selajutnya pada textbox1 kita akan merubah propertiesnya agar teks yang diinput berubah menjadi huruf besar semua. Klik pada textbox1 lalu pada bagian propertiesnya rubah CharacterCasing menjadi Upper seperti gambar berikut :

Lalu pada textbox2 ubah characterCasing menjadi lower seperti pada gambar berikut ini :

Nah sekarang coba jalankan programnya, setelah dijalankan maka teks yang berada pada textbox1 saat diinput akan berubah menjadi huruf besar dan pada textbox2 akan berubah menjadi huruf kecil.

Seperti itulah cara merubah teks menjadi huruf besar atau huruf kecil di vb.net. Sampai bertemu di kesempatan selanjutnya.

Menampilkan nilai TextBox di form1 ke form2.

Oke kali ini saya akan share bagaimana cara menampilkan nilai dari textbox yang ada di form 1 ke form yang berbeda. Silahkan pembaca atur tampilan sistemnya seperti pada gambar dibawah ini :

Di situ kita memiliki 2 buah textbox dengan nama txtNama dan txtKelas, sebuah richTextBox dengan nama rtbAlamat dan sebuah button yang akan digunakan sebagai trigger untuk menampilkan nilai dari txtnama, txtkelas dan rtbAlamat di form2.

Selanjutnya buat tampilan form2 seperti berikut ini :

Oke sekarang klik 2 kali button yang ada di form1 kemudian masukan perintah seperti berikut ini :


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.txtNama.Text = txtNama.Text
        Form2.txtKelas.Text = txtKelas.Text
        Form2.rtbAlamat.Text = rtbAlamat.Text
        Form2.Show()
    End Sub

Sekarang coba jalankan programnya dan masukan nama, kelas serta alamat. Jika sudah tekan tombol enter. Nanti nilainya akan ditampilkan juga di form2 sama seperti yang pembaca input di form1.

Yup seperti itulah cara bagaimana Menampilkan nilai TextBox di form1 ke form2. Sangat mudah bukan. Sampai bertemu di tutorial belajar vb.net selanjutnya ya. Jadi pantengin terus virdane.blogspot.com agar tidak ketinggalan tutorialnya, hahaha.

Event Tombol Enter Pada TextBox

Event Tombol Enter Pada TextBox.

Oke kali ini saya akan sharing lagi mengenai tips and trick di vb.net, kali ini kita akan membahas mengenai cara membuat event tombol enter pada textbox di vb.net agar pada saat user menekan tombol enter di keyboard, focus text akan pindah ke textbox lainnya.

Buat sebuah project baru, tambahkan 3 buah label, 2 buah TextBox dan sebuah RichTextBox.
Ubah Name pada properties textbox1 dan textbox2 menjadi txtNama dan txtKelas. Ubah juga properties Name RichTextBox1 menjadi rtbAlamat.

Lihat tampilannya seperti gambar dibawah ini :


Event Tombol Enter di TextBox

Sekarang masuk ke tab event yang ada di samping tab properties lalu klik 2 kali pada bagian KeyPress seperti pada gambar berikut ini :

Event Tombol Enter di TextBox

Selanjutnya masukan perintah berikut ini untuk memindahkan focus ke txtKelas setelah user menekan tombol enter :


Private Sub txtNama_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNama.KeyPress

        If (e.KeyChar = Chr(13)) Then

            txtKelas.Focus()

        End If

    End Sub

Tambahkan juga event KeyPress tersebut di txtKelas agar pada saat user menekan tombol enter focus yang sebelumnya ada di txtKelas pindah ke rtbAlamat. Masukan perintahnya seperti berikut ini :


Private Sub txtKelas_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKelas.KeyPress

        If (e.KeyChar = Chr(13)) Then

            rtbAlamat.Focus()

        End If

    End Sub

Sekarang coba jalankan programnya, masukan nama lalu tekan enter maka focus akan berpindah ke txtalamat, masukan alamat lalu tekan enter nanti focus akan berpindah ke rtbAlamat.

Seperti itulah cara memanfaatkan event keypress dengan menggunakan tombol enter di keyboar, cara ini juga bisa pembaca gunakan untuk memanggil subroutine atau hal lainnya. Sampai jumpa pada tutorial mengenai vb.net selanjutnya.

Memasukan Angka Saja Di TextBox VB.Net

Adakalanya saat membuat sebuah aplikasi kita membutuhkan sebuah input berupa angka, misalnya input yang digunakan untuk memasukan nomor telepon, harga barang, biaya dan lain sebagainya. Pada kesempatan kali ini saya akan coba share bagaimana caranya agar Textbox yang ada pada vb.net hanya dapat menerima input berupa angka saja. Hal ini dilakukan untuk meminimalisir kesalahan yang mungkin dilakukan oleh user.

Buat sebuah project baru untuk mempraktekan bagaimana caranya agar textbox hanya dapat menerima input berupa angka saja dan tidak dapat menerima input selain angka. Lalu tambahkan 2 buah textbox dan 2 buah label kedalam project tersebut. Untuk lebih jelasnya, silahkan lihat gambar berikut ini :

Selanjutnya pada textbox pertama masukan code berikut ini pada event keypress :


Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

    End Sub

Maksud dari code diatas adalah kita memberikan perintah agar textbox1 memiliki batasan agar hanya dapat menerima input berupa angka saja, jadi selain angka, karakter apapun yang diinput kedalam textbox1 tidak akan muncul. Sekarang silahkan anda coba jalankan programnya.

Setelah dijalankan, textbox1 hanya dapat menerima input berupa angka saja, sedangkan textbox2 karena tidak memiliki filter untuk memasukan angka saja di textboxtnya maka dapat memasukan angka dan juga karakter lainnya.

Semoga tutorial mengenai cara memasukan angka saja di textbox vb.net dapat membantu para pembaca sekalian.

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

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