BUAT MAINAN PROGRAM ACAK ANGKA MENGGUNAKAN VISUAL BASIC

nutnet       Artikel Komputer    Comment   

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 .