Bu dersimizde Visual Basic'te kim 500 milyar ister oyununu yazacağız.

Vb'yi açın, File > New project sekmesinden yeni bir standard.exe formu açın.

Dilerseniz önce kullanıcının hoşuna gidecek bir başlangıç sayfası yapalım. Formu yeterli boyuta getirin ve soldaki menüden "label" ekleyin. Labelin caption kısmına "Kim 50o milyar ister yarismasi yazin. Ve altına iki buton ekleyin.

1. butonun caption kısmına "Evet, GİRİŞ" yazın.
2. butona "Ben sizi yormayayım, Çıkış" yazın.

Evet şimdi birinci butona çift tıklayın ve:

form1.hide 
form2.show

yazın. (Böylece birinci formu gizleyip,girişe basan yarışmacıyı 2. forma yani ilk soruya yönlendirdik.)

Şimdi ÇIKIŞ Yazdığımız butona çift tıklayın ve;

Unload Me

yazın.. (yani kullanıcı bu tuşla programı kapatacak.)

Not: Daha zevkli bir şey yapmak istiyorsanız ;

b=Msgbox ("La çıkma be,az daha kal,bi çayımı iç öyle git",64,"Çıkma") 
Unload Me

yazın

Evet şimdi sağda project penceresinde boş bir alana sağ tıklayıp,add kısmından "FORM" u seçiyoruz.

Form2 nin caption kısmına 1. soru yazın.
Şimdi form 2 ye bir label ekleyin. Labele sorunuzu yazın.

Şimdi 4 adet buton ekleyin bu butonlar şıklarımız olacak.

Sorunuza uygun şıklardan sadece biri doğru olmalıdır unutmayın !
Evet, şimdi diyelimki soru şu ;

Aşağıdakilerden hangisi en iyi shelldir?

a)r57
b)c99
c)c100
d)bypass

Bu durumda doğru cevap a şıkkı olur. O zaman a şıkkına çift tıklayın ve şunu yazın;

a = MsgBox("Tebrikler,Doğru cevap", 64, "Tebrikler") 
Form2.hide

Form4.show

Not: Ben a şıkkına yazın dedim, ama hangi şık doğruysa bu kodu o şıkka ekleyin

Şimdi kalan üç yanlış şıkka şunları ekleyin;

a = MsgBox("Üzgünüm,yanlış cevap ", 64, "Olamaz,yanlış") 
Form2.Hide 
Form3.Show

Fark ettiyseniz yanlış olan cevapları form3'e yönlendirdik, o halde kullanıcı yanlış cevap verince yönleneceği bir form yapalım..

Yine sağda project penceresinde boş alana sağ tıklayın ve add kısmından formu seçin.

Açılan formu uygun boyuta getirdikten sonra,soldan bir label ekleyin ve caption kısmına şunu yazın:

Üzgünüm,ne yazıkki yanlış cevap verdiniz..

Altına iki buton ekleyin.
1. butona yazılacak caption ismi: Yeni oyun
1.Butona yazılacak kod:

Form1.Show 
Form3.Hide

2.Butonun captionu: Çıkış
2.Butona yazılacak kod:

Form1.Show 
Form3.Hide

NOT: Kullanıcı hangi tuşa basarsa bassın form1'e gidiyor

Şimdi yeni bir form açın ve caption değerine; 2. SORU yazın..

Şimdi yukardaki gibi başka bir soru hazırlayın ve şıkları yerleştirin.
Doğru şıkka tıkladığı takdirde şunu yazın:

a = MsgBox("Tebrikler,Doğru cevap", 64, "Tebrikler")  
Form2.hide  
Form4.show

ÖNEMLİ UYARI: YUKARDA FORM4.SHOW VAR FAKAT SİZ ONU DEĞİŞTİRMELİSİNİZ. ADAM DOĞRU YAPINCA ONU BİR SONRAKİ FORMA YOLLAYIN . YANİ 2. SORUDA ADAMI FORM5.SHOW ŞEKLİNDE FORM 5'E YOLLAYACAKSINIZ.

Diyelim ki, bu şekilde 10 soru hazırladınız ve artık kullanıcı oyunu kazansın istiyorsunuz.

Yeni bir form açın ve bir label ekleyin...

Labelin caption kısmına şunu yazın:

"Tebrikler, oyunu kazandınız!