Malang education center

pembelajaran tanpa batas www.malang-center.blogspot.com

  • RSS
  • Delicious
  • Digg
  • Facebook
  • Twitter
  • Linkedin

Belajar VB chapter 1

Posted by Ezkajivo undefined- undefined- undefined 0 comments




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

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

Categories:

Leave a Reply