penjumlahan tidak menggunakan keypress


Private Sub Command1_Click()
If Val(Text1.Text) & Val(Text2.Text) Then
Text3.Text = Val(Text1.Text) + (Text2.Text)
End If
End Sub



Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Komentar

Postingan populer dari blog ini

PEMILIHAN MULI MEKHANAI

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

STMIK PRINGSEWU GELAR PRA PENDIDIKAN DASAR MILITER (PRADIKSARMIL)