yang pertama adalah memasukan textbox tiga buah kemudian tambah satu comandbutton
textbox yang pertama diberi nama txt1 textbox yang kedua diberi nama txt2
dan textbox yang ketiga diberi nama txthasil dan comandbuton diberi nama cmdok
kemudian masukan kode berikut ini cara memasukannya adalah kelik dua kali pada cmdok
Private Sub cmdok_Click()
Dim var1 As Integer
Dim var2 As Integer
var1 = txt1.Text
var2 = txt2.Text
txthasil.Text = var1 + var2
End Sub
textbox yang pertama diberi nama txt1 textbox yang kedua diberi nama txt2
dan textbox yang ketiga diberi nama txthasil dan comandbuton diberi nama cmdok
kemudian masukan kode berikut ini cara memasukannya adalah kelik dua kali pada cmdok
Private Sub cmdok_Click()
Dim var1 As Integer
Dim var2 As Integer
var1 = txt1.Text
var2 = txt2.Text
txthasil.Text = var1 + var2
End Sub
No comments:
Post a Comment