Marco-elle
Advanced Member >PLATINUM PLUS<
BARI alla 6° del mese
URGE SCRIPT
- Creatore Discussione Alien.
- Data di inizio
Marco-elle
Advanced Member >PLATINUM PLUS<
Formula statistica 16-43-88
Questa formula non grida il miracolo ma "penso" possa essere affidabile nel tempo(infatti ho molto materiale vecchio che continua a funzionare).Queste idee sono frutto di un professionista che si fa pagare....io ve le regalo.Fatene buon uso
PS:
queste formule non le troverete da nessuna parte perchè è tutta robba mia
Questa formula non grida il miracolo ma "penso" possa essere affidabile nel tempo(infatti ho molto materiale vecchio che continua a funzionare).Queste idee sono frutto di un professionista che si fa pagare....io ve le regalo.Fatene buon uso
PS:
queste formule non le troverete da nessuna parte perchè è tutta robba mia
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 16-43-88 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3)
pt(1) = 1
pt1(2) = 1
pt2(2) = 1:pt2(3) = 1
clp = 12
co = 0
ini = 9050
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 = 16 Or a = 43 Or a = 88)_
And(b = 16 Or b = 43 Or b = 88)_
And(c = 16 Or c = 43 Or c = 88) Then :amb(1) = 18 :amb(2) = 18:amb(3) = 4:amb(4) = 18:amb(5) = 8:amb(6) = 18:amb(7) = 41:amb(8) = 18:amb(9) = 63:amb(10) = 8:amb(11) = 16:amb(12) = 18:amb(13) = 28:amb(14) = 63 :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
nu1(1) = amb(1)
cg = cg + 1
ImpostaGiocata cg,nu1,ruote,pt,clp,1
nu2(1) = amb(2)
nu2(2) = amb(3)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(4)
nu2(2) = amb(5)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(6)
nu2(2) = amb(7)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(8)
nu2(2) = amb(9)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu3(1) = amb(10)
nu3(2) = amb(11)
nu3(3) = amb(12)
nu3(4) = amb(13)
nu3(5) = amb(14)
cg = cg + 1
ImpostaGiocata cg,nu3,ruote,pt2,clp,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
ColoreTesto 1 :Scrivi "-----------------Formula 16-43-88 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Ambi con i numeretti su ROMA....gioca 1 quartina su ROMA
Codice:
Sub Main()
ColoreTesto 2
Scrivi "AMBI SPIA CON I NUMERETTI USCITI SU RO "
Scrivi "GIOCA 1 QUARTINA SU ROMA "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(2)
Dim ruota(2)
Dim a1(4)
poste(2) = 1
clp = 12
ini = EstrazioneFin - 2500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
For r1 = 8 To 8
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
ok = 0
If a = 1 And b = 2 Or a = 2 And b = 1 Then
a1(1) = Fuori90(Estratto(es,3,2) + 14)
a1(2) = Fuori90(Estratto(es,4,2) + 35)
a1(3) = Fuori90(Estratto(es,5,4) + 24)
a1(4) = Fuori90(Estratto(es,5,2) + 1)
ok = 1
End If
If a = 1 And b = 3 Or a = 3 And b = 1 Then
a1(1) = Fuori90(Estratto(es,6,2) + 9)
a1(2) = Fuori90(Estratto(es,9,1) + 41)
a1(3) = Fuori90(Estratto(es,12,4) + 10)
a1(4) = Fuori90(Estratto(es,1,5) + 1)
ok = 1
End If
If a = 1 And b = 4 Or a = 4 And b = 1 Then
a1(1) = Fuori90(Estratto(es,8,4) + 1)
a1(2) = Fuori90(Estratto(es,10,5) + 41)
a1(3) = Fuori90(Estratto(es,10,5) + 85)
a1(4) = Fuori90(Estratto(es,2,2) + 1)
End If
If a = 1 And b = 5 Or a = 5 And b = 1 Then
a1(1) = Fuori90(Estratto(es,7,4) + 3)
a1(2) = Fuori90(Estratto(es,8,1) + 9)
a1(3) = Fuori90(Estratto(es,8,1) + 58)
a1(4) = Fuori90(Estratto(es,5,3) + 1)
ok = 1
End If
If a = 1 And b = 6 Or a = 6 And b = 1 Then
a1(1) = Fuori90(Estratto(es,8,5) + 84)
a1(2) = Fuori90(Estratto(es,7,1) + 26)
a1(3) = Fuori90(Estratto(es,7,4) + 8)
a1(4) = Fuori90(Estratto(es,1,3) + 1)
ok = 1
End If
If a = 1 And b = 7 Or a = 7 And b = 1 Then
a1(1) = Fuori90(Estratto(es,4,1) + 3)
a1(2) = Fuori90(Estratto(es,5,4) + 32)
a1(3) = Fuori90(Estratto(es,1,3) + 3)
a1(4) = Fuori90(Estratto(es,10,5) + 13)
ok = 1
End If
If a = 1 And b = 8 Or a = 8 And b = 1 Then
a1(1) = Fuori90(Estratto(es,2,5) + 25)
a1(2) = Fuori90(Estratto(es,9,2) + 18)
a1(3) = Fuori90(Estratto(es,5,2) + 31)
a1(4) = Fuori90(Estratto(es,1,3) + 1)
ok = 1
End If
If a = 1 And b = 9 Or a = 9 And b = 1 Then
a1(1) = Fuori90(Estratto(es,1,3) + 77)
a1(2) = Fuori90(Estratto(es,7,1) + 67)
a1(3) = Fuori90(Estratto(es,2,4) + 1)
a1(4) = Fuori90(Estratto(es,8,2) + 14)
ok = 1
End If
If a = 2 And b = 3 Or a = 3 And b = 2 Then
a1(1) = Fuori90(Estratto(es,7,3) + 22)
a1(2) = Fuori90(Estratto(es,1,3) + 32)
a1(3) = Fuori90(Estratto(es,8,4) + 12)
a1(4) = Fuori90(Estratto(es,1,1) + 10)
ok = 1
End If
If a = 2 And b = 4 Or a = 4 And b = 2 Then
a1(1) = Fuori90(Estratto(es,2,2) + 8)
a1(2) = Fuori90(Estratto(es,10,5) + 84)
a1(3) = Fuori90(Estratto(es,8,3) + 22)
a1(4) = Fuori90(Estratto(es,2,3) + 1)
ok = 1
End If
If a = 2 And b = 5 Or a = 5 And b = 2 Then
a1(1) = Fuori90(Estratto(es,4,3) + 66)
a1(2) = Fuori90(Estratto(es,8,4) + 31)
a1(3) = Fuori90(Estratto(es,12,2) + 40)
a1(4) = Fuori90(Estratto(es,8,1) + 1)
ok = 1
End If
If a = 2 And b = 6 Or a = 6 And b = 2 Then
a1(1) = Fuori90(Estratto(es,1,3) + 26)
a1(2) = Fuori90(Estratto(es,12,1) + 52)
a1(3) = Fuori90(Estratto(es,4,1) + 45)
a1(4) = Fuori90(Estratto(es,2,2) + 30)
ok = 1
End If
If a = 2 And b = 7 Or a = 7 And b = 2 Then
a1(1) = Fuori90(Estratto(es,5,4) + 12)
a1(2) = Fuori90(Estratto(es,8,2) + 25)
a1(3) = Fuori90(Estratto(es,6,3) + 8)
a1(4) = Fuori90(Estratto(es,3,5) + 1)
ok = 1
End If
If a = 2 And b = 8 Or a = 8 And b = 2 Then
a1(1) = Fuori90(Estratto(es,3,3) + 22)
a1(2) = Fuori90(Estratto(es,8,3) + 9)
a1(3) = Fuori90(Estratto(es,5,3) + 6)
a1(4) = Fuori90(Estratto(es,10,1) + 5)
ok = 1
End If
If a = 2 And b = 9 Or a = 9 And b = 5 Then
a1(1) = Fuori90(Estratto(es,12,4) + 59)
a1(2) = Fuori90(Estratto(es,7,4) + 32)
a1(3) = Fuori90(Estratto(es,3,4) + 25)
a1(4) = Fuori90(Estratto(es,2,3) + 1)
ok = 1
End If
If a = 3 And b = 4 Or a = 4 And b = 3 Then
a1(1) = Fuori90(Estratto(es,6,5) + 48)
a1(2) = Fuori90(Estratto(es,12,1) + 5)
a1(3) = Fuori90(Estratto(es,4,2) + 83)
ok = 1
End If
If a = 3 And b = 5 Or a = 5 And b = 3 Then
a1(1) = Fuori90(Estratto(es,6,3) + 25)
a1(2) = Fuori90(Estratto(es,6,4) + 78)
a1(3) = Fuori90(Estratto(es,7,4) + 17)
a1(4) = Fuori90(Estratto(es,5,2) + 3)
ok = 1
End If
If a = 3 And b = 6 Or a = 6 And b = 3 Then
a1(1) = Fuori90(Estratto(es,6,4) + 3)
a1(2) = Fuori90(Estratto(es,4,5) + 21)
a1(3) = Fuori90(Estratto(es,10,5) + 56)
a1(4) = Fuori90(Estratto(es,1,4) + 1)
ok = 1
End If
If a = 3 And b = 7 Or a = 7 And b = 3 Then
a1(1) = Fuori90(Estratto(es,8,5) + 8)
a1(2) = Fuori90(Estratto(es,10,1) + 22)
a1(3) = Fuori90(Estratto(es,8,3) + 73)
a1(4) = Fuori90(Estratto(es,2,4) + 1)
ok = 1
End If
If a = 3 And b = 8 Or a = 8 And b = 3 Then
a1(1) = Fuori90(Estratto(es,4,5) + 1)
a1(2) = Fuori90(Estratto(es,1,4) + 12)
a1(3) = Fuori90(Estratto(es,5,2) + 34)
a1(4) = Fuori90(Estratto(es,1,3) + 1)
ok = 1
End If
If a = 3 And b = 9 Or a = 9 And b = 3 Then
a1(1) = Fuori90(Estratto(es,2,2) + 5)
a1(2) = Fuori90(Estratto(es,12,1) + 48)
a1(3) = Fuori90(Estratto(es,12,2) + 8)
a1(4) = Fuori90(Estratto(es,1,2) + 1)
ok = 1
End If
If a = 4 And b = 5 Or a = 5 And b = 4 Then
a1(1) = Fuori90(Estratto(es,4,2) + 12)
a1(2) = Fuori90(Estratto(es,12,3) + 59)
a1(3) = Fuori90(Estratto(es,2,2) + 55)
ok = 1
End If
If a = 4 And b = 6 Or a = 6 And b = 4 Then
a1(1) = Fuori90(Estratto(es,5,1) + 8)
a1(2) = Fuori90(Estratto(es,8,3) + 45)
a1(3) = Fuori90(Estratto(es,5,1) + 41)
ok = 1
End If
If a = 4 And b = 7 Or a = 7 And b = 4 Then
a1(1) = Fuori90(Estratto(es,4,5) + 5)
a1(2) = Fuori90(Estratto(es,10,4) + 7)
a1(3) = Fuori90(Estratto(es,1,2) + 58)
a1(4) = Fuori90(Estratto(es,1,5) + 1)
ok = 1
End If
If a = 4 And b = 8 Or a = 8 And b = 4 Then
a1(1) = Fuori90(Estratto(es,12,4) + 2)
a1(2) = Fuori90(Estratto(es,10,2) + 52)
a1(3) = Fuori90(Estratto(es,12,1) + 9)
a1(4) = Fuori90(Estratto(es,2,2) + 1)
ok = 1
End If
If a = 4 And b = 9 Or a = 9 And b = 4 Then
a1(1) = Fuori90(Estratto(es,3,5) + 2)
a1(2) = Fuori90(Estratto(es,8,1) + 43)
a1(3) = Fuori90(Estratto(es,5,4) + 24)
a1(4) = Fuori90(Estratto(es,12,5) + 29)
ok = 1
End If
If a = 5 And b = 6 Or a = 6 And b = 5 Then
a1(1) = Fuori90(Estratto(es,1,5) + 8)
a1(2) = Fuori90(Estratto(es,8,3) + 15)
a1(3) = Fuori90(Estratto(es,9,2) + 1)
a1(4) = Fuori90(Estratto(es,8,5) + 1)
ok = 1
End If
If a = 5 And b = 7 Or a = 7 And b = 5 Then
a1(1) = Fuori90(Estratto(es,1,1) + 18)
a1(2) = Fuori90(Estratto(es,10,5) + 28)
a1(3) = Fuori90(Estratto(es,7,3) + 1)
a1(4) = Fuori90(Estratto(es,8,5) + 1)
ok = 1
End If
If a = 5 And b = 8 Or a = 8 And b = 5 Then
a1(1) = Fuori90(Estratto(es,8,3) + 4)
a1(2) = Fuori90(Estratto(es,10,3) + 65)
a1(3) = Fuori90(Estratto(es,5,5) + 7)
a1(4) = Fuori90(Estratto(es,1,4) + 1)
ok = 1
End If
If a = 5 And b = 9 Or a = 9 And b = 5 Then
a1(1) = Fuori90(Estratto(es,10,2) + 29)
a1(2) = Fuori90(Estratto(es,4,4) + 90)
a1(3) = Fuori90(Estratto(es,7,5) + 2)
a1(4) = Fuori90(Estratto(es,1,3) + 1)
ok = 1
End If
If a = 6 And b = 7 Or a = 7 And b = 6 Then
a1(1) = Fuori90(Estratto(es,4,4) + 13)
a1(2) = Fuori90(Estratto(es,6,5) + 8)
a1(3) = Fuori90(Estratto(es,4,4) + 43)
a1(4) = Fuori90(Estratto(es,1,5) + 1)
ok = 1
End If
If a = 6 And b = 8 Or a = 8 And b = 6 Then
a1(1) = Fuori90(Estratto(es,4,4) + 26)
a1(2) = Fuori90(Estratto(es,7,1) + 7)
a1(3) = Fuori90(Estratto(es,5,2) + 23)
a1(4) = Fuori90(Estratto(es,4,4) + 12)
ok = 1
End If
If a = 6 And b = 9 Or a = 9 And b = 6 Then
a1(1) = Fuori90(Estratto(es,8,4) + 8)
a1(2) = Fuori90(Estratto(es,5,2) + 24)
a1(3) = Fuori90(Estratto(es,3,3) + 6)
a1(4) = Fuori90(Estratto(es,5,3) + 1)
ok = 1
End If
If a = 7 And b = 8 Or a = 8 And b = 7 Then
a1(1) = Fuori90(Estratto(es,8,2) + 6)
a1(2) = Fuori90(Estratto(es,3,1) + 71)
a1(3) = Fuori90(Estratto(es,1,4) + 4)
a1(4) = Fuori90(Estratto(es,3,1) + 1)
ok = 1
End If
If a = 7 And b = 9 Or a = 9 And b = 7 Then
a1(1) = Fuori90(Estratto(es,5,4) + 14)
a1(2) = Fuori90(Estratto(es,8,4) + 42)
a1(3) = Fuori90(Estratto(es,7,5) + 14)
a1(4) = Fuori90(Estratto(es,8,2) + 1)
ok = 1
End If
If a = 8 And b = 9 Or a = 9 And b = 8 Then
a1(1) = Fuori90(Estratto(es,1,2) + 24)
a1(2) = Fuori90(Estratto(es,8,4) + 1)
a1(3) = Fuori90(Estratto(es,2,4) + 2)
a1(4) = Fuori90(Estratto(es,3,2) + 1)
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"^") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " ambo spia sortito su R0 " & a & " - " & b,1
Scrivi String(80,"^"),1
ColoreTesto 0
ruota(1) = 8
'ruota(2) = 3
ImpostaGiocata 1,a1,ruota,poste,clp,2
Gioca es,1
End If
Next
Next
Next
Next
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
E con quest'ultima estrazione,vi propongo la mia Formula 90-90
gioca 4 ambi + 1 quartina di origine statistica......fatene buon uso
gioca 4 ambi + 1 quartina di origine statistica......fatene buon uso
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 90-90 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato da Marco",1
Scrivi : ColoreTesto 0
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(4)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",300)
k = InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 90 And b = 90 Or a = 90 And b = 90 Then
ok = 1
If ok = 1 Then
n1(1) = 76
n2(1) = 76
n2(2) = 23
n3(1) = 76
n3(2) = 65
n4(1) = 76
n4(2) = 74
n5(1) = 76
n5(2) = 89
n6(1) = 22
n6(2) = 65
n6(3) = 76
n6(4) = 77
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Distanza 45 tra i primi estratti di BA-VE gioca 1 quartina su BA-VE
Codice:
Sub Main()
Scrivi
Scrivi "METODO DISTANZA 45 TRA BA-VE PRIMI ESTRATTI by Marco",1
Scrivi
Scrivi
Scrivi " LIST BY Marco",1
Scrivi
Dim ruote(10)
Dim n(4)
Dim posta(2)
posta(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",3000)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 10
For r2 = 1 To 10
For p1 = 1 To 1
For p2 = 1 To 1
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If r1 = 1 And r2 = 10 Then
If p1 And p2 = 1 Then
If Differenza(a,b) = 45 Then
ok = 1
n(1) = Fuori90(Estratto(es,2,4) + Estratto(es,10,3) + 3)
n(2) = Fuori90(90 +(Estratto(es,1,4)) - Estratto(es,12,2) + 66)
n(3) = Fuori90(Estratto(es,2,5) * Estratto(es,3,2) + 65)
n(4) = Fuori90(Estratto(es,1,2) + Estratto(es,9,1) + 8)
If ok = 1 Then
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = 1
ruote(2) = 10
ColoreTesto 0
ImpostaGiocata 1,n,ruote,posta,k
Gioca es,1
End If
End If
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub
Marco-elle
Advanced Member >PLATINUM PLUS<
Formula 21-66 gioca 4 ambi + 1 quartina
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 21-66 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato da Marco",1
Scrivi : ColoreTesto 0
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(4)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",200)
k = InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 21 And b = 66 Or a = 66 And b = 21 Then
ok = 1
If ok = 1 Then
n1(1) = 50
n2(1) = 50
n2(2) = 10
n3(1) = 50
n3(2) = 24
n4(1) = 50
n4(2) = 30
n5(1) = 50
n5(2) = 56
n6(1) = 2
n6(2) = 31
n6(3) = 32
n6(4) = 40
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k,1
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Sono formule semplici da mettere in gioco,devi trovare un numero su una ruota e il restante su un altra a rilevamento avvenuto....metti in gioco i 4 ambi e la quartina.Le formule a 3 numeri devi trovare 2 numeri su una ruota e il restante su un altra e....anche qui giochi nelle medesime la previsione
scusa sono un poco duro e non sò fare gli script, immagino che per te che sai farli sia semplice,
io guardando uno script cerco di capire la ruota, il numero, la posizione,...... e cerco di fare i calcoli è così che ho sempre fatto
certo la funzione di spaziometria mi aiuta moltissimo ma se non capisco il metodo rimango sempre un ignorante
comunque ti ringrazio per il tuo lavoro
grazie mille
Marco-elle
Advanced Member >PLATINUM PLUS<
Formula 44-89 gioca 4 ambi + 1 quartina (base statistica sui numeri spia)
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 44-89 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(4)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",200)
k = InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 44 And b = 89 Or a = 89 And b = 44 Then
ok = 1
If ok = 1 Then
n1(1) = 62
n2(1) = 62
n2(2) = 7
n3(1) = 62
n3(2) = 14
n4(1) = 62
n4(2) = 19
n5(1) = 62
n5(2) = 31
n6(1) = 8
n6(2) = 31
n6(3) = 62
n6(4) = 90
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Formula 27-72 Gioca 4 ambi + 1 quartina (base statistica sui numeri spia)
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 27-72 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(4)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",200)
k = InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 27 And b = 72 Or a = 72 And b = 27 Then
ok = 1
If ok = 1 Then
n1(1) = 74
n2(1) = 74
n2(2) = 38
n3(1) = 74
n3(2) = 45
n4(1) = 74
n4(2) = 51
n5(1) = 74
n5(2) = 59
n6(1) = 30
n6(2) = 32
n6(3) = 38
n6(4) = 74
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Formula 1-90 (somma 91) Gioca 5 ambi + 1 quartina su base statistica
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 1-90 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(5)
Dim n7(4)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",200)
k = InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 1 And b = 90 Or a = 90 And b = 1 Then
ok = 1
If ok = 1 Then
n1(1) = 39
n2(1) = 39
n2(2) = 21
n3(1) = 39
n3(2) = 25
n4(1) = 39
n4(2) = 33
n5(1) = 39
n5(2) = 54
n6(1) = 39
n6(2) = 66
n7(1) = 33
n7(2) = 36
n7(3) = 39
n7(4) = 53
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
ImpostaGiocata 7,n7,ruote,poste,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Subgrazie per le perle che stai regalando
Marco-elle
Advanced Member >PLATINUM PLUS<
Formula 23-68 Gioca 4 ambi + 1 quartina
Metodologia applicata su numeri spia e ambi statistici
Metodologia applicata su numeri spia e ambi statistici
Codice:
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 23-68 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
Dim ruote(10)
Dim n1(1)
Dim n2(2)
Dim n3(2)
Dim n4(2)
Dim n5(2)
Dim n6(4)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",150)
k = InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If a = 23 And b = 68 Or a = 68 And b = 23 Then
ok = 1
If ok = 1 Then
n1(1) = 7
n2(1) = 7
n2(2) = 16
n3(1) = 7
n3(2) = 23
n4(1) = 7
n4(2) = 55
n5(1) = 7
n5(2) = 80
n6(1) = 10
n6(2) = 14
n6(3) = 34
n6(4) = 76
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " * Figura : " & " [ " & Figura(a) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " * Figura : " & " [ " & Figura(b) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,poste,k,2
ImpostaGiocata 4,n4,ruote,poste,k,2
ImpostaGiocata 5,n5,ruote,poste,k,2
ImpostaGiocata 6,n6,ruote,poste,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End SubMarco-elle
Advanced Member >PLATINUM PLUS<
Decina algoritmica per a/t/q/c su BA-NA alla 1° e 8° mensile
PS: attenzione alla previsione in corso che compaiono alcuni numeri
a me cari su BA
PS: attenzione alla previsione in corso che compaiono alcuni numeri
a me cari su BA
Codice:
Sub Main()
ColoreTesto 2
Scrivi "METODO PER AMBO TERNO QUATERNA CINQUINA SU BA-NA "
Scrivi "GIOCA 10 NUMERI x 9 COLPI COLPI "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(5)
Dim postee(3)
Dim posteee(4)
Dim posteeee(5)
Dim ruota(2)
Dim n(10)
poste(2) = 1
poste(3) = 1
poste(4) = 1
poste(5) = 1
clp = 9
ini = EstrazioneFin - 250
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
If IndiceMensile(es) = 1 Or IndiceMensile(es) = 8 Then
Call AvanzamentoElab(Ini,Fin,es)
ok = 0
a1 = Fuori90(Estratto(es,3,4) * Estratto(es,8,5) + 15)
a2 = Fuori90(90 +(Estratto(es,9,5)) - Estratto(es,3,2) + 66)
a3 = Fuori90(Estratto(es,2,3) + Estratto(es,8,3) + 1)
a4 = Fuori90(90 +(Estratto(es,3,4)) - Estratto(es,4,5) + 32)
a5 = Fuori90(Estratto(es,1,4) + Estratto(es,5,1) + 3)
a6 = Fuori90(Estratto(es,1,1) + Estratto(es,10,2) + 1)
a7 = Fuori90(90 +(Estratto(es,4,5)) - Estratto(es,1,2) + 51)
a8 = Fuori90(90 -(Estratto(es,5,5)) + Estratto(es,10,3) + 54)
a9 = Fuori90(90 +(Estratto(es,1,2)) + Estratto(es,8,1) + 1)
a10 = Fuori90(Estratto(es,8,1) + Estratto(es,9,3) + 1)
ok = 1
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " 10 numeri su BA-NA x a/t/q/c " & a & " - " & b,1
Scrivi String(80,"°"),1
ColoreTesto 0
ruota(1) = 1
ruota(2) = 6
n(1) = a1
n(2) = a2
n(3) = a3
n(4) = a4
n(5) = a5
n(6) = a6
n(7) = a7
n(8) = a8
n(9) = a9
n(10) = a10
EliminaRipetuti n
ImpostaGiocata 1,n,ruota,poste,clp
Gioca es,1
End If
End If
Next
ScriviResoconto
End Sub
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 23 aprile 2024Bari4722342050Cagliari3314860262Firenze6122441926Genova2112578255Milano6605117030Napoli0523255273Palermo2344497165Roma8237593471Torino2642661558Venezia5706685484Nazionale2179490301Estrazione Simbolotto
Genova
2402190327
