Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Visual Basicde Soru Programı Hazırlayalım
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

dbgrid ile kolon başlıklarını sıralama.

Yazar: Muratmmx

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 11297
Yayın Tar:20.04.2009
Yazar : sythn
Hit :1385

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Çooook önemli uyarı : Kaynak tamamen bana aittir.Sadece diğer forumdaki konumdan buraya taşıdım.
İnanmayanlar :
Tıklasınlar

Evet arkadaşlar soruları hazırlayın,soru programı yapıyoruz

1-) Vb yi açın,file>new project sekmesinden yeni bir standard.exe formu açın.
2-)Önce programa isim verelim ..(Forma tıklayıp sağdaki properties ayarlarından captionun yanındaki ismi değiştirin örn : kim 500 g1 ister..
Not: benim sorularım warrockla ilgili olacak,siz değiştirin..

3)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 "HOŞGELDİNİZ,SORU PROGRAMINA KATILMAK İSTİYORMUSUNUZ?"
yazın.
Ve altına iki buton ekleyin.
3a) 1. butonun caption kısmına " Evet , GİRİŞ" yazın.
2. butona " Ben sizi yormayayım, Çıkış " yazın.

3b) Evet şimdi birinci butona çift tıklayın ve ;

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

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

Kod:
Unload Me
yazın.. ( yani kullanıcı bu tuşla programı kapatacak.

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

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

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

5) Evet Form2 nin caption kısmına 1. soru yazın.
5a) Evet şimdi form 2 ye bir label ekleyin.
Labele sorunuzu yazın.
5b) Şimdi 4 adet buton ekleyin bu butonlar şıklarımız olacak.
5c)Sorunuza uygun şıklardan sadece biri doğru olmalıdır unutmayın !
5d) evet şimdi diyelimki soru şu ;

Kod:
Aşağıdakilerden hangisi warrockun en iyi silahıdır?

a)famas
b)colt
c)g36
d)psg
Bu durumda doğru cevap a şıkkı olur.O zaman a şıkkına çift tıklayın ve şunu yazın ;

Kod:
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

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

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

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

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

6b) Açılan formu uygun boyuta getirdikten sonra,soldan bir label ekleyin ve caption kısmına

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


yazın.

Altına iki buton ekleyin ;

1. butona yazılacak caption ismi : Yeni oyun
1.Butona yazılacak kod :
Kod:
Form1.Show
Form3.Hide
2.Butonun captionu : Çıkış
2.Butona yazılacak kod :
Kod:
Form1.Show
Form3.Hide

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

7) Evet şimdi yeni bir form açın ve caption değerine ; 2. SORU yazın..
7a) Şimdi yukardaki gibi başka bir soru hazırlayın ve şıkları yerleştirin.
Doğru şıkka tıkladığı takdirde ;

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

yazın.

ÖNEMLİ UYARI : ARKADAŞLAR 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 YOLLUCAKSINIZ...

Evet diyelimki bu şekilde 10 soru hazırladınız ve artık kullanıcı oyunu kazansın istiyorsunuz..
8a) Yeni bir form açın ve bir label ekleyin...

Labelin caption kısmına : TEBRİKLER ,OYUNU KAZANDINIZ YAZIN..
FORMUN CAPTİON KISMINA : OYUN BİTTİ
ŞİMDİ KARŞIMIZDAKİ ADAMLA BİRAZ DALGA GÇELİM

BİR BUTON EKLEYİN VE CAPTİONA : ÖDÜLÜ AL .. YAZIN.
VE O BUTONA ÇİFT TIKLAYIP ŞUNU YAZIN ;

Kod:
a=Msgbox("Eeheheh , iyiki kazandın,kazandında noldu,yok sana ödül !",32,"Ödülmü ?")

Şimdi bir buton daha ekleyin ve onun caption kısmına : Çıkış yazın..

Şimdi çıkış butonuna :
Kod:
Form1.Show
Unload Me

yazın.

PROGRAM HAZIR İYİ GÜNLER ..




Yorumlar, eklemeler ve düşünceler
        Cok guzel olmus.

   vbNesimi, 26.04.2009 16:22
   tesekkurler

   johncher, 27.04.2009 23:47
   ellerinize sağlık çok güzel olmuş.

   ruya, 29.04.2009 14:15
   ne kadar soru varsa o kadar form mu olacak? programı her çalıştırdığımızda aynı sorular mı çıkacak? Soruları veritabanından sorgu ile alsanız soruların zorluk dereceleri olsa :)

   ogun2006, 06.05.2009 10:03
   vayy süpermiş!!!

   eyupfatihay, 07.05.2009 00:15
   valla bakacaz artık bence baya güzel birşeye benziyor eğer tahmin ettiğim gibi olursa süper olur neyse emeğine sağlık çok teşşekkur ederim kardeşim

   SiberCoder, 14.05.2009 18:05
   sıraları herzaman aynı galıba

   nahsenx, 28.03.2010 13:43
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin