APLIKASI HITUNG ANGKA DENGAN LOOPING
Assalamualaikum.Wr.Wb
Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi hitung aplikasi hitung angka dengan looping di vb 2010 . Untuk script nya sih sama saja dengan vb yang sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih " Button " , "ListBox" seperti gambar di bawah ini
6. maka hasilnya akan muncul form seperti gambar di bawah ini
CATATAN : "Ganti semua properti seperti ListBox1, Button1 dan yang lainnya menjadi seperti gambar di bawah ini "
No
|
Tools
|
Properties
|
Nilai
|
1
|
ListBoxt
|
Name
|
Tampil
|
2
|
Button1
|
Text
Name
|
For Next
btnForNext
|
3
|
Button2
|
Text
Name
|
Do While
btnDoWhile
|
4
|
Button3
|
Text
Name
|
Do Until
btn Do Until
|
7. Kemudian masukan scriptnya.Yang pertama untuk button " FOR NEXT " berikut ini adalah scripnya :
Private Sub btnfornext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfornext.Click
tampil.Items.Clear()
Dim i As Byte
For i = 1 To 100
tampil.Items.Add(i)
Next
End Sub
Kemudian untuk button " DO WHILE " berikut ini adalah scriptnya :
Private Sub btndowhile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndowhile.Click
tampil.Items.Clear()
Dim x As Byte
x = 1
Do While x <= 50
tampil.Items.Add(x)
x = x + 1
Loop
End Sub
Kemudian untuk button " DO UNTIL " berikut ini adalah scriptnya :
Private Sub btndountil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndountil.Click
tampil.Items.Clear()
Dim a As Byte
a = 1
Do Until a >= 20
tampil.Items.Add(a)
a = a + 1
Loop
End Sub
8. Setelah di masukan script tersebut maka hasilnya seperti gambar di bawah ini :
 |
| GAMBAR FOR NEXT |
CATATAN : " Pada Button For Next terjadi looping 1 sampai 100. menggunakan proses For, Scroll pada ListBox untuk melihat bilangan sampai 100 "
 |
| GAMBAR DO WHILE |
CATATAN : " Pada Button Do While terjadi looping 1 sampai 50, menggunakan proses do while, dimana x = 1 dan x <= 50, berarti akan looping bilangan 1 sampai 50, Scroll ListBox untuk melihat bilangan sampai 50 "
 |
| GAMBAR DO UNTIL |
CATATAN : " Pada Button Do Until terjadi looping 1 sampai 19, menggunakan proses Do Until, dimana a = 1 dan x < 20, berarti akan looping bilangan 1 sampai 19 karena x < 20 berarti tidak termasuk pengulangan, Scroll ListBox untuk melihat bilangan sampai 19"
Selamat mencoba ... (^_^)
幸運を... (^_^)
幸運を... (^_^)
EmoticonEmoticon