MENGHITUNG LUAS SEGITIGA
DAN PROGRAM TANYA JAWAB SEPUTAR KUBUS DENGAN MENGGUNAKAN VISUAL BASIC 6.0
Dengan
menggunakan Visual Basic 6.0, kita dapat membuat beberapa program mulai dari
program yang sederhana sampai program yang dikategorikan sulit. Salah satu
program sederhana yang dapat dibuat adalah penghitungan luas segitiga. Dengan
berpatokan pada rumus menghitung luas segitiga, yaitu ½ * alas * tinggi,
program penghitungan luas segitiga dengan menggunakan Visual Basic 6.0 dapat
dibuat.
Berikut langkah – langkah pembuatan program sederhana ini dengan menggunakan VB
6.0 !
Buka Visual Basic 6.0, kemudian pilih Standard EXE, seperti tampilan
dibawah ini:
Setelah itu maka akan muncul tampilan seperti di bawah ini!
Buatlah beberapa object yang diperlukan untuk pembuatan program, yaitu :
Tempatkan 4 buah kontrol Label, 3 buah text, dan 3
buah Command, dengan tata letak sebagai berikut.
3. Setelah semua object terpasang, edit beberapa object dengan
pengaturan properti sbb:
|
Properti
|
Nilai
|
Form1
|
CaptionName
|
PENGGUNAAN TIPE DATA
BILANGAN
|
Label1
|
Caption
|
MENGHITUNG LUAS
SEGITIGA
|
Label2
|
Caption
|
Masukkan Nilai Alas
|
Label3
|
Caption
|
Masukkan Nilai Tinggi
|
Label4
|
Caption
|
Luas Segitiga =
|
Text1
|
NameText
|
|
Text2
|
NameText
|
|
Text3
|
NameText
|
|
Command1
|
NameCaption
|
HITUNG
|
Command2
|
NameCaption
|
HAPUS
|
Command3
|
NameCaption
|
TUTUP
|
Dengan mengikuti petunjuk di atas, maka tampilannya akan menjadi
seperti di bawah ini !
Langkah selanjutnya adalah menuliskan kode program pada masing – masing
tombolHITUNG, HAPUS dan TUTUP.
a. Pada Tombol Hitung
Klik dua kali (doble click) kontrolCommand1 atau TOMBOL
HITUNG,kemudian ketikkan kode program sebagai berikut :
Private Sub Command1_Click()
Const rumus = 0.5
Dim Alas, Tinggi As Double
Dim Luas As Double
Alas = Val(Text1.Text)
Tinggi = Val(Text2.Text)
Luas = Val(Text3.Text)
Luas = (rumus * Alas * Tinggi)
Text3.Text = Luas
End Sub
b. Pada Tombol Hapus
Untuk kembali pada tampilan object, Klik menu View | Object, lalu
klik dua kali (doble click) kontrol Command2 atau TOMBOL
HAPUS, selanjutnya ketikkan kode program berikut :
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
c. Pada Tombol Tutup
Seperti langkah di atas, Klik kembali menuView | Object, lalu klik
dua kali (doble click) kontrol Command3 atau TOMBOL
TUTUP, selanjutnya ketikkan kode program berikut :
Private Sub Command3_Click()
End
End Sub
5. Untuk menjalankan program yang telah dibuat tekan F5 pada
keyboard.
Sehingga muncul tampilan program yang siap dijalankan, ketik angka pada
kotak “Masukan Nilai Alas” dan “Masukan Nilai Tinggi” sesuai
keinginan, selanjutnya klik tombol HITUNG, maka hasilnya akan
muncul pada kotak Luas Segitiga, seperti gambar di bawah ini.
Sekarang kita akan mencoba menambahkan sebuah Form di program yang tlah
kita buat tadi. Untuk menambahkan sebuah forum cukup dengan meklik icon add
Form
Setelah mengkil add form akan muncul tampilan seperti dibawah ini:
Langsung saja klik open, maka form baru akan muncul.nah disini kita akan
mencoba membuat program tanya jawab seputar kubus. Seperti program sebelumnya,
hampir tidak jauh beda, dengan memahami program diatas kita tidak akan
kesulitan membuat program baru yang kita sebut tanya jawab seputar kubus.
seperti gambar dibawah ini :
Setelah semua object terpasang, edit beberapa object dengan pengaturan
properti sbb:
|
Properti
|
Nilai
|
Form1
|
CaptionName
|
PENGGUNAAN TIPE DATA
BILANGAN
|
Label1
|
Caption
|
Created By: Ika W,
1481
|
Label2
|
Caption
|
SOAL BANGUN KUBUS
|
Label3
|
Caption
|
Kojot memiliki sebuah
Rubik berbentuk kubus dengan panjang sisi cm.
Tentukanlah volume dan luas permukaan dari rubik yang dimiliki kojot
tersebut!
|
Label4
|
Caption
|
VOLUME
CM
|
Label5
|
Caption
|
LUAS PERMUKAAN
CM
|
Label6
|
Caption
|
3
|
Label7
|
Caption
|
2
|
Label8
|
Caption
|
|
Text1
|
NameText
|
|
Text2
|
NameText
|
|
Text3
|
NameText
|
|
Command1
|
NameCaption
|
HITUNG
|
Command2
|
NameCaption
|
HAPUS
|
Command3
|
NameCaption
|
TUTUP
|
Picture1
|
NamePicture
|
|
Dengan mengikuti petunjuk di atas, maka tampilannya akan menjadi
seperti di bawah ini !
Langkah selanjutnya adalah menuliskan kode program pada masing – masing
tombolpriksa jawaban, soal lainya dan keluar. Untuk
membuat program pada masing –masing tombol menggunakan sort code sebagai
berikut :
a. Pada Tombol priksa jawaban
Private Sub Command1_Click()
bil = Val(Text1.Text)
l = Val(Text3.Text)
volume = Val(bil ^ 3)
k = Val(Text4.Text)
luas = Val((bil ^ 2) * 6)
If l = volume And k = luas Then Label8.Caption = "SELAMAT, JAWABAN
VOLUME DAN LUAS PERMUKAAN TEPAT"
If l = "" And k = "" Then Label8.Caption = "BELUM
ADA JAWABAN"
If l <> volume And k = luas Then Label8.Caption = "JAWABAN UNTUK
LUAS PERMUKAAN TEPAT SEDANGKAN JAWABAN UNTUK VOLUME TIDAK TEPAT"
If l = volume And k <> luas Then Label8.Caption = "JAWABAN
VOLUME TEPAT SEDANGKAN JAWABAN LUAS PERMUKAAN TIDAK TEPAT"
If l <> volume And k <> luas Then Label8.Caption =
"JAWABAN VOLUME DAN LUAS PERMUKAAN TIDAK TEPAT"
If l = "" Or Text4 = "" Then
Label8.Caption = "JAWABAN BELUM LENGKAP"
MsgBox "JAWABAN BELUM LENGKAP", vbCritical, "MAAF!!!"
Text3.SetFocus
End If
On Error GoTo 0
End Sub
b. Pada Tombol soal lainya
Private Sub Command2_Click()
Randomize
Text1.Text = Int(Rnd * 10)
Label8.Caption = " "
Text3.Text = " "
Text4.Text = " "
Text3.SetFocus
End Sub
c. Pada Tombol Tutup
Private Sub Command3_Click()
MDIForm1.Show
Form1.Hide
End Sub
Disini dibuat MDIForm1.Show, Form1.Hide , tidak
langsung end. Karena saya berkeinginan menyatukan programSegi Tiga dengan
program Tanya Jawab Seputar Kubus menggunakan form MDIForm.
Sama seperti biasa kita akan membuatMDIForm dimana kita hanya
bisa menambahkan satu buah MDIForm dengan memperhatikan kode
seperti tombol tutup pada program yang kami sebut Tanya Jawab Seputar
Kubus. Nah disini saya akan mencoba menambahkan Menu Editor.
Fungsi ini adalah untuk membuatMenu Bar, kita dapat lihat seperti
pada gambar dibawah ini.
Menu Bar adalah menu standar yang berlaku sebagai menu utama pada setiap
program aplikasi.nah disini Saya akan coba sedik membahas, adapun langkahnya
sebagai berikut:
1. Klik menu Tools pilih Menu Editor.
2. Pada kolom Menu Editor, ketik judul menu dan submenu seprti berikut :
Cara mengisi input Menu Editor adalah sebagai berikut :• Untuk menu utama,
isi kolom input Caption (&File) dan Name(mnu_file).
• Untuk pengisian menu berikutnya, klik baris kosong di bawah menu yang
telah terisi pada
listbox (atau klik tombol Next).
• Submenu ditandai oleh tanda empat buah titik (….) yang akan muncul bila
tombol
ditekan.
• Untuk garis pemisah antara menu, ketik karakter -.
• Untuk bantuan tombol keyboard (missal : Ctrl + X), isi kolom “Shortcut”.
• Karakter & memberi arti bahwa karakter sesudahnya ditandai garis
bawah.
Klik tombol OK setelah selesai!!!!!
Untuk lebih jelasnya mengenai menu editor silakan tanya sama mbak google.
Disini saya hanya bisa menjelaskan sedikit bayangan tentang menu editor. Maklum
kami belum berpengalaman.hehe.....
Jika sudah dicoba dan hasilnya benar, selanjutnya file dapat disave dengan
klik File | Save Project
Dan untuk menyimpan program yang telah dibuat klik File | Make
Project.
Program siap dijalankan
Nah sekianlah langkah-langkah yang saya buat. Hanya bisa sebatas itu saja,
jika msaih banyak kesalahan yang ada dalam projek program saya ini, saya sangat
berharap kritik dan saran. Terutama bagi senior-senior yang berpengalaman.
Untuk kesempurnaan projek saya.
Akhir kata saya ucapkan trimakasih.
.