Novità

A volte basta uno script facile per tutti.

Ciao Toon,anche io stavo facendo prove di verifica di CRONOVISORE ODL 2^ versione

VENUS SUD
BA 76.30.49.82.16 ----------------->76.49 E/A
NA 74.41.68.89.31 ----------------->41.89 E/A
PA 61.28.65.45.58 ------------------>45.58 E/A

TUTTA LA SUD ------------------>41.45.49.58.76.89 A/T/Q/C

il tutto a K6 dalla prossima estrazione.
per onestà intellettuale dico che PA ha' già sfornato l'ambo 61.65 al 16/04 ripetendo gli estratti poi 61 al 19/4 e 65 al 23/4........mahhhh ! "e staremo a vedere...."Sono solo studi e prove,a VOI "tutti" le scelte di gioco......SUERTEEEEE !!!!!
Questa è ancora valida...la avevo dimenticata......scusate
 
Eccomi qui.....tempo di merda ....va bè......al pari di qualcuno che qui(Batters)che decise tempo fa'di "regalare" a tutti uno o piu script di ricerca...QUESTO è il MIO REGALO.... CRONOVISORE versione 1....fatene buon uso...settatelo a "sentimento"vostro.....lo script è "guidato".CRONOVISORE nasce nel 2003 su LOTTODEUS (forum ormai scomparso dai monitor) ad opera mia e di DANIEL(Metus dei tempi) e di altri valenti soggetti...(Blackmore,Silent, Vincenzo967,ladyrouge,Erasmus) che ringrazio ancora per gli anni di convivenza ,collaborazione , studio ,amicizia"Guidate la vostra Vista...",Aguzzate il pensiero, Spero di aver fatto cosa gradita,buon "lavoro" :


Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)

poste(1)=1
post(2)=1

ruote(1)=1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k=11'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile (n)=8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub
 
Codice, grazie, Ti ho fatto qualche modifica, guarda se Ti va bene..
Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)
x = CInt(InputBox("Quale ruota per la ricerca?",,1))
x1 = CInt(InputBox("Seconda ruota di gioco",,10))
x2 = CInt(InputBox("Quanti colpi di gioco?",,11))

poste(1)=1
post(2)=1

ruote(1)=x'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=x1'---------------------------------------------------------------------->cambiare qui per ruota scelta
k= x2'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile (n)=8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n,1
End If
Next
ColoreTesto 1:
ScriviResoconto
End Sub
 
Ultima modifica:
Eccomi qui.....tempo di merda ....va bè......al pari di qualcuno che qui(Batters)che decise tempo fa'di "regalare" a tutti uno o piu script di ricerca...QUESTO è il MIO REGALO.... CRONOVISORE versione 1....fatene buon uso...settatelo a "sentimento"vostro.....lo script è "guidato".CRONOVISORE nasce nel 2003 su LOTTODEUS (forum ormai scomparso dai monitor) ad opera mia e di DANIEL(Metus dei tempi) e di altri valenti soggetti...(Blackmore,Silent, Vincenzo967,ladyrouge,Erasmus) che ringrazio ancora per gli anni di convivenza ,collaborazione , studio ,amicizia"Guidate la vostra Vista...",Aguzzate il pensiero, Spero di aver fatto cosa gradita,buon "lavoro" :


Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)

poste(1)=1
post(2)=1

ruote(1)=1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k=11'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile (n)=8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub
Grazie
 
Inserisco le nuove previsioni solo Bari le altre in corso Firenze Venezia Milano ultimo colpo.
Quelle con il doppio (*) sono i piu'probabili ,Non bisogna giocarle tutte,basta saper scegliere con le vostre convergenze.
Moderazione sempre!!!

Vedi l'allegato 2282899
lottoced Bari 7 colpi.PNG
Abbiamo sfiorato molti ambi per colpa dei laterali,e quel 78 colpa mia,sapevo che era ancora pronto,ma va' cosi la vita.
 
Codice, grazie, Ti ho fatto qualche modifica, guarda se Ti va bene..
Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)
x = CInt(InputBox("Quale ruota per la ricerca?",,1))
x1 = CInt(InputBox("Seconda ruota di gioco",,10))
x2 = CInt(InputBox("Quanti colpi di gioco?",,11))

poste(1)=1
post(2)=1

ruote(1)=x'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=x1'---------------------------------------------------------------------->cambiare qui per ruota scelta
k= x2'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile (n)=8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n,1
End If
Next
ColoreTesto 1:
ScriviResoconto
End Sub
grazie Toon! é da sempre che,non sò perchè BA-VE hanno rispondenze positive...Ma ,se andiamo a guardare i responsi,quali sono qelli che rispondono ai colpi scelti?Mi spiego meglio,quale è il "ritardo" che meglio risponde ?
ed e' questa domanda che siamo partiti con i vari "CRONOVISORI"......da qui ho' fatto mille e milleprove usando diversi metodi....oggi sono arrivato al 6°CRONOVISORE usando frequenze,presenze,indici di probabilita calcolati su varie equazioni...ma non mi arrendo......
 
grazie Toon! é da sempre che,non sò perchè BA-VE hanno rispondenze positive...Ma ,se andiamo a guardare i responsi,quali sono qelli che rispondono ai colpi scelti?Mi spiego meglio,quale è il "ritardo" che meglio risponde ?
ed e' questa domanda che siamo partiti con i vari "CRONOVISORI"......da qui ho' fatto mille e milleprove usando diversi metodi....oggi sono arrivato al 6°CRONOVISORE usando frequenze,presenze,indici di probabilita calcolati su varie equazioni...ma non mi arrendo......
GIAMMAI...."e staremo a vedere"....
 
proseguiamo....IN REALTA' queste sono state calcolate con l'estrazione di oggi....ma sono stato pigro,e quindi qualcosa e già uscito----in rosso i sortiti

BA 60.1.58
CA 56.52.78
FI 76.90.75
GE 16.84.57
MI 15.45.20 - MI 66.81-------------------> aggiunta il 19/4--------------------->la mia preferita
NA 83.65.45
PA 65.52.76
RM 6.67.79
TO 47.52.22
VE 26.27.35 - VE 48.62--------------------> aggiunta il 19/4-------------------->la mia preferita
NZ 11.12.89

Fate attenzionie ai sortiti nelle ruote....sono sortiti un sacco di vertibili...e in genere poi sortiscono i lottroni previsti........

sono tutte ambate 3x1.....a 5K. Scusate se non sono stato lesto al postarle..."by the way" le ambate "viste" sono i primi 2 numeri della terzina...il terzo numererello è in accompagno all'ambo.....FATE IL VOSTRO GIOCO....

aggiornato al 19/4 ore 20,25 K2
aggiornato al 21/4 ore 14,20 K3
aggiornato al 24/4 ore 14,35 K4
aggiornato al 26/4 ore 20,45 K5
aggiornato al 27/4 ore 21,25 Kx prima estrazione fuori i K5 ancora 1

Porca trota.....e continuano a girarci intorno...QUESTA DEVE DARMI L'AMBO!!!!!!!!!!!!!!!!!!!!!!!!!!
 
Ultima modifica:
Eccomi qui.....tempo di merda ....va bè......al pari di qualcuno che qui(Batters)che decise tempo fa'di "regalare" a tutti uno o piu script di ricerca...QUESTO è il MIO REGALO.... CRONOVISORE versione 1....fatene buon uso...settatelo a "sentimento"vostro.....lo script è "guidato".CRONOVISORE nasce nel 2003 su LOTTODEUS (forum ormai scomparso dai monitor) ad opera mia e di DANIEL(Metus dei tempi) e di altri valenti soggetti...(Blackmore,Silent, Vincenzo967,ladyrouge,Erasmus) che ringrazio ancora per gli anni di convivenza ,collaborazione , studio ,amicizia"Guidate la vostra Vista...",Aguzzate il pensiero, Spero di aver fatto cosa gradita,buon "lavoro" :


Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)

poste(1)=1
post(2)=1

ruote(1)=1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2)=10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k=11'----------------------------------------------------------------------------->cambiare qui per i colpi

For n=10145 To EstrazioneFin
If IndiceMensile (n)=8 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1)=Fuori90(Estratto(n,3,4)+Estratto(n,1,5)-1)
rt=SerieRitardo (n-252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è "& rt &" Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub
si potrebbe portare lo script al quasi 95% con un solo caso negativo cambiando 2 parametri di ricerca.
 
si potrebbe portare lo script al quasi 95% con un solo caso negativo cambiando 2 parametri di ricerca.
Buongiorno batters,Toon,buongiorno a "tutti gli abitanti del 3d".Come anticipato,lo script postato si presta a svariate condizioni di ricerca...se qualcuno ha' idee diverse dei settaggi ottimali ben vengano.
tra l'altro,da qualche parte dovrei avere anche la versione a piu ruote(fino a 5)...se lo ritrovo in mezzo a decine chiavette di script lo posto...Ora buon pranzo a tutti.A dopo.....
 
Un regalo a Tutti gli amanti dell'Ambata...
Buona Domenica a Codice , Missione e Tutti quelli che ci seguono..
;)
Option Explicit
Sub Main
'Ambata su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a
Dim Nu(20),Num(10),poste(5),R1,R3
poste(1) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
EliminaRipetuti Num
'---
Scrivi DataEstrazione(Es) & " Spia " & Nu(1) & " Ambata " & Nu(2),1
'--
ImpostaGiocata 1,Num,R,poste,18
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub
 
X Codice e toon e tutti.
Provate questa impostazione se va bene.

Sub Main()
Dim ruote(11)
Dim a1(1),a2(2)
Dim poste(1),post(2)

poste(1) = 1
post(2) = 1

ruote(1) = 1'----------------------------------------------------------------------->cambiare qui per ruota scelta
ruote(2) = 10'---------------------------------------------------------------------->cambiare qui per ruota scelta
k = 15'----------------------------------------------------------------------------->cambiare qui per i colpi

For n = 10145 To EstrazioneFin
If IndiceMensile(n) = 1 Then'------------------------------------------------------->cambiare qui per indice mensile

a1(1) = Fuori90(Estratto(n,3,4) + Estratto(n,2,5) + 12)
rt = SerieRitardo(n - 252,n,a1,ruote,1)'----------------------------------------------> cambiare qui per ricerca in X estrazioni(in questo caso 252)
Scrivi " Ritardo di Ambata nella ruote selezionate è " & rt & " Estrazioni"
ImpostaGiocata 1,a1,ruote,poste,k,1
Gioca n
End If
Next
ColoreTesto 7:
ScriviResoconto
End Sub
 
Un regalo a Tutti gli amanti dell'Ambata...
Buona Domenica a Codice , Missione e Tutti quelli che ci seguono..
;)
Option Explicit
Sub Main
'Ambata su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a
Dim Nu(20),Num(10),poste(5),R1,R3
poste(1) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
EliminaRipetuti Num
'---
Scrivi DataEstrazione(Es) & " Spia " & Nu(1) & " Ambata " & Nu(2),1
'--
ImpostaGiocata 1,Num,R,poste,18
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub
grazie Toon !
 
Un regalo a Tutti gli amanti dell'Ambata...
Buona Domenica a Codice , Missione e Tutti quelli che ci seguono..
;)
Option Explicit
Sub Main
'Ambata su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a
Dim Nu(20),Num(10),poste(5),R1,R3
poste(1) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
EliminaRipetuti Num
'---
Scrivi DataEstrazione(Es) & " Spia " & Nu(1) & " Ambata " & Nu(2),1
'--
ImpostaGiocata 1,Num,R,poste,18
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub
Grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 04 febbraio 2025
    Bari
    49
    67
    39
    89
    68
    Cagliari
    30
    23
    16
    05
    90
    Firenze
    20
    33
    60
    73
    87
    Genova
    59
    10
    18
    48
    51
    Milano
    18
    86
    71
    70
    32
    Napoli
    54
    43
    50
    65
    76
    Palermo
    63
    06
    75
    80
    25
    Roma
    08
    09
    14
    46
    06
    Torino
    55
    20
    17
    23
    80
    Venezia
    19
    81
    40
    77
    28
    Nazionale
    50
    89
    12
    80
    52
    Estrazione Simbolotto
    Cagliari
    04
    10
    21
    16
    35
Indietro
Alto