LATIHAN PROJECT PENJUALAN LOKAL MI-3 SEMESTER 2

Untuk materi sekarang ini adalah penyelesaian Latihan Lokal MI-3 Semester 2 AMIK Boekittinggi, yang berhubungan juga dengan Bolean. Tugas yang akan diselesaikan adalah Project PENJUALAN BARANG DAGANG.

Setelah membuka Lembar kerja Visual Basic  sediakanlah pada lembar kerja form seperti gambar di bawah ini  :

Komponen yang ada dari gambar di atas adalah :

1. Nama Project ganti menjadi prjPenjualan

2. Berikan juga nama Form frmPenjualan

3. Captionnya ganti menjadi “PENJUALAN”

4. Pada form berikan 11 label, berikan captionnya “KONSUMEN, BANYAKNYA, HARGA @, JUMLAH HARGA, DISKON, TOTAL SEMUA, RATA-RATA, BAYAR, CASH DAN UANG KEMBALI”

5. Tambahkan 23 Text Box dengan Nama : “barang1, banyak1, harga1, jumlah1, diskon1, barang2, banyak2, harga2, jumlah2, diskon2, barang3, banyak3, harga3, jumlah3, diskon3, totaljumlah, totaldiskon, ratajumlah, ratadiskon, bayar, cash, dan kembalian.” Dan Captionnya dikosongkan saja.

6. Terakhir tambahkan 2 Command Button,

·         Nama             :  keluar

Caption          :  KELUAR

·         Nama             :  ulangi

Caption          :  ULANGI

7. Dobel Klik Command KELUAR, masukkan code : Unload Me

8. Dobel Klik Command ULANGI, masukkan code Ulangi

9. Buatlah Private Sub baru untuk dipanggil oleh Ulangi,

Private Sub Ulangi ()

    barang1.Text = ""

    barang2.Text = ""

    barang3.Text = ""

    banyak1.Text = ""

    banyak2.Text = ""

    banyak3.Text = ""

    harga1.Text = ""

    harga2.Text = ""

    harga3.Text = ""

    jumlah1.Text = ""

    jumlah2.Text = ""

    jumlah3.Text = ""

    diskon1.Text = ""

    diskon2.Text = ""

    diskon3.Text = ""

    totaljumlah.Text = ""

    totaldiskon.Text = ""

    ratajumlah.Text = ""

    ratadiskon.Text = ""

    bayar.Text = ""

    cash.Text = ""

    Kembalian.Text = ""

End Sub

10. Buat Private Sub terbaru untuk diskon :

Private Sub Diskon()

    If Val(jumlah1.Text) < 6 Then

        Diskon1.Text = 0

    ElseIf Val(jumlah1.Text) < 12 Then

        Diskon1.Text = 3 / 100 * Val(txtHarga1.Text)

    ElseIf Val(jumlah1.Text) < 25 Then

        Diskon1.Text = 5 / 100 * Val(txtHarga1.Text)

    ElseIf Val(jumlah1.Text) < 51 Then

        Diskon1.Text = 10 / 100 * Val(txtHarga1.Text)

    ElseIf Val(jumlah1.Text) > 50 Then

        Diskon1.Text = 20 / 100 * Val(txtHarga1.Text)

    End If

   

    If Val(jumlah2.Text) < 6 Then

        Diskon2.Text = 0

    ElseIf Val(jumlah2.Text) < 12 Then

        Diskon2.Text = 3 / 100 * Val(txtHarga2.Text)

    ElseIf Val(jumlah2.Text) < 25 Then

        Diskon2.Text = 5 / 100 * Val(txtHarga2.Text)

    ElseIf Val(jumlah2.Text) < 51 Then

        Diskon2.Text = 10 / 100 * Val(txtHarga2.Text)

    ElseIf Val(jumlah2.Text) > 50 Then

        Diskon1.Text = 20 / 100 * Val(txtHarga2.Text)

    End If

 

    If Val(jumlah3.Text) < 6 Then

        Diskon3.Text = 0

    ElseIf Val(jumlah1.Text) < 12 Then

        Diskon3.Text = 3 / 100 * Val(txtHarga3.Text)

    ElseIf Val(jumlah3.Text) < 25 Then

        Diskon3.Text = 5 / 100 * Val(txtHarga3.Text)

    ElseIf Val(jumlah3.Text) < 51 Then

        Diskon3.Text = 10 / 100 * Val(txtHarga3.Text)

    ElseIf Val(jumlah3.Text) > 50 Then

        Diskon3.Text = 20 / 100 * Val(txtHarga3.Text)

    End If

End Sub

11. Buat lagi Private sub Total Jumlah

Private Sub Total_Jumlah()

    Totaljumlah.Text = Val(jumla1.Text) + Val(jumlah2.Text) + Val(jumlah3.Text)

    Totaldiskon.Text = Val(Diskon1.Text) + Val(Diskon2.Text) + Val(Diskon3.Text)

End Sub

12. Buat lagi Private Sub rata-rata

Private Sub Rata_rata()

ratatotal.Text = Val(totaljumlah.Text) / 3

rataDiskon.Text = Val(totaldiskon.Text) / 3

End Sub

13. Buat Privat Sub Total

Private Sub Total()

jumlah1.Text = Val(banyak1.Text) * Val(harga1.Text)

jumlah2.Text = Val(banyak2.Text) * Val(harga2.Text)

jumlah3.Text = Val(banyak3.Text) * Val(harga3.Text)

End Sub

14. Dobel klik text box banyak1, banyak2 dan banyak3.text, harga1, harga2, harga3.text.  masukkan code berikut

Diskon

Total

15. Dobel klik text box jumlah1, jumlah2, jumlah3.text, masukkan kode berikut :

Total_jumlah

16. Dobel klik text box diskon1, diskon2, diskon3.text, masukkan kode berikut :

Diskon

Tolah_jumlah

17. Dobel klik text box totaljumlah dan totaldiskon.txt.

Rata_rata

Bayar.Text = Val(jumlahtotal.Text) - Val(totaldiskon.Text)

18. Dobel klik text box cash.text, masukkan kode berikut :

Kembalian.Text = Val(cash.Text) - Val(Bayar.Text)

Jalankan program dengan menekan tombol F5, hasilnya kira-kira akan menjadi seperti gambar di bawah ini :

Setelah selesai anda bisa memodifikasi dan mendesain Form, label, texbok dan lain-lain.  Apakah akan menukar warna latar, font dan lain-lain

File PDF silahkan download di sini!,

File Program rar download di sini ! jika diminta kata sandi ketikkan  "antoni" tanpa kutip.

Posted in: Komputer, tutorial, Visual Basic