Visual basic'te sayı tahmin etme programı yardım edin

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Visual basic'te sayı tahmin etme programı yardım edin

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

2
Cevap 2364
Tıklama 0
Öne Çıkarma

1. sayfa

Visual basic'te sayı tahmin etme programı yardım edin

Cevap Yaz

sago7

13 yıl

Konu Sahibi

Arkadaşlar visual basic'te sayı tahmin etme programının kodlarını yazar mısınız yeni öğreniyorum damesEla tuttugum sayı 13 olsun 13 ten aşağı ise yukarı 13 ten yukarı ise aşağı desin.eşit ise tebrikler dogru desin ama 3 tane tahmin etme hakkı olsun.ben yapıyorumda hoca dıyor kı 3 tane tahmin etme hakkım olsun onu yapamıyorum.sürekli tahmin ediyor

e_byz

13 yıl

Sanırım istediğin şey bu.vb.net 2010'da yaptım.Öncelikle bir adet buton,2 adet label ekliyorsun daha sonra kod kısmına aşşağıdakileri yazıyorsun.Kod kısmında her kodun işlevi yanına yazılmıştır.Umarım işine yarar

Public Class Form1
Dim sayi As Integer 'Bilgisayarın tuttuğu sayının atandığı değişken tanımı
Dim deger As String 'kullanıcının gireceği değerin tutulacağı değişkenin tanımı
Dim sayac As Integer 'kullanıcıya kaçıncı tahminde bildiğini söylemesi için yazılan sayaç değişkeninin tanımı

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sayi = CInt(Rnd() * 100) 'bilgisayarın 0 ile 100 aralığında rastgele sayı tutması için yazılan kod

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sayac = sayac + 1 'butonun her tıklama olayında sayacın 1 artması için yazılan kod
For i = 0 To 2 'sadece 3 kez giriş yapabilinmesi için kurulan döngü kodu
deger = InputBox("Lütfen 0 ile 100 arasında bir sayı tahmin ediniz!!!") 'kullanıcıdan değer alınması için yazılan kod
If Not IsNumeric(deger) Then ' eğer girilen değer sayısal değilse hata mesajı vermesi için yazılan kod
MsgBox("Lütfen sayı giriniz!!!")

End If
If Val(deger) = sayi Then 'eğer sayı doğruysa verilecek mesajın yazıldığı kod
MsgBox("Tebrikler " & sayac & " .kerede bildiniz :) Tutulan sayı= " & sayi)
End If
If Val(deger) < sayi Then 'eğer girilen sayı bilgisayarın tuttuğu sayıdan küçükse verilecek mesajın kodu
MsgBox("Yukarı")

End If
If Val(deger) > sayi Then 'eğer girilen sayı bilgisayatın tuttuğu sayıdan büyükse verilecek mesajın kodu
MsgBox("Aşağı")

End If

Next
MsgBox("Tahmin hakkınız bitmiştir :(") '3 kez tahmin hakkı bittikten sonra verilecek mesajın kodu
Button1.Text = "Yeniden başla" '3 kez tahmin hakkı bittikten sonra isterse tekrar oynayabileceğinin belirtilmesi için butonun isminin değiştirildiği kod

End Sub

End Class

Kaynak dosya için tıklayın --->http://qfs.mobi/f142074

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Visual basic'te sayı tahmin etme programı yardım edin