• 21-03-2010, 14:52:00
    #1
    Merhaba arkadaşlar bir problemim var nasıl yapıcağımı çözemedim bir kısmını yaptım ama tam calışmıyor ufak bir program..

    Konusu :iki tane button 1 tane de
    listbox var 1.button sayi üret burada randomla sayı üretecez ürettigimiz sayiyi listboxla ekliceğiz. 2.button da tahmin buttonu ürettigimiz sayi için kullancağız .

    Programın amacı: 1.buttondan girilen sayıyı listboxda ekledikden sonra 2. button da sayı giricez bu sayi inputboxdan olacak.Bizim rasgele ürettiğimiz sayi mesela 7 tahmin buttonunda girdigimiz sayı 5 msgboxla " Daha büyük bir sayi giriniz yazacak " 2. defa bir sayi giriyoruz bu defa 8 olsun msgbox " Daha küçük bir sayi giriniz yazacak " 3. defa giriliyor sayi 7 olsun msgbox " Girilen sayi dogru " böyle bir şey ben yaptım fakat bazı yerleri calışmıyor nerede yalnışlık yaptım bilmiyorum.

    Benim yaptıgım


    Dim sayi, tahmin As Integer
    Button1_Click 
    ListBox1.Items.Add(Int(Rnd() * 10))
     sayi = (Int(Rnd() * 10))
    Button12_Click
    
    tahmin = InputBox("Sayi Giriniz")
            If sayi < tahmin Then
                MsgBox("Daha büyük sayı giriniz")
            ElseIf sayi > tahmin Then
                MsgBox("Daha küçük sayi giriniz")
            ElseIf sayi = tahmin Then
                MsgBox("Dogru sayı girdiniz")
    
    
            End If
  • 21-03-2010, 16:42:58
    #2
    ElseIf sayi = tahmin Then
    MsgBox("Dogru sayı girdiniz")

    burada elseif diyip eşitliği kontrol ettirmene gerek yok zaten küçük ve büyük olduğunu kontrol ediyorsun. Geriye tek ihtimal kalıyor eşitlik


    tahmin = InputBox("Sayi Giriniz")
    If sayi < tahmin Then
    MsgBox("Daha büyük sayı giriniz")
    ElseIf sayi > tahmin Then
    MsgBox("Daha küçük sayi giriniz")
    Else
    MsgBox("Dogru sayı girdiniz")
    End If

    "Küçük ama önemli ayrıntılar
  • 21-03-2010, 16:55:30
    #3
    YukSoft adlı üyeden alıntı: mesajı görüntüle
    ElseIf sayi = tahmin Then
    MsgBox("Dogru sayı girdiniz")

    burada elseif diyip eşitliği kontrol ettirmene gerek yok zaten küçük ve büyük olduğunu kontrol ediyorsun. Geriye tek ihtimal kalıyor eşitlik


    tahmin = InputBox("Sayi Giriniz")
    If sayi < tahmin Then
    MsgBox("Daha büyük sayı giriniz")
    ElseIf sayi > tahmin Then
    MsgBox("Daha küçük sayi giriniz")
    Else
    MsgBox("Dogru sayı girdiniz")
    End If

    "Küçük ama önemli ayrıntılar
    Teşekkürler gözden kacıyor işte