TOSERBA ELECTRONIC
Sebuah Toko Barang akan membuat Daftar Penjualan Barang yang dijualnya
Sebagai data yang diinput adalah:
*No
*Nama Barang
*Merek Barang
*Harga Satuan
*Jumlah Jual
Harga Satuan tergantung dari Nama Barang
Jika: Komputer @2.000.000
Printer @500.000
Mouse @80.000
Telepon @85.000
Laser Disk @15.000.000
AC @850.000
Parabola @500.000
Kulkas @800.000
Handphone @550.000
TV @10.000.000
Sebagai Data yang Diproses:
*Harga total = Harga Satuan * Jumlah Jual
*Discount di dapat dari 10% dari harga total
*Total bayar = Harga Total-Discount
PERHITUNGAN PENJUALAN BARANG
TOSERBA ELECTRONIC
Private Sub Combo1_Click()
If Combo1 = "Komputer" Then
Text2 = 2000000
Else
If Combo1 = "Printer" Then
Text2 = 500000
Else
If Combo1 = "Mouse" Then
Text2 = 80000
Else
If Combo1 = "Telepon" Then
Text2 = 85000
Else
If Combo1 = "Laser Disk" Then
Text2 = 15000000
Else
If Combo1 = "AC" Then
Text2 = 850000
Else
If Combo1 = "Parabola" Then
Text2 = 500000
Else
If Combo1 = "Kulkas" Then
Text2 = 800000
Else
If Combo1 = "handphone" Then
Text2 = 550000
Else
Text2 = 10000000
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub Command1_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
End Sub
Private Sub Text3_Change()
Text4 = Val(Text2) * Val(Text3)
End Sub
Private Sub Text4_Change()
Text5 = Val(Text4) * 0.01
End Sub
Private Sub Text5_Change()
Text6 = Val(Text4) - Val(Text5)
End Sub
Private Sub Timer1_Timer()
Label10.Caption = Format(Now(), "hh:mm:ss")
End Sub
DiPoskan Oleh Adil Aspiran Meymoral Gea
Tidak ada komentar:
Posting Komentar