rnd kullanımı........ - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html) +--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html) +--- Konu Başlığı: rnd kullanımı........ (/konu-rnd-kullanimi.html) Sayfalar:
1
2
|
rnd kullanımı........ - AYTN - 25/04/2009 Dim soru(9), cevap(9), i, j, sayaç As Integer soru(0) = 5 soru(1) = 2 soru(2) = 3 soru(3) = 4 soru(4) = 6 soru(5) = 1 soru(6) = 0 soru(7) = 8 soru(8) = 9 soru(9) = 10 !!!ama surda bi hatam yok ama bilgisayarın kendi tutğu sayı olcakmış bana yardımcı olur musunuz!!!! rnd() kullanımını ile olacakmış ama yapamadım. For i = 0 To 9 cevap(i) = InputBox(i + 1 & "inci sorunun cevabına giriniz " & "(" & soru(i) & ")") Next For j = 0 To 9 If 2 * soru(j) = cevap(j) Then sayaç = sayaç + 1 End If Next MsgBox("doğru cevap degeriniz...." & sayaç) MsgBox("yanlış cevap degeriniz..." & sayaç - 10) End Sub Cvp: rnd kullanımı........ - adnanyurdakul - 25/04/2009 Sayın AYTN Doğrusu probleminizi anlayamadım ne yapmak istiyorsunuz? Rnd fonkiyonu aşağıdaki şekilde kullanılabilir. Sorunu Daha anlaşılır yazarsan yardımcı olmaya çalışayım. iyi çalışmalar Bu örnek, 1'den 6'ya kadar bir rasgele tamsayı değeri üretmek için Rnd işlevini kullanır. Dim Sayı ' 1 ve 6 arasında sayı üretmek için aşağıdaki fonksiyonu kullanabilirsiz. Sayı= Int((6 * Rnd) + 1) Cvp: rnd kullanımı........ - AYTN - 25/04/2009 yhaa bu sorunun cevablarının 2 katını aldığımızda bizim karsımıza doğru degerlerin veye yanlıs degerlernin yazıldığı bi proje yani söyle inputbox yanında soru(0)=5 bizim girdiğimiz deger ise bunun iki katına gircez yani 10 bunun ekrana yanlış doğru sayısını yapan bi proje ama işte dediğim gibi bu soruları bilgisayar rnd komutu ile tutacak cevap diye tanımladığımız fonksiyonu biz giriyoz soru diye tanımlanan fonksiyonuda bilgisayar rnd komutu ile aklından tutacak... şimdiden yardımcı olduğunuz için teşekkür ederim ..... Cvp: rnd kullanımı........ - tdsharun - 25/04/2009 Sayın AYTN, sizi uyarmaktan bir hal olduk yönetim olarak. Yani bu sizi kaçıncı uyarışımız bilmiyorum. Allah rızası için şu forum kurallarını bir okuyun ve kurallara göre hareket edin. Ne açtığınız başlık kurala uygun ne de soruyu sorma şekliniz. Bu kadar zor mu bu kurallara uymak Allah aşkına yaa??? Bu size son uyarım Sayın AYTN!... Tekrarı olmasın lütfen... Cvp: rnd kullanımı........ - AYTN - 25/04/2009 yhaa bişey sorabilir miyim bnm anlamndığım rnd kullanımı öğrenmek istiyorum ondan bu soruyu sordum bunun yazılışında ne yanlışı var ha bu arada hattam olmuşsa bi daha olmaz özür dilerim... Cvp: rnd kullanımı........ - tdsharun - 25/04/2009 Son yazdığınız mesajın bile Türkçe Yazım Kuralları ile uzaktan yakından alakası yok. Siz Forum Kurallarını hiç okudunuz mu? Bir daha olmayacağını belirttiğiniz mesaj bile kurallara aykırı. Nasıl olmayacak bir daha??? |