AccessTr.neT

Tam Versiyon: rnd kullanımı........
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
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)
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 .....
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...
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...
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???
Sayfalar: 1 2