MENGHITUNG LUAS SEGITIGA DAN PROGRAM TANYA JAWAB SEPUTAR KUBUS DENGAN MENGGUNAKAN VISUAL BASIC 6.0

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:

Nama Kontrol	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:

Nama Kontrol	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.

.