Laporan Akhir Lab Ti

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

List1.AddItem k

k = k + 1

Loop

End Sub

·         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

·         Setelah itu kita runing  program dengan menekan tombol run / tekan F5

OUTPUT PROGRAM

Gambar di bawah ini adalah tampilan akhir sebelum kita me runing program yang kita telah buat