CONTOH SOAL VB

TOKO HELM SEJATI

Biaya penjualan helm sebagai berikut:

Data yang diinput

-nama pembeli

-jenis helm

-banyak barang

-harga barang

Harga helm tergantung dari jenis helm

Jika jenis helmGM ,maka harga Rp.350000

Jika jenis helm BMC, maka harga Rp.250000

Jika jenis helm J-KIN, maka harga Rp.400000

Jika jenis hellm CABERG, maka harga Rp.20000

Jika jenis helm KYT, maka harga Rp.245000

Jika jenis helm maz, maka harga Rp.175000

Jumlah bayar = harga*banyak barang

Jika jumlah bayar> dari 1000000, maka diskon 10%

Jika jumlah bayar>dari800000, maka diskon 5%

Jumlah bayar akhir = jumlah bayar-diskon

Penyelesaian:

Private Sub Combo1_Click()

If Combo1 = "gm" Then

Text2 = 350000

Else

If Combo1 = "bmc" Then

Text2 = 250000

Else

If Combo1 = "j-kin" Then

Text2 = 400000

Else

If Combo1 = "gaberg" Then

Text2 = 200000

Else

If Combo1 = "kyt" Then

Text2 = 245000

Else

Text2 = 175000

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

Combo1 = Clear

Combo2 = Clear

End Sub

Private Sub Command2_Click()

Text1 = Clear

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text5 = Clear

Text6 = Clear

Combo1 = Clear

Combo2 = Clear

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text3_Change()

Text4 = Val(Text2) * Val(Text3)

If Val(Text4) > 1000000 Then

Text5 = 0.1 * Text4

Else

If Val(Text4) < 1000000 Then

Text5 = 0.05 * Text4

Else

Text5 = 0

End If

End If

Text6 = Val(Text4) - Val(Text5)

End Sub

Private Sub Timer1_Timer()

Label11.Caption = Format(Now(), "hh:mm:SS")

End Sub

Private Sub Timer2_Timer()

Label12.Caption = Format(Now(), "hh:mm:SS")

a = Left(Label1.Caption, 1)

b = Len(Label1.Caption)

c = Right(Label1.Caption, b - 1)

Label1.Caption = c + a

End Sub