Pengenalan Percabangan dan Perulangan pada Visual Basic 6

LAPORAN AKHIR

Algoritma dan Pemograman 2A (AP2a)

Visual basic adalah tools dalam pengembangan  aplikasi visual yang dikembangkan oleh Microsoft. Pada Praktikum minggu ke 1 ini saya membuat aplikasi yaitu percabangan dan perulangan.

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.

• Berikut adalah contoh sederhana program percabangan :

Listing nya :

#Form 1:   

Label1.Caption = "LOGIN PROMPT"
Label2.Caption = "Username"
Label3.Caption = "Password"
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "OK"
Command2.Caption = "Exit"
Label1.FontBold = True

Label1.Font = "Castellar"
Label2.Font = "Curlz MT"
Label3.Font = "Curlz MT"
Command1.Font = "Segoe Print"
Command2.Font = "Segoe Print"

Label1.FontSize = "14"
Label2.FontSize = "12"
Label3.FontSize = "12"

#Command1 - Form1

 Private Sub Command1_Click()

 If (Text1.Text = "Admin") And (Text2.Text = "1ia26") Then
 i = MsgBox("Login Anda berhasil", vbOKOnly + vbInformation, "Admin")
 Form2.Show
 Unload Me

 Else:
 i = MsgBox("Maap Login anda blum berhasil", vbOKOnly + vbCritical, "Admin")
 End If

 End Sub

 #Command2 - Form1

 Private Sub Command2_Click()
 End
 End Sub

           

• Berikut adalah contoh sederhana program perulangan :

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 running  program dengan menekan tombol run / tekan F5

OUTPUT PROGRAM

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