Latihan visual Basic : HOTEL

Lagi Latihan VB blajar blajar ....
nih Script nya seperti ini ...



Private Sub Command3_Click()
End
End Sub

Private Sub DTPicker2_Change()
txt_lama.Text = DTPicker2.Value - DTPicker1.Value
txt_B_inap.Text = Val(txt_lama.Text) * 50000
End Sub

Private Sub Check1_Click()
If (Check1.Value = 1) Then
txt_B_Makan.Text = Val(txt_lama.Text) * 8000
Else
txt_B_Makan.Text = 0
End If

End Sub

Private Sub Check2_Click()
If (Check2.Value = 1) Then
txt_B_Fitnes.Text = Val(txt_lama.Text) * 10000
Else
txt_B_Fitnes.Text = 0
End If

End Sub

Private Sub Check3_Click()
If (Check3.Value = 1) Then
txt_B_Laundry.Text = Val(txt_lama.Text) * 10000
Else
txt_B_Laundry.Text = 0
End If

End Sub


Private Sub txt_B_inap_Change()
txt_Total.Text = Val(txt_B_inap.Text)
End Sub


Private Sub txt_B_Makan_Change()
txt_Total.Text = Val(txt_B_inap.Text) + Val(txt_B_Makan.Text)
End Sub
Private Sub txt_B_Fitnes_Change()
txt_Total.Text = Val(txt_B_inap.Text) + Val(txt_B_Makan.Text) + Val(txt_B_Fitnes.Text)
End Sub
Private Sub txt_B_Laundry_Change()
txt_Total.Text = Val(txt_B_inap.Text) + Val(txt_B_Makan.Text) + Val(txt_B_Fitnes.Text) + Val(txt_B_Laundry.Text)
End Sub
Private Sub txt_bayar_Change()
txt_kembali.Text = Val(txt_bayar.Text) - Val(txt_tot_biaya.Text)
End Sub

Private Sub txt_pot_Change()
txt_Potongan.Text = (Val(txt_pot.Text) / 100) * Val(txt_Total.Text)
txt_tot_biaya.Text = Val(txt_Total.Text) + Val(txt_Potongan.Text)
End Sub