HTML
Option Explicit
'Richiesta script, penso semplice... di micro_
'https://lottogam.forumfree.it/?t=76466286#newpost
Sub Main
Dim Ini,Fin,Es : Ini = EstrazioneFin - 300 : Fin = EstrazioneFin
'esempio
'Ini = 9360 : fin = 9361
Dim R,P,Caso : Caso = 00
For Es = Ini To Fin : Call Messaggio(Es) : Call AvanzamentoElab(Ini,Fin,Es)
For R = 01 To 11 : If R = 11 Then R = 12
For P = 01 To 05
Dim E1,E2,E3,E4,E5 : E5 = Estratto(Es - 05,R,P) : E4 = Estratto(Es - 04,R,P) : E3 = Estratto(Es - 03,R,P)
E2 = Estratto(Es - 02,R,P) : E1 = Estratto(Es - 01,R,P)
If E5 < E4 And E4 < E3 And E3 < E2 And E2 < E1 Then
Caso = Caso + 01
Dim D1,D2,D3,D4 : D1 = Differenza(E5,E4) : D2 = Differenza(E4,E3) : D3 = Differenza(E3,E2) : D4 = Differenza(E2,E1)
Call Scrivi(String(125,"-") & " Caso n° " & FormattaStringa(Caso,"000"),true)
Call Scrivi(GetInfoEstrazione(Es - 05) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 05,R) & " - " & E5 & " - " & P,true)
Call Scrivi(GetInfoEstrazione(Es - 04) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 04,R) & " - " & E4 & " - " & P,true)
Call Scrivi(GetInfoEstrazione(Es - 03) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 03,R) & " - " & E3 & " - " & P,true)
Call Scrivi(GetInfoEstrazione(Es - 02) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 02,R) & " - " & E2 & " - " & P,true)
Call Scrivi(GetInfoEstrazione(Es - 01) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 01,R) & " - " & E1 & " - " & P,true)
Dim E0 : E0 = Estratto(Es + 00,R,P)
Call Scrivi("DISTANZE : " & D1 & " " & D2 & " " & D3 & " " & D4,true)
Call Scrivi(GetInfoEstrazione(Es + 00) & " " & SiglaRuota(R) & " " & StringaEstratti(Es + 00,R) & " - " & E0 & " - " & P,true)
Dim N1,N2,N3,N4 : N1 = Fuori90(E0 + D1) : N2 = Fuori90(E0 + D2) : N3 = Fuori90(E0 + D3) : N4 = Fuori90(E0 + D4)
ReDim aPosizioni(05) : aPosizioni(P) = true
Dim Rit1 : Rit1 = EstrattoRitardoTurbo(R,N1,EstrazioneIni,Es + 00,,,aPosizioni)
Dim Rit2 : Rit2 = EstrattoRitardoTurbo(R,N2,EstrazioneIni,Es + 00,,,aPosizioni)
Dim Rit3 : Rit3 = EstrattoRitardoTurbo(R,N3,EstrazioneIni,Es + 00,,,aPosizioni)
Dim Rit4 : Rit4 = EstrattoRitardoTurbo(R,N4,EstrazioneIni,Es + 00,,,aPosizioni)
Dim vetNumeri,klp : vetNumeri = Array(00,N1,N2,N3,N4) : klp = 01
Call Scrivi("NUMERI : " & StringaNumeri(vetNumeri," - ",true),true)
Call Scrivi("RITARDO : " & Rit1 & " - " & Rit2 & " - " & Rit3 & " - " & Rit4,true)
ReDim vetRuote(01) : vetRuote(01) = R : ReDim vetPoste(10) : vetPoste(P + 05) = 01
Call ImpostaGiocata(01,vetNumeri,vetRuote,vetPoste,klp) : Call Gioca(Es + 00,true,,01)
End If
Next
Next
Next
Call ScriviDistribuzioneEsiti(true) : Call ScriviResoconto(False,true)
End Sub