Entry Data Penjualan

Langkah-Langkah:

1.Buka Microsoft Visual Basic 6.0

2.Pada tampilan dibawah ini :

3.Kemudian pilih standard.exe lalu klik open

4.Muncul gambar seperti ini

5. Pada menu Toolbox pilih Label,textbox,command,combo,option, dan frame

   * Buat 10 label pada latihan text box

   - pada label1,pilih caption dan ganti nama dengan Entry Data Penjualan

   - pada label2,pilih caption dan ganti nama dengan Kode Barang

   - pada label3,pilih caption dan ganti nama dengan Nama Barang

   - pada label4,pilih caption dan ganti nama dengan Harga Barang

   - pada label5,pilih caption dan ganti nama dengan Jumlah Unit

   - pada label6,pilih caption dan ganti nama dengan Satuan

   - pada label7,pilih caption dan ganti nama dengan Besar Diskon

   - pada label8,pilih caption dan ganti nama dengan Total

   - pada label9,pilih caption dan ganti nama dengan Bayar

   - pada label10,pilih caption dan ganti nama dengan Sisa

   * Buat 7 textbox pada latihan text box

    - Dari ke-tujuh textboxt  tersebut,pada caption nya dikosongkan

    * Buat 2 command pada latihan text box

    - pada command1,pilih caption dan ganti nama dengan Input Lagi

    - pada command2,pilih caption dan ganti nama dengan Keluar

    * Buat 1 combo pada latihan text box

    - pada combo1,pilih caption dan ganti nama dengan  Pilih

    * Buat 1 frame pada latihan text box

    - pada combo1,pilih caption dan ganti nama dengan  Diskon

    * Buat 2 option pada latihan text box

    - pada option1,pilih caption dan ganti nama dengan Pembelian >=2jt

    - pada option1,pilih caption dan ganti nama dengan Pembelian <2jt

Jadinya seperti ini :

#Tambahkan Code Seperti Dibawah Ini:

6. Lalu klik 2x pada option1/Pembelian >=2jt

Private Sub Option1_Click(index As Integer)

Dim diskon As Double

Select Case index

Case 0

diskon = total1 * 0.1

Case 1

diskon = total1 * 0

End Select

Text8.Text = Format(diskon, "currency")

Text8.Text = Replace(Text8.Text, "$", "Rp.")

total2 = total1 - diskon

Text5.Text = Format(total2, "currency")

Text5.Text = Replace(Text5.Text, "$", "Rp.")

End Sub

7.Lalu klik 2x pada command 1lInput Lagi

    * Isikan formnya seperti ini :

Private Sub Command1_Click()

Dim ctl As Control

For Each ctl In Me.Controls

If TypeOf ctl Is TextBox Then

ctl.Text = ""

End If

Next

Text6.Text = ""

Text1.SetFocus

End Sub

8.Lalu klik 2x pada command 2/keluar

    * Isikan formnya seperti ini :

Private Sub Command2_Click()

End

End Sub

     

9. Lalu klik 2x pada Text4

    * Isikan formnya seperti ini :

Private Sub Text4_Change()

jumlah = Val(Text4.Text)

harga = Val(Text3.Text)

total1 = harga * jumlah

Text5.Text = Format(total1, "currency")

Text5.Text = Replace(Text5.Text, "$", "Rp.")

End Sub

10. Lalu klik 2x pada Text6   

    * Isikan formnya seperti ini :

          Private Sub Text6_Change()

bayar = Val(Text6.Text)

sisa = bayar - total2

Text7.Text = Format(sisa, "currency")

Text7.Text = Replace(Text7.Text, "$", "Rp.")

Setelah Mengikuti Tutorial Di-Atas

Cobalah anda klik “ F5 “ (Play)

Apakah berhasil atau tidak.

Inilah contoh program yang telah berhasil