Irfan Satria: Pembuatan Menu, ListBox dan Label Berjalan pada Visual Basic 6.0

Program ini merupakan program yang dibuat untuk membuat tampilan menu dengan beberapa buah aplikasi. Aplikasinya yakni ListBox dan Label berjalan. Listbox digunakan untuk menginput suatu text dari textbox ke listbox dan dapat di hapus pula listbox tersebut. Kemudian label berjalan di buat untuk menampilkan teks berjalan dengan tampilan berbagai warna secara acak. Dan program ini di buat dengan Visual Basic.

Hal pertama yang kita lakukan adalah membuat tampilan visualnya dahulu untuk desainnya bebas, tampilan tersebut menampilkan menu yang didalamnya ada Listbox dan label berjalan serta exit. Dalam form listbox kita buat tampilan Listbox kosong, textbox kosong, Command button Add, Remove, Back. Kemudian dalam form label berjalan kita buat tampilan label dengan caption bebas dan command button Back serta timer untuk mengatur pergerakan textnya.

Setelah tampilan visualnya jadi, langkah selanjutnya adalah pembuatan listing program untuk form 1 atau form menu. Kita buat dahulu listing untuk menu editor listbox. Listbox tersebut mempunyai nama list. Maka buat statement Private Sub list_Click() ; Form2.Show ; Unload Me ; End Sub. Artinya ketika menu listbox d klik maka akan muncul form2 yakni form listbox. Setelah itu kita buat listing untuk label berjalan label berjalan tersebut mempunyai nama label. Maka buat statement Private Sub label_Click() ; Form3.Show ; Unload Me ; End Sub. Artinya ketika menu label berjalan di klik maka akan muncul form3 yakni form label berjalan. Setelah itu kita buat pula listing untuk exit. Exit tersebut mempunyai nama keluar . Maka buat statement Private Sub keluar_Click() ; End ; End Sub. Artinya ketika menu exit di klik maka akan keluar dari program.

Langkah selanjutnya adalah pembuatan listing program untuk form 2 atau form Listbox. Kita buat dahulu listing untuk command button Add. Command tersebut mempunyai nama command1 . Maka buat statement Private Sub Command1_Click() ; List1.AddItem Text1.Text ; End Sub. Artinya ketika d klik command Add maka akan muncul text/angka yang ada di textbox ke dalam listbox tersebut. Setelah itu kita buat listing untuk command remove. Command tersebut mempunyai nama command2. Maka buat statement Private Sub Command2_Click() ; List1.removeItem (List1.ListIndex) ; End Sub. Artinya ketika d klik command remove maka muncul text/angka yang ada di listbox akan hilang atau terhapus. Setelah itu kita buat listing untuk command back. Command tersebut mempunyai nama command3. Maka buat statement Private Sub Command3_Click() ; Form1.show ; Unload me ; End Sub. Artinya ketika d klik command back maka akan kembali ke form 1 atau form menu.

Kemudian Langkah selanjutnya adalah pembuatan listing program untuk form 3 atau form Label berjalan. Kita buat dahulu listing untuk command button Back. Command tersebut mempunyai nama command1. Maka buat statement Private Sub Command1_Click() ; Form1.show ; Unload me ; End Sub. . Artinya ketika d klik command back maka akan kembali ke form 1 atau form menu. Kemudian kita buat listing untuk text berjalannya dengan statemenya. Private Sub Timer1_Timer() ; Label1.Top = Label1.Top + 100 ; If Label1.ForeColor = RGB(0, 0, 0) Then ; Label1.ForeColor = RGB(200, 20, 100) ; Else ; Label1.ForeColor = RGB(0, 0, 0) ; End If ; End Sub artinya text itu akan berjalan dari atas ke bawah dan memiliki warna awal red, green, blue default kemudian akan berubah dengan ketentuan ketebalan nilai red = 200 dan green = 20 serta blue = 100 maka warnanya akan berwarna kemerahan karena nilai red lebih dominant. Kemudian akhiri dengan statement end. Setiap Source code dari form, commandbutton, label, listbox dan timer selalu diakhiri dengan endsub, yang berfungsi mengakhiri listing programnya.

Source code Form1
Private Sub keluar_Click()
End
End Sub

Private Sub label_Click()
Form3.Show
Unload Me
End Sub

Private Sub list_Click()
Form2.Show
Unload Me
End Sub

Source code Form2
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub

Private Sub Command2_Click()
List1.RemoveItem (List1.ListIndex)
End Sub

Private Sub Command3_Click()
form1.Show
Unload Me
End Sub

source code Form 3
Private Sub Command1_Click()
form1.Show
Unload Me
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 100
If Label1.ForeColor = RGB(0, 0, 0) Then
Label1.ForeColor = RGB(200, 20, 100)
Else
Label1.ForeColor = RGB(0, 0, 0)
End If
End Sub

Berikut ini adalah hasil tampilan dari Menu (Form 1)