MEGA RACCOLTA "SCRIPT"

[Roby]

DISTANZA 12 - 24 del Prof.M.PALUMBO con spiegazioni e modificabile.







Submain()
Dim ruote(2)
Dim lg(6)
Dim poste1(3)
poste1(2)=.50
poste1(3)=.50
s=InputBox("Quante estrazioni vuoi controllare?",,100)
For es = EstrazioneFin - s To EstrazioneFin
For r1=1 To 9
For p=1 To 4
For pp=p+1 To 5
a1=Estratto(es,r1,p)
a2=Estratto(es,r1,pp)
d1=Distanza(a1,a2)
If d1=24 Then '<---Controlla se la distanza è =24
For r2=r1+1 To 10
b1=Estratto(es,r2,p)
b2=Estratto(es,r2,pp)
d2=Distanza(b1,b2)
If d2=12 Then '<---Controlla se l'altra distanza è = 12
If a1<>b1 And a1<>b2 And a2<>b1 And a2<>b2 Then '<--Controlla che le coppie siano diverse.
'Quadratura Somme Verticali e Diagonali
sv1=Fuori90(a1+b1)
sv2=Fuori90(a2+b2)
sd1=Fuori90(a1+b2)
sd2=Fuori90(a2+b1)
'Distanze Somme.....
dv=Distanza (sv1,sv2)
dd=Distanza (sd1,sd2)
If dv=12 Or dd=12 Then '<--- Se la distanza di una Somma è = 12 , Continua...altrimenti salta
If dv=12 Then s1=sv1 : s2=sv2 : df=Abs (sv1-sv2)
If dd=12 Then s1=sd1 : s2=sd2 : df=Abs (sd1-sd2)
pm1=(s1+s2)/2 '<--- Punto Medio delle somme trovate.
pm2=Diametrale (pm1)'<----Diametrale del P.M.
'Chiusure con la Distanza = 6
If s1<s2 And df=12 Then n1=Fuori90((s1+90)-6) : n2=Fuori90(s2+6)
If s1<s2 And df=78 Then n1=(s1+6) : n2=(s2-6)
If s1>s2 And df=12 Then n1=Fuori90(s1+6) : n2=Fuori90((s2+90)-6)
If s1>s2 And df=78 Then n1=(s1-6) : n2=(s2+6)
'Previsione : è stato messo in gioco solo la Sestina per A.T.
'Modificare per altre soluzioni di gioco.
lg(1)=pm1 : lg(2)=pm2 : lg(3)=n1 : lg(4)=s1 : lg(5)=s2 : lg(6)=n2
ruote(1)=r1
ruote(2)=r2
Scrivi "----------------------------------------"
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& Format2 (a1)&" "& Format2 (a2)&" Dist. "& Format2 (d1)& Chr (10)&_
Space (11)& SiglaRuota (r2)&" "& Format2 (b1)&" "& Format2 (b2)&" Dist. "& Format2 (d2)& Chr (10)&_
"Somma 1 : "& Format2 (s1)&" Dif. "& Format2(df)&" "& Format2 (n1)&" P.M. "& Format2 (pm1)& Chr (10)&_
"Somma 2 : "& Format2 (s2)&" "& Format2 (n2)&" P.M.D. "& Format2 (pm2),1
Scrivi "----------------------------------------"
ImpostaGiocata 1,lg,ruote,poste1,18,3
ImpostaInterruzioni 1,1,2
Gioca es

End If
End If
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
Endsub

SUERTE !!!!

 

[Roby]

Scrivi "QUESTO SCRIPT TROVA UN AMBO RIPETUTO SULLA STESSA RUOTA IN DUE ESTRAZIONI CONSECUTIVE"

Sub main()
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
fin=EstrazioneFin
ini=fin-rs
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto (es,r,p1)
b=Estratto (es,r,p2)
If es < EstrazioneFin Then
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto (es+1,r,p3)
d=Estratto (es+1,r,p4)
If (a=c And b=d) Or (a=d And b=c) Then
Scrivi "-----------------------"
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " "& Format2(a)&"-"& Format2(b)
Scrivi DataEstrazione(es+1) &" "& Left(NomeRuota(r),2) & " "& Format2(c)&"-"& Format2(d)
Scrivi "-----------------------"
'
' eventuali conteggi e giocate si mettono qui
'
End If
Next
Next
End If
Next
Next
Next
Next
End Sub


Blackmore

 

[Roby]

Scrivi"QUESTO SCRIPT TROVA 2 NUMERI DI SOMMA 90 SU RUOTA UNICA E SU 2 RUOTE DIVERSE,IN QUALSIASI POSIZIONE (ISOTOPA,VERTICALE,DIAGONALE ETC...)IN TUTTE LE ESTRAZIONI"

Sub main()
Dim ruota(2)
Dim posta(5)
Dim num(10)
posta(1)=1
For n= 8200 To EstrazioneFin
For r=1 To 9
For p=1 To 5
For r1=2 To 10
For p1=1 To 5
a=Estratto(n,r,p)
b=Estratto(n,r1,p1)
If (a+b)=90 Then
s=DataEstrazione&" "&FormatSpace(NomeRuota(r),10)& Format2(a)
s=s+" + "&FormatSpace(NomeRuota(r1),10)& Format2(b)&" = 90"
Scrivi s
End If
Next
Next
Next
Next
Scrivi "------------------------------------------"
Next
End Sub


Blackmore

 

[Thauk]

Lo script calcola 2 ambate sulle ruote gemelle e diametrali (nell'output sono alternate) all'ultima estrazione del mese.
Ottime per convergenze e/o capigioco.
NB: le ruote Firenze-Roma sono sia gemelle che diametrali.

Sub main()
Dim rt(2),pt(1),am(2)

est=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",15))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",8))
ini=EstrazioneFin-est
fin=EstrazioneFin

For es=ini To fin
If IndiceMensile(es+1)=1 Then	'Or es=EstrazioneFin Then
Messaggio es

For r1=1 To 5
a=Estratto(es,r1,1)
For r2=1 To 10
b=Estratto(es,r2,5)
If r2=r1+5 Or r2=11-r1 Then
c=Fuori90(a+b)

rt(1)=r1
rt(2)=r2
pt(1)=1

am(1)=91-c
am(2)=Diametrale(c)
If am(1)=am(2) Then am(2)=Fuori90(am(2)+1)
ImpostaGiocata 1,am,rt,pt,clp,1

casi=casi+1
Scrivi String (70,"=")&" Caso nr."&casi,1
Scrivi

Gioca es
End If
Next
Next
End If
Next
ScriviResoconto 			
End Sub

Fortuna non omnibus aeque.

 

[Roby]

SPIA 5 SU BARI e CAGLIARI nella stessa estrazione.
Lo script al presentarsi della condizione mette in gioco tre ambi.



Scrivi
Scrivi
ColoreTesto 2
Scrivi "•----------------------------------------------------------DjNomade•",1
ColoreTesto 1
Scrivi String(20," ")&"************* Se esce spia 05 su BARI-CAGLIARI....by MARCOLOTT1 ************ ",1
ColoreTesto 0

Scrivi
Scrivi
Sub main()
Dim numero(10),numero1(10)
Dim posta(5),poste(5),poste1(5),ruote(10),ruota(10)
posta(1)=1
poste(2)=1
poste1(2)=1
poste1(3)=1
fin=EstrazioneFin
ini=fin-3000
For es=ini To fin
AvanzamentoElab ini,fin,es-1
For r=1 To 1
For p1=1 To 5
'For p2=p1+1 To 5
a=Estratto (es,r,p1)
For r1=2 To 2
For p2=1 To 5
b=Estratto (es,r1,p2)
If a=5 And b=5 Then 'CONDIZIONE DA RILEVARE :
Scrivi
ColoreTesto 7
Scrivi DataEstrazione(es)&" RILEVATO SU........ "& NomeRuota(r) & " " & Format2(a)
Scrivi DataEstrazione(es)&" RILEVATO SU........ "& NomeRuota(r1) & " " & Format2(b)
ruota(1)=1
ruota(2)=2

Scrivi

numero(1)=90

ImpostaGiocata 1,numero,ruota,posta,10


numero1(1)=90
numero1(2)=Fuori90(72-Estratto(es,7,1))
If Estratto(es,7,1)>72 Then numero1(2)=Fuori90(72+90-Estratto(es,7,1))

ImpostaGiocata 2,numero1,ruota,poste,10

numero1(1)=90
numero1(2)=Fuori90(Estratto(es,5,4)+75+90)

ImpostaGiocata 3,numero1,ruota,poste,10

numero1(1)=90
numero1(2)=Fuori90(Estratto(es,5,3)-Estratto(es,4,2))
If Estratto(es,4,2)>Estratto(es,5,3) Then numero1(2)=Fuori90(Estratto(es,5,3)+90-Estratto(es,4,2))

ImpostaGiocata 4,numero1,ruota,poste,10





Gioca es
Scrivi
Scrivi"============Se esce spia 05 su BARI-CAGLIARI....by MARCOLOTT1============"
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2
Scrivi "•----------------------------------------------------------DjNomade•",1
ColoreTesto 1
Scrivi String(20," ")&"************* Se esce spia 05 su BARI-CAGLIARI....by MARCOLOTT1 ************ ",1
ColoreTesto 0
End Sub


SUERTE !!!!

 

[imported_n/a]

Ambo Killer (Romeo Torti)

Sub main()

Dim numeri(10)
Dim ruote(10)
Dim poste(5)
Dim n


For n =EstrazioneFin -20 To EstrazioneFin
For r=1 To 9
For r1=r+1 To 10
For d=1 To 4
For d1=d+1 To 5
k=Distanza (Estratto (n,r,d),Estratto (n,r1,d))
If k>45 Then k=90-k
k1=Distanza (Estratto (n,r,d1),Estratto (n,r1,d1))
If k1>45 Then k1=90-k1
If k=k1 Then
numeri(1)=Fuori90 (Estratto (n,r,d)+Estratto (n,r1,d1))
numeri(2)=Fuori90 (Estratto (n,r1,d1)*2)
ruote(1)=r
ruote(2)=r1
poste(1)=1
poste(2)=1
ImpostaGiocata 1,numeri,ruote,poste,5
Gioca n
End If
numeri(1)=""
numeri(2)=""
Next
Next
Next
Next
Next
ScriviResoconto

End Sub

Entertainment Group

 

[Roby]

Raccolta script by Danilo CSI
Di tutto di più, tanti che non servono, alcuni che potrebbero funzionare ancora, dritte per compilazioni nuovi script ecc. ecc.
Ciao

http://www.megaupload.com/?d=NHS9MLKZ

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[Roby]

VI SAREI GRATO SE IN QUESTO TOPIC, NON CI FOSSERO COMMENTI E/O RICHIESTE DI NESSUN TIPO...
... MA SOLO SCRIPT, GRAZIE


Blackmore

 

[Roby]

Scrivi "QUESTO SCRIPT CALCOLA E TROVA LA DISTANZA TRA DUE ESTRATTI SU DUE RUOTE DIVERSE IN OGNI ESTRAZIONE (SI PUò CAMBIARE LA DISTANZA A PROPRIO PIACIMENTO)"

Sub main()
Dim ruote(2)
di=27 '<--------per cambiare distanza, sostituire il n°27
fin=EstrazioneFin
ini=fin-100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 5

a = Estratto (es,r1,p1)

If Distanza (a,b)=di Then
For r2 =r1+1 To 10
For p2 = 1 To 5

b= Estratto (es,r2,p2)

If Distanza (a,b)=di Then
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a)
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(b)
End If : Next : Next
End If : Next : Next : Next : End Sub


Blackmore

 

[esselotto]

TRA TANTI DEI MIEI HO SCELTO QUESTO.
GIA' POSTATO IN QUEST'AREA

Scrivi String (75,"*")
Scrivi String (25," ")& "Ambo Complementare autore LAI",1
Scrivi String (15," ")& "programmato da °°°esselotto°°° per LottoCed",1
Scrivi String (75,"*")

 
Sub main()
Dim ruote(1)
Dim n(4)
Dim rt(3),posta(1),poste(5),postet(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),ns1(6),ns2(6),ns3(6),ns4(6),ns5(6)
posta(1)=1 : poste(2)=1 : poste(3)=1   
ruote(1)=11
co=0
indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","com  90",400))
If indietro= False Then Exit Sub
clp=CInt(InputBox ("Colpi in gioco ?..","com  90",14))
If clp= False Then Exit Sub


ini=EstrazioneFin -indietro
fin=EstrazioneFin 
For es=ini To fin 

       For r=1 To 9
          rt(1)=r
          For p=1 To 4
            For pp =p+1 To 5  
               n(1)=Estratto (es,r,p)
               n(2)=Estratto (es,r,pp)
               'controllo che sia un Aambo diametrale
                con=Distanza(n(1),n(3))
                If con=45 Then 
                ' trovo il complemento di 90 dei due
                 co1=(90-n(1)):co2=(90-n(2))
                 ' devo trovare uno dei due in posizione isotopa            
                    Npos=0
                    For  rr=r+ 1 To 10 
                      rt(2)=rr
                      n(3)=Estratto (es,rr,p)
                      n(4)=Estratto (es,rr,pp)
                     si=0    
                     If co1=n(3) Or co1=n(4) Then trov=co1: man=co2 :Si=1:Npos=p
                     If co2=n(3) Or co2=n(4) Then trov=co2: man=co1:si=1 :Npos=pp 
                     
                     If si=1 Then 
                     
                     diad=DiametraleD (man)
                     am=Fuori90 (man+diad)
                     'am=(90-am)
                     ' troviamo l'ambo somma90 tra a b e trov
                     so90=Fuori90 (n(1)+trov)
                     If so90=90 Then dif=Abs(n(1)-trov): am1=Fuori90 (dif+n(2))
                     so90=Fuori90 (n(2)+trov)
                     If so90=90 Then dif=Abs(b-trov): am1=Fuori90 (dif+n(2))
                     am2=Diametrale (am1)
                      
                      co=co+1
Scrivi String (75 ,"=") ,1
Scrivi String (65 ,"°")& "Caso Nr "& co,1
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)
Scrivi DataEstrazione (es)&"  "& SiglaRuota (rr)&"  "& StringaEstratti (es,rr)
Scrivi "Numeri rilevati --->"& Space(10)&"("&  Format2 (n(1)) &"  "& Format2(n(2)) &" ) pos "& p &"° "& pp &"° " 
Scrivi "complemento "& Space(18)&"("&  Format2(trov) & "     ) pos "& npos &"°"
Scrivi
nu(1)=am
ImpostaGiocata 1,nu,rt,posta,clp,1 'ambata
na(1)=am
na(2)=am1
'ImpostaGiocata 2,na,rt,poste,clp ,2 ' imposta giocata ambo
na1(1)=am          
na1(2)=am2
'ImpostaGiocata 3,na1,rt,poste,clp,2  ' imposta giocata ambo
na2(1)=am         
na2(2)=am1
na2(3)=am2
ImpostaGiocata 4,na2,ruote,poste,clp,2  ' imposta giocata ambo terno Tutte



Gioca es
 
End If
Next
End If
Next 
Next
Next 
Next 
ScriviResoconto 


ColoreTesto 1
Scrivi "°°°esselotto°°°",1


End Sub

 

[rabberto]

Per Blackmore scusami per le mie richiete le cancello subito , pero volevo dirti sto cercando di contribuire pure io con un pacchetto con tanti script ho cercato di metterli su megaupload ma mi dice Il file è stato eliminato perché violava i nostri Termini di servizio come faccio a metterlo a disposizione di tutto il forum , grazie , ciao.

 

[rabberto]

Ragazzi questa e la mia mega raccolta script spero di aver fatto cosa gradita a tutto il forum.

http://www.mediafire.com/?3ly89r4u3nsu9b9


password : rabberto.
Ciao.

 

[Roby]

QUESTO SCRIPT CALCOLA LA DISTANZA (DA CAMBIARE A PROPRIO PIACIMENTO) TRA 2 NUMERI IN 2 RUOTE DIVERSE


Sub main()
Dim ruote(2)
di=25 '<--------per cambiare distanza, sostituire il n°25
fin=EstrazioneFin
ini=fin-100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4

a = Estratto (es,r1,p1)

If Distanza (a,b)=di Then
For r2 = r1+1 To 10

For p2=p1+1 To 5
b = Estratto (es,r1,p2)

If Distanza (a,b)=di Then

Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a)
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(b)

End If : Next : Next :
End If : Next : Next : Next : End Sub



Blackmore

 

[Roby]

DOPPIA AMBATA e AMBO su VENEZIA di O.MANARA

script con le formule per la sottrazione (mettere apice)

CODICE
Sub main ()
Dim num1(2),num2(2),num3(3),num4(8)
Dim ruota(1)
Dim posta(1),poste(2),post(3),pos(5)

posta(1)=5oste(2)=4
post(2)=5ost(3)=4
pos(2)=5os(3)=4os(4)=1os(5)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8300) '6712 caso metodo
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "doppia ambata e ambo sulla ruota di ve di o_manara (list by maxma62)",1
Scrivi String(71,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
If IndiceMensile(es)=1 Then
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

casi=casi+1:Scrivi String(53,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(10)&" - "&StringaEstratti(es,10)&" ]"
Scrivi String(58,"-")&" caso n° "&(casi)
ruota(1)=10:co=0

n1=Estratto(es,10,2)
n2=n1*90
n3= Fuori90(Int(Sqr(n2)))'ambata 1

'n4=Abs(n3-3)'ambata 2
n4=Fuori90(90+(n3-3)) 'ambata 2

'n5=Abs(Estratto(es,10,1)-11)'abb
n5=Fuori90(90+(Estratto(es,10,1)-11))'abb

n6=Fuori90(Estratto(es,10,2)+31)'abb
n7=Fuori90(Estratto(es,10,2)+38)'abb
n8=Fuori90(Estratto(es,10,3)+42)'abb
n9=Fuori90(Estratto(es,10,5)+7)'abb

'n10=Abs(Estratto(es,10,5)-24)'abb
n10=Fuori90(90+(Estratto(es,10,5)-24))'abb

num1(1)=n3:num1(2)=n4
co=co+1
ImpostaGiocata co,num1,ruota,posta,k,1
num2(1)=n3:num2(2)=n4
co=co+1
ImpostaGiocata co,num2,ruota,poste,k
num3(1)=n3:num3(2)=n4:num3(3)=n5
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n6
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n7
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n8
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n9
co=co+1
ImpostaGiocata co,num3,ruota,post,k
num3(3)=n10
co=co+1
ImpostaGiocata co,num3,ruota,post,k

num4(1)=n3:num4(2)=n4
num4(3)=n5:num4(4)=n6
num4(5)=n7:num4(6)=n8
num4(7)=n9:num4(8)=n10
co=co+1
ImpostaGiocata co,num4,ruota,pos,k

Gioca es

End If
Next
Scrivi String(53,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "doppia ambata e ambo sulla ruota di ve di o_manara (list by maxma62)",1
End Sub

SUERTE !!!!

 

[Roby]

Scrivi "QUESTO è UN METODO DELL'AMICO XTREME, OGNI VOLTA CHE SU NAPOLI ESCE LA SPIA 90, SI METTONO IN GIOCO 2 AMBATE SU BARI"
Sub main()
Dim rt(1),nu(1),ru(1),n2(2),pt(1),rtt(1)
pt(1)=1
rtt(1)=11
aa=CInt (InputBox("Digita Numero Spia ","NUMERO SPIA","90"))
nu(1)=aa
r1=CInt(InputBox ("Su che Ruota è uscita la Spia ?","RUOTA",6))
rt(1)=r1
rr=InputBox ("Digita la ruota dove giocare le 2 Ambate(1=BA,2=CA...12=NZ)","RUOTE GIOCO","1")
rr="0."&rr
q=Split(rr,".")
ru(1)=CInt (q(1))
ts=CInt (InputBox ("Vuoi il gioco a TUTTE ? (1=SI ; 0=NO)","TUTTE",0))
clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",5))
y=Split(ww,".")

ff=InputBox ("Digita i 2 Fissi ","FISSI","3.86")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2))
ini=EstrazioneFin -300
co=0
For es=ini To EstrazioneFin
Messaggio es
If SerieFreq (es,es,nu,rt,1)>0 Then
co=co+1
a=Estratto (es,r,p)
n2(1)=Fuori90(f1) : n2(2)=Fuori90(f2)

Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" NUM. Spia "& StringaNumeri (nu)
Scrivi : ColoreTesto 0 : Scrivi"GIOCHIAMO LE AMBATE 3.86 SU BARI PER 5 COLPI ******************************** Metodo Di XTREME"

ImpostaGiocata 1,n2,ru,pt,clp,1

If ts=1 Then

End If
Gioca es
End If
Next
ScriviResoconto
End Sub



Blackmore

 

[ainos]

'Ambo isotopo e non stessa Distanza con InputBox
Sub main()
Dim n1(1)
Dim ruote(2),ruota(1)
Dim poste(5)
poste(1)=1
clp=12
sm=CInt(InputBox ("Qual'è la Distanza di Ricerca ? (1--45)","DISTANZA",27))
r1=CInt(InputBox("Qual'e la 1^ ruota?","1^ ruota",1))
r2=CInt(InputBox("Qual'e la 2^ ruota?","2^ ruota",2))
rg1=CInt(InputBox("Qual'e la 1^ ruota di gioco?","1^ ruota di gioco",1))
ruote(1)=rg1
rg2=CInt(InputBox("Qual'e la 2^ ruota di gioco?","2^ ruota di gioco",2))
ruote(2)=rg2
rs=InputBox("Quante estrazioni vuoi controllare?","ESTRAZIONI ARCHIVIO",300)
ruota(1)=11
fin=EstrazioneFin
ini=fin-rs
co=0
For es=ini To fin
Messaggio DataEstrazione (es)
For i= 1 To 4
For j=i+1 To 5
a=Estratto(es,r1,i) : b=Estratto(es,r1,j)
If Distanza(a,b)=sm Then
For p=1 To 4
For pp=p+1 To 5
aa=Estratto(es,r2,p) : bb=Estratto(es,r2,pp)
If Distanza(aa,bb)=sm Then
co=co+1
ColoreTesto 2 : Scrivi String (80,"=")
ColoreTesto 0 : Scrivi "Ambo isotopo e non - stessa Distanza - su 2 Ruote ",1
Scrivi String (80,"-")
Scrivi DataEstrazione(es,1) : Scrivi
Scrivi SiglaRuota(r1)&" "& StringaEstratti (es,r1)&" ["&format2(a)&"."&format2(b)&"] in "&(i)&"^/"&(j)&"^ pos."
Scrivi SiglaRuota(r2)&" "& StringaEstratti (es,r2)&" ["&format2(aa)&"."&format2(bb)&"] in "&(p)&"^/"&(pp)&"^ pos."
Scrivi : Scrivi SiglaRuota (r1)&" "&Cint(a)&" - "&Cint(b)&" ="&Cint(sm)&" "& SiglaRuota (r2)&" "&Cint(aa)&" - "&Cint(bb)&" ="&Cint(sm)
Scrivi String (80,"-")

n1(1)=Fuori90 (CInt (sm)*2)
ImpostaGiocata 1,n1,ruote,poste,clp,1
ImpostaGiocata 2,n1,ruota,poste,clp
Gioca es
End If
Next
Next
End If
Next
Next
Next
ColoreTesto 1 : Scrivi
Scrivi "Casi Trovati "& CInt (co),1
ColoreTesto 0
ScriviResoconto
End Sub

 

[Roby]

UP !!!!

SUERTE !!!!

 

[Roby]

Sub Main()
Scrivi : ColoreTesto 1 : Scrivi"QUESTO SCRIPT CALCOLA I 3 AMBI PIù FREQUENTI PER TUTTI I 90 NUMERI(SPIE)"
Scrivi : ColoreTesto 0 : Scrivi
Dim ru(2) : Dim ambi(4005,5) : Dim nn(2)
r=InputBox("SU quale Ruota?",,1)
e=InputBox("Quante estrazioni controllo?",,50)
c=InputBox("Entro quanti colpi?",,8)
For n1=1 To 90
For i=1 To 4005
ambi(i,4)=0 : ambi(i,1)=0 : ambi(i,2)=0 : ambi(i,3)=0
Next
casi=0 : co=0 : fin=EstrazioneFin : ini=EstrazioneFin-e
For es=ini To fin
Messaggio " Spia "&CInt(n1)&" est. "&es&" su "& NomeRuota(r)&" dal "& DataEstrazione(ini)&" ad oggi"
If Posizione(es,r,n1)>0 Then
casi=casi+1 : ess=es+c
If ess>fin Then ess=fin End If
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1 : ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y : nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,4)=ambi(co,4)+ SerieFreq (es+1,ess,nn,ru,2)
Next
Next
End If
Next
OrdinaMatrice ambi,-1,4
ColoreTesto 1
Scrivi " Spia "&CInt(n1)&" su "& NomeRuota(r)&" - Ambi più frequenti, "&c&" colpi, "&CInt(casi)&" casi"&" dal "&DataEstrazione(ini)&" ad oggi"
Scrivi
Scrivi " Ambi a ruota"
ColoreTesto 2
Scrivi String(10," ")&"Ambo Frequenza"
ColoreTesto 0
For x=1 To 3
riga=Format2(ambi(x,2))&"-"& Format2(ambi(x,3))&" "& Format2(ambi(x,4))
Scrivi String(9," ")&riga
riga=""
Next
Scrivi "********************************************************"
Next
End Sub


Blackmore

 

[miki55]

Ragazzi, posso chiedervi se qualcuno abbia degli script per
la somma degli ultimi 10 ritardi consecutivi per estratti a scelta
dei singoli a coppia e a terzine su ruota singola?

 

[keeper]

ciao black ma tra i tanti script mica ne hai qualcuno applicato alla lotteria inglese uk49s?