Sizlerle bir oyun yapacağız (basit bir oyun bilgi oyunu kim milyoner olmak ister vb.. gibi) ve o oyuna girerken bir ID. ve Pass ile giriş yaptıracağız.(Uyelik Sistemi deil Oyunu yaparken benim koyacağım yada sizin koyacağınız herhangi bir şifre
)Bilmeniz Gereken en zor şey if else sanırım
Başlayalım.
1. Adım - Form'a Id. pass. eklemek
* 1 Button
2 Textbox
2 label
ve form2'yi acın
* Buttonun İcine Şu kodları yazınız.
Kod:
If TextBox1.Text & TextBox2.Text = "www.frmtr.com" & "merhabafrmtr" Then Form2.Show() Me.Hide() Else MsgBox("ID veya Pass Yanlış") End If
"www.frmtr.com" kısmı Id. mizdir bunu kendinize gore değiştire bilirsiniz "merhabafrmtr" yazan kısmıda pass dır bunuda değiştirebilirsiniz.
Ben Bu şekilde yaptım Giriş e basınca Form 2 acılıp Forum 1 kapanıyor
ACIKLAMA : if textbox1.text & textbox2.text =*-*-*-*-*-*-*-*-*-*-*
derken burda eğer textbox1.text VE textbox2.text =(eşitse) *****
form2.show = form 2 yi goster
me.hide = şu ankini gizle
demiş olduk
Else
aksi takdirde
msgbox ("adsadasdasd")
bu yazsın dedik ve form acılsın demedik
Evet Arkadaşlar Form1 tamamlandı Id. pass. dogru olursa form2 yi yanı icindeki oynu programı vs.. gosterecek yanlışsa yazı yazacak.
2. Adım - Form2 ye Bilgi oyunu yapmak.
* form 2 ye gelin
* 1 adet textbox (İsterseniz Labelde Olur ama ben TextBox ı daha cok seviyorum
)4 adet button koyun
form3'u acın
textboxın icine sorunuzu yazın
Benim sorum "Turkiye Buyuk Millet Meclisi'nin Kısaltması Nedir ? "
Buttonlarada Cevap Şıkkı Koyuyorum.
button1=TuBuMiMe
button2=TTBBMMMM
Button3=TBMM
Button4=Kısaltması yok
bunların 1 tanesi doğru olduğu icin doğru şıkkın olduğu buttonun icine şunları yazıyoruz.
Kod:
Form3.Show() 'Bu Button Tıklandığında Form3 U gosterecek' MsgBox("Doğru Cevap Dier Soruya Geciniz Lutfen") 'Ve Doğru cevap dier soruya geciniz lutfen diye bir mesaj cıkacak'
dier 3 Şıkka ise şunları yazınız
Kod:
MsgBox("Yanlış Cevap Tekrar Deneyiniz") 'Yanlış Cevap Yazısı cıkacak' Form1.Show() 'ID. Pass. yazdığımız Başlangıc ekranı acılacak' Me.Close() 'Bu ekran Kapanacak'
yanlış cevapların hepsine bunu yazacağız
bu adımlarla ilerlayerek istediğiniz kadar soru yapabilirsiniz.
Ancak Birkac ipucu var
* soruyu yazdığınız TextBox'ın Enable ozelliğini False yapın yoksa o soru yeri yazı yazmaya acık bir hal alır.
* Id. pass. kısmında Pass.'un passwordchar kısmına * ekleyin şifre **** die gorunur
*Oyunu Kpatmak icin bir button ekleyin bu buttonu ister her form a isterde form1'e yanı Id. pass kısmına ekleyin buttonun icinede
Kod:
msgbox("Oynadığınız İcin Teşekkurler") application.exit ()
yazın bir notla birlikte oyun tamamen kapanır Acık kalma gibi sorun yaşamazsınız.
Şimdilik Bukadar Arkadaşlar Hepinize iyi gunler iyi yazılımlar . Umarım Faydalı Olmuştur Dediğim gibi bu yeni başlayan acemiler icin olan birşey
1-2 kod bilerek (if else - application.exit-me.hide-form*.show GİBİ ) yapıla bileceğiniz Birşey Tekrar iyi gunler . __________________