Istruzione: ScriviResoconto

[lotto69]

Buongiorno, giocando una previsione su tutte le ruote con l'istruzione "ScriviResoconto" mi mostra le vincite su tutte, come posso fare per sapere ruota per ruota in modo da capire le migliori.
Grazie

 

[i legend]

Ciao come hai dichiarato l array ruote?

 

[joe]

Buona giornata a tutte/i.

Devi predisporre 10 giocate.

Una per ogni singola ruota.

 

[i legend]

Ciao
Questo è solo un esempio non giocabile

Sub main
Dim aEstr: aestr=array(0,31,41)
Dim IdEstr ,tro
Dim aP(1) :aP(1)=1
Dim aR: aR=array(0,1,2,3,4,5,6,7,8,9,10)
For idestr= estrazionefin to 1 step -1
If posizione(idestr,1 ,1) then
Tro=tro+1
If tro>20 then exit for
Call impostagiocata(1,aEstr,aR,aP,1)
Call gioca(idestr)
End if
Next
Scriviresoconto
End sub

Scritto con il cellulare
Ciao
Non so se questa è la distribuzione che intendevi

 

[i legend]

Grazie salvo.
Ciao
Spero che tutto si sia risolto per il meglio .

 

[lotto69]

Grazie

 

[salvo50]

Spero che tutto si sia risolto per il meglio .

Ciao ILegend, grazie del pensiero, si è fuori pericolo.