Tugas From Penjualan

Postingan kali ini saya akan memposting hasil kerjaan tugas PBD(perancangan basis data), disini saya juga akan sharing serta juga cara – cara membuat VB tersebut.

Langsung saja saya akan menjelaskan langkah – langkahnya : 
  1. Pertama buka terlebih dahulu VB yang sudah d instalnya.

lalu desain formnya sebagai berikut :

2. Sesudah itu beri keterangan pada gambar tersebut .
3. Gambar tersebut terdiri dari 14 label, 6 textbox, 2 optionButton, 1 comboBox, dan command button. 
 4. Lalu isikan script sesuai perintah soalnya.

Jika status menikah maka jumlah anak bisa d isikan,dan jika belum menikah jumlah anak tidak bisa diisikan. inilah berikut scriptnya.

Private Sub blmmenikah_Click()

txtjumlahanak.Visible = False

lbljumlahanak.Visible = False

End Sub               

Private Sub menikah_Click()

txtjumlahanak.Visible = True

lbljumlahanak.Visible = True

End sub

5. Pada label tunjangan akan terisi otomatis setelah memasukan jumlah anak, masing – masing anak mendapatkan tunjangan 100000/anak, dan maksimal mendapat tunjangan yaitu 3 anak.

Isikan script ini di textBox gaji pokok :

Private Sub txtgajipokok_keypress(keyascii As Integer)

If keyascii = 13 Then

    If menikah.Value = True Then

        If txtjumlahanak.Text = 1 Then

            Label2.Caption = 100000

        ElseIf txtjumlahanak.Text = 2 Then

            Label2.Caption = 200000

        ElseIf txtjumlahanak.Text = 3 Then

            Label2.Caption = 300000

        ElseIf txtjumlahanak.Text > 3 Then

            Label2.Caption = 300000

        Else

            MsgBox "Masukkan Jumlah anak", vbOKOnly + vbInformation, "Pesan"

            txtjumlahanak.SetFocus

        End If

    Else

        Label2.Caption = 0

    End If

End If

End Sub

6. Untuk pilihan combobox isikan scripnya sebagai berikut :

Private Sub Form_Load()

Combo1.AddItem "Elektronik"

Combo1.AddItem "Pecah Belah"

Combo1.AddItem "Makanan"

End Sub

7. Isikan script ini pada textBox jumlah penjualan :

Private Sub txtjumlahpenjualan_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim a, b, c, d

a = Val(txtgajipokok.Text)

b = Val(Label3.Caption)

c = Val(Label2.Caption)

kategori = Combo1

Select Case kategori

    Case "Elektronik"

        If txtjumlahpenjualan <= 5000000 Then

            bonus = 0

            Label3.Caption = bonus

        Else

            bonus = 0.05 * txtjumlahpenjualan

            Label3.Caption = bonus

        End If

    Case "Pecah Belah"

        If txtjumlahpenjualan <= 3000000 Then

            bonus = 0

           

        Else

            bonus = 0.02 * txtjumlahpenjualan

           

        End If

    Case "Makanan"

        If txtjumlahpenjualan <= 2000000 Then

            bonus = 0

           

        Else

            bonus = 0.02 * txtjumlahpenjualan

           

        End If

    End Select

Label3.Caption = bonus

d = a + b + c

Label4 = d

End If

 8. Dan pada terakhir tambahkan ketiga event di command button. Masing – masing untuk cmdSimpan, cmdrefresh dan cmdkeluar.

Cmdsimpan :

Private Sub cmdsimpan_Click()

List1.AddItem "Kode sales = " + txtkodesales

List1.AddItem "Nama Sales = " + txtnamasales

List1.AddItem "Gaji Pokok = " + txtgajipokok

List1.AddItem "tunjangan = " + Label2

List1.AddItem "jumlah penjualan = " + txtjumlahpenjualan

List1.AddItem "Bonus Penjualan = " + Label3

List1.AddItem "Total gaji = " + Label4

End Sub

Cmdrefresh :

Private Sub cmdrefresh_Click()

txtkodesales.Text = ""

txtnamasales.Text = ""

txtgajipokok.Text = ""

txtjumlahpenjualan.Text = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

Combo1.Text = ""

End Sub

Cmdkeluar

Private Sub cmdkeluar_Click()

End

End Sub

Untuk lebih lengkapnya  bisa di donwload : 
1. Tampilan d Visual basic Disini
 2. Scriptnya Disini

Berikut Hasil Inilah hasil yang sudah jadinya..

 

Demikian postingan dan sharing saya kali ini,semoga bermanfaat bagi yang membacanya. Program ini belum sempurna dan masih ada kesalahannya, saya mohon untuk diteliti lagi dan dipelajari bagi pembacanya. Saya juga masih belajar !!! untuk hasilnya Total gaji, kita harus enter pada label jumlah penjualan dan hasilnya akan keluar nantinya.

Disini program yang saya buat ini baru 90 % jadi, jadi sekali lagi tolong d amati dan diteliti lagi