Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

Small Basıc Yardım !

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir (1 Mobil) - 1 Masaüstü, 1 Mobil
5 sn
11
Cevap
0
Favori
523
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
Öne Çıkar
0 oy
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Arkadaşlar Bir Ödev Hazırlıyorum
    Şans Oyunu Gibi Birşey
    Pc Rastgele 3 Sayı vercek
    Ve Klavyeden Girdigim 3 Sayıyla Karşılaştırcak
    Ve Kendi Girdiğim 3 Sayıdan 1 si Doğuyasa 3 tl
    2 si doğuysa 10 tl
    3 doğuysa 20 tl Kazandın Yazcak Progamda
    Ben Bir kaç kod yazım
    R1= Math.GetRandomNumber(49)
    R2= Math.GetRandomNumber(49)
    R3= Math.GetRandomNumber(49)
    TextWindow.ForegroundColor="DarkRed"
    TextWindow.Write("Rastgele Sayılar: " + R1)
    TextWindow.Write(" " + R2)
    TextWindow.Write(" "+ R3)
    TextWindow.WriteLine(" " )
    TextWindow.ForegroundColor="Green"
    TextWindow.Write("Kupondaki 1.Sayı Giriniz: ")
    K1= TextWindow.ReadNumber()
    TextWindow.Write("Kupondaki 2.Sayı Giriniz: ")
    K2= TextWindow.ReadNumber()
    TextWindow.Write("Kupondaki 3.Sayı Giriniz :")
    K3= TextWindow.ReadNumber()
    If K1=R1 Then
    TextWindow.WriteLine("1.Sayıyı Eşleştirdniz !")
    ElseIf K2=R1 THEN
    TextWindow.WriteLine("1.Sayıyı Eşleştirdniz !")
    ElseIF K3=R1 THEN
    TextWindow.WriteLine("1.Sayıyı Eşleştirdniz !")
    EndIf
    If K2=R1 Then
    TextWindow.WriteLine("2.Sayıyı Eşleştirdniz ! ")
    ElseIf K2=R2 then
    TextWindow.WriteLine("2.Sayıyı Eşleştirdniz ! ")
    ElseIf K2=R3 then
    TextWindow.WriteLine("2.Sayıyı Eşleştirdniz ! ")
    EndIf
    If K3=R1 Then
    TextWindow.WriteLine("3.Sayıyı Eşleştirdiniz")
    ElseIf K3=R2 then
    TextWindow.WriteLine("3.Sayıyı Eşleştirdiniz")
    ElseIf K3=R3 then
    TextWindow.WriteLine("3.Sayıyı Eşleştirdiniz !")
    EndIf

    Ve Buraya Kadar Geldim Devamını Getirebilrsniz çok iyi olur yardım ederseniz sevirnirim sabahtan beri uğaşıyorum yapamadım LÜTFEN BİR YARDIM !!



    _____________________________




  • 64fgchk x kd



    < Bu mesaj bu kişi tarafından değiştirildi rob dö şambır -- 30 Nisan 2013; 18:58:27 >
    _____________________________
  • quote:

    Orijinalden alıntı: rob dö şambır

    kaç tane bildiğini tutmuyorsun, sadece ekrana yazıp unutuyorsun.
    say diye bir değişken tanımla, ilk değeri 0 olacak.
    bildikçe buna 1 ekle, en sonunda bu kaç ise ödülü yaz.

    Say=0
    If K1=R1 Then
    Say=Say+1
    TextWindow.WriteLine("1.Sayıyı Eşleştirdniz !")
    ElseIf K2=R1 THEN
    ...
    If say=1 Then
    TextWindow.WriteLine("2 tl kazandınız!")
    ElseIf say=2 Then
    ....

    Anlamadım Ne Yapcagımı :( :(
    _____________________________
  • quote:

    Orijinalden alıntı: Uniwadee

    quote:

    Orijinalden alıntı: rob dö şambır

    kaç tane bildiğini tutmuyorsun, sadece ekrana yazıp unutuyorsun.
    say diye bir değişken tanımla, ilk değeri 0 olacak.
    bildikçe buna 1 ekle, en sonunda bu kaç ise ödülü yaz.

    Say=0
    If K1=R1 Then
    Say=Say+1
    TextWindow.WriteLine("1.Sayıyı Eşleştirdniz !")
    ElseIf K2=R1 THEN
    ...
    If say=1 Then
    TextWindow.WriteLine("2 tl kazandınız!")
    ElseIf say=2 Then
    ....

    Anlamadım Ne Yapcagımı :( :(

    Alıntıları Göster
    dr yjsrdry6 sr



    < Bu mesaj bu kişi tarafından değiştirildi rob dö şambır -- 30 Nisan 2013; 18:58:36 >
    _____________________________




  • quote:

    Orijinalden alıntı: rob dö şambır

    quote:

    Orijinalden alıntı: MsDipSomaNiaa89
    Anlamadım Ne Yapcagımı :( :(

    "sabahtan beri uğraşıyorum" diyen kişinin ne yazdığımı anlaması gerekirdi.
    direkt kodu tamamen yazıp vereyim istersen.

    Valla Çok iyi Olurr :D :D Yaparmısın ?
    _____________________________
  • dj ghc mcgf dryuk



    < Bu mesaj bu kişi tarafından değiştirildi rob dö şambır -- 30 Nisan 2013; 18:58:46 >
  • quote:

    Orijinalden alıntı: rob dö şambır

    http://smallbasic.com/program/?QQL167

    Çok teşekürler :D
    _____________________________
    • Yapay Zeka’dan İlgili Konular
    ARKADASLAR EXCEL ARAPÇA AÇILIYOR HELP!!!
    11 yıl önce açıldı
    Portable Autocad Hakkında YArdım Lütfen...
    14 yıl önce açıldı
    office 2003 ü kuramıyorum yardım lütfen!!!!
    18 yıl önce açıldı
    Daha Fazla Göster
  • quote:

    Orijinalden alıntı: Uniwadee

    quote:

    Orijinalden alıntı: rob dö şambır

    http://smallbasic.com/program/?QQL167

    Çok teşekürler :D

    Alıntıları Göster
    /j46ughn xxryk rxy k



    < Bu mesaj bu kişi tarafından değiştirildi rob dö şambır -- 30 Nisan 2013; 18:58:58 >
    _____________________________




  • quote:

    Orijinalden alıntı: rob dö şambır

    quote:

    Orijinalden alıntı: MsDipSomaNiaa89
    Çok teşekürler :D

    fakat bir mantık hatası var: doğru bir sayıyı kullanıcı 2 defa girerse 2 tane bildin diyor.
    onu sen düzelteceksin.

    Tamam tessekur ederim yinede

    < Bu ileti mobil sürüm kullanılarak atıldı >
    _____________________________
  • quote:

    Orijinalden alıntı: Uniwadee

    quote:

    Orijinalden alıntı: rob dö şambır

    quote:

    Orijinalden alıntı: MsDipSomaNiaa89
    Çok teşekürler :D

    fakat bir mantık hatası var: doğru bir sayıyı kullanıcı 2 defa girerse 2 tane bildin diyor.
    onu sen düzelteceksin.

    Tamam tessekur ederim yinede

    Alıntıları Göster
    /lg64udtdhxzd jdxytj js



    < Bu mesaj bu kişi tarafından değiştirildi rob dö şambır -- 30 Nisan 2013; 18:59:10 >
    _____________________________




  • quote:

    Orijinalden alıntı: rob dö şambır

    quote:

    Orijinalden alıntı: MsDipSomaNiaa89


    quote:

    Orijinalden alıntı: rob dö şambır

    quote:

    Orijinalden alıntı: MsDipSomaNiaa89
    Çok teşekürler :D

    fakat bir mantık hatası var: doğru bir sayıyı kullanıcı 2 defa girerse 2 tane bildin diyor.
    onu sen düzelteceksin.

    Tamam tessekur ederim yinede

    eklemeler haricinde bir yerde düzeltme yaptım, bilmem fark ettin mi...

    Ben daha progam yapmaya yeni basladim okuldakilerden onde gidiyorum yinede ama bu konuda cok ilgim yardimci oldugun icinc tekrar tessekur edrim . Yarin elektronik dersindem sinav oldugu icin Bakamadom

    < Bu ileti mobil sürüm kullanılarak atıldı >
    _____________________________




    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum