Vi lancio una sfida...

[antofospa]

Chi mi riesce a dire come faccio a generare un numero totalmene casuale compreso tra 1 e 6 (un dado in pratica), che mi appare in debug quando premo un bottone.

Abbandonate l'idea dell'istruzione random...i numeri sono sempre gli stessi che si ripetono...

[marnic]

beh, io sapevo che il random pur ripetendo una serie di numeri tra 0 e 1 era legato al clock.
Dovendo generare poi pochi numeri (da 1 a 6) il rapporto tra numeri pseudo casuali (credo che siano 65535) e 6 è sufficentemente grande da determinare un'ottima casualitÃ*.
Ora ricordo che c'era un metodo ma sono ricordi un po' lontani
Il concetto era di lanciare il random nel momento in cui chiedi l'input e stopparlo quando arriva, questo da un risultato diverso dal prelevare il random direttamente.
Se non ricordo male c'era un RANDOMIZE.

Ho vinto qualche cosa? :wink:
Ciao

[antofospa]

Devo ammettere che mi hai messo in difficoltÃ*...cioè, il comando randomize penso non esista nel PBASIC. Il mio manuale non mi pare parli di RANDOMIZE. Forse ti sei confuso con altri codici di programmazione.
per quel che ne so c'è solo l'istruzione random!

Io ho utilizzato un'altro metodo, molto semplice, ma secondo me geniale. SOlo che aspetterò a svelarlo...

[Vegekou]

il tempo, fai partire un ciclo di tempo e dopo lo stoppo, il numero lo dividi e cerchi di farlo rientrare in un numero compreso tre 1 e 6

Vinto??? :wink:

[marnic]

Orginalmente inviato da antofospa

Devo ammettere che mi hai messo in difficoltÃ*...cioè, il comando randomize penso non esista nel PBASIC. Il mio manuale non mi pare parli di RANDOMIZE. Forse ti sei confuso con altri codici di programmazione.
per quel che ne so c'è solo l'istruzione random!

beh, nel tuo post non parlavi di PBasic :wink:
In effetti il comando Randomize si usava nel Basic delllo Spectrum (correva l'anno 1982 ) non so se poi è sopravvissuto.
Il concetto però rimane, devi rendere indipendente il momento in cui fai partire la rotazione della sequenza di numeri dal momento in cui ne vai a pescare uno.
Usando il Pbasic credo che un semplice loop che conta da 1 a 6 e viene stoppato da un interrupt comandato da un intervento umano (pulsante) ruoti talmente veloce che il risultato sia un numero casuale
Ciao

[antofospa]

ESATTO! Bravi tutti e due!

Io ho fatto così:


n VAR Nib

main:
if IN2 = 1 then main
loop:
for n = 1 to 6
if (IN2 = 1) then visualizza
next
goto loop
visualizza:
debug DEC ? n
goto main
'------------------------------------------------

[award]

Ciao a tutti,

... perche' non usare il comando RANDOM del pbasic

Ok, e' uno pseudo RANDOM.... ma cambiando il seme di partenza (tipo magari mettendo un loop sul tasto reset) il problema si risolve piu' elegantemente.

In questo esempio si ottiene sempre la stessa sequenza di numeri... ma come detto prima, cambiando il valore del seme....

________CUT CUT CUT_____________

'{$STAMP BS2}
Seme VAR Word
A VAR Nib
Reset VAR IN2
Seme = IN10
aspetta:
Seme = Seme +1
IF Reset = 1 THEN aspetta

main:

Seme = Seme +1
RANDOM Seme
A = Seme.HIGHBYTE.HIGHNIB
IF A < 1 OR A > 6 THEN main
DEBUG DEC1 ? a
GOTO main
________CUT CUT CUT_____________

[award]

...
P.S.

La Parallax suggerisce inoltre (per variare il seme), la lettura delle 'fluttuazioni' di stato dei pin non connessi.
.... e io dico.......
perche' non prendere il seme da un clock esterno (tipo per es. DALLAS 1302) ??
Mettendo una batteria tampone al circuito, inoltre si puo' mantenre il clock aggiornato. E cosi' fu creato l'orologio

[award]

....
modificato il listato, tanto per renderlo ancora piu' random....

V. post precedente.

[antofospa]

Scusa award... le tue idee, valide, mi sembrano un po' troppo dispendiose. In particolare quella dell'orologio esterno. Perchè dovei usarlo se il prblema si risolve tranquillamente senza????