Tampilan Program Sederhana Dalam Visual Basic 6.0

PROGRAM MENGHITUNG LUAS LINGKARAN

Cara pembuatan program menghitung luas lingkaran

1. buka visual basic 6.0, pilih standard EXE kemudian klik open

2. akan muncul tampilan form 1, kemudian ganti caption Form 1 dengan "Menghitung Luas Lingkaran". untuk mengubah warna background, font dan tampilan lainnya dapat disesuaikan dengan menu yang ada di properties

3. Kemudian buat 3 tabel, 2 text box, dan 2 command Button pada form tersebut.

Pengaturan label :

    untuk tabel yang pertama : pada label yang pertama pilih menu caption yang ada pada properties kemudian ganti  captionnya dengan "Program Menghitung Luas Lingkaran". dan pilih center pada menu aligment. 

   untuk label yang kedua : pada label yang kedua pilih menu caption yang ada pada properties kemudian ganti  captionnya dengan "Masukkan Jari - Jari".

   untuk label yang ketiga : pada label yang ketiga pilih menu caption yang ada pada properties kemudian ganti  captionnya dengan "Luas Lingkaran".

Pengaturan Text Box :

Text 1 : kosongkan Text  pada properties dan ganti pada Text(name) menjadi "Jari

Text 2 : Kosongkan Text pada properties dan ganti pada text(name) menjadi "Luas"

Pengaturan Command button

Command 1 : Pada command yang pertama pilih menu caption yang ada pada properties kemudian ganti captionnya dengan "Hitung"

Command 2 : Pada command yang kedua pilih menu caption yang ada pada properties kemudian ganti captionnya dengan "Refresh"

Command 3 : Pada command yang ketiga pilih menu caption yang ada pada properties kemudian ganti captionnya dengan "End"

Untuk tampilan lain seperti font, back color dan lainnya pada label, text box dan juga command button dapat disesuaikan lewat menu menu yang ada di properties. sesuaikan posisi label, text boxt dan juga coomand button seperti contoh gambar yang ada pada blog.

4. klik Command satu dan tuliskan Code program sesuai dengan contoh yang ada pada blog, kemudian klik command 2 dan tuliskan code program begitu seterusnya sampai command 3.

5. setelah selesai menuliskan code program command 1 sampai commpand 3 dan merasa tampilannya sudah sesuai dengan yang diinginkan, kemudian untuk mencoba aplikasi klik tombol run / Start. 

Masukkan jumlah jari - Jari Pada text klik hitung untung mengetahui luas lingkaran, klik refresh untuk menghapus jumlah jari - jari, klik end untuk mengakhiri ptogram yang berjalan.

6. Save program aplikasi pada menu file - save project

1. Tampilan Saat di Run ketika jumlah jari - jari belum dimasukkan

2. Tampilan Codingan Program

3. Tampilan Saat di Run ketika jumlah jari jari sudah dimasukkan dan mengklik hitung

4. Tampilan saat di Run akan muncul "Informasi ridak lengkap" apabila sudah mengklik hitung tetapi jumlah jari - jari belum di isi

Penjelasan Program Menghitung Luas Lingkaran

Private Sub Command1_Click()

Dim phi As Double → mendeklarasikan variabel phi dengan tipe data Double

phi = 3.14 → memasukkan nilai phi

r = Val (jari.Text) → mengkonversi agar nilai yang ada dalam textbox menjadi nilai aritmetika(bisa dihitung) If jari.Text = "" Then → ir artinya memulai program dengan menggunakan kondisi if, yang artinya apabila textbox jari kosong maka

MsgBox "Informasi Tidak Lengkap", vbInformation, " LUAS LINGKARAN"→ muncul message box berisi "Informasi Tidak Lengkap" dengan LUAS LINGKARAN sebagai nama messagebox

Else → jika tidak (jika textbox jari terisi)

luas.Text = phi * (r ^ 2) → di textbox luas akan dikerjakan rumus luas lingkaran

jari.Text = r → memasukkan nilai r pada textbox jari 

End If→ mengakhiri perogram kondisi if

End Sub→ mengakhiri coding pada tombol hitung

Private Sub Command2_Click()

jari.Text = "" → untuk membuat textbox jari menjadi kosong

luas.Text = "" → untuk membuat textbox luas menjadi kosong

jari.SetFocus → jika tombol refresh diklik maka kursor akan berada pada posisi textboxjari

End Sub →  mengakhiri coding pada tombol refresh

Private Sub Command3_Click()

End -- untuk mengakhiri atau keluar program

End Sub -- mengakhiri koding pada tombol end

\