Çılgın Paylaşım

Türkiye'nin en çılgın paylaşım mekanı
 
AnasayfaRADYOKayıt OlGiriş yap

Paylaş | 
 

 Sayi bulma oyunu

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
**$ERK@N**
Admin
Admin
avatar

Erkek
Mesaj Sayısı : 910
Yaş : 26
Nerden : Bursa
Kayıt tarihi : 21/01/08

MesajKonu: Sayi bulma oyunu   Ptsi Ocak 21, 2008 4:18 pm

Alt Alta 5 Tane Text Box Açyn ve 2 Tane de Command Buton Ekleyin...
___________________________________________
dim tes as integer
dim st as integer
dim sakla as integer
dim uyary as string
dim i as integer
________________________________
Private Sub Form_Load()

End Sub
________________________________
Private Sub Command1_Click()

tes = Text1.text

sakla = tes

Text4.text =sakla

Text1.text=""

End Sub

________________________________
Private Sub Command2_Click()

tes =Text1.text

st =Text2.text

If st = sakla Then
i = i + 1
uyary="Tebrikler i denemede bildiniz!"
Text5.text = i
End If

If st < sakla Then
i = i + 1
Text2.text = ""
uyary="Tahmininiz Küçük!"
Text5.text = i
End If

If st > sakla Then
i = i + 1
Text2.text = ""
uyary="Tahmininiz Büyük!"
Text5.text = i
End If

Text3.text = uyary

End Sub
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://srknweb.ueuo.com/
 
Sayi bulma oyunu
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Çılgın Paylaşım :: Dersler :: VisualBasic Dersleri-
Buraya geçin: