Image and video hosting by TinyPic

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: