|
Bravissimooooo!!!!!
|
CAGLIARI NAPOLI
|
Inviato alle 21/02/2013 21:28
da DjNomade
|
|
ColoreTesto 2 :Scrivi String(37,32)&"Distanza di un Ambo by Bubu' ",1
Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(2),qu(4)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)
poste(1)=1
poste1(2)=1
poste2(2)=1
poste2(3)=1
fin=EstrazioneFin
ini=fin-3
For es=ini To fin
Messaggio es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n5=Distanza(n1,n2)
For x=1 To 90
If n5=x Then
n4=Fuori90(Massimo(n1,n2)+x)
n6=Fuori90(90+Minimo(n1,n2)-x)
For y=0 To 0 ' RETROATTIVITA' PER RICERCA NUMERI
ex=es+y
For rr=1 To 11
If rr=11 Then rr=12 'con nazionale
For q1=1 To 5
e1=Estratto(ex,rr,q1):
'If (e1=n4 Or e1=n6) And (rr=r1+1 Or rr=r1-1) And (q1=p1 or q1=p2) Then
qu(1)=n1:qu(2)=n2:qu(3)=n4:qu(4)=n6:
If Massimo(n1,n2)=n1 and Minimo(n1,n2)=n2 Then qu(3)=n4:qu(4)=n6
If Massimo(n1,n2)=n2 and Minimo(n1,n2)=n1 Then qu(3)=n6:qu(4)=n4
'qu(1)=n1:qu(2)=n2 48.....28 28.....48
'qu(3)=n4:qu(4)=n6 68.....08 08.....68
If ((e1=qu(3)And q1=p1) Or (e1=qu(4)And q1=p2)) And rr<>r1 Then
n7=Fuori90(qu(1)+qu(2))'Somme orizzontali
n8=Fuori90(qu(3)+qu(4))'ambata Somme orizzontali
n9=Fuori90(qu(1)+qu(3))'somme vertic
n10=Fuori90(qu(2)+qu(4))'somme vertic
n11=Fuori90(qu(2)+qu(3))'Somme diagonali
n12=Fuori90(qu(1)+qu(4))'somme vertic
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza < "&Format2(n5)&" >"
Scrivi
Scrivi" > Numeri da rintraccire < "&Format2(qu(3))&" > Posizione < "&Format2(p1)& _
"° o < "&Format2(qu(4))&" > Posizione "&Format2(p2)&"°"
Scrivi
Scrivi DataEstrazione(ex,1)&" < "&siglARuota(rr)& " "& StringaEstratti(ex,rr)&_
" > Num. rintracciato < "&Format2(e1)&" > Posizione < "&Format2(q1)&"°>"
Scrivi String(65,"-")&" caso n° "&(casi)
ruota(1)=r1:ruota(2)=rr
ruote(1)=r1:ruote(2)=rr:k=13:co=0
nu1(1)=n8
ImpostaGiocata 1 ,nu1,ruota,poste,k
nu2(1)=n8
nu2(2)=n9
ImpostaGiocata 2 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n10
ImpostaGiocata 3 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n11
ImpostaGiocata 4 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n12
ImpostaGiocata 5 ,nu2,ruota,poste1,k
nu3(1)=n8'
nu3(2)=n9'
nu3(3)=n10'
nu3(4)=n11'
nu3(5)=n12'
ImpostaGiocata 6 ,nu3,ruote,poste2,k
Gioca es+y
End If
Next:Next:Next
End If
next:next:next:next:next:
ScriviResoconto
End Sub
|
Distanza di un Ambo
|
Inviato alle 15/01/2013 23:05
da DjNomade
|
|
Ciauz bubu' mi son permesso di realizzare lo script perche' lo ritengo interessnte,
pero' vedo che ci sono molte previsioni in gioco a meno che non abbia commesso qualche errore
se puoi controllarlo......
Ciauz
'14/01/2012
ColoreTesto 2 :Scrivi String(37,32)&"Distanza di un Ambo by Bubu' ",1
Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(2),qu(4)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)
poste(1)=1
poste1(2)=1
poste2(2)=1
poste2(3)=1
fin=EstrazioneFin
ini=fin-3
For es=ini To fin
Messaggio es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n5=Distanza(n1,n2)
For x=1 To 90
If n5=x Then
n4=Fuori90(Massimo(n1,n2)+x)
n6=Fuori90(90+Minimo(n1,n2)-x)
For y=0 To 0 ' RETROATTIVITA' PER RICERCA NUMERI
ex=es+y
For rr=1 To 11
If rr=11 Then rr=12 'con nazionale
For q1=1 To 5
e1=Estratto(ex,rr,q1):
If (e1=n4 Or e1=n6) And rr<>r1 And (q1=p1 or q1=p2) Then
'If (e1=n4 Or e1=n6) And (rr=r1+1 Or rr=r1-1) And (q1=p1 or q1=p2) Then
qu(1)=n1:qu(2)=n2:qu(3)=n4:qu(4)=n6:
If Massimo(n1,n2)=n1 and Minimo(n1,n2)=n2 Then qu(3)=n4:qu(4)=n6
If Massimo(n1,n2)=n2 and Minimo(n1,n2)=n1 Then qu(3)=n6:qu(4)=n4
'qu(1)=n1:qu(2)=n2 48.....28 28.....48
'qu(3)=n4:qu(4)=n6 68.....08 08.....68
n7=Fuori90(qu(1)+qu(2))'Somme orizzontali
n8=Fuori90(qu(3)+qu(4))'ambata Somme orizzontali
n9=Fuori90(qu(1)+qu(3))'somme vertic
n10=Fuori90(qu(2)+qu(4))'somme vertic
n11=Fuori90(qu(2)+qu(3))'Somme diagonali
n12=Fuori90(qu(1)+qu(4))'somme vertic
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza < "&Format2(n5)
Scrivi DataEstrazione(ex,1)&" < "&siglARuota(rr)& " "& StringaEstratti(ex,rr)&_
" > Num. rintracciato < "&Format2(e1)&" > Posizione < "&Format2(q1)&"°>"
Scrivi String(65,"-")&" caso n° "&(casi)
ruota(1)=r1:ruota(2)=rr
ruote(1)=r1:ruote(2)=rr:k=13:co=0
nu1(1)=n8
ImpostaGiocata 1 ,nu1,ruota,poste,k
nu2(1)=n8
nu2(2)=n9
ImpostaGiocata 2 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n10
ImpostaGiocata 3 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n11
ImpostaGiocata 4 ,nu2,ruota,poste1,k
nu2(1)=n8
nu2(2)=n12
ImpostaGiocata 5 ,nu2,ruota,poste1,k
nu3(1)=n8'
nu3(2)=n9'
nu3(3)=n10'
nu3(4)=n11'
nu3(5)=n12'
ImpostaGiocata 6 ,nu3,ruote,poste2,k
Gioca es+y
End If
Next:Next:Next
End If
next:next:next:next:next:
ScriviResoconto
End Sub
|
Distanza di un Ambo
|
Inviato alle 14/01/2013 21:02
da DjNomade
|
|
|
sono nuovo
|
Inviato alle 13/12/2012 19:32
da DjNomade
|
|
Listato per L8+ o Spaziometria
Ciauz
'http://www.lottostudio.net/cms/index.php?option=com_kunena&func=view&catid=48&id=17068&Itemid=44#17068
Scrivi "Se esce il 90 al 3^ posto ",1
Scrivi "List DjNomade ",1
Sub main()
Dim ruote(3),posta(5),nu1(10),poste(5),ruota(3),nu3(10)
posta(1)=1
posta(2)=1
poste(2)=1
poste(3)=1
k=12
ce=1000
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 11:If r1=11 Then r1=12
For p1=3 To 3
a=Estratto(es,r1,p1)
If a=90 Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es-1,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es-1,r1)&_
" ] "
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruota(1)=r1:co=0:ruote(1)=11
a1=Fuori90(Estratto(es,r1,3)-Estratto(es,r1,2))
a2=Fuori90(Estratto(es,r1,3)-Estratto(es,r1,4))
a3=Fuori90(Estratto(es,r1,3)-Estratto(es-1,r1,3))
nu3(1)=a1:nu3(2)=a2:nu3(3)=a3
co=co+1
ImpostaGiocata co,nu3,ruota,posta,k
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
Gioca es
End If
Next:Next:Next
ScriviResoconto
Scrivi "90 al 3^ posto ",1
Scrivi "List DjNomade ",1
End Sub
|
Ogni volta che il 90 ...
|
Inviato alle 01/12/2012 01:12
da DjNomade
|
|
Azz quella prima è andata a segno
Ciauz
Napoli-Venezia Numero isotopo 5-5 estratto al 4° posto
mar 16.10.2012 [8600]
G 1: M 72.27 Na Ve 2/12
M 72 su Na 2° colpo [8602/20.10.2012]
in corso (2° su 12)
G 2: A 72.82 Na Ve 2/12
in corso (2° su 12)
G 3: A 72.87 Na Ve 2/12
in corso (2° su 12)
G 4: A 72.85 Na Ve 2/12
A 72.85 su Na 2° colpo [8602/20.10.2012]
in corso (2° su 12)
G 5: A 72.80 Na Ve 2/12
in corso (2° su 12)
G 6: AT 27.82.80 Na Ve 2/12
in corso (2° su 12)
G 7: AT 27.85.87 Na Ve 2/12
in corso (2° su 12)
G 8: AT 72.27.90 Na Ve Tu 2/12
A 27.72 su Tu (Ro) 1° colpo [8601/18.10.2012]
in corso (2° su 12)
|
2 nr uguali su 2 ruo ...
|
Inviato alle 20/10/2012 22:52
da DjNomade
|
|
Se ho inteso bene il procedimento dovrebbe essere cosi'
Ciauz
'http://www.lottostudio.net/cms/index.php?option=com_kunena&func=view&catid=30&id=15404&Itemid=44#15542
ColoreTesto 1
Scrivi String(37,32) & "2 nr uguali su 2 ruote x Bubu'",1
Scrivi
Scrivi String(48,32) & "Listato DjNomade",1
ColoreTesto 0
Sub main()
Dim k(2),k1(3)
Dim ruote(2),ruotee(10)
Dim posta(5),poste(5),postee(5)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
tmp=CInt (InputBox ("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp=CInt (InputBox ("Per quanti colpi di gioco ?","COLPI",12))
co=0
ini=EstrazioneFin -tmp
For es=ini To EstrazioneFin
Messaggio (es)
For r1=1 To 9
For r2=r1+1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r2,p1)
If (n1)=(n2) Then
co=co+1
Scrivi String(70,"="): ColoreTesto 2
Scrivi NomeRuota(r1)&"-"& NomeRuota (r2) &_
" Numero isotopo "& n1 &"-"& n2 &" estratto al "&p1&"° posto",1
Scrivi : ColoreTesto 0
a=91-Fuori90(n1+n2)
b=Fuori90(Fuori90(a+1)+Fuori90(90+a-1))'1^ AMBATA
c=Vert(b)'2^ AMBATA
d=DiametraleD(Fuori90(a+1))
e=DiametraleD(Fuori90(90+a-1))
ruote(1)=r1
ruote(2)=r2
ruotee(1)=r1
ruotee(2)=r2
ruotee(3)=11
k(1)=b
k(2)=c
ImpostaGiocata 1, k, ruote, posta,clp
k(1)=b
k(2)=Fuori90(a+1)
ImpostaGiocata 2, k, ruote, poste,clp
k(1)=b
k(2)=d
ImpostaGiocata 3, k, ruote, poste,clp
k(1)=b
k(2)=e
ImpostaGiocata 4, k, ruote, poste,clp
k(1)=b
k(2)=Fuori90(90+a-1)
ImpostaGiocata 5, k, ruote, poste,clp
k1(1)=c
k1(2)=Fuori90(a+1)
k1(3)=Fuori90(90+a-1)
ImpostaGiocata 6, k1, ruote, postee,clp
k1(1)=c
k1(2)=e
k1(3)=d
ImpostaGiocata 7, k1, ruote, postee,clp
k1(1)=b
k1(2)=c
k1(3)=90
ImpostaGiocata 8, k1, ruotee, postee,clp
Gioca es
End If
Next
Next : Next
Next
Scrivi : Scrivi "Casi Riscontrati n° "& CInt (co)
ScriviResoconto
ColoreTesto 1
Scrivi String(37,32) & "2 nr uguali su 2 ruote x Bubu'",1
Scrivi
Scrivi String(48,32) & "Listato DjNomade",1
ColoreTesto 0
End Sub
|
2 nr uguali su 2 ruo ...
|
Inviato alle 20/10/2012 14:01
da DjNomade
|
|
13 Quartine a garanzia dell'ambo con due numeri estratti
04,16,38,64
16,19,44,82
19,38,50,86
03,38,44,59
04,44,50,61
16,50,59,62
19,59,61,64
38,61,62,82
44,62,64,86
03,50,64,82
04,59,82,86
03,16,61,86
03,04,19,62
vedi se puo andar bene
Ciauz
|
dal 20 isotopo MI-NA
|
Inviato alle 17/10/2012 14:44
da DjNomade
|
|
anto ha scritto:
BA CA
9 55 AMBATE SEMPLICI 2°3°4° POS. E AMBO
90 59 ABBINAMENTI PER SORTI SUPERIORI
in gioco per 13 colpi
...se può essere utile posto una piccola statistica e il listato.... sono riuscita a compilarlooooo;)
mar 02.11.2010 [8294]
G 1: MA 05.50 Ba Ca 2/13 ---------------------------->Bari-Cagliari : 05-41;
M 50 su Ca 2° colpo [8296/06.11.2010]
I2
gio 02.12.2010 [8307]
G 1: MA 85.58 Ba Ca 2/13 ----------------------------->Bari-Cagliari : 85-51;
M 58 su Ca 2° colpo [8309/07.12.2010]
I2
lun 03.01.2011 [8320]
G 1: MA 30.76.03.67 Ba Ca 1/13
M 30 su Ba 1° colpo [8321/04.01.2011]
I1
mar 01.02.2011 [8333]
G 1: MA 44.90.49.09 Ba Ca 1/13
M 09 su Ba 1° colpo [8334/03.02.2011]
I1
mar 01.03.2011 [8345]
G 1: MA 19.65.11.56 Ba Ca 2/13
M 65 su Ca 2° colpo [8347/05.03.2011]
I2
sab 02.04.2011 [8359]
G 1: MA 85.58 Ba Ca 1/13 ----------------------------->Bari-Cagliari : 85-51;
M 85 su Ca 1° colpo [8360/05.04.2011]
I1
mar 03.05.2011 [8372]
G 1: MA 39.33 Ba Ca 8/13 ----------------------------->Bari-Cagliari : 39-07;
M 39 su Ca 8° colpo [8380/21.05.2011]
I8
ven 03.06.2011 [8385]
G 1: MA 34.80.43.08 Ba Ca 1/13
M 43 su Ba 1° colpo [8386/04.06.2011]
I1
sab 02.07.2011 [8398]
G 1: MA 37.73 Ba Ca 2/13 ----------------------------->Bari-Cagliari :37-09;
M 37.73 su Ba 2° colpo [8400/07.07.2011]
A 37.73 su Ba 2° colpo [8400/07.07.2011]
M 73 su Ca 2° colpo [8400/07.07.2011]
I2
mar 02.08.2011 [8411]
G 1: MA 03.30 Ba Ca 1/13 ----------------------------->Bari-Cagliari : 03-43;
M 03 su Ba 1° colpo [8412/04.08.2011]
I1
gio 01.09.2011 [8424]
G 1: MA 23.69.32.66 Ba Ca 1/13
M 32 su Ca 1° colpo [8425/03.09.2011]
I1
sab 01.10.2011 [8437]
G 1: MA 13.59.31.55 Ba Ca 1/13
M 55 su Ca 1° colpo [8438/04.10.2011]
I1
mer 02.11.2011 [8450]
G 1: MA 67.76 Ba Ca 3/13 ----------------------------->Bari-Cagliari : 67-69;
M 67.76 su Ba 3° colpo [8453/08.11.2011]
A 67.76 su Ba 3° colpo [8453/08.11.2011]
I3
gio 01.12.2011 [8463]
G 1: MA 56.12.65.21 Ba Ca 1/13
M 56 su Ba 1° colpo [8464/03.12.2011]
I1
mar 03.01.2012 [8477]
G 1: MA 01.10 Ba Ca 1/13 ----------------------------->Bari-Cagliari : 01-45;
M 10 su Ba 1° colpo [8478/05.01.2012]
I1
gio 02.02.2012 [8490]
G 1: MA 01.47.10.74 Ba Ca 3/13
M 01 su Ca 3° colpo [8493/09.02.2012]
I3
gio 01.03.2012 [8502]
G 1: MA 44.90.49.09 Ba Ca 1/13
M 90 su Ca 1° colpo [8503/03.03.2012]
I1
mar 03.04.2012 [8516]
G 1: MA 72.28.27.82 Ba Ca 5/13
M 28 su Ca 5° colpo [8521/14.04.2012]
I5
mer 02.05.2012 [8528]
G 1: MA 53.09.35.90 Ba Ca 3/13
M 90 su Ca 3° colpo [8531/08.05.2012]
I3
lun 04.06.2012 [8542]
G 1: MA 58.14.85.41 Ba Ca 3/13
M 41 su Ca 3° colpo [8545/09.06.2012]
I3
mar 03.07.2012 [8555]
G 1: MA 23.32 Ba Ca 1/13
M 32 su Ba 1° colpo [8556/05.07.2012]
I1
gio 02.08.2012 [8568]
G 1: MA 82.28 Ba Ca 3/13 ----------------------------->Bari-Cagliari : 54-82;
M 82 su Ba 3° colpo [8571/09.08.2012]
I3
sab 01.09.2012 [8581]
G 1: MA 32.78.23.87 Ba Ca 2/13
M 23 su Ca 2° colpo [8583/06.09.2012]
I2
mar 02.10.2012 [8594]
G 1: MA 09.55.90.59 Ba Ca 0/13
n.i. (13 colpi)
=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali
Casi esaminati: 24
in corso: 1
casi finali: 23
positivi: 23
negativi: 0
Pronostici generati: 48
Pronostici vincenti: 24 (50,0 %)
Estrazioni di gioco: 49
Tentativi (scontrini giocati): 98
Vincite (scontrini vincenti): 24 (24,49 %)
Attesa media: 2,13
Resoconto totale giocate
Dettaglio Ruote (Pronostici)
Ruota Vincenti Giocati
---------------------------------
Bari 10 ( 20,41 % ) 49
Cagliari 14 ( 28,57 % ) 49
Totale 24 ( 24,49 % ) 98
Resoconto totale giocate
Dettaglio Successi
Giocata Successi Colpo Perc. Entro
-----------------------------------------
Tutte 11 1 45,8 % 45,8 %
Tutte 6 2 25,0 % 70,8 %
Tutte 5 3 20,8 % 91,7 %
Tutte 1 5 4,2 % 95,8 %
Tutte 1 8 4,2 % 100,0 %
---------------------------------------------------------------------------------------------------------
'****METODO PRIMUS*****'
'1* ESTRAZIONE MESE -
'RUOTE IN GIOCO BARI E CAGLIARI
'CALCOLO
'1°ESTRATTO DI BARI + 5°ESTRATTO DI CAGLIARI-91= 1° AMBATA ( se il secondo nr. risulta maggiore di 90 calcolare il fuori 90)
'1°ESTRATTO DI BARI + 5°ESTRATTO DI CAGLIARI+45= 2° AMBATA( " " " ' )
'VERTIBILI DELLE DUE AMBATE'
'POSIZIONE 2°3°4°'
'COLPI DI GIOCO 13
'---------------------------------------------------------------------------------------------------------------------------'
'LISTATO BY ANTO'
'****************************************************************************************************************************'
Sub main()
Dim nr(4)
Dim rt(2)' ba ca'
Dim pta(2)
rt(1)=1
rt(2)=2
pta(1)=1
pta(2)=1
es=InputBox("300")
For es=EstrazioneFin-300 To EstrazioneFin
If IndiceMensile(es)=1 Then
k=13
ng=0
nr(1)=Estratto(es,1,1)+Estratto(es,2,5)
nr(2)=Estratto(es,1,1)+Estratto(es,2,5)
nr(1)=Fuori90(Estratto(es,1,1)+Estratto(es,2,5)-91)
nr(2)=Fuori90(Estratto(es,1,1)+Estratto(es,2,5)+45)
nr(3)=Vert(nr(1))
nr(4)=Vert(nr(2))
ImpostaGiocata 1,nr,rt,pta,k,1
Gioca es
End If
Next
ScriviResoconto
End Sub
Grazieeeeeeeeeeee...
sto cercando di capire perche' dal programma risulta qualche previsione diversa......
Ciauz
|
METODO PRIMUS OTTOBR ...
|
Inviato alle 06/10/2012 15:13
da DjNomade
|
|
@Bubu'
ma le combinazioni 2-6 / 4-4 non sono previste
oppure è una dimenticanza???
Ciauz
|
TABELLA NUMERETTI
|
Inviato alle 03/10/2012 23:26
da DjNomade
|
|
CIAUZ FRANCA BENVENUTA
|
Ciaooooooooooooooooo ...
|
Inviato alle 03/10/2012 21:55
da DjNomade
|
|
Per chi usa L8+ o Spaziometria salvo errori.....
Ciauz
' www.lottostudio.net/cms/index.php?option...=14845&Itemid=44
ColoreTesto 1 :Scrivi "TABELLA NUMERETTI---by BUBU' ----",1
Scrivi
Scrivi String(28,32)&"List.DjNomade",1
ColoreTesto 0
Sub main()
Dim nn(2),nn1(5),amb(6),nn4(5)
Dim ruote(10),ruot(1)
Dim n(10),pt(10),ptt(5), pttt(4)
pt(1)=1 :
ptt(2)=1 :
pttt(2)=1
pttt(3)=1
pttt(4)=1
colpi=13
ini=EstrazioneFin -50
fin=EstrazioneFin
For es=ini To fin
For r=1 To 10
For p=1 To 5
a=Estratto (es,r,p)
r1=r+1
If r1=11 Then r1=12
b=Estratto (es,r1,p)
ruote(1)=r
ruote(2)=r1
If (a<10 And b<10) Then
'-------------------------------------------------------------------
ok=0
If (a=1 And b=1)Or (a=1 And b=1) Then amb(1)=89:amb(2)=44:amb(3)=65:amb(4)=88:ok=1
If (a=1 And b=2)Or (a=2 And b=1) Then amb(1)=79:amb(2)=21:amb(3)=47:amb(4)=80:ok=1
If (a=1 And b=3)Or (a=3 And b=1) Then amb(1)=44:amb(2)=22:amb(3)=55:amb(4)=86:ok=1
If (a=1 And b=4)Or (a=4 And b=1) Then amb(1)=77:amb(2)=23:amb(3)=41:amb(4)=88:ok=1
If (a=1 And b=5)Or (a=5 And b=1) Then amb(1)=60:amb(2)=22:amb(3)=47:amb(4)=80:ok=1
If (a=1 And b=6)Or (a=6 And b=1) Then amb(1)=16:amb(2)=32:amb(3)=47:amb(4)=86:ok=1
If (a=1 And b=7)Or (a=7 And b=1) Then amb(1)=45:amb(2)=22:amb(3)=50:amb(4)=90:ok=1
If (a=1 And b=8)Or (a=8 And b=1) Then amb(1)=81:amb(2)=09:amb(3)=61:amb(4)=88:ok=1
If (a=1 And b=9)Or (a=9 And b=1) Then amb(1)=90:amb(2)=18:amb(3)=19:amb(4)=63:ok=1
If (a=2 And b=2)Or (a=2 And b=2) Then amb(1)=29:amb(2)=22:amb(3)=47:amb(4)=90:ok=1
If (a=2 And b=3)Or (a=3 And b=2) Then amb(1)=05:amb(2)=08:amb(3)=20:amb(4)=59:ok=1
If (a=2 And b=4)Or (a=4 And b=2) Then amb(1)=60:amb(2)=02:amb(3)=24:amb(4)=88:ok=1
If (a=2 And b=5)Or (a=5 And b=2) Then amb(1)=17:amb(2)=56:amb(3)=65:amb(4)=89:ok=1
'If (a=2 And b=6)Or (a=6 And b=2) Then amb(1)=90:amb(2)=49:amb(3)=16:amb(4)=61:ok=1
If (a=2 And b=7)Or (a=7 And b=2) Then amb(1)=90:amb(2)=09:amb(3)=30:amb(4)=69:ok=1
If (a=2 And b=8)Or (a=8 And b=2) Then amb(1)=82:amb(2)=28:amb(3)=68:amb(4)=75:ok=1
If (a=2 And b=9)Or (a=9 And b=2) Then amb(1)=22:amb(2)=33:amb(3)=44:amb(4)=80:ok=1
If (a=3 And b=3)Or (a=3 And b=3) Then amb(1)=66:amb(2)=24:amb(3)=42:amb(4)=68:ok=1
If (a=3 And b=4)Or (a=4 And b=3) Then amb(1)=43:amb(2)=34:amb(3)=77:amb(4)=89:ok=1
If (a=3 And b=5)Or (a=5 And b=3) Then amb(1)=90:amb(2)=30:amb(3)=45:amb(4)=47:ok=1
If (a=3 And b=6)Or (a=6 And b=3) Then amb(1)=66:amb(2)=17:amb(3)=65:amb(4)=90:ok=1
If (a=3 And b=7)Or (a=7 And b=3) Then amb(1)=80:amb(2)=20:amb(3)=45:amb(4)=90:ok=1
If (a=3 And b=8)Or (a=8 And b=3) Then amb(1)=11:amb(2)=08:amb(3)=47:amb(4)=89:ok=1
If (a=3 And b=9)Or (a=9 And b=3) Then amb(1)=39:amb(2)=13:amb(3)=61:amb(4)=90:ok=1
If (a=4 And b=5)Or (a=5 And b=4) Then amb(1)=09:amb(2)=21:amb(3)=84:amb(4)=90:ok=1
If (a=4 And b=6)Or (a=6 And b=4) Then amb(1)=64:amb(2)=32:amb(3)=46:amb(4)=77:ok=1
If (a=4 And b=7)Or (a=7 And b=4) Then amb(1)=11:amb(2)=10:amb(3)=64:amb(4)=65:ok=1
If (a=4 And b=8)Or (a=8 And b=4) Then amb(1)=48:amb(2)=42:amb(3)=66:amb(4)=84:ok=1
If (a=4 And b=9)Or (a=9 And b=4) Then amb(1)=49:amb(2)=04:amb(3)=44:amb(4)=79:ok=1
If (a=5 And b=5)Or (a=5 And b=5) Then amb(1)=90:amb(2)=09:amb(3)=30:amb(4)=45:ok=1
If (a=5 And b=6)Or (a=6 And b=5) Then amb(1)=56:amb(2)=17:amb(3)=65:amb(4)=90:ok=1
If (a=5 And b=7)Or (a=7 And b=5) Then amb(1)=12:amb(2)=44:amb(3)=68:amb(4)=75:ok=1
If (a=5 And b=8)Or (a=8 And b=5) Then amb(1)=13:amb(2)=33:amb(3)=67:amb(4)=68:ok=1
If (a=5 And b=9)Or (a=9 And b=5) Then amb(1)=90:amb(2)=30:amb(3)=59:amb(4)=70:ok=1
If (a=6 And b=6)Or (a=6 And b=6) Then amb(1)=66:amb(2)=21:amb(3)=51:amb(4)=90:ok=1
If (a=6 And b=7)Or (a=7 And b=6) Then amb(1)=76:amb(2)=40:amb(3)=67:amb(4)=88:ok=1
If (a=6 And b=8)Or (a=8 And b=6) Then amb(1)=68:amb(2)=08:amb(3)=23:amb(4)=61:ok=1
If (a=6 And b=9)Or (a=9 And b=6) Then amb(1)=69:amb(2)=11:amb(3)=21:amb(4)=70:ok=1
If (a=7 And b=7)Or (a=7 And b=7) Then amb(1)=77:amb(2)=41:amb(3)=44:amb(4)=80:ok=1
If (a=7 And b=8)Or (a=8 And b=7) Then amb(1)=87:amb(2)=13:amb(3)=55:amb(4)=78:ok=1
If (a=7 And b=9)Or (a=9 And b=7) Then amb(1)=79:amb(2)=21:amb(3)=45:amb(4)=80:ok=1
If (a=8 And b=8)Or (a=8 And b=8) Then amb(1)=88:amb(2)=24:amb(3)=42:amb(4)=66:ok=1
If (a=8 And b=9)Or (a=9 And b=8) Then amb(1)=89:amb(2)=45:amb(3)=66:amb(4)=87:ok=1
If (a=9 And b=9)Or (a=9 And b=9) Then amb(1)=90:amb(2)=19:amb(3)=27:amb(4)=63:ok=1
If ok=1 Then
'-------------------------------------------------------------------
co=co+1
Scrivi String (65,"=")
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" trovato ",0,0
ColoreTesto 2
Scrivi a,1
ColoreTesto 0
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1)&" trovato ",0,0
ColoreTesto 2
Scrivi b,1
ColoreTesto 0
Scrivi
nn(1)=amb(1)
nn(2)=amb(1)
ImpostaGiocata 1,nn,ruote,pt,colpi
nn1(1)=amb(1)
nn1(2)=amb(2)
ImpostaGiocata 2,nn1,ruote,ptt,colpi
nn1(1)=amb(1)
nn1(2)=amb(3)
ImpostaGiocata 3,nn1,ruote,ptt,colpi
nn1(1)=amb(1)
nn1(2)=amb(4)
ImpostaGiocata 4,nn1,ruote,ptt,colpi
nn4(1)=amb(1)
nn4(2)=amb(2)
nn4(3)=amb(3)
nn4(4)=amb(4)
ImpostaGiocata 5,nn4,ruote,pttt,colpi
Gioca es
End If
End If
Next : Next : Next
Scrivi "Casi trovati "& CInt (co)
ScriviResoconto
End Sub
|
TABELLA NUMERETTI
|
Inviato alle 03/10/2012 21:45
da DjNomade
|
|
Hoa appena provato e per Spaziometria dovresti cambiare questa riga
da cosi OrdinaMatrice a
a OrdinaMatrice a,- 1
e gira anche li
Ciauz
|
Metodo che sto testa ...
|
Inviato alle 01/10/2012 20:36
da DjNomade
|
|
Ciauz se puo' servire ho preparato un listato per L8+, premetto che non son riuscito ad inserire la posizione determinata
ColoreTesto 2 :Scrivi String(37,32)&"Metodo personale di Zikomo",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
Sub Main
Dim numeri1(10),a(5),numeri2(5)
Dim ruote(10),ruota(10)
Dim poste(3),postee(5)
Dim posta(2)
posta(1) = 1 ' < - - - posta
posta(2) = 1 ' < - - - posta
poste(2) = 1 ' < - - - posta
postee(2) = 1 ' < - - - posta
postee(3) = 1 ' < - - - posta
postee(4) = 1 ' < - - - posta
k = 9' < - - - Colpi di gioco
For n = 8508 To EstrazioneFin
For r=1 To 12
If r<>11 Then
a(1)=Estratto(n,r,1)
a(2)=Estratto(n,r,2)
a(3)=Estratto(n,r,3)
a(4)=Estratto(n,r,4)
a(5)=Estratto(n,r,5)
OrdinaMatrice a
If a(1)+a(5)<=90 And a(2)+a(3)+a(4)<=90 Then
ruote(1)=r' Ruota di verifica esito
ruote(2)=12' Ruota di verifica esito
ruota(1)=11
Scrivi String(78,"="),1
Scrivi DataEstrazione(n,1)&" [ "&SiglaRuota(r)&" - "&stringaestratti(n,r)&" ] "
numeri1(1)=a(1)+a(5)
numeri1(2)=a(2)+a(3)+a(4)
ImpostaGiocata 1,numeri1,ruote,posta,k
numeri1(1)=a(1)+a(5)
numeri1(2)=Vert(a(1)+a(5))
ImpostaGiocata 2,numeri1,ruote,poste,k
numeri1(1)=a(2)+a(3)+a(4)
numeri1(2)=Vert(a(2)+a(3)+a(4))
ImpostaGiocata 3,numeri1,ruote,poste,k
numeri1(1)=a(1)+a(5)
numeri1(2)=Diametrale(a(1)+a(5))
ImpostaGiocata 4,numeri1,ruote,poste,k
numeri1(1)=a(1)+a(5)
numeri1(2)=90-(a(1)+a(5))
ImpostaGiocata 5,numeri1,ruote,poste,k
numeri1(1)=a(2)+a(3)+a(4)
numeri1(2)=Diametrale(a(2)+a(3)+a(4))
ImpostaGiocata 6,numeri1,ruote,poste,k
numeri1(1)=a(2)+a(3)+a(4)
numeri1(2)=90-(a(2)+a(3)+a(4))
ImpostaGiocata 7,numeri1,ruote,poste,k
numeri1(1)=a(1)+a(5)
numeri1(2)=a(2)+a(3)+a(4)
ImpostaGiocata 8,numeri1,ruota,poste,k
numeri2(1)=a(1)+a(5)
numeri2(2)=Vert(a(1)+a(5))
numeri2(3)=Diametrale(a(1)+a(5))
numeri2(4)=90-(a(1)+a(5))
numeri2(5)=a(2)+a(3)+a(4)
ImpostaGiocata 9,numeri2,ruota,postee,k
numeri2(1)=a(1)+a(5)
numeri2(2)=Vert(a(2)+a(3)+a(4))
numeri2(3)=Diametrale(a(2)+a(3)+a(4))
numeri2(4)=90-(a(2)+a(3)+a(4))
numeri2(5)=a(2)+a(3)+a(4)
ImpostaGiocata 10,numeri2,ruota,postee,k
Gioca n
End if
End if
Next
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32)&"Metodo personale di Zikomo",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
End Sub
|
Metodo che sto testa ...
|
Inviato alle 30/09/2012 22:50
da DjNomade
|
|
|
COMPLIMENTI AL VINCI ...
|
Inviato alle 15/07/2012 23:20
da DjNomade
|
|
GENOVA-PALERMO
48-30
48-75
48-29
49-30
49-75
49-29
29-84
7 AMBI DA 1 € x 2 Ruote TOT 14€
VENEZIA
13-90
AMBO DA 1 € TOT 1€
Ciauz
|
PREVISONI GARA SABAT ...
|
Inviato alle 14/07/2012 17:09
da DjNomade
|
|
AMBO 18-79 PALERMO
|
PREVISION GARA GIOVE ...
|
Inviato alle 12/07/2012 20:12
da DjNomade
|
|
GENOVA-PALERMO
18-86
18-06
18-79
53-86
53-06
53-79
70-27
7 AMBI DA 1 € x 2 Ruote TOT 14€
VENEZIA
13-90
AMBO DA 1 € TOT 1€
Ciauz
|
PREVISION GARA GIOVE ...
|
Inviato alle 12/07/2012 18:28
da DjNomade
|
|
DjNomade ha scritto:
GENOVA-PALERMO
82-26
82-47
54-26
54-47
54-82
69-84
69-86
7 AMBI DA 1 € x 2 Ruote TOT 14€
VENEZIA
13-90
AMBO DA 1 € TOT 1€
Ciauz
AMBO A GENOVA 47-82
|
PREVISIONI ESTRAZION ...
|
Inviato alle 26/06/2012 20:35
da DjNomade
|
|
GENOVA-PALERMO
82-26
82-47
54-26
54-47
54-82
69-84
69-86
7 AMBI DA 1 € x 2 Ruote TOT 14€
VENEZIA
13-90
AMBO DA 1 € TOT 1€
Ciauz
|
PREVISIONI ESTRAZION ...
|
Inviato alle 25/06/2012 23:04
da DjNomade
|
|
BARI-CAGLIARI
89-22
89-32
89-70
47-70
47-12
47-14
47-87
AMBI DA 1 € x 2 Ruote TOT 14€
VENEZIA
13-90
AMBO DA 1 € TOT 1€
Ciauz
|
PREVISIONI GARA SABA ...
|
Inviato alle 22/06/2012 23:06
da DjNomade
|
|
BARI-CAGLIARI
89-22
89-32
89-70
47-70
47-12
47-14
47-87
AMBI DA 1 € x 2 Ruote TOT 14€
VENEZIA
13-90
AMBO DA 1 € TOT 1€
Ciauz
|
PREVISIONI GARA GIOV ...
|
Inviato alle 20/06/2012 23:17
da DjNomade
|
|
BARI-CAGLIARI
89-22
89-32
89-70
47-70
47-12
47-14
47-87
AMBI DA 1 € x 2 Ruote TOT 14€
VENEZIA
13-90
AMBO DA 1 € TOT 1€
Ciauz
|
PREVISIONI GARA MART ...
|
Inviato alle 18/06/2012 23:19
da DjNomade
|
|
BARI-CAGLIARI
89-22
89-32
89-70
47-70
47-12
47-14
47-87
AMBI DA 1 € x 2 Ruote TOT 14€
GENOVA
18-90
AMBO DA 1 € TOT 1€
Ciauz
|
PREVISIONI GARA SABA ...
|
Inviato alle 16/06/2012 00:42
da DjNomade
|
|
BARI-CAGLIARI
89-22
89-32
89-70
47-70
47-12
47-14
47-87
AMBI DA 1 € x 2 Ruote TOT 14€
GENOVA
18-90
AMBO DA 1 € TOT 1€
Ciauz
|
PREVISIONI GARA est. ...
|
Inviato alle 13/06/2012 19:54
da DjNomade
|