Arama butonu
Bu konudaki kullanıcılar: 1 misafir
10
Cevap
524
Tıklama
0
Öne Çıkarma
Small Basıc Yardım !
U
13 yıl (76 mesaj)
Çavuş
Konu Sahibi

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 !!

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil



R
13 yıl (596 mesaj)
Yüzbaşı

64fgchk x kd





< Bu mesaj bu kişi tarafından değiştirildi rob dö şambır -- 30 Nisan 2013; 18:58:27 >
Bu mesaja 1 cevap geldi.
U
13 yıl (76 mesaj)
Çavuş
Konu Sahibi

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ı :( :(


Bu mesaja 1 cevap geldi.
R
13 yıl (596 mesaj)
Yüzbaşı

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 >
Bu mesaja 1 cevap geldi.
U
13 yıl (76 mesaj)
Çavuş
Konu Sahibi

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 ?


Bu mesaja 1 cevap geldi.
R
13 yıl (596 mesaj)
Yüzbaşı

dj ghc mcgf dryuk





< Bu mesaj bu kişi tarafından değiştirildi rob dö şambır -- 30 Nisan 2013; 18:58:46 >
Bu mesaja 1 cevap geldi.
U
13 yıl (76 mesaj)
Çavuş
Konu Sahibi

quote:

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

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

Çok teşekürler :D


Bu mesaja 1 cevap geldi.
R
13 yıl (596 mesaj)
Yüzbaşı

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 >
Bu mesaja 1 cevap geldi.
U
13 yıl (76 mesaj)
Çavuş
Konu Sahibi

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ı >
Bu mesaja 1 cevap geldi.
R
13 yıl (596 mesaj)
Yüzbaşı

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 >
Bu mesaja 1 cevap geldi.
U
13 yıl (76 mesaj)
Çavuş
Konu Sahibi

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ı >

DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.