Pembuatan Aplikasi Acak Angka Dapat Hadiah

Langsung Praktek menggunakan VB 2008

Langkahnya adalah

1.buka Visual Studio 2008 dan pilih seperti ini :

2.Design lah Form dengan cara Klik Toolbox dan Edit lah sesuka Anda pada Propertis,Seperti ini :

3.Klik 2x Timer yang di drag dari Toolbox ke Form,dan isikan skrip seperti ini:

  makna dari textbox1.text=int(Rnd()*10) adalah pada textbox 1 tulisan teks berisikan 10 bilangan      random
4.kemudian pada form1 design klik 2x pada form,lalu isikan seperti ini:

  makna Dim tanggal,bulan,tahun As integer adalah variabel tersebut sama dengan bilangan dan di bawahnya adalah kondisi dari variabel tsb.jika dilihat pada "Do While tanggal <=31" maksudnya adalah tanggal tidak melebihi angka 31
 jika dilihat pada kondisi tanggal dan bulan/tahun memang berbeda.tetapi hasil nya jika skrip tertulis benar maka hasilnya pun sama.demikian anda dapat memilih salah satu tipe kondisi
5.pada CheckBox "Mainkan Angka"(Seperti gambar sebelumnya).anda klik 2x,lalu isikan skrip seperti ini

  Pada gambar tersebut menggunakan Fungsi  IF,Else,Select Case dan maksud dari Case adalah jika yang muncul adalah Bilangan tersebut makan Kondisi dari TextBox akan bertuliskan,Contoh "1 Unit Toyota Alphard" dan dapat dilihat pada kondisi If dan Else itu maksudnya adalah mengganti nama Checkbox("Mainkan Angka"pada contoh diatas) dan status nya dapat enable/disable.Jika dilihat dari Kondisi tsb ada yang bertuliskan "Form2.show()" itu adalah membuka form2 dengan cara seperti ini :

Tambahkanlah sampai menjadi 3 Form dengan tujuan agar lebih menarik hasilnya dengan cara klik 2x pada Form2 dan Form3 Ubah Backgroundimage seperti cara dibawah Ini

 

8.Jika Sudah Berhasil Hasilnya Seperti ini

Selamat Mencoba