Pada kali ini saya akan
menerangkan atau menjelaskan tentang mengenai LOOPING(PERULANGAN PADA
VB). Pertama saya akan membahas Perulangan (Loop),&
bentuk umum perulangan pada VB kali ini. kedua yaitu contoh program sederhana
yang saya pelajari pada praktikum minggu yang lalu. Langsung saja kita
mulai cara” LOOPING beserta coodinganya:
A. Perulangan (LOOP)
Perulangan (Visual Basic) menurut saya adalah mengulang statement
atau cara-cara yang diperintahkan pada VB
Bentuk umum perulangan pada VB
:
Ø Do While : berulang selama data
bernilai “True” dan berhenti bila “False”.
Ø Do Until : berulang bila bernilai
“False” dan berhenti ketika bernilai”True”.
Ø For Next : berulang otomatis tanpa
memasukkan/mengetkan rumus aritmatika.
B. Contoh - Contoh Program
Loopin
kali ini saya akan membuat program perulangan yg akan diulang adalah
statementnya.
berikut langkah-langkah nya :
Ø Bukalah aplikasi Visual Basic
6.0
Ø Buatlah NEW PROJECT pada VB 6.0
sampai muncul kotak Form1.
Ø Buatlah 1 buah List box & 5
buah Command Button pada Form
Ø Ubahlah List Box dan Command
Button pada menu properties :
v List Box 1 > Kosongkan/abaikan
juga tidak apa-apa
v Command Button 1 > Ubah
captionnya menjadi “For Next 1”.
v Command Button 2 > Ubah
captionnya menjadi “For Next 2”.
v Command Button 1 > Ubah
captionnya menjadi “Do While”.
v Command Button 2 > Ubah
captionnya menjadi “Do Until”.
v Command Button 5 > Ubah
captionnya menjadi “Clear”
Supaya agar jelas dijalankan dengan sesuai fungsinya, codingkan
aplikasi sederhana tersebut dengan cara (double klik pada tombol Command Button
1) untuk Identitas perintah suatu “Commma Button1” ketik codingan di bawah
berikut :
|
Private Sub Command1_Click()
Dim i As Integer
List1.Clear
For i = 1 To 20
List1.AddItem "angka " & i
Next i
End Sub
Private Sub Command2_Click()
List1.Clear
For i = 20 To 1 Step -2
List1.AddItem "angka " & i
Next i
End Sub
Private Sub Command3_Click()
List1.Clear
i = Asc("z")
Do While i >= Asc("a")
List1.AddItem "huruf " & Chr(i)
i = i - 1
Loop
End Sub
Private Sub Command4_Click()
List1.Clear
i = Asc("a")
Do Until i > Asc("z")
List1.AddItem "huruf " & Chr(i)
i = i + 1
Loop
End Sub
Private Sub Command5_Click()
List1.Clear
End Sub
Berikut hasil tampilaan programnya saat “Run”
 
Selanjutnya saya akan membuat form ke-2 dengan langkah
seperti biasa :
Ø Klik kanan pada Project (Project1.vbp)
Ø lalu klik Project 1 properties
Ø Pada kolom StartUp Object ubah Form1 menjadi Form2. lalu klik
Ok.
Jika sudah kita akan lanjut untuk pembuatan program kedua yaitu,
Operasi Hitung Ganjil Genap. Dengan ketentuan yang harus digunakan dalam
toolbox adalah 1 buah List Box, 1 buah Text Box , dan 3 buah Command Button.
Langsung saja kita mulai :
Buatlah 1 buah List Box, 1 buah text Box, dan 3 buah Command
Button
Ubahlah TextBox dan Command Button pada bagian properties:
v ListBox 1 > kosongksn/ abaikan
v TextBox 1 Kosongkan textnya.
v Command Button 1 > Ganti captionnya menjadi “Ganjil”.
v Command Button 2 > Ganti captionnya menjadi “Genap”.
v Command Button 3 > Ganti captionnya menjadi “Clear”.
berikut tampilan skematiknya:
Lalu codingkan aplikasi tersebut agar bisa dijalankan sesuai
fungsinya. (double klik pada tombol Command Button 1)
untuk Identitas “Commmand Button 1” ketik :
Private Sub Command1_Click()
List1.Clear
For i = 1 To 20 Step 2
List1.AddItem "angka " & i
Next i
End Sub
Private Sub Command2_Click()
List1.Clear
For i = 2 To 20 Step 2
List1.AddItem "angka " & i
Next i
End Sub
Private Sub Command3_Click()
List1.Clear
Text1.Text = Clear
Tampilan saat “Run”
SEKIAN CARA-CARA PERULANGAN VISUAL BASIC DARI SAYA.TERIMAKASIH ~
|
Comments
Post a Comment