Jenis pernyataan dalam Visual Basic

Praktek Modul VII
disisi pengerjaannya terdapat tiga jenis pernyataan, yaitu:
-pernyataan berurut (sequential statement)
-pernyataan bercabang (conditional statement)
-pernyataan berrulang (looping statement)

A. pernyataan berulang
adalah pernyataan yang digunakan untuk mengulang pengertian
suatu masalah. banyaknya perulangan tergantung pada permasalahan.
pada praktek kali ini kita akan membahas pernyataan berulang.
pada bahasa VB ada tiga pernyataan berulang, yaitu:
1.FOR - NEXT
2.WHILE - WEND
3.DO - WHILE

a.1. FOR - NEXT

digunakan untuk mengulangi pengerjaaan suatu pernyataan atau
banyak pernyataan secara pasti. pada bentuk ini sedah diketahui secara
jelas banyaknya perulangan.

syntaks:
FOR variabel=nilai awal TO nilai akhir [step N]

NEXT variabel

flowchart FOR - NEXT



latihan 7.1
-buka proyek baru STANDAR EXE.
-dan rancang antar muka sebagai berikut:
-masukan lblangka, dan berikan nama "angka random"
-masukan lstangka
-masukan cmdkeluar

-setelah selesai rancangan antarmukanya, doubel klik pada form1, dan
masukan program berikut ini:

Private Sub Form_Load()

Dim I As Byte
Randomize (10)
For I = 1 To 10 Step 1
lstangka.AddItem (Rnd(50) * 10)
Next I

End Sub

catatan:RAD (fungsi membangkitkan bilangan acak)
RANDOMIZE (fungsi memberikan bibit (seed) angka acak)

-setelah itu tekan menu RUN, maka hasilnya akan seperti gambar dibawah ini:
-dan masukan program berikut pada tombol cmdkeluar:
Private Sub cmdkeluar_Click()
End
End Sub
-selesai sudah program kita..gampang kan....

latihan 7.2
-rancang antar muka sebagai berikut:
-klik dobel pada tombol OK, dan masukan program berikut:
Private Sub cmdok_Click()

Dim i, n As Byte
n = Val(txtn.Text)
lstbil.Clear

For i = 1 To n Step 1
lstbil.AddItem (Str(i))

Next i
End Sub

catatan: clear(berfungsi untuk membersihkan angka yang kita input sebelumnya)

-dan masukan kode program berikut pada masing2 optionganjil,genap, dan optsemua

Private Sub optganjil_Click()
Dim i As Byte
lsthasil.Clear
For i = 0 To lstbil.ListCount - 1
If (lstbil.List(i) Mod 2 <> 0) Then
lsthasil.AddItem (lstbil.List(i))
End If
Next i
End Sub

Private Sub optgenap_Click()
Dim i As Byte
lsthasil.Clear
For i = 0 To lstbil.ListCount - 1
If (lstbil.List(i) Mod 2 = 0) Then
lsthasil.AddItem (lstbil.List(i))
End If
Next i


End Sub

Private Sub optsemua_Click()
Dim i As Byte
lsthasil.Clear
For i = 0 To lstbil.ListCount - 1
lsthasil.AddItem (lstbil.List(i))
Next i

End Sub

-dan tekan menu RUN maka hasilnya sbb:
-masukan angka 10 dan klik OK maka hasilnya sbb:

-kemudian klik option ganjil maka akan keluar bilangan ganjil:
-dan klik option genap hasilnya sbb:
-klik option semua hasilnya sbb:
-selesai sudah program kita, selamat mencoba....