Jadilah Anggota smaneka untuk mendapatkan informasi terkini di smaneka.tk, yuk...

Kamis, 05 Februari 2009

Belajar VB chapter 1


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

Tidak ada komentar:

 
Minima 4 coloum Blogger Template by Beloon-Online.
Simplicity Edited by Ipiet's Template