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

Guru Welly

Foto saya
NIP. 197812312010011028 / NUPTK 0563756657110173 / N.R.G 162241136461 / Nomor Peserta Sertifikasi Pendidik 16051822410077 / Kode Sertifikasi 224

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