Edubilim Forumları - www.edubilim.com
Duyurular: 2012-2013 Eğitim ve Öğretim Yılı....
 
*
Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun. Ağustos 22, 2014, 06:40:45 ÖS


Kullanıcı adınızı, parolanızı ve aktif kalma süresini giriniz


...::: EDuBiLiM :::...



  Sayfa: [1]  
  Bu Konuyu Gönder  
Gönderen Konu: Sayi bulmacasi  (Okunma Sayısı 657 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Ziyaretçi


« : Aralık 30, 2007, 09:35:58 ÖS »


Bilgisayarin tutacagi 4 - 5 veya 6 basamakli rakamlari farkli bir sayiyi bulmak


Dim TutulanSayi As String
Dim TahminSayisi As Integer
Private Sub Command1_Click(Index As Integer)
Select Case Index
    Case 3: Unload Me
    Case 2:
    Text1.SetFocus
    If Val(Text1.Text) < 1000 Then GoTo HataVar
    For i = 1 To 4
    For j = i + 1 To 4
    If Mid(Text1.Text, i, 1) = Mid(Text1.Text, j, 1) Then GoTo HataVar
    Next j
    Next i
    ArtiSayac = 0
    EksiSayac = 0
   
    For i = 1 To 4
    For j = 1 To 4
    If Mid(Text1.Text, i, 1) = Mid(TutulanSayi, j, 1) And i = j Then ArtiSayac = ArtiSayac + 1
    If Mid(Text1.Text, i, 1) = Mid(TutulanSayi, j, 1) And i <> j Then EksiSayac = EksiSayac + 1
    Next j
    Next i
    Label5 = "+" & ArtiSayac
    Label6 = "-" & EksiSayac
    TahminSayisi = TahminSayisi + 1
    Combo1.AddItem Text1.Text & " " & Label5.Caption & "  " & Label6.Caption
    If ArtiSayac = 4 Then
       Label7.Caption = "Tebrikler " & TahminSayisi & ". Aşamada Bildiniz"
       Label1.Visible = True
       Label2.Visible = True
       Label3.Visible = True
       Label4.Visible = True
       End If
    If TahminSayisi = Val(Text2.Text) Then
       TahminSayisi = 0
       Command1(2).Enabled = False
       Label1.Visible = True
       Label2.Visible = True
       Label3.Visible = True
       Label4.Visible = True
       Label7.Caption = "Üzgünüm Oyunu Kaybettin...."
       End If
    Case 1: Command1(0).Visible = True
            Command1(0).SetFocus
            Timer1.Enabled = False
            Command1(1).Visible = False
            Command1(2).Enabled = True
            Label1.Visible = False
            Label2.Visible = False
            Label3.Visible = False
            Label4.Visible = False
            Label7.Caption = "Tahmin Edilen Sayı Nedir ?"
            Text1.SetFocus
   
    Case 0: Command1(0).Visible = False
            Label1.Visible = True
            Label2.Visible = True
            Label3.Visible = True
            Label4.Visible = True
            Label5.Caption = ""
            Label6.Caption = ""
            Label7.Caption = "Sayi Tutuluyor"
            Timer1.Enabled = True
            Command1(1).Visible = True
            Command1(1).SetFocus
            Command1(2).Enabled = False
            Text1.Text = ""
            Combo1.Clear
End Select
Exit Sub
HataVar:
Dim Cevap
Cevap = MsgBox("Girilen sayıda Bir Hata Var", vbInformation, "Hata Bildirimi")
End Sub
Private Sub Form_Load()
Me.BackColor = RGB(187, 173, 208)
Text1.BackColor = RGB(187, 173, 208)
With Command1(1)
     .Left = Command1(0).Left
     .Top = Command1(0).Top
     .Visible = False
End With
Command1(2).Enabled = False
Label7.Caption = "Oyunu Başlatmak İçin Bir Sayı Tutturunuz"
Text2.Text = 20
End Sub

Private Sub MnCetele_Click()
If MnCetele.Checked = True Then
   MnCetele.Checked = False
   Combo1.Visible = False
   Else
   MnCetele.Checked = True
   Combo1.Visible = True
End If
End Sub

Private Sub MnKapat_Click()
Unload Me
End Sub

Private Sub MnTahminSayisi_Click()
If MnTahminSayisi.Checked = True Then
   MnTahminSayisi.Checked = False
   Label8.Visible = False
   Text2.Visible = False
   Else
   MnTahminSayisi.Checked = True
   Label8.Visible = True
   Text2.Visible = True
End If
End Sub

Private Sub Timer1_Timer()
Randomize
Sayi1 = Int(Rnd * 10)
Label1.Caption = Sayi1
Sayi2 = Int(Rnd * 10)
Label2.Caption = Sayi2
Sayi3 = Int(Rnd * 10)
Label3.Caption = Sayi3
Sayi4 = Int(Rnd * 10)
Label4.Caption = Sayi4
SAYITUT:
If Sayi1 = 0 Or Sayi1 = Sayi2 Or Sayi1 = Sayi3 Or Sayi1 = Sayi4 Then
   Sayi1 = Int(Rnd * 10)
   Label1.Caption = Sayi1
   GoTo SAYITUT
   End If
If Sayi2 = Sayi3 Or Sayi2 = Sayi4 Then
   Sayi2 = Int(Rnd * 10)
   Label2.Caption = Sayi2
   GoTo SAYITUT
   End If
If Sayi3 = Sayi4 Then
   Sayi3 = Int(Rnd * 10)
   Label3.Caption = Sayi3
   GoTo SAYITUT
   End If
TutulanSayi = Label1 & Label2 & Label3 & Label4
End Sub
rem bu oyun için gerekliolan label text combo ve command butınlarini olusturunuz


Logged
Etiket:
  Sayfa: [1]  
  Bu Konuyu Gönder  
 
Gitmek istediğiniz yer:  


Tüm toplama bilgisayar fırsatları için tıklayın !


Yıllık Planlar 1.Sınıf 2.Sınıf 3.Sınıf 4.Sınıf 5.Sınıf 6.Sınıf 7.Sınıf 8.Sınıf
2009-2010 Yıllık Planlar 1.Sınıf 2.Sınıf 3.Sınıf 4.Sınıf 5.Sınıf 6.Sınıf 7.Sınıf 8.Sınıf
Zümre Toplantıları 1.Sınıf 2.Sınıf 3.Sınıf 4.Sınıf 5.Sınıf 6.Sınıf 7.Sınıf 8.Sınıf
Belirli Günler ve Haftalar Birleşmiş Milletler Günü Kızılay Haftası 29 Ekim Cumhuriyet Bayramı Dünya Tasarruf Günü
Yazılı Soruları
1. Yazılı Soruları

Edubilim olarak 2009-2010 Eğitim ve Öğretim Yılında da eğitimle ilgili , bilgi , belge ve dosyalarla tüm öğrenci ve öğretmenlerin yanındayız...
Tüm hakları sakllıdır. Edubilim 2007-2009. Bu sitede bulunan bilgi , belge ve dökümanların izin alınmadan veya kaynak gösterilmeden kullanılması yasaktır. İletişim Adresi: edubilim@gmail.com

Edubilim I Urllist I Etiketler I Rss I Google Etiketleri I Site Haritası I Site Map I Reklam
Edu Sohbet -Webmaster -Edubilim2 -Oyunpiyatforum-- Web Stats

MySQL ile Güçlendirildi PHP ile Güçlendirildi Powered by SMF 1.1.10 | SMF © 2006-2009, Simple Machines LLC

XHTML 1.0 Geçerli! CSS Geçerli!
Çok kısa bir süre sonra sitemize
yalnızca davetiye ile üye olunabilecek...
 Hem davetiye hakkı kazanmak için hem de sitemizdeki dosyaları indirebilmek için lütfen üye olun...
Üyelik tamamen ücretsizdir, üye olmak için tıklayın