Posts written by drago29

view post Posted: 10/12/2009, 15:42     Vi regalo un mio metodino METODO DIST9 IN 9 COLPI Ang.skizzo - LE VOSTRE TECNICHE
In base alla distanza 9 su una ruota e un numero di distanza 45 isotopo lo svolgimento del metodo e sempre uguale ?

Quanto alla modifica che hai fatto e uguale a quella che esista perchè se vai vedere il listato Prima sono fatti i conteggi
Cioè z=90-n3 esiste già in a2 Perciò se vedi " a7=a2+18 " Ciao

Edited by drago2940 - 10/12/2009, 15:58
view post Posted: 10/12/2009, 11:35     Vi regalo un mio metodino METODO DIST9 IN 9 COLPI Ang.skizzo - LE VOSTRE TECNICHE
Al listeto ho aggiunto l'ambata Ciao
view post Posted: 10/12/2009, 11:08     X Angelo skizzo riguardo il metodo distsnza 9 - LE VOSTRE TECNICHE
Ciao Angelo cortesemente se mi potresti spiegare meglio il metodo distanza 9
io lo iterpreto così
Esempio Estrazione del 9/12/09
Roma 33 Torino 42
Svolgimento
90-33=57
90-42=48
57+18=75
Vertibile(75)=57 Ambata
57+9=66 1° Abbinamento
Vertibele (66)=69 2° Abbinamento
42+18=60 Terzo abbinamento
Previsione Ro To 57 66 69 60
però se vado a controllare non risulta con la tua statistica postata

Cia Gianni
view post Posted: 10/12/2009, 10:11     Vi regalo un mio metodino METODO DIST9 IN 9 COLPI Ang.skizzo - LE VOSTRE TECNICHE
Ciao Angelo se gradito ecco il metodo in L8

ecco quello cin l'ambata aggiunta
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(3)
Dim posta(1),poste(2),post(3),pos(5)
posta(1)=1:poste(2)=1
pos(2)=3:pos(3)=0.8:pos(4)=0.2
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
For p1=1 To 5
n1=Estratto(es,r1,p1)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 5
n3=Estratto(es,r2,p3)
ds1=Distanza(n1,n3)
If Cadenza(n1)<>0 And Cadenza(n3)<>0 And ds1=9 And p1=p3 And r1+1=r2 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2(ds1)&" . "&Format2 (n1)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2(ds1)&" . "&Format2 (n3)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:k=14:co=0
a1=90-n1
a2=90-n3
a3=Fuori90(a1+18)
a4=Vert(a3)' AMBATA_
a5=Fuori90(a1+9)' 1 Abbinamento
a6=Vert(a5) ' 2 Abbinamento
a7=Fuori90(18+n3)' 3 Abbinamento
nu3(1)=a4
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k

nu1(1)=a4:nu1(2)=a5:nu1(3)=a6
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
nu2(1)=a4:nu2(2)=a5:nu2(3)=a6:nu2(4)=a7
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub


Edited by drago2940 - 10/12/2009, 11:33
view post Posted: 26/8/2009, 18:05     Ambata 10 isotopa su 2 ruote!!!! - LE VOSTRE TECNICHE
Ciao Figurati per csi Poco
view post Posted: 26/8/2009, 15:45     Ambata 1 isotopa su 2 ruote! - LE VOSTRE TECNICHE
Ecco il listato in L8
Sub main()
Dim ruote(10),posta(5),nu2(10),nu1(10),ruota(10)
posta(2)=3
dis=9
k=9
ce=300
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 11:If r2=11 Then r2=12
For p2=1 To 5
b=Estratto(es,r2,p2)
If a=1 And b=1 And p1=p2 Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_
" ] "&format2(b)&" "&(p2)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(3)=11
nu2(1)=60:nu2(2)=41
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu2(1)=60:nu2(2)=87
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu2(1)=41:nu2(2)=87
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu2(1)=90:nu2(2)=18
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu1(1)=60:nu1(2)=41:nu1(3)=87:nu1(4)=90:nu1(5)=18
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
Gioca es
End If
Next:Next:Next:Next:Next
End Sub
view post Posted: 26/8/2009, 15:29     Ambata 10 isotopa su 2 ruote!!!! - LE VOSTRE TECNICHE
Ecco il listato im L8

Sub main()
Dim ruote(10),posta(5),nu2(10),nu1(10),ruota(10)
posta(2)=3
dis=9
k=9
ce=300
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 11:If r2=11 Then r2=12
For p2=1 To 5
b=Estratto(es,r2,p2)
If a=10 And b=10 And p1=p2 Then
casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_
" ] "&format2(b)&" "&(p2)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(3)=11:co=0
nu2(1)=84:nu2(2)=63
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu2(1)=22:nu2(2)=52
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu2(1)=11:nu2(2)=70
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu2(1)=47:nu2(2)=70
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu2(1)=11:nu2(2)=56
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
nu1(1)=84:nu1(2)=63:nu1(3)=22:nu1(4)=52:nu1(5)=11:nu1(6)=70:nu1(7)=47:nu1(8)=56
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
Gioca es
End If
Next:Next:Next:Next:Next
End Sub
view post Posted: 4/8/2009, 13:52     TECNICA X AMBATA DETERMINATA - LE VOSTRE TECNICHE
Ciao a tutti vi posto lo script in L8 del metodo così vi potete sbizzarire a trovare orevisione ciao Gianni

Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(2),post(3)
poste(2)=1 : poste(2)=0.5 : post(3)=1.5
c1=InputBox("da quale Ruota ? 1 a 10, 11 Per La Naz")
k=9
ruota(1)=11
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
Messaggio es
For r1=c1 To c1
If r1=11 Then r1=12

For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1): ds1=Figura(n1)
n2=Estratto(es,r1,p2): ds2=Figura(n2)
If ds1=ds2 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo Figura < "&Format2 (ds1)&" >"&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi String(65,"-")&" caso n° "&(casi):ruote(1)=r1
co=0:a1=Fuori90(n1+n2):b1=90-a1
nu3(1)=b1
posta(1)=1 : posta(p1+5)=1 : posta(p2+5)=1
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
Erase posta
nu2(1)=b1
nu2(2)=Vert(b1)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next:next
ScriviResoconto
End Sub
view post Posted: 26/6/2009, 15:15     UNA TERZINA SU CAGLIARI!!!! - LE VOSTRE TECNICHE
Eccoti il listato in l8

Sub main()
Dim numeri1(10)
Dim ruote(10)
Dim posta(5)
posta(2)=1
posta(3)=1
ruote(1)=2
For n= 7981 To EstrazioneFin
If IndiceMensile(n)=1 Then
a=Estratto(n,2,5):b=Estratto(n,2,1)
numeri1(3)=Fuori90(b+31)
numeri1(4)=Fuori90(b+37)
numeri1(5)=Fuori90(b+58)
ImpostaGiocata 1,numeri1,ruote,posta,11
ImpostaInterruzioni 1,2,1
Gioca n
End If
Next
ScriviResoconto
End Sub

Questa la Statstica
lun 03.11.2008 [7981]
G 1: A 74.80.11 Ca 11/11
A 74.80 su Ca 6° colpo [7987/15.11.2008]

mar 02.12.2008 [7994]
G 1: A 49.55.76 Ca 11/11
A 49.76 su Ca 3° colpo [7997/09.12.2008]

ven 02.01.2009 [8007]
G 1: A 67.73.04 Ca 11/11
A 67.04 su Ca 1° colpo [8008/03.01.2009]

mar 03.02.2009 [8021]
G 1: A 54.60.81 Ca 11/11
A 81.54 su Ca 7° colpo [8028/19.02.2009]

mar 03.03.2009 [8033]
G 1: A 44.50.71 Ca 11/11
A 71.44 su Ca 4° colpo [8037/12.03.2009]

gio 02.04.2009 [8046]
G 1: A 77.83.14 Ca 11/11
A 77.83 su Ca 7° colpo [8053/18.04.2009]

sab 02.05.2009 [8059]
G 1: A 58.64.85 Ca 11/11
A 58.64 su Ca 7° colpo [8066/19.05.2009]

mer 03.06.2009 [8072]
G 1: A 31.37.58 Ca 10/11
in corso (10° su 11)


=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 8
in corso: 1
casi finali: 7
positivi: 7
negativi: 0
Pronostici generati: 8
Pronostici vincenti: 7 (87,5 %)
Estrazioni di gioco: 87
Tentativi (scontrini giocati): 87
Vincite (scontrini vincenti): 7 (8,05 %)
Attesa media: 5,00




Resoconto totale giocate
Dettaglio Ruote (Pronostici)

Ruota Vincenti Giocati
-------------------------------
Cagliari 7 ( 8,05 % ) 87
Totale 7 ( 8,05 % ) 87




Resoconto totale giocate
Resoconto economico

Sorte Spese [€] Real. Vincite [€] -6% Guadagno [€]
-------------------------------------------------------------
Ambata 0,00 0 0,00 0,00 0,00
Ambo 87,00 7 583,33 548,33 461,33
Terno 0,00 0 0,00 0,00 0,00
Quaterna 0,00 0 0,00 0,00 0,00
Cinquina 0,00 0 0,00 0,00 0,00
E.Det.1 0,00 0 0,00 0,00 0,00
E.Det.2 0,00 0 0,00 0,00 0,00
E.Det.3 0,00 0 0,00 0,00 0,00
E.Det.4 0,00 0 0,00 0,00 0,00
E.Det.5 0,00 0 0,00 0,00 0,00
Totale: 87,00 583,33 496,33 461,33




Resoconto totale giocate
Dettaglio Successi

Giocata Successi Colpo Perc. Entro
-----------------------------------------
Tutte 1 1 14,3 % 14,3 %
Tutte 1 3 14,3 % 28,6 %
Tutte 1 4 14,3 % 42,9 %
Tutte 1 6 14,3 % 57,1 %
Tutte 3 7 42,9 % 100,0 %




Edited by drago2940 - 26/6/2009, 16:33
view post Posted: 26/6/2009, 08:33     Metodo Terzine Distanza 30 e Numeri Equivalenti a 50 E listato L8 - LE VOSTRE TECNICHE
Metodologia ricavata da un principio che il lettore ha denominato " teoria posizionale dei numeri" la quale afferma che tra i vari numeri estratti esiste un legame che dipende dalla posizione assunta dai medesimi nel quadro estrazionale.
La procedura è la seguente:
si debbono rintracciare nella tabella che riporta le estrazioni sulle varie ruote ad una stessa data, 2 numeri appartenenti alla medesima terzina simmetrica posizionati su una stessa ruota oppure su ruote diverse; in questo ultimo caso i due numeri debbono essere però isotopi. Allo stesso tempo vanno ricercati altri 2 numeri che ho denominati "equivalenti" la cui differenza rispetto ai primi due sia uguale a 50 unità; questi ultimi possono trovarsi anche su ruote diverse da quella/e su cui insistono i primi due.
Il valore 50 è determinato dalla quantità complessiva dei numeri estratti a cui corrispondono appunto 50 posizioni assunte dagli stessi.
Preciso che gli equivalenti dei numeri compresi tra 1 e 40 si ottengono sommando ad essi il fisso 50; quelli dei numeri che vanno dal 51 al 90 sono dati sottraendo dai medesimi lo stesso fisso; i numeri della quarantina (da 41 a 50) non hanno invece equivalenti, perciò
Una volta rintracciate le due coppie di numeri si procederà effettuando le somme orizzontali, verticali e diagonali delle stesse ottenendo 4 numeri diversi tra loro più 2 numeri ripetuti;
Riporto un esempio riferito alla data del 13/10/2005 in cui furono estratti sulle ruote di CA e NA i numeri 39 e 9 rispettivamente (stessa terzina simmetrica) in posizione isotopa ( il 9 era inoltre presente anche a RO); sulla stessa ruota di CA fu estratto l'89 (equivalente al 39) e a VE il 59 (equivalente al 9).
Si può quindi procedere al calcolo seguente:
9-39-89-59
9+39=48--9+89=8—9+59=68—39+89=38—39+59=8—89+59=58

Il Numero 8 Ripetuto sarà L’ambata
I numeri che abbineremo il 48,68,38,58
La lunghetta 8,48,68,38,58
Da ottimi risultati Ciao drago2940

Sub main()

Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(2),post(3)
poste(2)=1
k=14
ruota(1)=11
fin=EstrazioneFin
ini=fin-300
For es=ini To fin
Messaggio es
For r1=1 To 11
If r1=11 Then r1=12
ruote(1)=r1
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2) : ds1=Distanza(n1,n2)
If ds1=30 Then
If n1>50 Then a1=n1-50
If n1<50 And n1<>Decina(4) Then a1=n1+50
If n2>50 Then a2=n2-50
If n2<50 And n2<>Decina(4) Then a2=n2+50
For r2=1 To 11
If r2=11 Then r2=12
ruote(2)=r2
For p3=1 To 5
n3=Estratto(es,r2,p3)
If n3=a1 Then
For r3=1 To 11
If r3=11 Then r3=12
ruote(3)=r3
For p4=1 To 5
n4=Estratto(es,r3,p4)
If n4=a2 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza 30 < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero Equivalente < "&Format2(n3)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r3)& " "& StringaEstratti(es,r3)&_
" > Numero Equivalente < "&Format2(n4)&" <"
Scrivi String(65,"-")&" caso n° "&(casi):co=0
b1=Fuori90(n1+n2)
b2=Fuori90(n1+n3)
b3=Fuori90(n1+n4)
b4=Fuori90(n2+n3)
b5=Fuori90(n2+n4)
b6=Fuori90(n3+n4)
If b1=b2 Or b1=b3 Or b1=b4 Or b1=b5 Or b1=b6 Then z1=b1
If b2=b1 Or b2=b3 Or b2=b4 Or b2=b5 Or b2=b6 Then z1=b2
If b3=b1 Or b3=b2 Or b3=b4 Or b3=b5 Or b3=b6 Then z1=b3
If b4=b1 Or b4=b3 Or b4=b2 Or b4=b5 Or b4=b6 Then z1=b4
If b5=b1 Or b5=b3 Or b5=b2 Or b5=b5 Or b5=b6 Then z1=b5
If b6=b1 Or b6=b2 Or b6=b3 Or b6=b4 Or b6=b5 Then z1=b6
nu1(1)=z1
nu1(2)=b1
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b3
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b5
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b6
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=Fuori90(n1+n2)
nu2(2)=Fuori90(n1+n3)
nu2(3)=Fuori90(n1+n4)
nu2(4)=Fuori90(n2+n3)
nu2(5)=Fuori90(n2+n4)
nu2(6)=Fuori90(n3+n4)
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
Next
End If
Next
Next
End If
Next:Next:Next:next
ScriviResoconto
End Sub


Questo Trova la distanza 30 e i numeri equivalenti in verticale e isotopi

<sub main()

Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(2)
poste(2)=1
k=14
ruota(1)=11
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
Messaggio es
For r1=1 To 11
If r1=11 Then r1=12
ruote(1)=r1
For p1=1 To 4
n1=Estratto(es,r1,p1)
For r2=1 To 11
If r2=11 Then r2=12
ruote(2)=r2
For p2=1 To 5
n2=Estratto(es,r2,p2) : ds1=Distanza(n1,n2)
If ds1=30 And p1=p2 Then
If n1>50 Then a1=n1-50
If n1<50 And n1<>Decina(4) Then a1=n1+50
If n2>50 Then a2=n2-50
If n2<50 And n2<>Decina(4) Then a2=n2+50
For r3=1 To 11
If r3=11 Then r3=12
ruote(3)=r3
For p3=1 To 5
n3=Estratto(es,r3,p3)
If n3=a1 Then
For r4=1 To 11
If r4=11 Then r4=12
ruote(4)=r4
For p4=1 To 5
n4=Estratto(es,r4,p4)
If n4=a2 And p2=p3 And p3=p4 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > 1^ Num. distanza 30 < "&Format2(n1)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > 2^ Num. distanza 30 < "&Format2(n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r3)& " "& StringaEstratti(es,r3)&_
" > Numero Equivalente < "&Format2(n3)&" <"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r4)& " "& StringaEstratti(es,r4)&_
" > Numero Equivalente < "&Format2(n4)&" <"
Scrivi String(65,"-")&" caso n° "&(casi):co=0
b1=Fuori90(n1+n2)
b2=Fuori90(n1+n3)
b3=Fuori90(n1+n4)
b4=Fuori90(n2+n3)
b5=Fuori90(n2+n4)
b6=Fuori90(n3+n4)
If b1=b2 Or b1=b3 Or b1=b4 Or b1=b5 Or b1=b6 Then z1=b1
If b2=b1 Or b2=b3 Or b2=b4 Or b2=b5 Or b2=b6 Then z1=b2
If b3=b1 Or b3=b2 Or b3=b4 Or b3=b5 Or b3=b6 Then z1=b3
If b4=b1 Or b4=b3 Or b4=b2 Or b4=b5 Or b4=b6 Then z1=b4
If b5=b1 Or b5=b3 Or b5=b2 Or b5=b5 Or b5=b6 Then z1=b5
If b6=b1 Or b6=b2 Or b6=b3 Or b6=b4 Or b6=b5 Then z1=b6
nu1(1)=z1
nu1(2)=b1
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b3
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b5
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b6
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=Fuori90(n1+n2)
nu2(2)=Fuori90(n1+n3)
nu2(3)=Fuori90(n1+n4)
nu2(4)=Fuori90(n2+n3)
nu2(5)=Fuori90(n2+n4)
nu2(6)=Fuori90(n3+n4)
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
Next
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
view post Posted: 25/6/2009, 08:10     Spia 83 - LE VOSTRE TECNICHE
Ottimo Metodo Ecco il Listato in L8

Sub main()
Dim n2(10)
Dim ruote(10)
Dim posta(1),poste(2),post(3),pos(5)
posta(1)=1:poste(2)=1
post(2)=0.5:post(3)=1.5
pos(2)=3:pos(3)=0.8:pos(4)=0.2

fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es

For r1=12 To 12
For p1=1 To 5

n1=Estratto(es,r1,p1)

If n1 = 83 Then

casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo ripetuto < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo ripetuto < "&Format2(n3)&"."&Format2 (n4)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=6 :ruote(2)=5:k=14:co=0


n2(1)=Fuori90(Estratto(es,12,3)+44)
n2(2)=Fuori90(Estratto(es,12,3)+62)

co=co+1
ImpostaGiocata co,n2,ruote,poste,k

Gioca es

End If
Next:Next:Next

ScriviResoconto



End Sub
view post Posted: 25/6/2009, 07:56     Spia 29 sulla Nazionale di Antonella Script L8 - LE VOSTRE TECNICHE
<b>Ottimo Metodo Ecco lo Script in L8 Ciao
Sub main()
Dim n2(10)
Dim ruote(10)
Dim posta(1),poste(2),post(3),pos(5)
posta(1)=1:poste(2)=1
post(2)=0.5:post(3)=1.5
pos(2)=3:pos(3)=0.8:pos(4)=0.2

fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es

For r1=12 To 12
For p1=1 To 5

n1=Estratto(es,r1,p1)

If n1 = 29 Then

casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo ripetuto < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo ripetuto < "&Format2(n3)&"."&Format2 (n4)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=4 :ruote(2)=5:k=14:co=0


n2(1)=Fuori90(Estratto(es,12,2)+36)
n2(2)=Fuori90(Estratto(es,12,2)+77)
n2(3)=Fuori90(Estratto(es,12,2)+80)
co=co+1
ImpostaGiocata co,n2,ruote,poste,k

Gioca es

End If
Next:Next:Next

ScriviResoconto



End Sub


Ecco La Seaeistica

ambo ripetuto < 29. >
gio 17.04.2008 < Tu 00.14.18.88.23 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 1
gio 17.04.2008 [7896]
G 1: A 51.02.05 Ge Mi 14/14
A 05.51 su Ge 3° colpo [7899/24.04.2008]

===========================================================================
mar 20.05.2008 < Nz 49.29.50.83.78 > ambo ripetuto < 29. >
mar 20.05.2008 < Tu 00.03.48.84.30 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 2
mar 20.05.2008 [7910]
G 1: A 65.16.19 Ge Mi 14/14
A 19.16 su Ge 3° colpo [7913/27.05.2008]

===========================================================================
sab 30.08.2008 < Nz 29.44.61.47.74 > ambo ripetuto < 29. >
sab 30.08.2008 < Tu 00.74.36.46.02 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 3
sab 30.08.2008 [7954]
G 1: A 80.31.34 Ge Mi 14/14
A 31.34 su Mi 5° colpo [7959/11.09.2008]

===========================================================================
gio 06.11.2008 < Nz 29.76.12.83.18 > ambo ripetuto < 29. >
gio 06.11.2008 < Tu 176.89.08.78.57 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 4
gio 06.11.2008 [7983]
G 1: A 22.63.66 Ge Mi 14/14
A 22.66 su Ge 3° colpo [7986/13.11.2008]

===========================================================================
sab 29.11.2008 < Nz 68.62.30.50.29 > ambo ripetuto < 29. >
sab 29.11.2008 < Tu 112.49.58.70.74 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 5
sab 29.11.2008 [7993]
G 1: A 08.49.52 Ge Mi 14/14
A 49.08 su Mi 9° colpo [8002/20.12.2008]

===========================================================================
gio 19.02.2009 < Nz 17.82.33.40.29 > ambo ripetuto < 29. >
gio 19.02.2009 < Tu 00.14.24.49.69 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 6
gio 19.02.2009 [8028]
G 1: A 28.69.72 Ge Mi 14/14
A 69.28 su Mi 4° colpo [8032/28.02.2009]

===========================================================================
gio 26.02.2009 < Nz 56.20.29.40.88 > ambo ripetuto < 29. >
gio 26.02.2009 < Tu 128.66.02.23.26 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 7
gio 26.02.2009 [8031]
G 1: A 56.07.10 Ge Mi 14/14
A 10.07 su Ge 2° colpo [8033/03.03.2009]

===========================================================================
mar 28.04.2009 < Nz 36.19.29.11.63 > ambo ripetuto < 29. >
mar 28.04.2009 < Tu 96.88.67.46.62 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 8
mar 28.04.2009 [8057]
G 1: A 55.06.09 Ge Mi 14/14
A 09.55 su Ge 4° colpo [8061/07.05.2009]

===========================================================================
gio 18.06.2009 < Nz 46.42.84.61.29 > ambo ripetuto < 29. >
gio 18.06.2009 < Tu 32.74.54.82.66 > ambo ripetuto < 00.00 >
----------------------------------------------------------------- caso n° 9
gio 18.06.2009 [8079]
G 1: A 78.29.32 Ge Mi 2/14
in corso (2° su 14)
b>
view post Posted: 21/5/2009, 10:02     Spia 45 Nazionale - LE VOSTRE TECNICHE
Vedi se funziona adesso ciao
Sub main()
Dim ruote(10),poste(5),nu3(10),ruota(10)

poste(2)=1
k=9
ce=500
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=12 To 12
For p1=1 To 5
a=Estratto(es,r1,p1)

If a=45 Then

casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=4:ruote(2)=5:ruota(3)=11:ruote(3)=12
y=0
nu3(1)=Fuori90(Estratto(es,12,4)+8)
nu3(2)=Fuori90(Estratto(es,12,4)+54)

nu3(3)=Fuori90(Estratto(es,12,4)+87)

y=y+1
ImpostaGiocata y,nu3,ruote,poste,k
nu3(1)=Fuori90(Estratto(es,12,4)+8)
nu3(2)=Fuori90(Estratto(es,12,4)+54)

nu3(3)=Fuori90(Estratto(es,12,4)+87)

y=y+1
ImpostaGiocata y,nu3,ruota,poste,k


Gioca es
End If

Next:Next:Next
ScriviResoconto




End Sub


view post Posted: 21/5/2009, 09:30     Mi presento - LE VOSTRE TECNICHE
Ciao se posti il metodo farò il listato e controlleremo ciao
view post Posted: 20/5/2009, 18:53     Spia 45 Nazionale - LE VOSTRE TECNICHE
Ecco il Listato in l8
Sub main()
Dim ruote(3),posta(5),nu1(10),nu2(10),poste(5),ruota(3),nu3(10)
posta(2)=1
poste(2)=1
k=9
ce=500
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=12 To 12
For p1=1 To 5
a=Estratto(es,r1,p1)

If a=45 Then

casi=casi+1:Scrivi String(65,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=4:ruote(2)=5:ruote(3)=11
y=0
nu3(1)=Fuori90(Estratto(es,12,4)+8)
nu3(2)=Fuori90(Estratto(es,12,4)+54)

nu3(3)=Fuori90(Estratto(es,12,4)+87)

y=y+1
ImpostaGiocata y,nu3,ruote,poste,k


Gioca es
End If

Next:Next:Next
ScriviResoconto
46 replies since 18/10/2008
Filter forums
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumFree