Tugas 5 Data Mahasiswa Tidak Menggunakan Keypress
Berikut Source Codenya:
Private
Sub cmdhitung_Click()
txttotal1 = Val(txtn1) + (txtn2)
txttotal2 = Val(Txtn3) / (txtn4)
txttotal3 = Val(txtn5) - (txtn6)
txttotal4 = Val(txtn7) * (txtn8)
End Sub
Private
Sub cmdbatal_click()
txtn1 = ""
txtn2 = ""
Txtn3 = ""
txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
txttotal1 = ""
txttotal2 = ""
txttotal4 = ""
txttotal3 = ""
txtn1.SetFocus
End Sub
Private
Sub cmdlagi_Click()
txtn1 = ""
txtn2 = ""
Txtn3 = ""
txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
txttotal1 = ""
txttotal2 = ""
txttotal4 = ""
txttotal3 = ""
txtn1.SetFocus
End Sub
Private
Sub cmdkeluar_click()
Unload Me
End Sub
0 komentar:
Posting Komentar