Soal-soal Visual Basic

Soal 1 :

                                                  Perhitungan Penerimaan Kas

          PT.KARIMUN JAYA

Data yang di input :

-          Kode barang

-          Nama barang

-          Harga satuan

-          Banyak barang

Nama barang di dapat dari kode barang, begitu juga harga satuan.

Data yang di proses :

Total harga = banyak barang + harga satuan

Ketentuan Discount dan Terima Bersih :

Discount di dapat dari 2.5% Harga Total

Terima bersih = Total harga – Discount.

Soal 2:

Perhitungan Daftar Penjualan Toko Mataram

Data yang di input :

-          Tanggal jual

-          Kode barang

-          Jumlah terjual

-          Kode barang (LM,KR,SF,MJ)

Jenis barang dan harga satuan tergantung Kode Barang.

            Jika kode barang LM, maka jenis barang adalah lemari dan harga satuannya adalah       Rp.123400.

Jika kode barang KR, maka jenis barang adalah kursi dan harga satuannya adalah Rp.75500.

Jika kode barang SF, maka jenis barang adalah sofa dan harga satuannya adalah Rp.340000.

Jika kode barang MJ, maka jenis barang adalah meja dan harga satunnya adalah Rp.112000.

Potongan terbagi 2, yakni pajak dan komisi :

Pajak   = masing – masing unit barang diberikan komisi sebesar 4% dari harga satuan.

Komisi= masing – masing unit barang diberikan komisi sebesar 10% dari harga satuan.

Bayar bersih = jumlah terjual * harga satuan – potongan.

 Penyelesaian Dalam Program

 1.

Private Sub Combo1_Click()

If Combo1 = "K-10" Then

   Text1 = "MONITOR"

   Text2 = 550000

Else

If Combo1 = "K-20" Then

    Text1 = "PRINTER"

    Text2 = 380000

Else

    Text1 = "CPU+KEYBOARD"

    Text2 = 1200000

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 Command2_Click()

 MsgBox "Sampai Jumpa Lagi!!!!!!!!!!!!"

 End

End Sub

Private Sub Text3_Change()

Text4 = Val(Text2) * Val(Text3)

Text5 = 0.025 * Val(Text4)

Text6 = Val(Text4) - Val(Text5)

End Sub

Private Sub Timer1_Timer()

Label10.Caption = Format(Now(), "HH:MM:SS")

End Sub

2.

          Private Sub Combo1_Click()
If Combo1 = "LM" Then
    Text2 = "Lemari"
    Text3 = 123400
Else
If Combo1 = "KR" Then
    Text2 = "Kursi"
    Text3 = 75500
Else
If Combo1 = "SF" Then
    Text2 = "Sofa"
    Text3 = 340000
Else
    Text2 = "Meja"
    Text = 112000
End If
End If
End If
    Text4 = 0.04 * Text3
    Text5 = 0.1 * Text3
    Text6 = Val(Text1) * Val(Text3) - (Val(Text4) + Val(Text5))
End Sub
  
Private Sub Command1_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
End Sub

Private Sub Command2_Click()
MsgBox "SELESAI..............!!!!!"
End
End Sub

Private Sub Timer1_Timer()
Label11.Caption = Format(Now(), "HH:MM:SS")
End Sub