Ambate sicure

[80Sete]

Poi dipende dalle tue convergenze, ad esempio io ho ancora in gioco
il 59 a BA e il 57 a CA...... bel dilemma direi.
Ciao

ed ecco anche il 59 di Tizi, beccato come doppio Oro nel 10 e Lotto...giusto per rigiocare.
Ciao a tutti

 

[Aline]

Complimenti

 

[ermis]

Complimentiiii

 

[869***PPPPLL]

script

 

[e1990]

Sub Main()
Scrivi
Scrivi " ALLA ULTIMA° ESTRAZIONE MENSILE ",- 1,,,1,3
Scrivi
Scrivi
Scrivi " METODO TIZI",- 1,,,1,3
Scrivi
Dim ruote(10)
Dim nn1(1) : Dim nn2(2) : Dim postee(1)
postee(1) = 1
klp = 13
ini = EstrazioneFin - 100 'imposta l'intervallo di ricerca
fin = EstrazioneFin
co = 0
For es = ini To fin
If IsUltimaDelMese(es) Then
ruote(1) = 1
ruote(2) = 2
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(70,"*") & " Caso n° " & casi,1
Call Scrivi(DataEstrazione(es) & "'INDICE MENSILE------> " & IndiceMensile(es) & "°" & SiglaRuota(1) & " " & StringaEstratti(es,(1)) & " ",- 1,,,2,3)
Call Scrivi(DataEstrazione(es) & "'INDICE MENSILE------> " & IndiceMensile(es) & "°" & SiglaRuota(2) & " " & StringaEstratti(es,(2)) & " ",- 1,,,2,3)
ColoreTesto 1:Scrivi String(70,"*") & " ",1
ColoreTesto 0
Scrivi
nn1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5))'1
ImpostaGiocata 1,nn1,ruote,postee,klp,1
nn2(1) = Fuori90(Estratto(es,1,5) + 1)
nn2(2) = Fuori90(Estratto(es,1,5) - 1)'2
ImpostaGiocata 2,nn2,ruote,postee,klp,1
Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto(,False)
End Sub

 

[869***PPPPLL]

Grazie

 

[Tizi]

Sub Main()
Scrivi
Scrivi " ALLA ULTIMA° ESTRAZIONE MENSILE ",- 1,,,1,3
Scrivi
Scrivi
Scrivi " METODO TIZI",- 1,,,1,3
Scrivi
Dim ruote(10)
Dim nn1(1) : Dim nn2(2) : Dim postee(1)
postee(1) = 1
klp = 13
ini = EstrazioneFin - 100 'imposta l'intervallo di ricerca
fin = EstrazioneFin
co = 0
For es = ini To fin
If IsUltimaDelMese(es) Then
ruote(1) = 1
ruote(2) = 2
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(70,"*") & " Caso n° " & casi,1
Call Scrivi(DataEstrazione(es) & "'INDICE MENSILE------> " & IndiceMensile(es) & "°" & SiglaRuota(1) & " " & StringaEstratti(es,(1)) & " ",- 1,,,2,3)
Call Scrivi(DataEstrazione(es) & "'INDICE MENSILE------> " & IndiceMensile(es) & "°" & SiglaRuota(2) & " " & StringaEstratti(es,(2)) & " ",- 1,,,2,3)
ColoreTesto 1:Scrivi String(70,"*") & " ",1
ColoreTesto 0
Scrivi
nn1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5))'1
ImpostaGiocata 1,nn1,ruote,postee,klp,1
nn2(1) = Fuori90(Estratto(es,1,5) + 1)
nn2(2) = Fuori90(Estratto(es,1,5) - 1)'2
ImpostaGiocata 2,nn2,ruote,postee,klp,1
Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto(,False)
End Sub

Scusate io nn capisco nulla quando postate questi script.... è possibile avere solo i numeri?

Grazieee

 

[80Sete]

Scusate io nn capisco nulla quando postate questi script.... è possibile avere solo i numeri?

Grazieee

Ciao Tizi lo script non sono altro che i tuoi metodi con i tuoi numeri,
vai avanti tranquilla con carta e penna.
Buona domenica

 

[blusolemare]

Ciao,
leggo adesso,
bel metodo Tizi,
grazie ;-)

 

[Tizi]

Buongiorno a tutti,
ambate mese settembre su BA e CA

47/ 49/31

ieri sera Ca 49

 

[Tizi]

Ambate settembre..... BA/CA

31/ 49/ 47

ieri sera 49 CA

 

[trylli]

Grazie mille

 

[Tizi]

CA 31 uscito

 

[ermis]

Ottimo Complimentiiii

 

[lupo bianco]

Sub Main()
Scrivi
Scrivi " ALLA ULTIMA° ESTRAZIONE MENSILE ",- 1,,,1,3
Scrivi
Scrivi
Scrivi " METODO TIZI",- 1,,,1,3
Scrivi
Dim ruote(10)
Dim nn1(1) : Dim nn2(2) : Dim postee(1)
postee(1) = 1
klp = 13
ini = EstrazioneFin - 100 'imposta l'intervallo di ricerca
fin = EstrazioneFin
co = 0
For es = ini To fin
If IsUltimaDelMese(es) Then
ruote(1) = 1
ruote(2) = 2
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(70,"*") & " Caso n° " & casi,1
Call Scrivi(DataEstrazione(es) & "'INDICE MENSILE------> " & IndiceMensile(es) & "°" & SiglaRuota(1) & " " & StringaEstratti(es,(1)) & " ",- 1,,,2,3)
Call Scrivi(DataEstrazione(es) & "'INDICE MENSILE------> " & IndiceMensile(es) & "°" & SiglaRuota(2) & " " & StringaEstratti(es,(2)) & " ",- 1,,,2,3)
ColoreTesto 1:Scrivi String(70,"*") & " ",1
ColoreTesto 0
Scrivi
nn1(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5))'1
ImpostaGiocata 1,nn1,ruote,postee,klp,1
nn2(1) = Fuori90(Estratto(es,1,5) + 1)
nn2(2) = Fuori90(Estratto(es,1,5) - 1)'2
ImpostaGiocata 2,nn2,ruote,postee,klp,1
Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto(,False)
End Sub

ciao per farlo girare su lottodesk cosa bisogna cambiare grazie

 

[trylli]

Nuove 54 ba ça
64-66 ba ça

 

[Tizi]

Uscite 66 e 64

 

[spike]

Complimenti

 

[trylli]

Ora esce 54 state a. Veder…. 💪💪

 

[Tizi]

54 BA