Kode Program Penjumlahan

KOde program hitung

Private Sub cmdhitunglagi_Click()

txtnilaipertama.Text = " "

txtnilaikedua.Text = " "

txtnilaiketiga.Text = " "

txthasil = " "

txtnilaipertama.SetFocus

End Sub

Kode Keluar

Private Sub cmdselesai_Click()

Unload Me

End Sub

 

 Kode Enter

Private Sub txtnilaikedua_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnilaiketiga.SetFocus

End If

End Sub

 

Kode Hitung

Private Sub txtnilaiketiga_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthasil.Text = Val(txtnilaipertama.Text) + Val(txtnilaikedua.Text) - Val(txtnilaiketiga.Text)

txthasil.SetFocus

End If

End Sub

 Kode Enter

Private Sub txtnilaipertama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnilaikedua.SetFocus

End If

End Sub