<RANDOM> Komutu yardım

[zeus48]

Arkadaşlar mrb  Random komutu ile 1-65535  arası rastgele sayı üretiliyor..  Benim sorunum  20 ile 200 arası rastgele sayı üretmek istiyorum bu mümkünmü ?  Mümkünse nasıl yazacağım. Tşk

[ete]

Komut daima 0-65535 arası sayı üretiyorsa ve üretilen sayı 20 den büyük ise yeniden bir sayı ürettir. Başka yolu yok. Bu komutun çok sağlıklı çalıştığını söyleyemiyeceğim.
Ete

[dnaci]

20-200 arası hızlı sayan bir sayıcı yaparakta rastgele sayılar seçebilirsiniz. Bir buton ile sayıcı durdurulur. Her durdurma zamanı birbirinden farklı olacağı için random sayılar elde edersiniz.

[Mucit23]

Random işlemi sonucunda elde ettiğin sayının 200'e bölümünden kalanını bul. Bu sayede elinde 0-200 arası bir değer olur.
20 den küçük değerler için ise Ete hocanın dediği gibi yaparsın.

[ete]

Diğer bir yöntem de sayı 20> - <200 arasında kalıncaya kadar alınan Random değeri 20 ye bölmektir.

RANDOM SAYI
While SAYI>200
  SAYI=SAYI/20
  IF SAYI<20 THEN SAYI=RANDOM SAYI
WEND

Ama en doğrusu,
SAYI=0
WHILE SAYI<20 AND SAYI>200
  RANDOM SAYI
WEND

Şeklinde yapmaktır.
Ete

[zeus48]

ustalar süpersiniz. Paylaştıkca güzel oluyor.Herkese Tşk

[MS_59]

Bu şekildede yapılabilir

VERI VAR WORD 
SAY  VAR VERI.LOWBYTE                       
SAYI VAR BYTE
PAUSE 200
BASLA:
      RANDOM VERI
      SAYI=(SAY*180/255)+20      '20 İLE 200 ARASINDA SAYI ÜRET
GOTO BASLA