LA : PERCABANGAN VISUAL BASIC

Dapat didownload di : https://www.dropbox.com/s/77049vspeq3rz7i/2%20LAPORAN%20AKHI%20Percabangan%20VB.docx?dl=0

CODING 
Listing code untuk Form1
Private Sub Form_Load()
cmbMakanan.AddItem ("Nasi Goreng Nanas")
cmbMakanan.AddItem ("Ikan Goreng  Nanas")
cmbMakanan.AddItem ("Sate Sosis Nanas")
cmbMakanan.AddItem ("Soto Ayam Nanas")
cmbMakanan.AddItem ("Asinan Nanas")
cmbMinuman.AddItem ("Teh Nanas")
cmbMinuman.AddItem ("Jus Nanas")
cmbMinuman.AddItem ("Es Nanas Tropical")
cmbMinuman.AddItem ("Ice Cream Nanas")
cmbMinuman.AddItem ("Milk Shake Nanas")
End Sub
Listing code untuk ComboBox “cmbMakanan “: Jenis Makanan
Private Sub cmbMakanan_Change()
cmbMakanan.Text = "Nasi Goreng Nanas"
cmbMakanan.Text = "Ikan Goreng Nanas"
cmbMakanan.Text = "Sate Sosis Nanas"
cmbMakanan.Text = "Soto Ayam Nanas"
cmbMakanan.Text = "Asinan Nanas"
End Sub
Listing code untuk ComboBox “cmbMinuman” :  Jenis Minuman
Private Sub cmbMinuman_Change()
cmbMinuman.Text = "Teh Nanas"
cmbMinuman.Text = "Jus Nanas"
cmbMinuman.Text = "Es Nanas Tropical"
cmbMinuman.Text = "Ice Cream Nanas"
cmbMinuman.Text = "Milk Shake Nanas"
End Sub
Listing code untuk CommandButton : Command1 “Makan”
Private Sub Command1_Click()
If cmbMakanan.Text = "Nasi Goreng Nanas" Then
Text1 = 10000
Else
If cmbMakanan.Text = "Ikan Goreng Nanas" Then
Text1 = 25000
Else
If cmbMakanan.Text = "Sate Sosis Nanas" Then
Text1 = 12000
Else
If cmbMakanan.Text = "Soto Ayam Nanas" Then
Text1 = 8000
Else
If cmbMakanan.Text = "Asinan Nanas" Then
Text1 = 5000
Else
Text1 = 0
End If
End If
End If
End If
End If
End Sub
Listing code untuk CommandButton : Command2 “Minum”
Private Sub Command2_Click()
If cmbMinuman.Text = "Teh Nanas" Then
Text2 = 3000
Else
If cmbMinuman.Text = "Jus Nanas" Then
Text2 = 5000
Else
If cmbMinuman.Text = "Es Nanas Tropical" Then
Text2 = 8000
Else
If cmbMinuman.Text = "Ice Cream Nanas" Then
Text2 = 4000
Else
If cmbMinuman.Text = "Milk Shake Nanas" Then
Text2 = 6000
Else
Text2 = 0
End If
End If
End If
End If
End If
End Sub
Listing code untuk CommandButton : Command3 “Exit” 
Private Sub Command3_Click()
End
End Sub
Listing code untuk CommandButton : Command4 “Total Harga” 
Private Sub Command4_Click()
Text3.Text = CInt(Text1.Text) + CInt(Text2.Text)
End Sub
Listing code untuk CommandButton : Command5 “Pajak”
Private Sub Command5_Click()
Text4.Text = CInt(Text3.Text) * 0.1
End Sub
Listing code untuk CommandButton : Command6 “Bayar”
Private Sub Command6_Click()
Text5.Text = CInt(Text3.Text) + CInt(Text4.Text)
End Sub

LOGIKA

• Logika untuk listing code pada Form1, berfungsi untuk menambahkan item pada ComboBox “cmbMakanan”: Jenis makanan dan ComboBox “cmbMinuman”  : Jenis Minuman.
• Logika untuk listing code pada ComboBox “cmbMakanan”: Jenis makanan dan ComboBox “cmbMinuman”  : Jenis Minuman, berfungsi untuk memasukan jenis – jenis makanan yang ada di dalam ComboBox “cmbMakanan”: Jenis Makanan, yaitu : Nasi Goreng Nanas , Ikan Goreng Nanas, Sate Sosis Nanas, Soto Ayam Nanas, Asinan Nanas dan memasukan jenis – jenis minuman yang ada di dalam ComboBox “cmbMinuman”  : Jenis Minuman, yaitu : Teh Nanas, Jus Nanas, Es Nanas Tropical, Ice Cream Nanas, Milk Shake Nanas.
• Logika untuk listing code pada CommandButton : Makan, berfungsi untuk menentukan harga makanan untuk setiap jenis makanan dengan mengunakan beberapa kondisi, jika text pada cmbMakanan = Nasi Goreng Nanas maka  text1 = 10000, jika text pada cmb Makanan = Ikan Goreng Nanas maka text1 = 25000,jika text pada cmbMakanan = Sate Sosis Nanas maka text1 = 12000, jika text pada cmbMakanan = Soto Ayam Nanas maka text1 = 8000, jika text pada cmbMakanan = Asinan Nanas maka text1 = 5000, dan jika di isi selain itu maka text1=0
• Logika untuk listing code pada CommandButton : Minum, berfungsi untuk menentukan harga minuman untuk setiap jenis makanan dengan mengunakan beberapa kondisi, jika text pada cmbMinuman = Teh Nanas maka text2 = 3000, jika text pada cmbMinuman = Jus Nanas maka text2 = 5000, jika text pada cmbMinuman = Es Nanas Tropical maka text2 = 8000, jika text pada cmbMinuman = Ice Cream Nanas maka text2 = 4000, jika text pada cmbMinuman = Milk Shake Nanas maka text2 = 6000, dan jika di isi selain itu maka text2 = 0.
• Logika untuk listing code pada CommandButton : Exit, berfungsi untuk mengahkiri atau keliar dari program.
• Logika untuk listing code pada CommandButton : Total Harga yaitu menjumlahkan text pada text1 dan text2 dengan terlebih dahulu mengubahnya menjadi integer, dan menaruhnya pada text 3.
• Logika untuk listing code pada CommandButton : Pajak, berfungsi untuk mengalikan text pada text3 dengan 10%  dengan terlebih dahulu mengubahnya menjadi integer, dan menaruhnya pada text4.
• Logika untuk listing code pada CommandButton : Bayar, berfungsi untuk menjumlahkan text pada text3 dan text4,dengan terlebih dahulu mengubahnya menjadi integer, dan menaruhnya pada text5.