Novità

MEGA RACCOLTA "SCRIPT"

R

Roby

Guest
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 !!!!
 
R

Roby

Guest
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
 
R

Roby

Guest
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(n)&" "&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

Senior Member
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.

:)
Codice:
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.
 
R

Roby

Guest
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

Advanced Premium Member
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


79854579.jpg
utenteanonimobn.png
20060131003541-borabora.gif
Entertainment Group
 
R

Roby

Guest
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
 
R

Roby

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



Blackmore
 
R

Roby

Guest
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

Advanced Member >GOLD<
TRA TANTI DEI MIEI HO SCELTO QUESTO.
GIA' POSTATO IN QUEST'AREA



Codice:
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

Advanced Member
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.
 
R

Roby

Guest
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
 
R

Roby

Guest
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)=5:poste(2)=4
post(2)=5:post(3)=4
pos(2)=5:pos(3)=4:pos(4)=1:pos(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 !!!!
 
R

Roby

Guest
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

Junior Member
'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
 
R

Roby

Guest
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
ciao black ma tra i tanti script mica ne hai qualcuno applicato alla lotteria inglese uk49s?
 

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