Rabu, 22 September 2010

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 :



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:


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

Private Sub Text1_change()
Phi = 3.14
R = Val(Text1.Text)
Luas = Phi * R ^ 2
Keliling = 2 * 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 :


7. Selamat mencoba !!!

0 comments:

Posting Komentar