Home » » PERULANGAN PADA VB Net

PERULANGAN PADA VB Net

Posted by CB Blogger

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 ini

Analisis 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 giawa

Web 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


Diberdayakan oleh Blogger.

Silhak Pilih Materi Favorit Anda

Populer