Script

[scarfacetony]

Achi interessa alter ego di Badessa,chi vuole farci uno script...
Grazie e buona giornata

 

[Lottopython]

provo a testarlo un po prima di condividerlo .

 

[Lottopython]

@scarfacetony se vuoi posso girartelo in privato ma non so come fare ,hai qualche idea sei su altri forum?
al momento non riporta utili info si ferma come vedi a quella data ,diverso leggermente sulle diametrali ,ovviamente è possibile modificarlo secondo le necessità.

 

[DjNomade]

Prova cosi.
Ciauz

Anticipazione (Spoiler): LISTATO

'13/10/2025
ColoreTesto 2
Scrivi String(37,32) & "L'ALTER EGO DEL 90- ESTRATTI ISOTOPI SOMMA 90 SU RUOTE DIAMETRALI BY S.BADESSA",1

ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5),posta(10)

poste1(2) = 1
poste2(2) = 1
poste2(3) = 1
fin = EstrazioneFin
ini = fin - 150
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
If r1=11 Then r1=12
For p1 = 1 To 5

n1 = Estratto(es,r1,p1)

For r2 =r1+1 To 10

n2 = Estratto(es,r2,p1)

If Fuori90(n1+n2)=90 And Distanza(r1,r2)=5 And (p1=3 Or p1=5)Then

n14=Diametrale(n1)
n15=Diametrale(n2)



casi = casi + 1
Scrivi
Scrivi String(75,"=") & " caso n° " &(casi)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(n1) ,1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(n2) , 1

Scrivi
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
k = 13
co = 0
Erase posta
posta(1) = 1
posta(p1+5) = 1
nu3(1) = 45
ImpostaGiocata 1,nu3,ruote,posta,k
nu1(1) = 45
nu1(2) = n14
ImpostaGiocata 2,nu1,ruote,poste1,k
nu1(1) = 45
nu1(2) = n15
ImpostaGiocata 3,nu1,ruote,poste1,k

nu2(1) = 45
nu2(2) = n14
nu2(3) = n15

ImpostaGiocata 4,nu2,ruote,poste2,k
Gioca es
End If

Next
Next

Next
Next

ScriviResoconto

End Sub

 

[franca46]

grazie!!!!

 

[ciambana]

Achi interessa alter ego di Badessa,chi vuole farci uno script...
Grazie e buona giornata

questo metodo sta facendo sfracelli...grazie

 

[scarfacetony]

@scarfacetony se vuoi posso girartelo in privato ma non so come fare ,hai qualche idea sei su altri forum?
al momento non riporta utili info si ferma come vedi a quella data ,diverso leggermente sulle diametrali ,ovviamente è possibile modificarlo secondo le necessità.

Ciao su Wheels Tony Montana1

 

[adispo2000]

@scarfacetony se vuoi posso girartelo in privato ma non so come fare ,hai qualche idea sei su altri forum?
al momento non riporta utili info si ferma come vedi a quella data ,diverso leggermente sulle diametrali ,ovviamente è possibile modificarlo secondo le necessità.

puoi postarlo anche a me...grazie

 

[scarfacetony]

Prova cosi.
Ciauz

Anticipazione (Spoiler): LISTATO

'13/10/2025
ColoreTesto 2
Scrivi String(37,32) & "L'ALTER EGO DEL 90- ESTRATTI ISOTOPI SOMMA 90 SU RUOTE DIAMETRALI BY S.BADESSA",1

ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5),posta(10)

poste1(2) = 1
poste2(2) = 1
poste2(3) = 1
fin = EstrazioneFin
ini = fin - 150
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
If r1=11 Then r1=12
For p1 = 1 To 5

n1 = Estratto(es,r1,p1)

For r2 =r1+1 To 10

n2 = Estratto(es,r2,p1)

If Fuori90(n1+n2)=90 And Distanza(r1,r2)=5 And (p1=3 Or p1=5)Then

n14=Diametrale(n1)
n15=Diametrale(n2)



casi = casi + 1
Scrivi
Scrivi String(75,"=") & " caso n° " &(casi)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(n1) ,1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(n2) , 1

Scrivi
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
k = 13
co = 0
Erase posta
posta(1) = 1
posta(p1+5) = 1
nu3(1) = 45
ImpostaGiocata 1,nu3,ruote,posta,k
nu1(1) = 45
nu1(2) = n14
ImpostaGiocata 2,nu1,ruote,poste1,k
nu1(1) = 45
nu1(2) = n15
ImpostaGiocata 3,nu1,ruote,poste1,k

nu2(1) = 45
nu2(2) = n14
nu2(3) = n15

ImpostaGiocata 4,nu2,ruote,poste2,k
Gioca es
End If

Next
Next

Next
Next

ScriviResoconto

End Sub

Come sempre mille grazie