BUAT MAINAN PROGRAM ACAK ANGKA MENGGUNAKAN VISUAL BASIC
Jumat, 03 Desember 2010
, Posted by Rahmat at 03.23
Sumber artikel : -http://rahmattehnik.blogspot.com/
BELAJAR PROGRAM DASAR VISUAL BASIC 6.0
Artikel ini mengajak kamu para pemula (seperti om Matt) dan ingin mengenal dasar programan menggunakan Microsoft Visual Basic 6.0 . Software ini sangatlah populer dikalangan para programmer karena kecanggihan dan kelengkapan fasilitas yang dimilikinya . Dan lewat artikel yang sederhana ini om Matt ingin mengajak kamu para pemula (maaf bukan untuk para senior..he..he..he) untuk belajar bersama membuat program aplikasi Mainan Acak Angka menggunakan visual basic.
- Setelah kamu menginstall VB 6.0 pada komputer kamu lalu klik ganda icon vbasic, maka akan muncul dialog seperti dibawah ini .Pilihlah Standar exe lalu klik open .
- Selanjutnya akan tampil jendela programan vbasic seperti pada gambar ini . Sebelumnya mari kita mengenal elemen-elemen yang ada pada jendela vbasic 6.0 diantaranya sesuai petunjuk gambar :
1. Tool Box. 2. Main Toolbar 3. Menu Bar . 4. Form . 5. Jendela Project .
6. Jendela Properties .dan 7. Jendela Form Layout .
Selanjutnya kamu buat proyek baru, tambahkan 6 kontrol Label pada Form , 1 kontrol Timer dan 3 kontrol CommandButton , aturlah desain sesuka kamu lihat contoh gambar :
Kemudian ubahlah properti masing-masing kontrol dengan ketentuan seperti di bawah ini :
Kontrol Properti Setting
Label1, Label2, Name Lbl1, Lbl2, Lbl3, Lbl4, Lbl5
Label3,label4,Label5. Caption semua kosongkan
BorderStyle 1-FixedSingle .
Label6 Name LblTampil
Caption kosongkan
BoderStyle 1-FoxedSingel .
Timer1 Enabled False
Interval 100
Command1 Name CmdMulai
Caption MULAI ACAK
Command2 Name CmdBerhenti
Caption BERHENTI
Command3 Name CmadKeluar
Caption KELUAR
Selanjutnya Klik ganda Timer, lalu ketik kode program dibawah ini :
Private Sub Timer1_Timer( )
' Lbl1 sampai dengan Lbl5 menampilkan bilangan acak 1-9
Lbl1.Caption = Int( Rnd * 10)
Lbl2.Caption = Int( Rnd * 10)
Lbl3.Caption = Int( Rnd * 10)
Lbl4.Caption = Int( Rnd * 10)
Lbl5.Caption = Int( Rnd * 10)
End Sub
Selanjutnya Klik ganda tombol CmdMULAI ACAK lalu ketik kode program dibawah ini :
Private Sub CmdMulai_Clik( )
'timer diaktifkan
Timer1.Enabled = True
' mengosongkan LblTampil
LblTampil.Caption = " "
End Sub
Kemudian klik ganda tombol CmdBERHENTI lalu ketik kode program di bawah ini :
Private Sub CmdBerhenti_Clik( )
'timer tidak diaktifkan
Timer1.Enabled = False
' LblTampil akan menampilkan hasil bilangan acak
LblTampil.Caption = " ANGKA PILIHAN :" & Lbl1 & Lbl2 & Lbl3 &
Lbl4 & Lbl5
End Sub
Terakhir klik ganda tombol CmdKeluar lalu ketik kode programnya :
Private Sub CndKeluar_Clik( )
End
End Sub .
Selesai sudah proyek perdana yang kita buat selanjutnya untuk menguji hasil program kita kamu dapat lakukan dengan menekan tombol start yang berada kolom Main Toolbar dan lihat hasilnya .
Artike;l ini disadur dari Buku Microsoft Visual Basic 6.0 untuk pemula ( MADCOMS)
http://www.madcoms.com
Semoga artikel ini bermanfaat buat rekan tehnik yg baru ingin belajar programman VBasic dan insya Allah lain kesempatan om Matt lanjutkan lagi .
Salam kompak selalu .
Currently have 0 komentar: