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

Klik tombol like diatas... Jika anda menyukai artikel ini.
Terima Kasih telah mengunjungi Blog ini,
Jangan lupa untuk memberikan komentar pada form dibawah post ini...

Share / Bagikan Artikel ini ke teman Anda :

{ 0 comments...Tambahkan Komentar Anda }

Posting Komentar