Marco-elle
Banned
Ciao Boris,
ti auguro una buona guarizione,per esperienza vissuta,ti capisco e conosco molto bene l'ambiente ospedaliero.Chissà che,anche queste piccolezze (intendo questo gioco)ti aiutino in qualche frazione di tempo
di svago
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.
Le mie solite idee
- Creatore Discussione Marco-elle
- Data di inizio
ti auguro una buona guarizione,per esperienza vissuta,ti capisco e conosco molto bene l'ambiente ospedaliero.Chissà che,anche queste piccolezze (intendo questo gioco)ti aiutino in qualche frazione di tempo
di svago
Marco-elle
Banned
sei un gran lecchinoAuguri Boris, spero tu esca più atletico di prima..
in bocca a Lupa..
Un consiglio...Segui Marco, con le sue trovate geniali avrai delle belle soddisfazioni,
sempre giocare con parsimonia...
Marco-elle
Banned
Metodo x gioco spuculativo
3 ambate su FI alla 1° del mese semplici e determinate nelle prime 2 caselle
il resoconto potrebbe risultare sconfortante solo perchè non ho inserito
un aumento progressivo perchè è del tutto soggettivo.
3 ambate su FI alla 1° del mese semplici e determinate nelle prime 2 caselle
il resoconto potrebbe risultare sconfortante solo perchè non ho inserito
un aumento progressivo perchè è del tutto soggettivo.
Codice:
Sub Main() ColoreTesto 1
Scrivi
Scrivi "3 AMBATE SU' FI SEMPLICi E 1° E 2° POSIZIONE ALLA 1° MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY Marco",1
Scrivi
ColoreTesto 0
Dim ruote(2)
Dim ambata(3):Dim posta(1):Dim postaa(10):Dim poste(10)
posta(1) = 3
postaa(6) = 1
poste(7) = 1
klp = 12
ini = 8000
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 3
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 2:Scrivi DataEstrazione(es) & "---> " & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 1:Scrivi String(100,"°")
ColoreTesto 0
ambata(1) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,12,5) + 30)
ambata(2) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,4,3) + 33)
ambata(3) = Fuori90(Estratto(es,9,1) + Estratto(es,2,5) + 85)
ImpostaGiocata 1,ambata,ruote,posta,klp
ambata(1) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,12,5) + 30)
ambata(2) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,4,3) + 33)
ambata(3) = Fuori90(Estratto(es,9,1) + Estratto(es,2,5) + 85)
ImpostaGiocata 2,ambata,ruote,postaa,klp
ambata(1) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,12,5) + 30)
ambata(2) = Fuori90(90 +(Estratto(es,9,1)) - Estratto(es,4,3) + 33)
ambata(3) = Fuori90(Estratto(es,9,1) + Estratto(es,2,5) + 85)
ImpostaGiocata 3,ambata,ruote,poste,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End SubMarco-elle
Banned
Metodo Day by Day
permette di giocare 3 ambate semplici e in 3° posizione
con unici algoritmi che calcolano a ogni estrazione
questo permette di valutare una singola previsione già
avanti con i colpi e risparmiare risorse con la speranza
che questa sia positiva
permette di giocare 3 ambate semplici e in 3° posizione
con unici algoritmi che calcolano a ogni estrazione
questo permette di valutare una singola previsione già
avanti con i colpi e risparmiare risorse con la speranza
che questa sia positiva
Codice:
Sub Main() ColoreTesto 1
Scrivi
Scrivi "METODO DAY BY DAY ",1
Scrivi
Scrivi
Scrivi "3 AMBATE SEMPLICI E IN 3° POSIZIONE SU' GE ",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY Marco",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim poste(1)
Dim postee(8)
Dim a(10)
poste(1) = 3
postee(8) = 1
klp = 12
ini = 9850
fin = EstrazioneFin
co = 0
For es = ini To fin
Call AvanzamentoElab(Ini,Fin,es)
ruote(1) = 4
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi String(100,"°")
ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 1:Scrivi String(100,"°")
ColoreTesto 1:Scrivi String(100,"°")
ColoreTesto 0
a(1) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 15)
a(2) = Fuori90(Estratto(es,8,3) + Estratto(es,12,5) + 77)
a(3) = Fuori90(Estratto(es,1,1) + Estratto(es,12,3) + 66)
EliminaRipetuti a
ImpostaGiocata 1,a,ruote,poste,klp
a(1) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 15)
a(2) = Fuori90(Estratto(es,8,3) + Estratto(es,12,5) + 77)
a(3) = Fuori90(Estratto(es,1,1) + Estratto(es,12,3) + 66)
EliminaRipetuti a
ImpostaGiocata 2,a,ruote,postee,klp
Gioca es,1
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End SubMarco-elle
Banned
Formula statistica 18-63-90
gioca 1 ambata(facoltativa) + 4 ambi + 1 terzina
su ruote spia
gioca 1 ambata(facoltativa) + 4 ambi + 1 terzina
su ruote spia
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 18-63-90 di marco",1
ColoreTesto 1 :Scrivi "------------------- Metodo e List by Marco",1
Scrivi : ColoreTesto 0
Dim ruota(2),am(1),a1(2),a2(2),a3(2),a4(2),nu3(6),T(3),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(2)
pt(1) = 1
pt1(2) = 1
pt2(2) = 1
clp = 12
co = 0
ini = 9350
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 5
c = Estratto(es,r1,p)
ok = 0
If(a = 18 Or a = 63 Or a = 90)_
And(b = 18 Or b = 63 Or b = 90)_
And(c = 18 Or c = 63 Or c = 90) Then
ok = 1
If ok = 1 Then
If(r <> r1 And c <> a And c <> b) Then
co = co + 1
ColoreTesto 2
Scrivi String(65,"*") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
Scrivi
ruote(1) = r
ruote(2) = r1
cg = 0
am(1) = 35
cg = cg + 1
ImpostaGiocata cg,am,ruote,pt,clp
a1(1) = 35
a1(2) = 3
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt1,clp
a2(1) = 35
a2(2) = 5
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt1,clp
a3(1) = 35
a3(2) = 11
cg = cg + 1
ImpostaGiocata cg,a3,ruote,pt1,clp
a4(1) = 35
a4(2) = 47
cg = cg + 1
ImpostaGiocata cg,a4,ruote,pt1,clp
T(1) = 27
T(2) = 72
T(3) = 89
cg = cg + 1
ImpostaGiocata cg,T,ruote,pt1,clp
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
End SubMarco-elle
Banned
Ambi vertibili su BA
metodo Statistico che gioca:
1 ambata (facoltativa)
4 ambi
1 cinquina
su BA-TO
metodo Statistico che gioca:
1 ambata (facoltativa)
4 ambi
1 cinquina
su BA-TO
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Ambi vertibili su BA ",1
ColoreTesto 1 :Scrivi "------------------- Metodo e List by Marco",1
Scrivi : ColoreTesto 0
Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
pt1(1) = 1
pt2(2) = 1
clp = 12
co = 0
ini = 9200
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 1
If r = 11 Then r = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
ok = 0
If a = Vert(b) Or b = Vert(a) Then
:ok = 1
If ok = 1 Then
ColoreTesto 2
Scrivi String(65,"=") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi
ruote(1) = 1
ruote(2) = 9
nu(1) = 66
ImpostaGiocata 1,nu,ruote,pt1,clp
nu1(1) = 66
nu1(2) = 16
ImpostaGiocata 2,nu1,ruote,pt2,clp
nu2(1) = 66
nu2(2) = 38
ImpostaGiocata 3,nu2,ruote,pt2,clp
nu3(1) = 66
nu3(2) = 39
ImpostaGiocata 4,nu3,ruote,pt2,clp
nu4(1) = 66
nu4(2) = 78
ImpostaGiocata 5,nu4,ruote,pt2,clp
nu5(1) = 4
nu5(2) = 16
nu5(3) = 29
nu5(4) = 66
nu5(5) = 68
ImpostaGiocata 6,nu5,ruote,pt2,clp
Gioca es,1
End If
End If
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
End SubMarco-elle
Banned
Ambi Diametrali in Decina sulla NZ
Metodo statistico che gioca:
1 ambata (facoltativa)
4 ambi
1 cinquina
su BA-MI
Metodo statistico che gioca:
1 ambata (facoltativa)
4 ambi
1 cinquina
su BA-MI
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "----------------->Ambi Diametrali in Decina sulla NZ ",1
ColoreTesto 1 :Scrivi "------------------->Metodo e List by Marco",1
Scrivi : ColoreTesto 0
Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
pt1(1) = 1
pt2(2) = 1
clp = 12
co = 0
ini = 9400
For es = ini To EstrazioneFin
Messaggio(es)
For r = 12 To 12
If r = 11 Then r = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
ok = 0
If a = DiametraleD(b) Or b = DiametraleD(a) Then
:ok = 1
If ok = 1 Then
ColoreTesto 1
Scrivi String(65,"°") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi
ruote(1) = 1
ruote(2) = 5
nu(1) = 13
ImpostaGiocata 1,nu,ruote,pt1,clp
nu1(1) = 13
nu1(2) = 21
ImpostaGiocata 2,nu1,ruote,pt2,clp
nu2(1) = 13
nu2(2) = 58
ImpostaGiocata 3,nu2,ruote,pt2,clp
nu3(1) = 13
nu3(2) = 67
ImpostaGiocata 4,nu3,ruote,pt2,clp
nu4(1) = 13
nu4(2) = 84
ImpostaGiocata 5,nu4,ruote,pt2,clp
nu5(1) = 13
nu5(2) = 15
nu5(3) = 58
nu5(4) = 67
nu5(5) = 84
ImpostaGiocata 6,nu5,ruote,pt2,clp
Gioca es,1
End If
End If
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
End SubMarco-elle
Banned
Piccola premessa,questi metodi vengono inseriti per aiutare le persone indecise
e soprattutto nel fare evitare spese inutili di metodi venduti dagli urlatori telesivisi
che si spacciano per ingegneri in matematica applicata al Lotto, spero di rendere
la cosa gradita altrimenti,senza nessun problema,posso anche fermarmi.
Metodo ambo in cadenza nelle prime 2 caselle di NA,dove il primo estratto
deve essere necessariamente un numeretto,L'output è epocale,quindi
l'elaborazione risulta lenta ma dopo aver visto l'efficacia della statistica,
si può variare l'inizio del calcolo a piacere.
Gioca 1 ambata (facoltativa)
4 ambi
1 cinquina
sulle ruote di FI-VE
e soprattutto nel fare evitare spese inutili di metodi venduti dagli urlatori telesivisi
che si spacciano per ingegneri in matematica applicata al Lotto, spero di rendere
la cosa gradita altrimenti,senza nessun problema,posso anche fermarmi.
Metodo ambo in cadenza nelle prime 2 caselle di NA,dove il primo estratto
deve essere necessariamente un numeretto,L'output è epocale,quindi
l'elaborazione risulta lenta ma dopo aver visto l'efficacia della statistica,
si può variare l'inizio del calcolo a piacere.
Gioca 1 ambata (facoltativa)
4 ambi
1 cinquina
sulle ruote di FI-VE
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "Numeretto su NA in 1° posizione ",1
ColoreTesto 1 :Scrivi "che forma ambo in cadenza ",1
ColoreTesto 1 :Scrivi "con il 2° estratto di NA ",1
ColoreTesto 1 :Scrivi "Metodo e List by Marco",1
Scrivi : ColoreTesto 0
Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
pt1(1) = 1
pt2(2) = 1
clp = 12
co = 0
ini = 1
For es = ini To EstrazioneFin
Messaggio(es)
For r = 6 To 6
a = Estratto(es,r,1)
b = Estratto(es,r,2)
ok = 0
If a < 10 And a = Cadenza(b) Then
:ok = 1
If ok = 1 Then
ColoreTesto 1
Scrivi String(65,"°") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi
ruote(1) = 3
ruote(2) = 10
nu(1) = 63
ImpostaGiocata 1,nu,ruote,pt1,clp
nu1(1) = 63
nu1(2) = 18
ImpostaGiocata 2,nu1,ruote,pt2,clp
nu2(1) = 63
nu2(2) = 21
ImpostaGiocata 3,nu2,ruote,pt2,clp
nu3(1) = 63
nu3(2) = 22
ImpostaGiocata 4,nu3,ruote,pt2,clp
nu4(1) = 63
nu4(2) = 69
ImpostaGiocata 5,nu4,ruote,pt2,clp
nu5(1) = 18
nu5(2) = 22
nu5(3) = 35
nu5(4) = 40
nu5(5) = 63
ImpostaGiocata 6,nu5,ruote,pt2,clp
Gioca es,1
End If
End If
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
End Subtrivellatomariotretre33
Super Member >PLATINUM<
Marco elle I TUOI METODI SONO GRADITI
E SOPRATUTTO VALIDI A SCEGLIERNE UNO E SEGUIRLO PER I COLPI STABILITITI RINGRAZIO ANCORA PER IL TUO FARE , X TANTI DAI L'OPPORTUNITA DI SCEGLIERE E GIOCARE SENZA SPRECHI , CIAO.
camy64
Advanced Member >PLATINUM PLUS<
Marco-elle
Banned
Ambi simmetrici su TT nelle prime 2 posizioni
Metodo statistico che ricava
1 ambata(facoltativa)
4 ambi
1 cinquina
su MI-NA
Metodo statistico che ricava
1 ambata(facoltativa)
4 ambi
1 cinquina
su MI-NA
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "Ambi simmetrici su TT ",1
ColoreTesto 1 :Scrivi "nelle prime 2 posizioni ",1
ColoreTesto 1 :Scrivi "a favore di MI-NA ",1
ColoreTesto 1 :Scrivi "Metodo e List by Marco",1
Scrivi : ColoreTesto 0
Dim ruota(2),ruote(12),nu(1),nu1(5),nu2(3),nu3(2),nu4(4),nu5(5),pt1(1),pt2(2)
pt1(1) = 1
pt2(2) = 1
clp = 12
co = 0
ini = 9200
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 10
a = Estratto(es,r,1)
b = Estratto(es,r,2)
ok = 0
If Abs(a - b) = 30 Then
:ok = 1
If ok = 1 Then
ColoreTesto 2
Scrivi String(65,"+") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi
ruote(1) = 5
ruote(2) = 6
nu(1) = 15
ImpostaGiocata 1,nu,ruote,pt1,clp
nu1(1) = 15
nu1(2) = 29
ImpostaGiocata 2,nu1,ruote,pt2,clp
nu2(1) = 15
nu2(2) = 32
ImpostaGiocata 3,nu2,ruote,pt2,clp
nu3(1) = 15
nu3(2) = 61
ImpostaGiocata 4,nu3,ruote,pt2,clp
nu4(1) = 15
nu4(2) = 88
ImpostaGiocata 5,nu4,ruote,pt2,clp
nu5(1) = 15
nu5(2) = 29
nu5(3) = 32
nu5(4) = 53
nu5(5) = 66
ImpostaGiocata 6,nu5,ruote,pt2,clp
Gioca es,1
End If
End If
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
End Subcamy64
Advanced Member >PLATINUM PLUS<
E meno male .... l’altra foto era inguardabile
Marco-elle
Banned
Ambi con i numeretti su PA in 1° e 5° posizione
metodo statistico che gioca:
1 ambata (facoltativa
4 ambi
1 quartina
su GE-MI
metodo statistico che gioca:
1 ambata (facoltativa
4 ambi
1 quartina
su GE-MI
Codice:
Sub Main()
ColoreTesto 2
Scrivi "Ambo con i numeretti in 1° e 5° posizione su PA "
Scrivi "Gioca previsione su GE-MI "
Scrivi "Metodo e List by Marco"
ColoreTesto 0
Dim posta(1)
Dim poste(2)
Dim ruota(2)
Dim am(1)
Dim a1(2)
Dim a2(4)
posta(1) = 1
poste(2) = 1
clp = 12
ini = EstrazioneFin - 4000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 7 To 7
For p1 = 1 To 1
For p2 = 5 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a =< 10 And b =< 10 Then
ruota(1) = 4
ruota(2) = 5
co = co + 1
ColoreTesto 1
Scrivi String(80,"^") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " ambo spia sortito su PA " & a & " - " & b,1
Scrivi String(80,"^"),1
ColoreTesto 0
am(1) = 11
ImpostaGiocata 1,am,ruota,posta,clp
a1(1) = 11
a1(2) = 27
ImpostaGiocata 2,a1,ruota,poste,clp
a1(1) = 11
a1(2) = 52
ImpostaGiocata 3,a1,ruota,poste,clp
a1(1) = 11
a1(2) = 69
ImpostaGiocata 4,a1,ruota,poste,clp
a1(1) = 11
a1(2) = 71
ImpostaGiocata 5,a1,ruota,poste,clp
a2(1) = 2
a2(2) = 11
a2(3) = 25
a2(4) = 69
ImpostaGiocata 6,a2,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
tanto non sei cambiato
Marco-elle
Banned
Metodo "IL CAVALLO (1° parte)"
metodo statistico che gioca:
1 quartina x ambo
su ruote congeniali
metodo statistico che gioca:
1 quartina x ambo
su ruote congeniali
Codice:
Sub Main()
ColoreTesto 2
Scrivi "IL CAVALLO (1* parte) "
Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(2)
Dim ruota(10)
Dim n1(4)
poste(2) = 1
clp = 12
ini = EstrazioneFin - 1000
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r = 1 To 1
For r1 = 2 To 2
'For p2 = p1 + 1 To 4
'For p3 = p2 + 1 To 5
a = Estratto(es,r,1)
b = Estratto(es,r1,3)
ok = 0
If Fuori90(a + b) = 1 Then
n1(1) = 8
n1(2) = 15
n1(3) = 56
n1(4) = 65
ruota(1) = 4
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 2 Then
n1(1) = 12
n1(2) = 15
n1(3) = 38
n1(4) = 75
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 3 Then
n1(1) = 6
n1(2) = 17
n1(3) = 19
n1(4) = 40
ruota(1) = 2
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 4 Then
n1(1) = 1
n1(2) = 9
n1(3) = 35
n1(4) = 46
ruota(1) = 1
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 5 Then
n1(1) = 8
n1(2) = 10
n1(3) = 11
n1(4) = 39
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 6 Then
n1(1) = 2
n1(2) = 5
n1(3) = 69
n1(4) = 74
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 7 Then
n1(1) = 24
n1(2) = 71
n1(3) = 75
n1(4) = 89
ruota(1) = 3
ruota(2) = 5
ok = 1
End If
If Fuori90(a + b) = 8 Then
n1(1) = 2
n1(2) = 9
n1(3) = 74
n1(4) = 86
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 9 Then
n1(1) = 25
n1(2) = 39
n1(3) = 40
n1(4) = 62
ruota(1) = 4
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 10 Then
n1(1) = 4
n1(2) = 6
n1(3) = 8
n1(4) = 38
ruota(1) = 3
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 11 Then
n1(1) = 6
n1(2) = 25
n1(3) = 30
n1(4) = 54
ruota(1) = 5
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 12 Then
n1(1) = 25
n1(2) = 33
n1(3) = 82
n1(4) = 86
ruota(1) = 3
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 13 Then
n1(1) = 2
n1(2) = 32
n1(3) = 61
n1(4) = 79
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 14 Then
n1(1) = 1
n1(2) = 6
n1(3) = 14
n1(4) = 20
ruota(1) = 6
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 15 Then
n1(1) = 13
n1(2) = 20
n1(3) = 23
n1(4) = 69
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 16 Then
n1(1) = 30
n1(2) = 31
n1(3) = 32
n1(4) = 66
ruota(1) = 2
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 17 Then
n1(1) = 19
n1(2) = 28
n1(3) = 34
n1(4) = 53
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 18 Then
n1(1) = 35
n1(2) = 56
n1(3) = 70
n1(4) = 73
ruota(1) = 2
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 19 Then
n1(1) = 1
n1(2) = 10
n1(3) = 35
n1(4) = 62
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 20 Then
n1(1) = 4
n1(2) = 15
n1(3) = 55
n1(4) = 79
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 21 Then
n1(1) = 56
n1(2) = 68
n1(3) = 69
n1(4) = 81
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 22 Then
n1(1) = 1
n1(2) = 7
n1(3) = 9
n1(4) = 56
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 23 Then
n1(1) = 1
n1(2) = 16
n1(3) = 22
n1(4) = 89
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 24 Then
n1(1) = 10
n1(2) = 15
n1(3) = 33
n1(4) = 76
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 25 Then
n1(1) = 28
n1(2) = 30
n1(3) = 44
n1(4) = 70
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 26 Then
n1(1) = 16
n1(2) = 60
n1(3) = 61
n1(4) = 76
ruota(1) = 2
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 27 Then
n1(1) = 1
n1(2) = 2
n1(3) = 19
n1(4) = 34
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 28 Then
n1(1) = 10
n1(2) = 28
n1(3) = 58
n1(4) = 82
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 29 Then
n1(1) = 10
n1(2) = 22
n1(3) = 35
n1(4) = 36
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 30 Then
n1(1) = 4
n1(2) = 13
n1(3) = 73
n1(4) = 74
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 31 Then
n1(1) = 10
n1(2) = 31
n1(3) = 47
n1(4) = 80
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 32 Then
n1(1) = 6
n1(2) = 34
n1(3) = 61
n1(4) = 78
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 33 Then
n1(1) = 25
n1(2) = 35
n1(3) = 61
n1(4) = 75
ruota(1) = 1
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 34 Then
n1(1) = 16
n1(2) = 34
n1(3) = 39
n1(4) = 79
ruota(1) = 1
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 35 Then
n1(1) = 5
n1(2) = 22
n1(3) = 34
n1(4) = 65
ruota(1) = 1
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 36 Then
n1(1) = 13
n1(2) = 15
n1(3) = 35
n1(4) = 39
ruota(1) = 1
ruota(2) = 8
ok = 1
End If
If Fuori90(a + b) = 37 Then
n1(1) = 7
n1(2) = 22
n1(3) = 29
n1(4) = 51
ruota(1) = 5
ruota(2) = 9
ok = 1
End If
If Fuori90(a + b) = 38 Then
n1(1) = 18
n1(2) = 56
n1(3) = 60
n1(4) = 63
ruota(1) = 2
ruota(2) = 3
ok = 1
End If
If Fuori90(a + b) = 39 Then
n1(1) = 44
n1(2) = 46
n1(3) = 71
n1(4) = 76
ruota(1) = 1
ruota(2) = 6
ok = 1
End If
If Fuori90(a + b) = 40 Then
n1(1) = 24
n1(2) = 31
n1(3) = 32
n1(4) = 54
ruota(1) = 1
ruota(2) = 2
ok = 1
End If
If Fuori90(a + b) = 41 Then
n1(1) = 6
n1(2) = 44
n1(3) = 61
n1(4) = 80
ruota(1) = 2
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 42 Then
n1(1) = 59
n1(2) = 64
n1(3) = 73
n1(4) = 77
ruota(1) = 1
ruota(2) = 7
ok = 1
End If
If Fuori90(a + b) = 43 Then
n1(1) = 6
n1(2) = 15
n1(3) = 37
n1(4) = 60
ruota(1) = 1
ruota(2) = 10
ok = 1
End If
If Fuori90(a + b) = 44 Then
n1(1) = 3
n1(2) = 28
n1(3) = 32
n1(4) = 78
ruota(1) = 3
ruota(2) = 4
ok = 1
End If
If Fuori90(a + b) = 45 Then
n1(1) = 4
n1(2) = 7
n1(3) = 31
n1(4) = 35
ruota(1) = 4
ruota(2) = 8
ok = 1
End If
If OK = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " Cavallo BA-CA " & a & " - " & b & c,1
Scrivi String(80,"°"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp,2
Gioca es,1
End If
' Next
' Next
Next
Next
Next
ScriviResoconto
End SubCiao Marco puoi per favore scrivere ambi a Ba To grazie mille
Marco-elle
Banned
Ciao Tessa,
questa è la previsione in corso:
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 11 gennaio 2025Bari7343015881Cagliari6960180210Firenze2532185554Genova4805403469Milano1007704479Napoli1189013480Palermo3780824477Roma7804383956Torino0813302724Venezia5675361870Nazionale6383193180Estrazione Simbolotto
Bari
3534122320
