Menghitung Luas Dan Keliling Lingkaran menggunakan Visual Basic



1. Desain awal program



2. Atur Properties Masing-masing Objek sebagai berikut:
NO.
OBJEK
PROPERTIES
PENGATURAN
1
Form1
Text
Project Luas lingkaran


BackColor
ScrollBar
2
Label1
Text
Menghitung Luas Lingkaran


Bold
True


FontSize
10
3
Label2
Text
Jari-jari :
4
Label3
Text
Luas :
5
Label4
Text
Lingkaran :
   6
Textbox1
Name
Txtjarijari
7
Textbox2
Name
Txtluas
8
Textbox3
Name
Txtlingkaran
9
Button1
Text
Proses


Name
Btnproses
10
Button2
Text
Bersih


Name
Btnbersih
11
Button3
Text
Tutup


Name
Btntutup

 Tampilan program setelah pengaturan properties sebagai berikut









3. Pemberian Perintah/Instruksi pada Program
     Alur Program:
a.    Masukkan nilai jari-jari pada label2 (Jari-jari) di Textbox1 (Txtjarijari).
b.    Setelah itu klik Button1 (Proses) supaya dapat mengetahui hasil luas dan keliling lingkaran berdasarkan nilai jari-jari yang terdapat pada label2 (Jari-jari)di Textbox1 (Txtjarijari) dan hasilnya akan keluar pada label3 (Luas) di Textbox2 (Txtluas) dan label4 (Keliling) di Textbox3 (Txtkeliling) berdasarkan rumus yang terdapat pada Perintah Program.
c.    Jika diklik tombol Button2(Bersih), maka:
a.      Nilai yang terdapat pada Textbox1 (Txtjarijari) akan hilang.
b.      Nilai yang terdapat pada Textbox2 (Txtluas) akan hilang.
c.       Nilai yang terdapat pada Textbox3 (Txtkeliling) akan hilang.
d.    Jika diklik tombol Button3(Tutup), maka program akan ditutup (keluar dari program)









Perintah Program :
PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        Txtjarijari.Text = " "
        Txtluas.Text = " "
        Txtkeliling.Text = " "
EndSub

PrivateSub Btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntutup.Click
End
EndSub

PrivateSub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Txtluas.Text = 22 / 7 * Txtjarijari.Text * Txtjarijari.Text
        Txtkeliling.Text = 2 * 22 / 7 * Txtjarijari.Text
EndSub
EndClass






Tampilan Program setelah dijalankan sebagai berikut :
 

Untuk menjalankan program, klik tombol Start Debugging    
     atau tekan tombol F5 pada keyboard.
Untuk menutup program, klik tombol Stop Debugging 
       






























Komentar

Posting Komentar

Postingan populer dari blog ini

Pengertian PROCEDURE,FUNCTION, dan MODUL

A.     TUJUAN -        Memahami dan mengenal Procedure, Function dan Modul -        Dapat membuat aplikasi sederhana dengan menggunakan Procedure, Function dan Modul B.      PERANGKAT LUNAK (SOFTWARE) -        Microsoft Visual Basic 2008 C.     DASAR TEORI 1.       Procedure (Prosedur) Sejauh ini, anda telah menuliskan sub procedure yang dibuat secara otomatis pada saat menggunakan event . Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan. Bentuk Umum : [Private|Public] Sub subname [(argumentlist)]       Statements End sub Sub Procedure dapat dipanggil dengan perintah : [call] subname [(argumentlist)] Ket...
Baca selengkapnya

Pengertian Exception Handling

A.     TUJUAN -        Memahami dan mengenal Exception Handling -        Dapat membuat aplikasi sederhana dengan menggunakan Exception Handling B.      PERANGKAT LUNAK (SOFTWARE) -        Microsoft Visual Basic 2008 C.     DASAR TEORI EXCEPTION HANDLING Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, dengan adanya perintah ini setiap kesahan akan diatasi secara otamatis sesuai dengan perintah penanganan kesalahan yang telah dibuat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan. Struktur Exception Handling Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008 antara lain : Try … Catch … Finally … End Try Merupakan perintah penanganan kesalahan yang berfungsi untuk...
Baca selengkapnya

Cara membuat project mencari volume tabung dengan menggunakan Visual Basic

Gambar
1. Desain awal program 2. Atur Properties Masing-masing Objek sebagai berikut: NO. OBJEK PROPERTIES PENGATURAN 1 Form1 Text Project Volume Tabung BackColor ActiveCaption 2 Label1 Text Operasi Matematika Bold True FontSize 10 3 Label2 Text Radius : 4 Label3 Text Tinggi : 5 Label4 Text Hasil :    6 Textbox1 Name Txtradius 7 Textbox2 Name Txttinggi 8 Textbox3 Name Txthasil 9 Button1 Text Proses Name Btnproses 10 Button2 Text Bersih ...
Baca selengkapnya