Menghitung Nilai keliling

1. Buka program vb 6.0 dan pilih Standart.EXE

2. Masukkan 3 buah label dan 3 buah TextBox ke dalam Form1 dan atur seperti gambar di bawah ini :

[Image: 1.JPG]

3. Ubah Caption

Label1 = Jari-jari
Label2 = Nilai Luas
Label3 = Nilai Keliling
Untuk Text1,2 & 3 hapus tulisan Textnya
Ganti Caption Form1 = Keliling

4. Berikut ini adalah tampilam Form yang sudah dirubah Captionnya:

[Image: 2.JPG]

5. Masukkan kode di bawah ini ke dalam jendela kode!

PHP Code:
Private Sub Text1_change()
Phi 3.14
Val(Text1.Text)
Luas Phi 2
Keliling 
Phi R
Text2
.Text Luas
Text3
.Text Keliling
End Sub 

6. Tekan tombol F5 untuk mencoba program. Masukkan nilai jari-jarinya maka nilai luas dan keliling akan dihitung secara otomatis.
Perhatikan contoh di bawah ini :

[Image: 3.JPG]


SEMOGA BERGUNA