Ini adalah layout program kasir sederhana. .
berikut adalah codingnya :
Private Sub Command1_Click()
Text4 = (Val(Text1.Text) * Val(Text6.Text)) + (Val(Text2.Text) * Val(Text7))
Text5 = Val(Text3.Text) - Val(Text4.Text)
End Sub
Private Sub Command2_Click()
End
End Sub
smoga bermanfaat. .
0 Comments:
Post a Comment