R
Roby
Guest
Ciao a tutti piccolo metodo sui numeri isotopi elaborato un'ora fà
numero isotopo 55 uscito su due ruote, ultima uscita Bari Cagliari
posto il listato di ricerca e di conseguenza la previsione, ottima secondo me per cogliere l'uscita del 37 alla ruota di Bari
questo il listato
Sub main()
Dim n1(1), n2(5), n3(2), ruote(2), posta(1), poste(2)
posta(1)=1
poste(2)=1
n1(1)=37'<------------Le impostazioni di valori alle
n2(1)=38'<------------variabili che non saranno modificate dal listato
n2(2)=44'<------------vanno sempre prima dei cicli di conteggio
n2(3)=19
n2(4)=47
n2(5)=72
fin=EstrazioneFin
ini=7000
For es=ini To fin
For r1=1 To 9
For r2=r1+1 To 10
ok=0
pa=Posizione(es,r1,55)
pb=Posizione(es,r2,55)
If pa>0 And pb>0 And pa=pb Then nx=55 : ny=55 : ok=1
pa=Posizione(es,r1,55)
pb=Posizione(es,r2,55)
If pa>0 And pb>0 And pa=pb Then nx=55 : ny=55 : ok=1
If ok=1 Then
Scrivi DataEstrazione(es) &" "& SiglaRuota(r1) &" "& Format2(nx) &" "& SiglaRuota(r2) &" "& Format2(ny)
ruote(1)=r1
ruote(2)=r2
ImpostaGiocata 1,n1,ruote,posta,10
n3(1)=n1(1)
n3(2)=n2(1)
ImpostaGiocata 2,n3,ruote,poste,10
n3(2)=n2(2)
ImpostaGiocata 3,n3,ruote,poste,10
n3(2)=n2(3)
ImpostaGiocata 4,n3,ruote,poste,10
n3(2)=n2(4)
ImpostaGiocata 5,n3,ruote,poste,10
n3(2)=n2(5)
ImpostaGiocata 6,n3,ruote,poste,10
Gioca es
Scrivi
End If
Next
Next
Next
ScriviResoconto
End Sub
Questo il resoconto
21.11.2001 Fi 55 Ro 55
mer 21.11.2001 [7074]
G 1: M 37 Fi Ro 10/10
M 37 su Fi 6° colpo [7080/12.12.2001]
M 37 su Fi 8° colpo [7082/19.12.2001]
G 2: A 37.38 Fi Ro 10/10
A 38.37 su Fi 8° colpo [7082/19.12.2001]
G 3: A 37.44 Fi Ro 10/10
negativo
G 4: A 37.19 Fi Ro 10/10
A 19.37 su Fi 8° colpo [7082/19.12.2001]
G 5: A 37.47 Fi Ro 10/10
negativo
G 6: A 37.72 Fi Ro 10/10
negativo
12.01.2002 Pa 55 Ve 55
sab 12.01.2002 [7090]
G 1: M 37 Pa Ve 10/10
M 37 su Ve 4° colpo [7094/26.01.2002]
M 37 su Ve 10° colpo [7100/16.02.2002]
G 2: A 37.38 Pa Ve 10/10
A 37.38 su Ve 4° colpo [7094/26.01.2002]
A 38.37 su Ve 10° colpo [7100/16.02.2002]
G 3: A 37.44 Pa Ve 10/10
negativo
G 4: A 37.19 Pa Ve 10/10
negativo
G 5: A 37.47 Pa Ve 10/10
A 47.37 su Ve 10° colpo [7100/16.02.2002]
G 6: A 37.72 Pa Ve 10/10
negativo
29.05.2002 Ca 55 Ge 55
mer 29.05.2002 [7129]
G 1: M 37 Ca Ge 10/10
M 37 su Ca 7° colpo [7136/22.06.2002]
G 2: A 37.38 Ca Ge 10/10
negativo
G 3: A 37.44 Ca Ge 10/10
negativo
G 4: A 37.19 Ca Ge 10/10
negativo
G 5: A 37.47 Ca Ge 10/10
A 37.47 su Ca 7° colpo [7136/22.06.2002]
G 6: A 37.72 Ca Ge 10/10
negativo
21.08.2002 Ro 55 Ve 55
mer 21.08.2002 [7153]
G 1: M 37 Ro Ve 10/10
M 37 su Ve 2° colpo [7155/28.08.2002]
M 37 su Ro 3° colpo [7156/31.08.2002]
G 2: A 37.38 Ro Ve 10/10
A 38.37 su Ro 3° colpo [7156/31.08.2002]
G 3: A 37.44 Ro Ve 10/10
negativo
G 4: A 37.19 Ro Ve 10/10
negativo
G 5: A 37.47 Ro Ve 10/10
negativo
G 6: A 37.72 Ro Ve 10/10
A 37.72 su Ro 3° colpo [7156/31.08.2002]
15.01.2003 Pa 55 To 55
mer 15.01.2003 [7200]
G 1: M 37 Pa To 10/10
M 37 su Pa 1° colpo [7201/18.01.2003]
M 37 su Pa 3° colpo [7203/25.01.2003]
G 2: A 37.38 Pa To 10/10
negativo
G 3: A 37.44 Pa To 10/10
A 37.44 su Pa 3° colpo [7203/25.01.2003]
G 4: A 37.19 Pa To 10/10
A 37.19 su Pa 3° colpo [7203/25.01.2003]
G 5: A 37.47 Pa To 10/10
negativo
G 6: A 37.72 Pa To 10/10
negativo
25.06.2003 Mi 55 To 55
mer 25.06.2003 [7246]
G 1: M 37 Mi To 10/10
M 37 su To 3° colpo [7249/05.07.2003]
M 37 su Mi 6° colpo [7252/16.07.2003]
M 37 su Mi 7° colpo [7253/19.07.2003]
G 2: A 37.38 Mi To 10/10
negativo
G 3: A 37.44 Mi To 10/10
A 37.44 su To 3° colpo [7249/05.07.2003]
G 4: A 37.19 Mi To 10/10
negativo
G 5: A 37.47 Mi To 10/10
A 47.37 su Mi 7° colpo [7253/19.07.2003]
G 6: A 37.72 Mi To 10/10
A 72.37 su Mi 7° colpo [7253/19.07.2003]
12.11.2003 Na 55 Ve 55
mer 12.
numero isotopo 55 uscito su due ruote, ultima uscita Bari Cagliari
posto il listato di ricerca e di conseguenza la previsione, ottima secondo me per cogliere l'uscita del 37 alla ruota di Bari
questo il listato
Sub main()
Dim n1(1), n2(5), n3(2), ruote(2), posta(1), poste(2)
posta(1)=1
poste(2)=1
n1(1)=37'<------------Le impostazioni di valori alle
n2(1)=38'<------------variabili che non saranno modificate dal listato
n2(2)=44'<------------vanno sempre prima dei cicli di conteggio
n2(3)=19
n2(4)=47
n2(5)=72
fin=EstrazioneFin
ini=7000
For es=ini To fin
For r1=1 To 9
For r2=r1+1 To 10
ok=0
pa=Posizione(es,r1,55)
pb=Posizione(es,r2,55)
If pa>0 And pb>0 And pa=pb Then nx=55 : ny=55 : ok=1
pa=Posizione(es,r1,55)
pb=Posizione(es,r2,55)
If pa>0 And pb>0 And pa=pb Then nx=55 : ny=55 : ok=1
If ok=1 Then
Scrivi DataEstrazione(es) &" "& SiglaRuota(r1) &" "& Format2(nx) &" "& SiglaRuota(r2) &" "& Format2(ny)
ruote(1)=r1
ruote(2)=r2
ImpostaGiocata 1,n1,ruote,posta,10
n3(1)=n1(1)
n3(2)=n2(1)
ImpostaGiocata 2,n3,ruote,poste,10
n3(2)=n2(2)
ImpostaGiocata 3,n3,ruote,poste,10
n3(2)=n2(3)
ImpostaGiocata 4,n3,ruote,poste,10
n3(2)=n2(4)
ImpostaGiocata 5,n3,ruote,poste,10
n3(2)=n2(5)
ImpostaGiocata 6,n3,ruote,poste,10
Gioca es
Scrivi
End If
Next
Next
Next
ScriviResoconto
End Sub
Questo il resoconto
21.11.2001 Fi 55 Ro 55
mer 21.11.2001 [7074]
G 1: M 37 Fi Ro 10/10
M 37 su Fi 6° colpo [7080/12.12.2001]
M 37 su Fi 8° colpo [7082/19.12.2001]
G 2: A 37.38 Fi Ro 10/10
A 38.37 su Fi 8° colpo [7082/19.12.2001]
G 3: A 37.44 Fi Ro 10/10
negativo
G 4: A 37.19 Fi Ro 10/10
A 19.37 su Fi 8° colpo [7082/19.12.2001]
G 5: A 37.47 Fi Ro 10/10
negativo
G 6: A 37.72 Fi Ro 10/10
negativo
12.01.2002 Pa 55 Ve 55
sab 12.01.2002 [7090]
G 1: M 37 Pa Ve 10/10
M 37 su Ve 4° colpo [7094/26.01.2002]
M 37 su Ve 10° colpo [7100/16.02.2002]
G 2: A 37.38 Pa Ve 10/10
A 37.38 su Ve 4° colpo [7094/26.01.2002]
A 38.37 su Ve 10° colpo [7100/16.02.2002]
G 3: A 37.44 Pa Ve 10/10
negativo
G 4: A 37.19 Pa Ve 10/10
negativo
G 5: A 37.47 Pa Ve 10/10
A 47.37 su Ve 10° colpo [7100/16.02.2002]
G 6: A 37.72 Pa Ve 10/10
negativo
29.05.2002 Ca 55 Ge 55
mer 29.05.2002 [7129]
G 1: M 37 Ca Ge 10/10
M 37 su Ca 7° colpo [7136/22.06.2002]
G 2: A 37.38 Ca Ge 10/10
negativo
G 3: A 37.44 Ca Ge 10/10
negativo
G 4: A 37.19 Ca Ge 10/10
negativo
G 5: A 37.47 Ca Ge 10/10
A 37.47 su Ca 7° colpo [7136/22.06.2002]
G 6: A 37.72 Ca Ge 10/10
negativo
21.08.2002 Ro 55 Ve 55
mer 21.08.2002 [7153]
G 1: M 37 Ro Ve 10/10
M 37 su Ve 2° colpo [7155/28.08.2002]
M 37 su Ro 3° colpo [7156/31.08.2002]
G 2: A 37.38 Ro Ve 10/10
A 38.37 su Ro 3° colpo [7156/31.08.2002]
G 3: A 37.44 Ro Ve 10/10
negativo
G 4: A 37.19 Ro Ve 10/10
negativo
G 5: A 37.47 Ro Ve 10/10
negativo
G 6: A 37.72 Ro Ve 10/10
A 37.72 su Ro 3° colpo [7156/31.08.2002]
15.01.2003 Pa 55 To 55
mer 15.01.2003 [7200]
G 1: M 37 Pa To 10/10
M 37 su Pa 1° colpo [7201/18.01.2003]
M 37 su Pa 3° colpo [7203/25.01.2003]
G 2: A 37.38 Pa To 10/10
negativo
G 3: A 37.44 Pa To 10/10
A 37.44 su Pa 3° colpo [7203/25.01.2003]
G 4: A 37.19 Pa To 10/10
A 37.19 su Pa 3° colpo [7203/25.01.2003]
G 5: A 37.47 Pa To 10/10
negativo
G 6: A 37.72 Pa To 10/10
negativo
25.06.2003 Mi 55 To 55
mer 25.06.2003 [7246]
G 1: M 37 Mi To 10/10
M 37 su To 3° colpo [7249/05.07.2003]
M 37 su Mi 6° colpo [7252/16.07.2003]
M 37 su Mi 7° colpo [7253/19.07.2003]
G 2: A 37.38 Mi To 10/10
negativo
G 3: A 37.44 Mi To 10/10
A 37.44 su To 3° colpo [7249/05.07.2003]
G 4: A 37.19 Mi To 10/10
negativo
G 5: A 37.47 Mi To 10/10
A 47.37 su Mi 7° colpo [7253/19.07.2003]
G 6: A 37.72 Mi To 10/10
A 72.37 su Mi 7° colpo [7253/19.07.2003]
12.11.2003 Na 55 Ve 55
mer 12.