berikut ini jalannya
ini contohnya cara pengulangan
dan ini kodingnya
kita ikutin saja ,,,
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = a + b
Text3 = c
End Sub
Private Sub Command2_Click()
a = Val(Text1)
b = Val(Text2)
c = a - b
Text3 = c
End Sub
Private Sub Command3_Click()
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub
Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
c = a / b
Text3 = c
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
No comments
Post a Comment