Başlangıç > Kodlar > Visual Basic 6 ile Tahmin programı yapmak

Visual Basic 6 ile Tahmin programı yapmak


Eklenecek nesneler:
Text1(tahmin hakkı), Text2(tahmin gir), Text3(puan) ve
1 tane Command Button

Dim puan, hak, sifre
Private Sub Command1_Click()
Static i
tahmin = Val(Text2.Text)
i = i + 1
If i < 5 Then
If tahmin = sifre Then
MsgBox ("Tebrikler Bildiniz....")
End
End If
If tahmin <> sifre Then
MsgBox ("Yanlis Tahmin.. Lütfen Tekrar Deneyiniz...")
puan = puan - 100
Text3.Text = puan
hak = hak - 1
Text1.Text = hak
End If
End If
If i = 5 Then
MsgBox ("Tahmin Hakkiniz Bitmistir..")
End
End If
End Sub

Private Sub Form_Load()
Randomize
sifre = Int(Rnd * (100))
puan = 500
Text3.Text = puan
hak = 5
Text1.Text = hak
End Sub

Private Sub Text2_Validate(Cancel As Boolean)
tahmin = Val(Text2.Text)
If tahmin > 100 Then
MsgBox ("Lütfen 0-100 Arasinda Bir Sayi Giriniz..")
Text2.Text = ""
End If
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: