Aiuto a convertire Listato S.Enalotto

[Blackmore]

Con spaziometria, ho problemi ad aggiornare le estrazioni,per il lotto ho trovato un escamotage, ma il superenalotto niente (ma questo ormai lo sanno anche i muri), per cui ho fatto girare il listato sottostante con L8, ma prima mi da errore indicemensileSE, e se lo separo mi da errore then, qualcuno può convertirlo?
Grazie

Sub Main()
Dim nr(12)
' prima del mese a 12 numeri cupido
For es = EstrazioniArchivioSE - 200 To EstrazioniArchivioSE
If IndiceMensileSE(es) = 11 Then

a = EstrattoSE(es,1)

nr(1) = Fuori90(a + 1)
nr(2) = Fuori90(a + 7)
nr(3) = Fuori90(a + 26)
nr(4) = Fuori90(a + 38)
nr(5) = Fuori90(a + 4)
nr(6) = Fuori90(a + 33)
nr(7) = Fuori90(a + 36)
nr(8) = Fuori90(a + 52)
nr(9) = Fuori90(a + 61)
nr(10) = Fuori90(a + 2)
nr(11) = Fuori90(a + 39)
nr(12) = Fuori90(a + 34)
ImpostaGiocataSE 1,nr,1,13

GiocaSE(es)
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub


Blackmore

 

[pfca]

....

 

[Roby]

<center>Beato te</center>

<center>

</center>

Blackmore

 

[keeper]

devi guardare l'help di l8 e vedewre la funzione di indicemensile come viene applicata

 

[keeper]

prova così
If IndiceMensile(es+1)=11 Then
ma scusa ma perchè non abbandoni sto l8 e usi spaziometria?

 

[Roby]

quote:Originally posted by keeper

prova così
If IndiceMensile(es+1)=11 Then
ma scusa ma perchè non abbandoni sto l8 e usi spaziometria?

non funziona, nell'help non c'è,
Abbandonare L8??.... Mai

E poi come ho detto sopra, non posso aggiornare le estrazioni del super......
Blackmore

 

[Thauk]

Ciao, Blackmore, io te l'ho modificato per L8 (ver. 6.1.x), tieni però presente che il programma esegue i calcoli sulla vecchia modalità di estrazione (primi estratti) e che quindi i numeri in gioco saranno diversi. Con le ultime versioni di Lottodesk le cose saranno sicuramente cambiate, ma io non lo uso (per le mie ricerche mi basta L8).

Sub Main()
Dim nr(12)
' prima del mese a 12 numeri cupido
For es = EstrazioneFin(1) - 200 To EstrazioneFin(1)
If IndiceMensile(es) = 11 Then

a = Estratto(es,,1,1)	'1° estratto
'a = Estratto(es,,2,1)	'2° estratto
'a = Estratto(es,,3,1)	'3° estratto
'a = Estratto(es,,4,1)	'4° estratto
'a = Estratto(es,,5,1)	'5° estratto
'a = Estratto(es,,6,1)	'6° estratto
'a = Estratto(es,,7,1)	'jolly

nr(1) = Fuori90(a + 1)
nr(2) = Fuori90(a + 7)
nr(3) = Fuori90(a + 26)
nr(4) = Fuori90(a + 38)
nr(5) = Fuori90(a + 4)
nr(6) = Fuori90(a + 33)
nr(7) = Fuori90(a + 36)
nr(8) = Fuori90(a + 52)
nr(9) = Fuori90(a + 61)
nr(10) = Fuori90(a + 2)
nr(11) = Fuori90(a + 39)
nr(12) = Fuori90(a + 34)

co=co+1
Scrivi String(70,"=")&" Caso n° "&co
Scrivi DataEstrazione(es)
Scrivi "Numeri in gioco: "& StringaNumeri(nr)

End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
End Sub

ciauz


Fortuna non omnibus aeque.

 

[Roby]

Grazie thauk, ma i numeri sono diversi per cui non va bene
Che io sappia L8 6.1 (credo sia l'ultima versione) è l'evoluzione di lottodesk, ma posso sbagliarmi

Blackmore