HELLO FLEN - Pada pemrograman ini saya akan memjelaskan tentang dasar Membuat Form Menghitung Luas Lingkaran
Pada VB 6. Lingkaran merupakan suatu bentuk bulat seperti Bola yg biasa kita mainkan untuk permainan sepak bola, bola basket maupun bola volly. Tapi tahukah Anda bahwa dibalik bentuk lingkaran yg bulat tersebut mempunyai rumus lingkaran yg sangat berguna bagi kehidupan manusia karena bentuk bumi yg sebagai penompang kehidupan kita jg berbentuk bulat atau lingkar sehingga dengan adanya rumus matematika lingkaran ini dapat menghitung luas lingkaran dan keliling lingkaran bumi.
Cara menghitung rumus luas lingkaran bisa Anda cari dg rumus L = π.r.r dan penjelasan dari r ialah jari – jari lingkaran yg biasanya ada disetiap soal – soal yang membahas tentang lingkaran serta rumus π sudah pasti menggunakan angka 3,14 atau bisa Anda lihat rumus mencari luas lingkaran secara jelas seperti dibawah ini. Kita langsung saja pada pembahasan program, berikut langkah - langkahnya:
Cara menghitung rumus luas lingkaran bisa Anda cari dg rumus L = π.r.r dan penjelasan dari r ialah jari – jari lingkaran yg biasanya ada disetiap soal – soal yang membahas tentang lingkaran serta rumus π sudah pasti menggunakan angka 3,14 atau bisa Anda lihat rumus mencari luas lingkaran secara jelas seperti dibawah ini. Kita langsung saja pada pembahasan program, berikut langkah - langkahnya:
Pertama
Buka aplikasi VB 6 Anda lalu, klik File > New Project > Standard EXE.
Kedua
Buat tampilannya seperti ini:
Buka aplikasi VB 6 Anda lalu, klik File > New Project > Standard EXE.
Kedua
Buat tampilannya seperti ini:
Properties pada label, textbox, commandbutton:
Name
|
Label, Command = Caption | Textbox = Text
|
|
Label | Label1 | Menghitung Luas Lingkaran |
Label | Label2 | Jari - Jari |
Label | Label3 | Luas |
TextBox | txtjari | Kosongkan |
TextBox | txtluas | Kosongkan |
CommandButton | cmdinput | Input |
CommandButton | cmdhitung | Hitung |
CommandButton | cmdclose | Close |
Catatan: usahakan "Name" samakan, karena berpengaruh dengan coding dibawah ini:
Dim phi, luas As Double
Private Sub cmdclose_Click()
End
End Sub
Private Sub cmdhitung_Click()
phi = 3.14
luas = phi * (txtjari.Text * txtjari.Text)
txtluas = luas
End Sub
Private Sub cmdinput_Click()
txtjari.Text = ""
txtluas.Text = ""
End Sub
Ketiga
Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:
Sekian pembahasan program mengenai tentang dasar cara Membuat Form Menghitung Luas Lingkaran Pada VB 6. Semoga dapat bermanfaat dan juga bisa
membantu untuk Anda yang sedang belajar tentang pendasaran pemrograman VB 6.