Jawaban KUIS UAS Praktikum VB

SOAL

1. Buatlah desain form seperti program diatas.
2. Buatlah penomoran dengan perulangan untuk mendapatkan nomor faktur yang berulang-ulang pada command baru.
3. Untuk ketentuan harga makanan dan harga minuman:

Nama makanan	Harga
Nasi Goreng	12000
Mie Goreng	10000
Fried Chicken	9000

Nama minuman	Harga
Cappucion	15000
Iced Latte	14000
Espresso	13000

4. Buatlah coding untuk command button simpan, hapus, baru, hitung, dan keluar

5. Buat sebuah database dengan tiga tabel dan tampilkan pada data grid

6. Buat laporan dengan data report dari database tersebut.

Download aplikasi .exe nya

Source code :

Private Sub Combo1_Click()

    If (Combo1.ListIndex = 0) Then

        Text3.Text = "15000"

    ElseIf (Combo1.ListIndex = 1) Then

        Text3.Text = "14000"

    ElseIf (Combo1.ListIndex = 2) Then

        Text3.Text = "13000"

    End If

End Sub

Private Sub Command1_Click()

    Text8.Text = ((Val(Text1.Text) * Val(Text2.Text)) + (Val(Text3.Text) * Val(Text4.Text)))

    Text9.SetFocus

End Sub

Private Sub Command2_Click()

    Data1.Recordset.AddNew

    Data1.Recordset.nofak = Text5.Text

    Data1.Recordset.total_bayar = Text8.Text

    Data1.Recordset.uang_bayar = Text9.Text

    Data1.Recordset.kembalian = Text10.Text

    Data1.Recordset.Update

    Data1.Refresh

    

    Data2.Recordset.AddNew

    Data2.Recordset.nama_makanan = List1.Text

    Data2.Recordset.hrg_makanan = Text1.Text

    Data2.Recordset.jml_beli_makanan = Text2.Text

    Data2.Recordset.Update

    Data2.Refresh

    

    Data3.Recordset.AddNew

    Data3.Recordset.nama_minuman = Combo1.Text

    Data3.Recordset.hrg_minuman = Text3.Text

    Data3.Recordset.jml_beli_minuman = Text4.Text

    Data3.Recordset.Update

    Data3.Refresh

End Sub

Private Sub Command3_Click()

    Data1.Recordset.Delete

    Data1.Refresh

    

    Data2.Recordset.Delete

    Data2.Refresh

    

    Data3.Recordset.Delete

    Data3.Refresh

End Sub

Private Sub Command4_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

    Text8.Text = ""

    Text9.Text = ""

    Text10.Text = ""

    Combo1.Text = ""

    Text5.Text = "000" & Val(Text5.Text) + 1

    Text1.SetFocus

End Sub

Private Sub Command5_Click()

    End

End Sub

Private Sub Command6_Click()

    DataReport1.Show

End Sub

Private Sub Form_Load()

    List1.AddItem "Nasi Goreng"

    List1.AddItem "Mie Goreng"

    List1.AddItem "Fried Chicken"

    

    Combo1.AddItem "Cappucino"

    Combo1.AddItem "Iced Latte"

    Combo1.AddItem "Espresso"

    

    Text5.Text = "0001"

End Sub

Private Sub List1_Click()

    If (List1.ListIndex = 0) Then

        Text1.Text = "12000"

    ElseIf (List1.ListIndex = 1) Then

        Text1.Text = "10000"

    ElseIf (List1.ListIndex = 2) Then

        Text1.Text = "9000"

    End If

End Sub

Private Sub Text10_Click()

    Text10.Text = Val(Text9.Text) - Val(Text8.Text)

End Sub