.
ÜYE OLDUKTAN SONRA REKLAM KALKACAKTIR !!!



 
AnasayfaSSSAramaÜye ListesiKayıt OlGiriş yapİletişim
Reklam Alanı
Reklam Vermek İçin Tıklayınız
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum
En son konular
» Headquarters Gaming PRO [sXe] - 178.211.51.12
Ptsi Ara. 15, 2014 1:31 pm tarafından nonofthem

» Çok Uzun Zaman Aradan Sonra Geri Dönüş : mem1998
Çarş. Mayıs 23, 2012 7:37 pm tarafından mem1998

» Moderatör Alımı
C.tesi Mart 10, 2012 6:11 pm tarafından Pyrokinezi

» Gold k1 kodu :)
C.tesi Tem. 02, 2011 3:35 pm tarafından Reis61

» Warrock Bedava K1 İlk Kapan Alır ArkadaşLar Yöneticiler Lütfen Siz Almayın Kodu...
C.tesi Mayıs 21, 2011 9:16 pm tarafından darkus2

» Muhteşem bir forum
Cuma Şub. 25, 2011 11:35 pm tarafından apachibebetto

En iyi yollayıcılar
★ÅDMÌN★ (702)
 
kadirselen (550)
 
★Mǿяpнiпé★ (355)
 
ByCeo35 (314)
 
Darth Vader (286)
 
KaRaeL (197)
 
NharkoZ (185)
 
samsafi (174)
 
Lucho~ (101)
 
bucalii35 (97)
 
Kimler hatta?
Toplam 5 kullanıcı online :: 0 Kayıtlı, 0 Gizli ve 5 Misafir

Yok

Sitede bugüne kadar en çok 221 kişi Ptsi Eyl. 06, 2010 1:15 pm tarihinde online oldu.

Online Sayaç
Anahtar-kelime

Paylaş | 
 

 SAYI OYUNU

Aşağa gitmek 
YazarMesaj
kadirselen
[By_Admin İyi Forumlar Diler]
[By_Admin İyi Forumlar Diler]
avatar


<b>Mesaj Sayısı</b> Mesaj Sayısı : 550
<b>Kayıt tarihi</b> Kayıt tarihi : 15/08/10
<b>Yaş</b> Yaş : 27
<b>Nerden</b> Nerden : Denizli
<b>Cinsiyet</b> Cinsiyet : Erkek


MesajKonu: SAYI OYUNU   Paz Ağus. 22, 2010 12:27 pm

İlk baş Formumuza 2 button ekliyoruz ve 1.nin içine sayı oyununa başla 2.ye çıkış yazın ve aşağıdaki kodları yapıştırın


Public Class Form1
Dim a, b, s As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
a = Rnd() * 20
MsgBox("1 ile 20 arasındaki sayıyı bil")
s = 0
Do While (s < 5)


b = InputBox("SayıyıBil")
s = s + 1
If a = b Then
MsgBox(s & "." & "denemede Bildin")
Exit Do
End If

If a < b Then
MsgBox("Aşağı In")
End If
If a > b Then
MsgBox("Yukarı çık")

End If

Loop
If a <> b Then
MsgBox("Cevabı bilemedin" & a & "idi")
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(" Güle Güle ")
Application.Exit()
End Sub
End Class











KADİR SELEN

www.indiroloji.com ' Herkesi Bekleriz Yeni Forumumuza ..





Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://tazeforum.123.st
 
SAYI OYUNU
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» 27.07.2010 27Temmuz 2010 Salı Oyunu İndirme Adresi
» Lütfen Oyunu Açamıyorum moderator ve adminler yardım edin lütfen

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
 :: Bilgisayar & İnternet :: Web Tasarım ve Programlama :: Visual Basic-
Buraya geçin: