Manfaatkan ilmu karena itu akan mengikat keberkahan

Translate

English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified

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












Don’t Forget, simpan lah project vb kita dengan nama LUAS SEGITIGA.

Mungkin sampai disini dulu perjumpaan kita, semoga bermanfaat.
Silakan sebar artikel ini bila menurut anda berguna.

Assalamu’ala manittaba’al huda.



Responses

0 Respones to "Membuat program Luas Segitiga dengan VB 6.0"

Ada kesalahan di dalam gadget ini
Return to top of page Copyright © 2013 | Platinum Theme Converted into Blogger Template by DiazTheHunterz