Novità

MEGA RACCOLTA "SCRIPT"

R

Roby

Guest
quote:Originally posted by keeper

ciao black ma tra i tanti script mica ne hai qualcuno applicato alla lotteria inglese uk49s?
No Keep mi spiace, tra l'altro qualche giorno fa ho preso un virus ed ho perso tutti gli script che avevo [}:)]

Blackmore
 

rabberto

Advanced Member
Ragazzi ho trovato questi script spero servino a qualcuno


Scrivi Space(36)&"STATISTICHE LOTTO",1: ColoreTesto 1
Scrivi String(78,"=")&"listedrobyca",1 :ColoreTesto 0
Sub main()
Dim mtr(90,4),mrc(10,6),nu(1),ru(1),nm(10),nms(90,10)
Dim dn(9,13),totfrdn(9),totradn(9),totrsdn(9)
Dim cd(10,12),totfrcd(10),totracd(10),totrscd(10)
Dim fg(9,13),totfrfg(9),totrafg(9),totrsfg(9)
Dim trz(3),datitrz(30,3),rdl(4),datirdl(8,3)
Dim gem(8),datigem(3),dativrt(90,5),nr(2),ena(6)
Erase dativrt: Erase nms

ms=InputBox("INSERIRE IL NUMERO DEL MESE",,10):ms=CInt(ms)
r=InputBox("INSERIRE IL NUMERO DELLA RUOTA",,1):r=CInt(r):ru(1)=r

fin=EstrazioneFin: ini=3950
Scrivi "Questa statistica fornisce dati inerenti a tutti i mesi di "&_
MeseNome(ms)&" del periodo che và"&chr(13)&"dal "&DataEstrazione (ini)&_
" al "& DataEstrazione (fin)&" sulla ruota di "& NomeRuota(r),1 : Call righeu
Scrivi Chr(13)&"Archivio degli ultimi 5 anni di estrazioni in "& MeseNome(ms)&Chr(13)&_
Chr(13)&"Nmr. Data Lotto"&Space(29)&"Superenalotto"&Chr(13)&Chr(13),1

c1=0: For x=1 To 9: For y=0 To 9:c1=c1+1:dn(x,y+1)=c1-1: Next : Next :dn(1,1)=90

For x=1 To 10: For y=0 To 8:cd(x,y+1)=x+(10*y): Next : Next
For x=1 To 9: For y=0 To 9:fg(x,y+1)=x+(9*y): Next : Next
gem(1)=11:gem(2)=22:gem(3)=33:gem(4)=44:gem(5)=55:gem(6)=66:gem(7)=77:gem(8)=88
For x=1 To 90:mtr(x,1)=x:nms(x,1)=x: Next

For es=ini To fin: Messaggio NomeRuota(r)&" "& MeseNome(ms)&" "& Anno(es)
If Mese(es)=ms Then
c0=c0+1

For x=1 To 90:nms(x,9)=nms(x,9)+1:fn=Posizione(es,r,x)
If fn=0 Then mtr(x,3)=mtr(x,3)+1
If fn>0 Then mtr(x,2)=mtr(x,2)+1:mtr(x,3)=0
If mtr(x,4)<mtr(x,3) Then mtr(x,4)=mtr(x,3)
Next

For p=1 To 6:ns=Estratto(es,,p,1):ena(p)=ns
nms(ns,8)=nms(ns,8)+1:nms(ns,p+1)=nms(ns,p+1)+1
If nms(ns,10)<nms(ns,9) Then nms(ns,10)=nms(ns,9)
nms(ns,9)=0: Next
OrdinaMatrice ena,+1
If es>(fin-520) Then : ColoreTesto 1: Scrivi es&" "& DataEstrazione(es)&_
" "& StringaEstratti(es,r)&Space(20)& StringaNumeri(ena),1: ColoreTesto 0

nm(0)=0: For x=1 To 9: For y=1 To 10:nm(y)=dn(x,y): Next
fdn=0:fdn=SerieFreq(es,es,nm,ru,2)
If fdn=0 Then totradn(x)=totradn(x)+1
If fdn>0 Then totfrdn(x)=totfrdn(x)+fdn:totradn(x)=0
If totrsdn(x)<totradn(x) Then totrsdn(x)=totradn(x)
Erase nm : Next

nm(0)=0: For x=1 To 10: For y=1 To 9:nm(y)=cd(x,y): Next
frcd=0:frcd=SerieFreq(es,es,nm,ru,2)
If frcd=0 Then totracd(x)=totracd(x)+1
If frcd>0 Then totfrcd(x)=totfrcd(x)+frcd:totracd(x)=0
If totrscd(x)<totracd(x) Then totrscd(x)=totracd(x)
Erase nm: Next

nm(0)=0: For x=1 To 9: For y=1 To 10:nm(y)=fg(x,y): Next
frfg=0:frfg=SerieFreq(es,es,nm,ru,2)
If frfg=0 Then totrafg(x)=totrafg(x)+1
If frfg>0 Then totfrfg(x)=totfrfg(x)+frfg:totrafg(x)=0
If totrsfg(x)<totrafg(x) Then totrsfg(x)=totrafg(x)
Erase nm: Next

For x=1 To 30:trz(1)=x:trz(2)=x+30:trz(3)=x+60
ftrz=0:ftrz=SerieFreq(es,es,trz,ru,2)
If ftrz=0 Then datitrz(x,2)=datitrz(x,2)+1
If ftrz>0 Then datitrz(x,1)=datitrz(x,1)+ftrz:datitrz(x,2)=0
If datitrz(x,3)<datitrz(x,2) Then datitrz(x,3)=datitrz(x,2)
Next

For x=1 To 8:rdl(1)=x:rdl(2)=x*10:rdl(3)=rdl(2)+x:rdl(4)=rdl(2)+9
frdl=0:frdl=SerieFreq(es,es,rdl,ru,2)
If frdl=0 Then datirdl(x,2)=datirdl(x,2)+1
If frdl>0 Then datirdl(x,1)=datirdl(x,1)+frdl:datirdl(x,2)=0
If datirdl(x,3)<datirdl(x,2) Then datirdl(x,3)=datirdl(x,2)
Next

fgem=0:fgem=SerieFreq(es,es,gem,ru,2)
If fgem=0 Then datigem(2)=datigem(2)+1
If fgem>0 Then datigem(1)=datigem(1)+fgem:datigem(2)=0
If datigem(3)<datigem(2) Then datigem(3)=datigem(2)

For x=1 To 90:dativrt(x,1)=x:nr(1)=x:dativrt(x,2)=Vert(x):nr(2)=Vert(x)
fvrt=0:fvrt=SerieFreq(es,es,nr,ru,2)
If fvrt=0 Then dativrt(x,4)=dativrt(x,4)+1
If fvrt>0 Then dativrt(x,3)=dativrt(x,3)+fvrt:dativrt(x,4)=0
If dativrt(x,5)<dativrt(x,4) Then dativrt(x,5)=dativrt(x,4)
Next
End If : Next

Call righeu: Scrivi Chr(13)&"Estratti ordinati per"&Space(11)&"FREQUENZA"&Space(25)&_
"RITARDO"&Chr(13)&Space(11)&"Pos."&Space(13)&"N."&Space(5)&"Fre."&Space(3)&"R.Att."&_
Space(13)&"N."&Sp
 

rabberto

Advanced Member
QUESTI SONO GLI SCRIPT DI MANARA

LOTTO FACILE 1

Sub Main()
Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)
Dim posta(1),poste(2),post(3)
posta(1) = 5:poste(2) = 5:post(2) = 4:post(3) = 1
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8200)
k = InputBox("per quanti colpi?","colpi di gioco",14)
ini = ce
fin = EstrazioneFin
Scrivi "Lotto Facile 1 di Osvaldo Manara ",1
Scrivi String(76,"="),1
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
a1 = Fuori90(a + b)
For r2 = r1 + 1 To 10
If Distanza(r2,r1) = 5 Or r2 = r1 + 1 Or r2 = r1 - 11 Then 'lasciare per solo diametr. consec e gemm
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
If p3 = p1 And p4 = p2 Then 'ambi isotopi
a2 = Fuori90(c + d)
If(a1) =(a2) Then
n1 = Abs(a - d) 'diff matem diag
n2 = Abs(b - c) 'diff matem diag
n3 = Abs(a - c) 'diff matem vert
n4 = Abs(b - d) 'diff matem vert
If n1 = n2 And n3 = n4 Then 'se le diff sono uguali
n5 = Abs(n2 - n4)
n6 = Fuori90(a2 + n5) 'ambata
n7 = 90 - a2 '1^ abb
If n7 = 0 Then n7 = 90
n8 = Vert(n7) '2^ abb
casi = casi + 1:Scrivi String(64,"="),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] ambo somma [ " & Format2(a) & "." & Format2(b) & " ] " &(p1) & "^/" &(p2) & "^ pos."
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] ambo somma [ " & Format2(c) & "." & Format2(d) & " ] " &(p3) & "^/" &(p4) & "^ pos."
ColoreTesto 0:Scrivi String(64,"-") & " caso n° " & casi
ruote(1) = r1:ruote(2) = r2:ruota(1) = 11:co = 0
nu1(1) = n6
co = co + 1
ImpostaGiocata co,nu1,ruote,posta,k,1
nu2(1) = n6:nu2(2) = n7
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(2) = n8
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1) = n6:nu3(2) = n7:nu3(3) = n8
co = co + 1
ImpostaGiocata co,nu3,ruote,post,k
co = co + 1
ImpostaGiocata co,nu3,ruota,post,k
Gioca es

End If
End If
End If 'ambi isotopi
Next:Next
End If 'lasciare per solo diametr. e consec
Next:Next:Next:Next:Next
ScriviResoconto
End Sub







LOTTO FACILE 2

Sub Main()
Dim numeri1(2),numeri2(2),numeri3(3),numeri4(4)
Dim ruote(2),ruot(1)
Dim posta(1),poste(2),post(3),pos(4)
posta(1) = 5:poste(2) = 2
post(2) = 2.5:post(3) = 0.5
pos(2) = 4.4:pos(3) = 0.4:pos(4) = 0.2
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8080)
k = InputBox("Per quanti colpi?","colpi di gioco",14)
ini = ce
fin = EstrazioneFin
Scrivi "Lotto Facile 2 di Osvaldo Manara ",1
Scrivi String(76,"=")
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1):b = Estratto(es,r1,p2)
dis1 = Distanza(a,b)
If dis1 = 45 Then
For r2 = r1 + 1 To 10 'solo ruote cons / diam / simm (gemm)
If r2 <> r1 And Distanza(r2,r1) = 5 Or r2 = r1 + 1 Or r2 = 11 - r1 Then 'solo ruote cons / diam / simm (gemm)
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3):d = Estratto(es,r2,p4)
dis2 = Distanza(c,d)
'If p1=p3 And p2=p4 Then 'isotopi
If dis2 = 45 Then
s1 = Fuori90(a + b) 'somma in orr
s2 = Fuori90(c + d) 'somma in orr
n3 = Fuori90(s1 + s2)'numero base 2^ bb
n4 = Diametrale(n3)'ambata
d1 = Fuori90(90 +(a - c)) 'diff in vert 1^ abb
d2 = Fuori90(90 +(b - d)) 'diff in vert 1^ abb
If d1 = d2 Then
n5 = d '3^ abb
casi = casi + 1:Scrivi String(64,"="),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & "." & Format2(b) & " ] in " &(p1) & "^/" &(p2) & "^ pos. dist. " &(dis1)
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) &
 

mastrogino

Advanced Premium Member
GRAZIE OTTIMO LAVORO;)



se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino
 
R

Roby

Guest
Sub Main()
ColoreTesto 1 :Scrivi "LISTATO BY DJ NOMADE - METODO BY BLACKMORE"
ColoreTesto 1 :Scrivi "UNA CINQUINA DOPO L'USCITA DI UN AMBO GEMELLO SU GENOVA"
ColoreTesto 1 :Scrivi "INIZIO RICERCA: 02-02-1985 _ FINE RICERCA: 17-05-2011"
Scrivi : ColoreTesto 0
Dim ruota(1),amb(6),nu1(2),nu2(4),nu3(5),pt(1),ruote(10),ptt(4),pt1(5)
ptt(2) = 1:pt1(2) = 3:pt1(3) = 1:pt1(4) = 0.9:pt1(5) = 0.1
clp = 8
ini = EstrazioneFin - 2458
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es

ruote(1) = 4
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,4,p) : b = Estratto(es,4,p1)

'-------------------------------------------------------------------
ok = 0
If a = 11 And b = 22 Then amb(1) = Fuori90(Estratto(es,4,2) + 12):amb(2) = Fuori90(Estratto(es,4,2) + 24):amb(3) = Fuori90(Estratto(es,4,2) + 29):amb(4) = Fuori90(Estratto(es,4,2) + 32)::amb(5) = Fuori90(Estratto(es,4,2) + 35):eek:k = 1
If a = 11 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 05):amb(3) = Fuori90(Estratto(es,4,2) + 13):amb(4) = Fuori90(Estratto(es,4,2) + 21)::amb(5) = Fuori90(Estratto(es,4,2) + 73):eek:k = 1
If a = 11 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,5) + 01):amb(2) = Fuori90(Estratto(es,4,5) + 02):amb(3) = Fuori90(Estratto(es,4,5) + 22):amb(4) = Fuori90(Estratto(es,4,5) + 45)::amb(5) = Fuori90(Estratto(es,4,5) + 66):eek:k = 1
If a = 11 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 02):amb(3) = Fuori90(Estratto(es,4,4) + 03):amb(4) = Fuori90(Estratto(es,4,4) + 52)::amb(5) = Fuori90(Estratto(es,4,4) + 82):eek:k = 1
If a = 11 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,5) + 09):amb(2) = Fuori90(Estratto(es,4,5) + 11):amb(3) = Fuori90(Estratto(es,4,5) + 46):amb(4) = Fuori90(Estratto(es,4,5) + 68)::amb(5) = Fuori90(Estratto(es,4,5) + 77):eek:k = 1
If a = 11 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 03):amb(4) = Fuori90(Estratto(es,4,1) + 44)::amb(5) = Fuori90(Estratto(es,4,1) + 87):eek:k = 1
If a = 11 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 32):amb(3) = Fuori90(Estratto(es,4,4) + 67):amb(4) = Fuori90(Estratto(es,4,4) + 72)::amb(5) = Fuori90(Estratto(es,4,4) + 87):eek:k = 1
If a = 22 And b = 33 Then amb(1) = Fuori90(Estratto(es,4,4) + 01):amb(2) = Fuori90(Estratto(es,4,4) + 04):amb(3) = Fuori90(Estratto(es,4,4) + 45):amb(4) = Fuori90(Estratto(es,4,4) + 57)::amb(5) = Fuori90(Estratto(es,4,4) + 72):eek:k = 1
If a = 22 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,2) + 01):amb(2) = Fuori90(Estratto(es,4,2) + 02):amb(3) = Fuori90(Estratto(es,4,2) + 30):amb(4) = Fuori90(Estratto(es,4,2) + 48)::amb(5) = Fuori90(Estratto(es,4,2) + 89):eek:k = 1
If a = 22 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,1) + 02):amb(2) = Fuori90(Estratto(es,4,1) + 26):amb(3) = Fuori90(Estratto(es,4,1) + 64):amb(4) = Fuori90(Estratto(es,4,1) + 81)::amb(5) = Fuori90(Estratto(es,4,1) + 82):eek:k = 1
If a = 22 And b = 66 Then amb(1) = Fuori90(Estratto(es,4,4) + 06):amb(2) = Fuori90(Estratto(es,4,4) + 35):amb(3) = Fuori90(Estratto(es,4,4) + 48):amb(4) = Fuori90(Estratto(es,4,4) + 70)::amb(5) = Fuori90(Estratto(es,4,4) + 81):eek:k = 1
If a = 22 And b = 77 Then amb(1) = Fuori90(Estratto(es,4,5) + 01):amb(2) = Fuori90(Estratto(es,4,5) + 03):amb(3) = Fuori90(Estratto(es,4,5) + 48):amb(4) = Fuori90(Estratto(es,4,5) + 50)::amb(5) = Fuori90(Estratto(es,4,5) + 54):eek:k = 1
If a = 22 And b = 88 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estratto(es,4,1) + 32):amb(4) = Fuori90(Estratto(es,4,1) + 33)::amb(5) = Fuori90(Estratto(es,4,1) + 79):eek:k = 1
If a = 33 And b = 44 Then amb(1) = Fuori90(Estratto(es,4,1) + 19):amb(2) = Fuori90(Estratto(es,4,1) + 21):amb(3) = Fuori90(Estratto(es,4,1) + 28):amb(4) = Fuori90(Estratto(es,4,1) + 78)::amb(5) = Fuori90(Estratto(es,4,1) + 85):eek:k = 1
If a = 33 And b = 55 Then amb(1) = Fuori90(Estratto(es,4,1) + 01):amb(2) = Fuori90(Estratto(es,4,1) + 02):amb(3) = Fuori90(Estra
 

pigi

Advanced Member >PLATINUM<
CARO BLAKMORE
QUESTO E' UN REGALONE IL METODO FUNZIONA PERFETTAMENTE , TI VOGLIO
CHIEDERE, IL PROGRAMMA SI FERMA COME RICERCA AL 17 MAGGIO PERCHE'
POI A GENOVA NON CI SONO STATI PIU' AMBI GEMELLI (ho controllato e in
effetti ad oggi non c'è nè sono )O SI FERMA A QUELLA DATA PER DEFAULT?
SCUSA SE PONGO LA DOMADA QUì ,MA NON SAPREI ALTRIMENTI DOVE POSTARLA.
COMUNQUE GRAZIE ANCORA .

GIORGIO


giorgio's
 
R

Roby

Guest
quote:Originally posted by pigi

CARO BLAKMORE
QUESTO E' UN REGALONE IL METODO FUNZIONA PERFETTAMENTE , TI VOGLIO
CHIEDERE, IL PROGRAMMA SI FERMA COME RICERCA AL 17 MAGGIO PERCHE'
POI A GENOVA NON CI SONO STATI PIU' AMBI GEMELLI (ho controllato e in
effetti ad oggi non c'è nè sono )O SI FERMA A QUELLA DATA PER DEFAULT?
SCUSA SE PONGO LA DOMADA QUì ,MA NON SAPREI ALTRIMENTI DOVE POSTARLA.
COMUNQUE GRAZIE ANCORA .

GIORGIO


giorgio's
Ciao Pigi, è vero la statistica è buona MA, ANDIAMOCI CON I PIEDI DI PIOMBO IN QUANTO TROVARE QUESTI METODI È FACILE, IL DIFFICILE STA NEL FARLI FUNZIONARE NEL PRESENTE E NEL FUTURO
QUINDI MOLTA CAUTELA
La ricerca si ferma al 17 maggio perché è l'ultima volta che si è presentata la condizione, tutto qui
Ciao


Blackmore
 

fedev

Junior Member
55-77 a genova...ambo gemello e nuova condizione da giocare con lo script datoci da blackmore...speriamo in bene.io me lo gioco...
buona fortuna
federico.
 

rabberto

Advanced Member
Metodo per ambata secca




Sub Main()
'ambi distanza 36'
Dim nu1(2),ruote(10),n(4)
Dim poste(2)
poste(1) = 1
so = CInt(InputBox("qual'e' la distanza?",,36))
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",7000)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = ce
fin = EstrazioneFin
ColoreTesto 1
Scrivi "ambi a distanza 36 " & Format2(so) & " su 2 ruote per Rabberto",1
ColoreTesto 0
Scrivi String(100,"="),1
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
sm3 = Distanza(a,b)
If sm3 = so Then
'---------------------------------------------------------------------------
For r2 = r1 + 1 To 12 '<<<--- x tutte le ruote (+ 1 next alla fine del listato
If r2 = 11 Then r2 = 12
'---------------------------------------------------------------------------
'r1=r+1 '<<<--- per ruote consecutive
'If r=10 Then r1=1 End If '<<<--- per ruote consecutive
'---------------------------------------------------------------------------
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
sm6 =Distanza(c,d)
'If p1 = p3 And p2 = p4 Then 'iso
If sm3 = sm6 And sm3 = so Then
n(1) = a
n(2) = b
n(3) = c
n(4) = d
OrdinaMatrice n,1
num1 = Distanza(a,c)
num2 = Distanza(b,d)
If num1 = 45 And num2 = 45 Then
casi = casi + 1
Scrivi String(100,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > ambo < " & _
Format2(a) & " - " & Format2(b) & " > in " &(p1) & "^/" &(p2) & "^ pos."
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > ambo < " & _
Format2(c) & " - " & Format2(d) & " > in " &(p3) & "^/" &(p4) & "^ pos."
Scrivi String(70,"-") & " caso n° " & casi
Scrivi Format2(a) & " - " & Format2(b) & " = " & sm3 & " / " & Format2(c) & " - " & Format2(d) & " = " & sm6
Scrivi "Distanza 1 in verticale " & Format2(a) & "." & Format2(c) & " = " & num1
Scrivi "Distanza 2 in verticale " & Format2(b) & "." & Format2(d) & " = " & num2
Scrivi String(100,"-")
ruote(1) = r1
ruote(2) = r2
nu1(1) = Fuori90(a + d)
'nu1(2) = Fuori90(b+c)
ImpostaGiocata 1,nu1,ruote,poste,k,1
Gioca es
End If
End If
'End If 'iso
Next
Next
Next
End If
Next
Next
Next
'---------------------------------------------------------------------------
Next '<<<--- solo per tutte le ruote, per ruote consec. togliere
'---------------------------------------------------------------------------
ScriviResoconto
End Sub



ciao.
 

Nexus

Super member
quote:Originally posted by fedev

55-77 a genova...ambo gemello e nuova condizione da giocare con lo script datoci da blackmore...speriamo in bene.io me lo gioco...
buona fortuna
federico.
Bene fedev,
la previsione dello script postato da blackmore è la seguente:

GENOVA 78.79.80.23.45

Stasera uscito solo il 78
La previsione è valida ancora 7 colpi di gioco.

Io consiglio un sistemino di 4 terzine a garanzia ambo con 2 numeri indovinati:

78.79.80
78.23.45
79.80.23
79.80.45





"I pensieri diventano cose" (Dooley Mike)
"Alla sorgente del pensiero c'e' consapevolezza illimitata" (Maharishi Mahesh Yogi)
"Una mente felice produce una realta' felice" (Fabio Marchesi)
537517mainearthpacific8.jpg
 
R

Roby

Guest
Domanda:
I metodi all'interno dello script sono i tuoi?
Se non lo sono, metti il nome dell'autore o togli il listato

Blackmore
 

rodrigo

Super Member >PLATINUM<
Risposta:
C'è un solo nome, evidentemente è unico autore di tutto.

_________________________
Io ho quel che ho donato
(G.D'Annunzio)
 

DjNomade

Advanced Member >PLATINUM PLUS<
Ciauz
solo per precisare che io ho Solo collaborato alla stesura di un primo
listato di questo tipo dove ricavava una quartina su ruota dopo un ambo scompensato poi il listato veviva adattato dall'autore del metodo a secondo delle sue ricerche , quindi l'autore di questo metodo non sono io.

:D


«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
R

Roby

Guest
quote:Originally posted by rodrigo

Risposta:
C'è un solo nome, evidentemente è unico autore di tutto.

_________________________
Io ho quel che ho donato
(G.D'Annunzio)
Del tuo forse, non del mio, in quanto dj nomade me l'ha modificato, e TUTTI I METODI ALL'INTERNO DEL MIO SCRIPT SONO SOLO MIEI, TROVATI DAL SOTTOSCRITTO
Il metodo ambo scompensato è di un utente registrato su un altro sito, per cui metti il nome dell'autore, o cambia i numeri, o toglilo, te lo dico perché poco tempo fà è successa la stessa cosa, sempre su questo Topic, e non mi va che la cosa si ripeta
Grazie

Blackmore
 

rodrigo

Super Member >PLATINUM<
Bene Dj,io ribadisco che non so chi sia l'autore, se qualcuno lo sa lo dica pure così modificherò il listato in maniera tale che a fianco al tuo nome ci sia anche il suo e saremo così tutti felici e contenti!


Rodrigo

_________________________
Io ho quel che ho donato
(G.D'Annunzio)
 

rodrigo

Super Member >PLATINUM<
quote:Originally posted by Blackmore

quote:Originally posted by rodrigo

Risposta:
C'è un solo nome, evidentemente è unico autore di tutto.

_________________________
Io ho quel che ho donato
(G.D'Annunzio)
Del tuo forse, non del mio, in quanto dj nomade me l'ha modificato, e TUTTI I METODI ALL'INTERNO DEL MIO SCRIPT SONO SOLO MIEI, TROVATI DAL SOTTOSCRITTO
Il metodo ambo scompensato è di un utente registrato su un altro sito, per cui metti il nome dell'autore, o cambia i numeri, o toglilo, te lo dico perché poco tempo fà è successa la stessa cosa, sempre su questo Topic, e non mi va che la cosa si ripeta
Grazie

Blackmore



Beh allora si può sapere il nome di questo utente registrato in altro sito?

_________________________
Io ho quel che ho donato
(G.D'Annunzio)
 

DjNomade

Advanced Member >PLATINUM PLUS<
Ciauz belli
allora io ho preparato questi tipi di listati sia per Black che per Boxer60 (l'altro di cui si parlava) dove in base alle loro ricerche e studi modificano a loro piacimento. Questo è quanto, pero' ora sarei curioso sapere dove l'hai trovato questo perche' non mi sembra di averne visti o fatti per terzine o perlomeno non ricordo.

:D

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
R

Roby

Guest
quote:Originally posted by DjNomade

Ciauz belli
allora io ho preparato questi tipi di listati sia per Black che per Boxer60 (l'altro di cui si parlava) dove in base alle loro ricerche e studi modificano a loro piacimento. Questo è quanto, pero' ora sarei curioso sapere dove l'hai trovato questo perche' non mi sembra di averne visti o fatti per terzine o perlomeno non ricordo.

:D

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
sono curioso anch'io, visto che per le terzine li ho modificati solo io, ma non gli ho ancora pubblicati, gli ho salvati dentro il programma spaziometria, per uso personale....

Blackmore
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 16 marzo 2024
    Bari
    17
    57
    87
    39
    24
    Cagliari
    09
    59
    12
    08
    63
    Firenze
    13
    73
    41
    43
    17
    Genova
    06
    58
    10
    37
    62
    Milano
    43
    71
    21
    85
    23
    Napoli
    89
    66
    11
    44
    14
    Palermo
    87
    23
    13
    46
    45
    Roma
    89
    08
    43
    68
    55
    Torino
    32
    52
    11
    39
    65
    Venezia
    78
    65
    16
    27
    21
    Nazionale
    78
    16
    44
    60
    28
    Estrazione Simbolotto
    Firenze
    18
    31
    43
    30
    45
Alto