Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
R
Roby
Guest
Janez nel tuo non c'è perché ho usato un altro programma per mettere il resoconto
Un grazie a Mike
E un saluto al nuovo arrivato, il grande Ronnie
Ultima modifica:
Codice:
Sub Main()
ColoreTesto 1
Scrivi "====================================== M E T O D O BY VECCHIONE ANTONIO =======================================",1
ColoreTesto 0
Scrivi "=========================== Due numeri per ambo da giocare sulla ruota di Bari e Tutte ============================",1
ColoreTesto 1
Scrivi "================================================= Si gioca per 18 colpi ===========================================",1
ColoreTesto 0
Scrivi "=========================== Non si gioca l'ambo i cui numeri costituenti siano eguali tra di loro. ===============",1
ColoreTesto 1
Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
ColoreTesto 0
Scrivi "================================ A posta fissa o in progressione scegliete voi ====================================",1
ColoreTesto 1
Scrivi "========================================== LISTATO BY ELBAZ ==================================================",1
Scrivi
ColoreTesto 0
Dim rt(1),pt(2),n1(2)
pt(2) = 1
clp = 18 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = EstrazioneFin - 39
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 2 Then '2 Estrazione del mese
n1(01) = Fuori90(Estratto(es,2,1) + 11) ' 1 Cagliari
n1(02) = Fuori90(Estratto(es,1,5) + 7) ' 5 Bari
co = co + 1
Scrivi String(60,"=") & " Caso n° " & co,1
ImpostaGiocata 1,n1,rt,pt,clp,2
Gioca es
End If
Next
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
TestoInBandaPassante " ***** Da utilizzare previo verifica di un bravo scripter *****",1,4,0
ScriviResoconto
End Sub
B
Baffoblu
Guest
Elbaz, lo avevo visto questo metodo. e avevo fatto lo script solo per curiosità, il tuo ricava i numeri giusti, solo devi aggiustare quando posti il codice, in modo che sia più uniforme.
Comunque lo analizzato dal 2005 e su 74 casi solo 8 sono risultati positivi entro i 18 colpi.
Ho modificato il range di ricerca :
Codice:
Sub Main()
ColoreTesto 1
Scrivi "====================================== M E T O D O BY VECCHIONE ANTONIO =======================================",1
ColoreTesto 0
Scrivi "=========================== Due numeri per ambo da giocare sulla ruota di Bari e Tutte ============================",1
ColoreTesto 1
Scrivi "================================================= Si gioca per 18 colpi ===========================================",1
ColoreTesto 0
Scrivi "=========================== Non si gioca l'ambo i cui numeri costituenti siano eguali tra di loro. ===============",1
ColoreTesto 1
Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
ColoreTesto 0
Scrivi "================================ A posta fissa o in progressione scegliete voi ====================================",1
ColoreTesto 1
Scrivi "========================================== LISTATO BY ELBAZ ==================================================",1
Scrivi
ColoreTesto 0
Dim rt(1),pt(2),n1(2)
pt(2) = 1
clp = 18 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = 7510
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 2 Then '2 Estrazione del mese
n1(01) = Fuori90(Estratto(es,2,1) + 11) ' 1 Cagliari
n1(02) = Fuori90(Estratto(es,1,5) + 7) ' 5 Bari
co = co + 1
Scrivi String(60,"=") & " Caso n° " & co,1
ImpostaGiocata 1,n1,rt,pt,clp,2
Gioca es
End If
Next
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
TestoInBandaPassante " ***** Da utilizzare previo verifica di un bravo scripter *****",1,4,0
ScriviResoconto
End SubCiao.
Posto qui per non aprire una nuova discussione anche se Blackmore aveva detto di utilizzarlo solo per postare script. (Ho visto comunque che anche qui si fanno richieste).
Sempre che non si possa già fare in spaziometria mi piacerebbe fare uno script che analizzi un certo numero di cicli di un certo numero di estrazioni su una data ruota.
Mi spiego:
Input: Numero di cicli da analizzare
Input :Numero di estrazioni per ciclo
Input :Ruota da analizzare
a questo punto vorrei vedere per ciascun ciclo tutti i numeri usciti escluse le ripetizioni (es: 1.2.3.4.5.6.6.7.7.8.9. quindi 1.2.3.4.5.6.7.8.9) in una forma rapidamente comprensibile tipo
RUOTA DI TORINO 1 ciclo analizzato - ciclo di 14 estrazioni dal xx-xx-xxxx al xx-xx-xxx
NUMERI USCITI IN QUESTO CICLO SENZA RIPETIZIONI:
01.02.03.
56.
78.
89 ECT.
magari su più righe che corrispondano a decine diverse;
poi estrazione per estrazione raggruppati in ciclo tutti i numeri usciti con evidenziati quelli sortiti da 2 ad n volte magari con un colore diverso a seconda delle volte cui sono apparsi
(es.
xx-xx-xxxx estrazione n.yyyy 14.56.25.89.69
xx-xx-xxxx estrazione n.yyyy 89.87.54.36.76
xx-xx-xxxx estrazione n.yyyy 14.11.89.37.01 )
alla fine di questo schema un breve report che evidenzi i numeri usciti più di una volta
(es.
14 uscito 2 volte
89 uscito 2 volte
02 uscite 5 volte )
poi un resoconto rapido con le caratteristiche del primo cioè in righe per ciascuna decina
dei numeri che non sono usciti. (Mi piacerebbe che avessero anche il ritardo ma forse qui è un po' complicato)
Se mi puoi aiutare perché non sono capace.
Grazie.
Posto qui per non aprire una nuova discussione anche se Blackmore aveva detto di utilizzarlo solo per postare script. (Ho visto comunque che anche qui si fanno richieste).
Sempre che non si possa già fare in spaziometria mi piacerebbe fare uno script che analizzi un certo numero di cicli di un certo numero di estrazioni su una data ruota.
Mi spiego:
Input: Numero di cicli da analizzare
Input :Numero di estrazioni per ciclo
Input :Ruota da analizzare
a questo punto vorrei vedere per ciascun ciclo tutti i numeri usciti escluse le ripetizioni (es: 1.2.3.4.5.6.6.7.7.8.9. quindi 1.2.3.4.5.6.7.8.9) in una forma rapidamente comprensibile tipo
RUOTA DI TORINO 1 ciclo analizzato - ciclo di 14 estrazioni dal xx-xx-xxxx al xx-xx-xxx
NUMERI USCITI IN QUESTO CICLO SENZA RIPETIZIONI:
01.02.03.
56.
78.
89 ECT.
magari su più righe che corrispondano a decine diverse;
poi estrazione per estrazione raggruppati in ciclo tutti i numeri usciti con evidenziati quelli sortiti da 2 ad n volte magari con un colore diverso a seconda delle volte cui sono apparsi
(es.
xx-xx-xxxx estrazione n.yyyy 14.56.25.89.69
xx-xx-xxxx estrazione n.yyyy 89.87.54.36.76
xx-xx-xxxx estrazione n.yyyy 14.11.89.37.01 )
alla fine di questo schema un breve report che evidenzi i numeri usciti più di una volta
(es.
14 uscito 2 volte
89 uscito 2 volte
02 uscite 5 volte )
poi un resoconto rapido con le caratteristiche del primo cioè in righe per ciascuna decina
dei numeri che non sono usciti. (Mi piacerebbe che avessero anche il ritardo ma forse qui è un po' complicato)
Se mi puoi aiutare perché non sono capace.
Grazie.
Ultima modifica:
B
Baffoblu
Guest
Nemmeno io lo sono, chiedi a quelli più esperti
ciao
ciao
R
Roby
Guest
Anche stasera lo script "Ambata su Roma" ha fatto centro con l'uscita del 54
http://img830.imageshack.us/img830/4173/romai.jpg
http://img830.imageshack.us/img830/4173/romai.jpg
Ultima modifica:
marpioncella
Super Member >GOLD<
Ciao Blackmore, grazie per il tuo impegno e l'aiuto che offri a tutti.
Ti volevo segnalare che i primi 3 script di questo post a pag 1 danno errore su spaziometria.
Vedi tu
Ciao e Auguri di Buone Feste
Ti volevo segnalare che i primi 3 script di questo post a pag 1 danno errore su spaziometria.
Vedi tu
Ciao e Auguri di Buone Feste
Listato Teosofico
Sub Main()
Scrivi : ColoreTesto 1 : Scrivi"BA-CA teoria teosofica alla 12° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(2),pt(1),poste(3)
Dim ambata(1)
Dim ambo(6)
pt(1) = 1
poste(2) = 3
poste(3) = 1
clp = 12
rt(1) = 1
rt(2) = 2
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 12 Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a1 = Estratto(es,1,1)
a2 = Estratto(es,1,2)
a3 = Estratto(es,1,3)
a4 = Estratto(es,1,4)
a5 = Estratto(es,1,5)
b1 = Estratto(es,2,1)
b2 = Estratto(es,2,2)
b3 = Estratto(es,2,3)
b4 = Estratto(es,2,4)
b5 = Estratto(es,2,5)
c1 = Figura(a1)
c2 = Figura(a2)
c3 = Figura(a3)
c4 = Figura(a4)
c5 = Figura(c5)
d1 = Figura(b1)
d2 = Figura(b2)
d3 = Figura(b3)
d4 = Figura(b4)
d5 = Figura(b5)
d = Figura((c1) +(c2) + (c3) +(c4) +(c5))
e = Figura((d1) +(d2) + (d3) +(d4) +(d5))
f =(d & e)
g1 = Fuori90(c1 & d1)
g2 = Fuori90(c2 & d2)
g3 = Fuori90(c3 & d3)
g4 = Fuori90(c4 & d4)
g5 = Fuori90(c5 & d5)
ambata(1) = f
ambo(1) = g1
ambo(2) = g2
ambo(3) = g3
ambo(4) = g4
ambo(5) = g5
ImpostaGiocata 1,ambata,rt,pt,clp,1
ImpostaGiocata 2,ambo,rt,poste,clp,2
Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub
Sub Main()
Scrivi : ColoreTesto 1 : Scrivi"BA-CA teoria teosofica alla 12° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(2),pt(1),poste(3)
Dim ambata(1)
Dim ambo(6)
pt(1) = 1
poste(2) = 3
poste(3) = 1
clp = 12
rt(1) = 1
rt(2) = 2
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 12 Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a1 = Estratto(es,1,1)
a2 = Estratto(es,1,2)
a3 = Estratto(es,1,3)
a4 = Estratto(es,1,4)
a5 = Estratto(es,1,5)
b1 = Estratto(es,2,1)
b2 = Estratto(es,2,2)
b3 = Estratto(es,2,3)
b4 = Estratto(es,2,4)
b5 = Estratto(es,2,5)
c1 = Figura(a1)
c2 = Figura(a2)
c3 = Figura(a3)
c4 = Figura(a4)
c5 = Figura(c5)
d1 = Figura(b1)
d2 = Figura(b2)
d3 = Figura(b3)
d4 = Figura(b4)
d5 = Figura(b5)
d = Figura((c1) +(c2) + (c3) +(c4) +(c5))
e = Figura((d1) +(d2) + (d3) +(d4) +(d5))
f =(d & e)
g1 = Fuori90(c1 & d1)
g2 = Fuori90(c2 & d2)
g3 = Fuori90(c3 & d3)
g4 = Fuori90(c4 & d4)
g5 = Fuori90(c5 & d5)
ambata(1) = f
ambo(1) = g1
ambo(2) = g2
ambo(3) = g3
ambo(4) = g4
ambo(5) = g5
ImpostaGiocata 1,ambata,rt,pt,clp,1
ImpostaGiocata 2,ambo,rt,poste,clp,2
Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub
gennaro
Senior Member
Ciao Antelao, ma e' voluto o e' un refuso di battitura?
R
Roby
Guest
Ciao Blackmore, grazie per il tuo impegno e l'aiuto che offri a tutti.
Ti volevo segnalare che i primi 3 script di questo post a pag 1 danno errore su spaziometria.
Vedi tu
Ciao e Auguri di Buone Feste
Ciao Marpioncella, da quando c'è il nuovo forum, molti script devono essere riformattati
Prova qui, ci sono altri script sulle spie
Auguri anche a te
http://forum.lottoced.com/f12/raccolta-listati-spie-4117/
BARI (4° del mese)
Sub Main()Scrivi : ColoreTesto 1 : Scrivi"1 ambata e 4 ambi su BA alla 4° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(2)
Dim ambo1
Dim ambo2
Dim ambo3
Dim ambo4
Dim ambata(1)
Dim posta(1)
pt(2) = 1
posta(1) = 1
clp = 9 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 4 Then '4° estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,3,2)
b = Estratto(es,8,1)
c = Estratto(es,8,4)
d = Estratto(es,5,5)
e = Estratto(es,7,2)
f = Fuori90(a + 77)
g = Fuori90(b + 18)
h = Fuori90(c + 21)
i = Fuori90(d + 30)
l = Fuori90(e + 13)
ambata(1) = f
ambo1 = Array(f,g)
ambo2 = Array(f,h)
ambo3 = Array(f,i)
ambo4 = Array(f,l)
ImpostaGiocata 1,ambata,rt,posta,clp,2
ImpostaGiocata 2,ambo1,rt,pt,clp,2
ImpostaGiocata 3,ambo2,rt,pt,clp,1
ImpostaGiocata 4,ambo3,rt,pt,clp,1
ImpostaGiocata 5,ambo4,rt,pt,clp,1
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub
Sub Main()Scrivi : ColoreTesto 1 : Scrivi"1 ambata e 4 ambi su BA alla 4° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(2)
Dim ambo1
Dim ambo2
Dim ambo3
Dim ambo4
Dim ambata(1)
Dim posta(1)
pt(2) = 1
posta(1) = 1
clp = 9 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 4 Then '4° estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,3,2)
b = Estratto(es,8,1)
c = Estratto(es,8,4)
d = Estratto(es,5,5)
e = Estratto(es,7,2)
f = Fuori90(a + 77)
g = Fuori90(b + 18)
h = Fuori90(c + 21)
i = Fuori90(d + 30)
l = Fuori90(e + 13)
ambata(1) = f
ambo1 = Array(f,g)
ambo2 = Array(f,h)
ambo3 = Array(f,i)
ambo4 = Array(f,l)
ImpostaGiocata 1,ambata,rt,posta,clp,2
ImpostaGiocata 2,ambo1,rt,pt,clp,2
ImpostaGiocata 3,ambo2,rt,pt,clp,1
ImpostaGiocata 4,ambo3,rt,pt,clp,1
ImpostaGiocata 5,ambo4,rt,pt,clp,1
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub
Ultima modifica:
BARI (2° del mese)
Sub Main()Scrivi : ColoreTesto 1 : Scrivi"1 ambata e 4 ambi su BA alla 2° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(2)
Dim ambo1
Dim ambo2
Dim ambo3
Dim ambo4
Dim ambata(1)
Dim posta(1)
pt(2) = 1
posta(1) = 1
clp = 9 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 2 Then '2° estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,4,2)
b = Estratto(es,5,1)
c = Estratto(es,9,3)
d = Estratto(es,12,3)
e = Estratto(es,10,1)
f = Fuori90(a + 10)
g = Fuori90(b + 45)
h = Fuori90(c + 26)
i = Fuori90(d + 29)
l = Fuori90(e + 33)
ambata(1) = f
ambo1 = Array(f,g)
ambo2 = Array(f,h)
ambo3 = Array(f,i)
ambo4 = Array(f,l)
ImpostaGiocata 1,ambata,rt,posta,clp,1
ImpostaGiocata 2,ambo1,rt,pt,clp,2
ImpostaGiocata 3,ambo2,rt,pt,clp,2
ImpostaGiocata 4,ambo3,rt,pt,clp,2
ImpostaGiocata 5,ambo4,rt,pt,clp,2
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
Sub Main()Scrivi : ColoreTesto 1 : Scrivi"1 ambata e 4 ambi su BA alla 2° del mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(2)
Dim ambo1
Dim ambo2
Dim ambo3
Dim ambo4
Dim ambata(1)
Dim posta(1)
pt(2) = 1
posta(1) = 1
clp = 9 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 2 Then '2° estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(es,4,2)
b = Estratto(es,5,1)
c = Estratto(es,9,3)
d = Estratto(es,12,3)
e = Estratto(es,10,1)
f = Fuori90(a + 10)
g = Fuori90(b + 45)
h = Fuori90(c + 26)
i = Fuori90(d + 29)
l = Fuori90(e + 33)
ambata(1) = f
ambo1 = Array(f,g)
ambo2 = Array(f,h)
ambo3 = Array(f,i)
ambo4 = Array(f,l)
ImpostaGiocata 1,ambata,rt,posta,clp,1
ImpostaGiocata 2,ambo1,rt,pt,clp,2
ImpostaGiocata 3,ambo2,rt,pt,clp,2
ImpostaGiocata 4,ambo3,rt,pt,clp,2
ImpostaGiocata 5,ambo4,rt,pt,clp,2
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
R
Roby
Guest
Ciao, mentre riordinavo i listati, mi è capitato tra le mani, lo script su Roma (1 ambata dopo ambo spia)
e vedendo che funzionava ancora, ho deciso di riaggiornare un po di metodi all'interno (soprattutto quelli negativi)
Questo è il listato aggiornato..... per gli amanti dell'ambata
Ciao
e vedendo che funzionava ancora, ho deciso di riaggiornare un po di metodi all'interno (soprattutto quelli negativi)
Questo è il listato aggiornato..... per gli amanti dell'ambata
Ciao
Codice:
Sub Main()
TestoInBandaPassante "*************************** AGGIORNATO AL 20/02/2012 ***************************",1,1,5
Scrivi
ColoreTesto 1
Scrivi "===== M E T O D I. S O M M A T I V I. B Y. B L A C K M O R E ======",1
ColoreTesto 0
Scrivi " ------------------------------------------------------------------",1
ColoreTesto 1
Scrivi "================ U N _ A M B A T A _ S U _ R O M A ================",1
ColoreTesto 0
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 1
Scrivi "====== INIZIO RICERCA: 30/01/1993 - FINE RICERCA: 19/11/2011 ======",1
ColoreTesto 0
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 1
Scrivi "=================== AMBI SPIA ANALIZZATI: 100 =====================",1
ColoreTesto 0
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 1
Scrivi "======= SI_RACCOMANDA_LA_MASSIMA_MODERAZIONE_NELLE_GIOCATE ========",1
ColoreTesto 0
Scrivi "-------------------------------------------------------------------",1
Scrivi
Dim ruota(1)
Dim ambata(1)
Dim num(1)
Dim posta(10)
Dim r(1)
posta(1) = 2
k = 9
ini = EstrazioneFin - 2098
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
r(1) = 8
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,8,p)
b = Estratto(es,8,p1)
ok = 0
'--------------------------------------------------
If a = 47 And b = 80 Or a = 80 And b = 47 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 47)
ok = 1
End If
If a = 17 And b = 31 Or a = 31 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 25)
ok = 1
End If
If a = 44 And b = 74 Or a = 74 And b = 44 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 55)
ok = 1
End If
If a = 72 And b = 77 Or a = 77 And b = 72 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 32)
ok = 1
End If
If a = 32 And b = 84 Or a = 84 And b = 32 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 36)
ok = 1
End If
If a = 23 And b = 47 Or a = 47 And b = 23 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 84)
ok = 1
End If
If a = 27 And b = 41 Or a = 41 And b = 27 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 48)
ok = 1
End If
If a = 13 And b = 80 Or a = 80 And b = 13 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 14)
ok = 1
End If
If a = 03 And b = 30 Or a = 30 And b = 03 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 22)
ok = 1
End If
If a = 39 And b = 50 Or a = 50 And b = 39 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 31)
ok = 1
End If
If a = 41 And b = 57 Or a = 57 And b = 41 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 53)
ok = 1
End If
If a = 46 And b = 64 Or a = 64 And b = 46 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 63)
ok = 1
End If
If a = 38 And b = 83 Or a = 83 And b = 38 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 86)
ok = 1
End If
If a = 50 And b = 90 Or a = 90 And b = 50 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 25)
ok = 1
End If
If a = 18 And b = 80 Or a = 80 And b = 18 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 20)
ok = 1
End If
If a = 33 And b = 56 Or a = 56 And b = 33 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 28)
ok = 1
End If
If a = 20 And b = 75 Or a = 75 And b = 20 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 23)
ok = 1
End If
If a = 03 And b = 73 Or a = 73 And b = 03 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 27)
ok = 1
End If
If a = 86 And b = 87 Or a = 87 And b = 86 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 54)
ok = 1
End If
If a = 22 And b = 76 Or a = 76 And b = 22 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 74)
ok = 1
End If
If a = 70 And b = 76 Or a = 76 And b = 70 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 49)
ok = 1
End If
If a = 53 And b = 57 Or a = 57 And b = 53 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 27)
ok = 1
End If
If a = 17 And b = 30 Or a = 30 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 28)
ok = 1
End If
If a = 34 And b = 49 Or a = 49 And b = 34 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 77)
ok = 1
End If
If a = 10 And b = 86 Or a = 86 And b = 10 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 20)
ok = 1
End If
If a = 32 And b = 71 Or a = 71 And b = 32 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 34)
ok = 1
End If
If a = 17 And b = 51 Or a = 51 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 24)
ok = 1
End If
If a = 56 And b = 57 Or a = 57 And b = 56 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 66)
ok = 1
End If
If a = 04 And b = 81 Or a = 81 And b = 04 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 47)
ok = 1
End If
If a = 72 And b = 83 Or a = 83 And b = 72 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 53)
ok = 1
End If
If a = 37 And b = 56 Or a = 56 And b = 37 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 51)
ok = 1
End If
If a = 59 And b = 78 Or a = 78 And b = 59 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 29)
ok = 1
End If
If a = 25 And b = 68 Or a = 68 And b = 25 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 48)
ok = 1
End If
If a = 05 And b = 36 Or a = 36 And b = 05 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 57)
ok = 1
End If
If a = 26 And b = 67 Or a = 67 And b = 26 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 71)
ok = 1
End If
If a = 53 And b = 66 Or a = 66 And b = 53 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 73)
ok = 1
End If
If a = 70 And b = 77 Or a = 77 And b = 70 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 54)
ok = 1
End If
If a = 24 And b = 65 Or a = 65 And b = 24 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 47)
ok = 1
End If
If a = 35 And b = 50 Or a = 50 And b = 35 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 32)
ok = 1
End If
If a = 74 And b = 76 Or a = 76 And b = 74 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 41)
ok = 1
End If
If a = 07 And b = 78 Or a = 78 And b = 07 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 62)
ok = 1
End If
If a = 07 And b = 88 Or a = 88 And b = 07 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 34)
ok = 1
End If
If a = 29 And b = 61 Or a = 61 And b = 29 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 18)
ok = 1
End If
If a = 38 And b = 54 Or a = 54 And b = 38 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 76)
ok = 1
End If
If a = 69 And b = 76 Or a = 76 And b = 69 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 24)
ok = 1
End If
If a = 01 And b = 08 Or a = 08 And b = 01 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 33)
ok = 1
End If
If a = 40 And b = 64 Or a = 64 And b = 40 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 20)
ok = 1
End If
If a = 20 And b = 77 Or a = 77 And b = 20 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 25)
ok = 1
End If
If a = 48 And b = 83 Or a = 83 And b = 48 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 18)
ok = 1
End If
If a = 13 And b = 58 Or a = 58 And b = 13 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 41)
ok = 1
End If
If a = 22 And b = 48 Or a = 48 And b = 22 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 63)
ok = 1
End If
If a = 17 And b = 73 Or a = 73 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 37)
ok = 1
End If
If a = 28 And b = 43 Or a = 43 And b = 28 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 19)
ok = 1
End If
If a = 12 And b = 49 Or a = 49 And b = 12 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 40)
ok = 1
End If
If a = 17 And b = 52 Or a = 52 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 81)
ok = 1
End If
If a = 29 And b = 75 Or a = 75 And b = 29 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 48)
ok = 1
End If
If a = 22 And b = 89 Or a = 89 And b = 22 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 24)
ok = 1
End If
If a = 23 And b = 35 Or a = 35 And b = 23 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 31)
ok = 1
End If
If a = 47 And b = 58 Or a = 58 And b = 47 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 22)
ok = 1
End If
If a = 02 And b = 41 Or a = 41 And b = 02 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 69)
ok = 1
End If
If a = 31 And b = 79 Or a = 79 And b = 31 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 62)
ok = 1
End If
If a = 11 And b = 28 Or a = 28 And b = 11 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 16)
ok = 1
End If
If a = 36 And b = 39 Or a = 39 And b = 36 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 52)
ok = 1
End If
If a = 02 And b = 26 Or a = 26 And b = 02 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 55)
ok = 1
End If
If a = 47 And b = 50 Or a = 50 And b = 47 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 33)
ok = 1
End If
If a = 17 And b = 88 Or a = 88 And b = 17 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 24)
ok = 1
End If
If a = 18 And b = 34 Or a = 34 And b = 18 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 53)
ok = 1
End If
If a = 48 And b = 70 Or a = 70 And b = 48 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 56)
ok = 1
End If
If a = 01 And b = 65 Or a = 65 And b = 01 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 31)
ok = 1
End If
If a = 10 And b = 41 Or a = 41 And b = 10 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 45)
ok = 1
End If
If a = 37 And b = 81 Or a = 81 And b = 37 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 47)
ok = 1
End If
If a = 05 And b = 69 Or a = 69 And b = 05 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 29)
ok = 1
End If
If a = 04 And b = 76 Or a = 76 And b = 04 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 41)
ok = 1
End If
If a = 01 And b = 27 Or a = 27 And b = 01 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 24)
ok = 1
End If
If a = 43 And b = 72 Or a = 72 And b = 43 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 39)
ok = 1
End If
If a = 28 And b = 68 Or a = 68 And b = 28 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 46)
ok = 1
End If
If a = 08 And b = 58 Or a = 58 And b = 08 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 78)
ok = 1
End If
If a = 48 And b = 55 Or a = 55 And b = 48 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 20)
ok = 1
End If
If a = 23 And b = 74 Or a = 74 And b = 23 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 12)
ok = 1
End If
If a = 11 And b = 60 Or a = 60 And b = 11 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 34)
ok = 1
End If
If a = 03 And b = 28 Or a = 28 And b = 03 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 26)
ok = 1
End If
If a = 42 And b = 71 Or a = 71 And b = 42 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 56)
ok = 1
End If
If a = 10 And b = 48 Or a = 48 And b = 10 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 51)
ok = 1
End If
If a = 34 And b = 66 Or a = 66 And b = 34 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 73)
ok = 1
End If
If a = 07 And b = 24 Or a = 24 And b = 07 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 19)
ok = 1
End If
If a = 09 And b = 40 Or a = 40 And b = 09 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 34)
ok = 1
End If
If a = 03 And b = 90 Or a = 90 And b = 03 Then
ambata(1) = Fuori90(Estratto(es,r(1),4) + 25)
ok = 1
End If
If a = 76 And b = 90 Or a = 90 And b = 76 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 14)
ok = 1
End If
If a = 13 And b = 72 Or a = 72 And b = 13 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 19)
ok = 1
End If
If a = 30 And b = 87 Or a = 87 And b = 30 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 40)
ok = 1
End If
If a = 49 And b = 82 Or a = 82 And b = 49 Then
ambata(1) = Fuori90(Estratto(es,r(1),3) + 77)
ok = 1
End If
If a = 45 And b = 75 Or a = 75 And b = 45 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 39)
ok = 1
End If
If a = 23 And b = 56 Or a = 56 And b = 23 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 27)
ok = 1
End If
If a = 45 And b = 64 Or a = 64 And b = 45 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 38)
ok = 1
End If
If a = 31 And b = 78 Or a = 78 And b = 31 Then
ambata(1) = Fuori90(Estratto(es,r(1),1) + 36)
ok = 1
End If
If a = 09 And b = 12 Or a = 12 And b = 09 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 30)
ok = 1
End If
If a = 22 And b = 90 Or a = 90 And b = 22 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 23)
ok = 1
End If
If a = 49 And b = 76 Or a = 76 And b = 49 Then
ambata(1) = Fuori90(Estratto(es,r(1),2) + 14)
ok = 1
End If
If a = 42 And b = 82 Or a = 82 And b = 42 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 59)
ok = 1
End If
If a = 13 And b = 27 Or a = 27 And b = 13 Then
ambata(1) = Fuori90(Estratto(es,r(1),5) + 46)
ok = 1
End If
'--------------------------------------------------
If ok = 1 Then
co = co + 1
ColoreTesto 0
Scrivi String(90,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " * " & NomeRuota(8) & " * " & StringaEstratti(es,8) & " * AMBO SPIA * " & a & "-" & b,1
ColoreTesto 0
Scrivi String(90,"*"),1
ruota(1) = 1
cg = 0
ColoreTesto 0
num(1) = ambata(1)
cg = cg + 1
ColoreTesto 2
ra = SerieRitardo(Ini,es,num,r,1)'-----> ra = Ritardo Ambata
Scrivi "IL RITARDO DELL'AMBATA " & Format2(num(1)) & " ALL'ESTRAZIONE DI CALCOLO E' DI: " & Format2(ra) & " ESTRAZIONI",1
ColoreTesto 0
ImpostaGiocata cg,num,r,posta,k,1
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Subx baffo
ciao baffo non so se è il posto giusto , ma vorrei farti una domanda :
per caso hai fatto il listato del tuo metodino ?
http://forum.lottoced.com/f8/metodino-91049/
grazie
e buon martedi grasso
ciao baffo non so se è il posto giusto , ma vorrei farti una domanda :
per caso hai fatto il listato del tuo metodino ?
http://forum.lottoced.com/f8/metodino-91049/
grazie
e buon martedi grasso
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 11 ottobre 2025Bari0425418390Cagliari1681098782Firenze6713084939Genova2961541522Milano0611084853Napoli6013466763Palermo7872540258Roma3547892577Torino3927353085Venezia3632476373Nazionale1733105128Estrazione Simbolotto
1011431304
