LAPORAN AKHIR AP2A PERULANGAN DAN PERCABANGAN DI VISUAL BASIC 6.0
LISTING PROGRAM
Pada
pertemuan ke-2 ini saya membahas tentang menggunakan dan membuat program sederhana
menggunakan perulangan dan percabangan di visual basic.
Untuk
form buatlah tampilan dibawah ini :
Scrip pada form :
LOGIKA PEMOGRAMAN
Penjelasan program :
·
Pertama-tama bukalah
program aplikasi visual basic pada desktop atau menu yang berada pada
windos>>All Programs>>Microsoft visual basic 6.0
·
Kemudian akan muncul
kotak dialog seperti berikut:
Kemudian pilih lah Standard EXE >> open
·
Kemudian buatlah
tampilan form seperti di bawah ini dengan menggunakan menu-menu pada kotak
dialog general seperti: label , command button , ListBox.
·
Kemudian klik pada
label1, setelah itu pada kotak dialog properties>>caption>>ketikkan
“LOOP TOOL&S”
·
Kemudian klik pada
command1, setelah itu pada kotak dialog
properties>>caption>>ketikan “&Do
While”
·
Kemudian klik pada
command2, setelah itu pada kotak dialog properties>>caption>>ketikan
“&Do Until”
·
Kemudian klik pada
command3, setelah itu pada kotak dialog properties>>caption>>ketikan “&For Next 1”
·
Kemudian klik pada
command4, setelah itu pada kotak dialog properties>>caption>>ketikan “&For Next 2”
·
Kemudian klik pada
command5, setelah itu pada kotak dialog properties>>caption>>ketikan “&EXIT”
·
Kemudian klik dua kali
pada tombol button “Do While” kemudian ketikan codingan berikut:
Private Sub Command1_Click()
List1.Clear
Dim k As Integer
Do While k <= 20
k = k + 1
Loop
·
Kemudian klik dua kali
pada tombol button “Do Until” kemudian ketikan codingan berikut:
Private Sub Command2_Click()
List1.Clear
k = 20
Do Until k < 1
List1.AddItem k
k = k - 1
Loop
End Sub
·
Kemudian klik dua kali
pada tombol button “For Next1” kemudian ketikan codingan berikut:
Private Sub Command3_Click()
List1.Clear
For i = 1 To 20
List1.AddItem " ANGKA " & i
Next i
End Sub
·
Kemudian klik dua kali
pada tombol button “For Next2” kemudian ketikan codingan berikut:
Private Sub Command4_Click()
List1.Clear
For i = 1 To 20
List1.AddItem " ANGKA " & 21 - i
Next i
End Sub
·
Kemudian klik dua kali
pada tombol button “EXIT” kemudian ketikan codingan berikut:
Private Sub Command5_Click()
End
End Sub
·
kita juga bisa
mengganti font. Font style, size, dengan menggunakan perintah font pada kotak
dialog properties >> font
OUTPUT PROGRAM
Gambar di bawah ini adalah tampilan akhir sebelum kita me
runing program yang kita telah buat
Komentar
Posting Komentar