Diketahui biaya pembayaran pada salonn ;
Data yang di input :
Nama
Jenis penyedian (krimbat,rebonding,semoting,pangkas,cat rambut,pasang sanggul)
Tipe pengunjung (member, non-member)

Harga tergantung dari jenis penyadiaan salon.
Jika krimbat maka harga Rp 45.000
Jika rebonding maka harga Rp 95.000
Jika semoting maka harga Rp 75.000
Jika pangkas maka harga Rp 10.000
Jika cat rambut maka harga Rp 40.000
Jika pasang sanggul maka harga Rp 20.000

Diskon tergantung pada jenis pengunjung.
Jika member maka diskon 20% dari harga
Jika non-member maka diskon 0% dari harga

Bayar akhir = harga – diskon

JAWAB
Private Sub Combo1_Click()
If Combo1 = "KRIMBAT" Then
Text2 = 45000
Else
If Combo1 = "REBONDING" Then
Text2 = 95000
Else
If Combo1 = "SEMOTING" Then
Text2 = 75000
Else
If Combo1 = "PANGKAS" Then
Text2 = 10000
Else
If Combo1 = "CAT RAMBUT" Then
Text2 = 40000
Else
Text2 = 20000
End If
End If
End If
End If
End If

End Sub



Private Sub Combo2_Click()
If Combo2 = "MEMBER" Then
Text3 = 0.2 * Text2
Else
Text3 = 0
End If
Text4 = Text2 - Text3
End Sub