VISUAL BASIC_chapter1

Private Sub Command1_Click()
Label5.Caption = "LUASx adalah"
Text4 = Val(Text1.Text) * Val(Text2.Text) * 0.5
End Sub

Private Sub Command2_Click()
Label5.Caption = "VOLUMEx adalah"
Text4 = 4 / 3 * Val(Text3.Text) * 3 * 3.14
End Sub