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ì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16

Ultimi Messaggi

Indietro
Alto