Membuat Program Menghitung luas Segitiga dengan MS. Visual Basic 6.0

Standar

Membuat Sebuah program tentang menghitung Luas Segitiga dengan Microsoft Visual Basic 6.0

 

Dengan menggunakan Visual Basic 6.0 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 “Menghitung Luas Segitiga” dengan menggunakan VB 6.0 !

  1. Buka Visual Basic 6.0, kemudian pilih Standard EXE, seperti tampilan dibawah ini:

Capture505050

Setelah itu maka akan muncul tampilan seperti di bawah ini!

Capture3456


2.  Buatlah beberapa object yang diperlukan untuk pembuatan program, yaitu :

Tempatkan 9 buah kontrol Label, 3 buah text, dan  3 buah  Command, dengan tata letak sebagai berikut.

capture mentahan 

 

 

 

 

3.      Setelah semua object terpasang, edit beberapa object dengan pengaturan properti sbb:

 

Nama Control

Properti

Nilai

Form1

Name

Form1

 

Caption

PENGGUNAAN LUAS BANGUN DATAR SEGITIGA

 

Font

Copperlate Gothic, Bold, 22

 

BackColor

Palette – Green

Label1

Caption

Menghitung Luas Segitiga

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Elephant, Bold, 18

 

ForeColor

Palette-Black

Label2

Caption

NILAI ALAS

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Cooper, Bold, 14

 

ForeColor

Palette – Blue

Label3

Caption

NILAI TINGGI

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Cooper, Bold, 14

 

ForeColor

Palette – Black

Label4

Caption

LUAS SEGITIGA

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Cooper, Bold, 16

 

ForeColor

Palette – Blue

Label5

Caption

=

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Copperlate Gothic, Bold, 26

 

ForeColor

Palette – Blue

Label6

Caption

__________

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Cooper, Bold, 14

 

ForeColor

Palette – Black

Label7

Caption

X

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Cooper, Bold, 18

 

ForeColor

Palette – Blue

Label8

Caption

2

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Copperlate Gothic, Bold, 22

 

ForeColor

Palette – Blue

Label9

Caption

=

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Copperlate Gothic, Bold, 22

 

ForeColor

Palette – Blue

Text1

Name

Txt_nilaialas

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Copperlate Gothic, Bold, 22

 

ForeColor

Palette – Black

 

Text

kososng

Text2

Name

Txt_nilaitinggi

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Copperlate Gothic, Bold, 22

 

ForeColor

Palette – Black

 

Text

kosong

Text3

Name

Txt_luassegitiga

 

Alignment

2 – Center

 

BackColor

System – Disabled Text

 

Font

Copperlate Gothic , Bold, 22

 

ForeColor

Palette – Black

 

Text

kosong

Command1

Name

Cmd_hitung

 

Caption

Hitung

 

Font

Algerian, Bold, 16

Command2

Name

Cmd_hapus

 

Caption

Hapus

 

Font

Algerian, Bold, 16

Command3

Name

Cmd_keluar

 

Caption

Keluar

 

Font

Algerian, Bold, 16

Dengan mengikuti petunjuk di atas, maka tampilannya akan menjadi seperti di bawah ini !

 

 Capture buka

 

4. Langkah selanjutnya adalah menuliskan kode program pada masing – masing tombol HITUNG, HAPUS dan TUTUP.

a.      Pada Tombol Hitung

Klik dua kali (doble click) kontrol Cmd_hitung  atau TOMBOL HITUNG, kemudian ketikkan kode program sebagai berikut :
Private Sub Cmd_hitung_Click()
Dim nilaialas, nilaitinggi As Long

Dim luassegitiga As Long

 nilaialas = Val(Txt_nilaialas.Text)

nilaitinggi = Val(Txt_nilaitinggi.Text)

luassegitiga = Val(Txt_luassegitiga.Text)

Txt_luassegitiga = Val(nilaialas * nilaitinggi / 2)

 

End Sub

 

b.      Pada Tombol Hapus
Untuk kembali pada tampilan object, Klik menu View | Object, lalu klik dua kali (doble click) kontrol Cmd_hapus  atau TOMBOL HAPUS, selanjutnya ketikkan kode program berikut :
Private Sub Cmd_hapus_Click()

Txt_nilaialas.Text = Empty

Txt_nilaitinggi.Text = Empty

Txt_luassegitiga.Text = Empty

Txt_nilaialas.SetFocus

 

End Sub

c.       Pada Tombol Tutup
Seperti langkah di atas, Klik kembali menu View | Object, lalu klik dua kali (doble click) kontrol Cmd_tutup  atau TOMBOL TUTUP, selanjutnya ketikkan kode program berikut :
Private Sub Cmd_tutup_Click()

MsgBox (“Apakah anda yakin ingin keluar sekarang?”)

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 “Nilai Alas” dan “Nilai Tinggi” sesuai keinginan, selanjutnya klik tombol HITUNG, maka hasilnya akan muncul pada kotak Luas Segitiga, seperti gambar di bawah ini.

 Capture jadi

6.  Jika sudah dicoba dan hasilnya benar, selanjutnya file dapat disave dengan klik File | Save Project
7.  Dan untuk menyimpan program yang telah dibuat klik File | Make Project.
8.  Program siap dijalankan.

 jika mau mendapatkan program ini, tinggal download aja

 

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s