Listato l8+ non funziona su Spaziometria.

[antopun]

Ciao a tutti voi del forum, gentilmente vi chiedo un aiuto per questo listato Ambata Spia 19 a Torino. questo listato e' stato sviluppato per il programma L8+ quindi su spaziometria non funziona. Cortesemente vi chiedo se potete convertire il listato per spaziometria. questo listato sembra essere abbastanza buono per ambo e terno sulle ruote di bari e firenze. Sperando nella vostra disponibilita' e scusatemi per il disturbo, vi porgo i piu' sinceri auguri di buon fine ferragosto e di buone ferie . Grazie Antonio.
Sub main()

Dim n(4),n1(3),ru(3),ps(3)
Dim ruo(1)
Dim ps1(3)
ps(2)=2
ps(3)=1
ps1(3)=1
r=9 'ruota dove e' uscita la spia
ru(1)=1 '1a ruota di gioco
ru(2)=3 '2a ruota di gioco
ruo(1)=11

For es=EstrazioneFin-134 To EstrazioneFin ' estrazioni da controllare a ritroso,qui' 165
If Posizione(es,r,19)>0 Then ' spia sortita,qui' 90
n(1)=8
n(2)=54
n(3)=72
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4

ImpostaGiocata 1,n,ru,ps,10
Scrivi "----------------------------------------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" " & " [" & " "& SiglaRuota(r) &" "& StringaEstratti(es,r)&" "&"] sortito numero spia !!! = "&""& Format2(19) &" ",1

Gioca es
End If
Next
ScriviResoconto

End Sub

 

[salvo50]

Ciao a Tutti.

A me funziona con spaziometria, ho la versine 1.6.31

 

[antopun]

Ciao Salvo50, buonasera , scusa ma come mai a me non funziona? io ho la versione 1.6.34

 

[antopun]

Ciao Salvo50 ti riscrivo di nuovo per correttezza, ho letto il tuo messaggio che dice che il listato ti funziona , allora ho riprovato facendo un copia e incolla da capo e ........mi funziona ora . Grazie a te anche questa volta ho risolto, sei un grande , tu puoi anche dire , ma io non ho fatto niente ho solo detto che funziona. il punto e' questo, non hai fatto niente e risolvi il problema, figurati quanto ti metti in opera. grazie frate' ,un abbraccio . Antonio.