Membuat program Luas Segitiga dengan VB 6.0

Assalamu’ala manittaba’al huda

Semoga kita selalu dalam lindungan ALLAH ‘azza wa jalla

mungkin bagi yang masih newbie (baca : baru) dalam hal pemrograman, pasti selalu butuh kepada hal yang sederhana untuk di pelajari.

Kali ini, kita akan belajar cara membuat program sederhana dari visual basic 6.0. Program aplikasi yang akan kita buat adalah penyelesaian Luas segitiga.

Langkah pertama sebelum membuat codding adalah perlunya membuat pseudo code. Bagi yang tak tahu apa itu pseudo code, silakan lihat artikelnya disini.

Hal penting lainnya adalah kita harus tahu rumus luas segitiga tersebut, kalau tak tahu, bisa repot urusannya. *_*

Pseudo code untuk Luas segitiga adalah :

1. Input ALAS dan TINGGI

2. Proses LUAS = ALAS x TINGGI /2

3. CETAK LUAS

Setelah itu, kita buat lah program aplikasinya dengan menggunakan VB 6.0

Berikut langkah-langkahnya

1. Buka VB 6.0 (klik start -> all program -> microsoft Visual studio -> microsoft visual basic 6.0).

2. Lalu pilih standard.exe seperti gambar berikut, klik open tuk membuka

3. Selanjutnya akan muncul tampilan dibawah ini

4. Sekarang kita tambahkan 3 label dan 3 textbox, untuk mengganti nama label lihat properties sebelah kanan, lalu cari CAPTION, disana kita tuliskan nama yang kita inginkan.

untuk textbox, lihat properties dan cari TEXT, hapus teks tersebut dan kosongkan. Jika masih bingung, ini tampilan propertiesnya

Kalau sudah, hasilnya seperti dibawah ini

Kalau sudah mirip dengan contoh diatas, double click pada textbox 3, lalu akan muncul tampilan seperti ini, dan tulis script seperti di bawah ini

Bila tidak terlihat, ini script codenya

Private Sub Text3_GotFocus()

Text3 = Text1 * Text2 / 2

End Sub

Maksud dari script kode diatas pasti anda sudah faham, bila tak faham, tinggalkan komen saja.

Sekarang tekan F5 untuk menjalankan program yang sudah di buat.

#Bila program tadi ingin menjadi lebih baik, maka beri kode berikut

1. Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

2. Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Pengertian dari script kode pertama adalah ketika program dijalankan, kita tinggal menekan enter untuk pindah ke kolom TINGGI. Sama halnya dengan pertama, maksud dari script kode yang kedua adalah supaya setelah selesai mengisi kolom TINGGI, hasil akan terlihat setelah kita menekan tombol enter.

Tampilan program ketika dijalankan