Sayı Bulmaca Oyunu - Vb.Net

ads

ads

Visual basic  Sayı Bulmaca Programı Yapımı

Bu dersimizde basit bir oyun yapacağız. Kısaca sayı bulmaca oyunu. 

Formunuza bir adet Button ekleyin ve  çift  tıklayarak click olayına aşağıdaki kodları yazınız.

Dim randomsayi , deneme , tahmin As Integer  
  'Burada sayı ürettiriyoruz'  
   Randomize Timer
   randomsayi=(Fix(Rnd*50)+1)
       
   deneme=0
      
   'bu aşamada bir döngü oluşturuyoruz'
    Do
   'burada kullanıcıdan herhangi bir sayı alınıyor'
    tahmin=Inputbox("Tahmin ettiğiniz sayı?")
'Değişkene kullanıcının tahmin ettiği herhangi bir sayıyı atadık.'
'bu aşamada ise Select Case karşılaştırmasını başlatıyoruz'    
    Select Case tahmin
     Case randomsayi
     Msgbox "Bravo"& deneme &"bildiniz"
     exit sub
     
     Case is > randomsayi
     Msgbox "Minimum bir sayı girmeniz gerekmektedir"
     deneme = deneme + 1 

     Case 0
     exit sub 

     Case is z randomsayi
     Msgbox "maximum bir sayı girmeeniz gerekmektedir."
     deneme = deneme + 1  

     End Select
Loop Until tahmin=0
end sub

ads