Pertama-tama kita membuka program vb 2008 yang ada di komputer kita Kemudian ada perintah untuk menyimpan data dari vb Seperti gambar di bawah ini
Kita ganti nama “WindowsApplication1” dengan nama baru misalnya “latihanperulangan” Selesai klik Ok
Selanjitnya akan muncul halaman kerja pada vb sebelum kita mulai pada halam kerja vb di toolsbar yang bertulisan denga “form1”bisa kita ganti namanya misalnya ”perulangan pada vb” kita lakukan penggantian nama from1 menjadi perulangan pada vb pada halaman kerja vibi perhatikan tabel porperti di bawah sebelah kanan halaman kerja pada text yang bertulisan form1 hapus dan tuliskan dengan nama perulangan pada vb perhatikan gambar berikut
Setelah kiuta melakukan pergantian nama maka hasilnya tampil seperti gambar di bawah ini Analisis perbedaan dari gambar berikut ini
Selanjutnya
Kita melakukan penggantian warna pada halaman kerja Seperti berikut
Klik pada halam kerja dan lihat porperti pada backgroundlm klik dan pilih warna Analisis dan perhatikan perbedanan gambar berikut Gambar 3 adalah hasil setelah di lakukan pengubahan warna
Gam1 gam2 gam3
Setelah itu kita mulai saja kerja dengan membuat kotak textbox dan listbox Seperti gamabar di bawah iniAnalisis dan perhatikan baik-baik gambar di atas 3 gambar di atas dengan tampilan yang saling berbeda
Setelah kita melakukan pembuatan listbox dan textbox kita klik da bagian halaman kosong pada halam kerja akan muncul perinta kode
Pada
Public Class Form1 Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Copet saja (copy paste) aja kode berikut
Dim j As Byte hingga hasilnya seperti di bawah ini
Public Class Form1 Dim j As Byte Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Langsung saja kita masuk pada langkah berikutnya
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Loop End Sub Copet aja (copy paste ) kode di bawah ini
For i = 1 To 10
ListBox1.Items.Add(i)
Next
For i = 10 To 1 Step -1
ListBox2.Items.Add(i)
Next
j = 1
While j <= 10
ComboBox1.Items.Add(j)
j += 1
End While
j = 10
Do Until j < 1
ComboBox1.Items.Add(j & " BD")
j -= 2
Loop
j = 1
Do While j < 10
TextBox1.Text = TextBox1.Text & j & " BD" & vbCrLf
j += 2
sehingga kodenya dari awal hingga akhir tampak seperti di bawah ini
Public Class Form1
Dim j As Byte
Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 10
ListBox1.Items.Add(i)
Next
For i = 10 To 1 Step -1
ListBox2.Items.Add(i)
Next
j = 1 While j <= 10 ComboBox1.Items.Add(j)
j += 1
End While
j = 10
Do Until j < 1
ComboBox1.Items.Add(j & " BD")
j -= 2
Loop
j = 1
Do While j < 10
TextBox1.Text = TextBox1.Text & j & " BD" & vbCrLf
j += 2
Loop
End Sub
Selanjutnya kiuta membuat perintah atau kode keluat
Copy paste ja kode berikut
Me.Close()
Hingga hasilnya seperti di bawah ini
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class
gambar setelah siap di koding
Demikian pertemuannya semoga artikel ini bermanfaat bagi sobat Aperius giawaWeb blog “aperiusggiawa.blogsport.com”
Fb “aperiusgiawa.yahoo.co.id”
Gmail aperiusggiawa@Gmail.com
Pada artikel ini bila terdapat tulisan yang kurang jelas saya mohon maaf