Novità

MEGA RACCOLTA "SCRIPT"

B

Blackmore

Guest
Apro questo Topic con l'intento di
riunire più Script possibili, e,
per tutti i gusti


OGNI CONTRIBUTO è BEN ACCETTO


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


Blackmore
 
R

Roby

Guest
Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE (Con InputBox)"

Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",3))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",3))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",3))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",2000))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",10))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 10
riga=" "& Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub



Blackmore
 
R

Roby

Guest
Scrivi : Scrivi "QUESTO SCRIPT RICAVA 1 AMBATA SULLA NAZIONALE, SIA SEMPLICE CHE DETERMINATA ALL'ULTIMA ESTRAZIONE DEL MESE"

Sub main()
Dim pt(10),rt(1),nn(1),pta(1)
pt(1)=1
pt(6)=1
pt(7)=1
pt(8)=1
pt(9)=1
pt(10)=1
pta(1)=1

clp=9 'colpi di gioco
rt(1)=12 '1a ruota di gioco

ini=EstrazioneFin -120
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])

a=Estratto(es,3,5)' 5°di Firenze

'------------------------------Ambata
nn(1)=Fuori90 (a+47)

ImpostaGiocata 1,nn,rt,pta,clp,1

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore
 
R

Roby

Guest
Scrivi : Scrivi "QUESTO SCRIPT RICAVA I 1O NUMERI PIù FREQUENTI DOPO L'USCITA DI UN QUALSIASI NUMERO (CON InputBox Per Ruota e Colpi)"

Sub main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
r=InputBox("Su quale ruota?",,1)
colpi=InputBox("Quanti colpi?",,10)
ruote(1)=r
ini=7000
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i "&colpi&" colpi",1
For sp=1 To 90
Messaggio " Spia: "&sp
For i=1 To 90
num(i,1)=0 : num(i,2)=0
Next
co=0
For es=ini To fin
If Posizione(es,r,sp)>0 Then
co=co+1
ess=es+colpi+1
If ess>fin Then ess=fin End If
For a=es+1 To ess
For v=1 To 90
uscito(v,2)=0
Next
For e=1 To 5
n=Estratto(a,r,e)
num(n,1)=n
num(n,2)=num(n,2)+1
uscito(n,1)=n
uscito(n,2)=uscito(n,2)+1
If uscito(n,2)>1 Then
num(n,2)=num(n,2)-1
uscito(n,2)=1
End If
Next
Next
End If
Next
OrdinaMatrice num, -1, 2
per=Int((co/100)*65)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&" colpi "& colpi
Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To 10
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(Eval(num(i,2)),4)&" "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Next
End Sub



Blackmore
 
R

Roby

Guest
Scrivi : Scrivi "QUESTO SCRIPT CALCOLA UNA QUARTINA SU BARI ALLA 12°ESTRAZIONE DEL MESE"

Sub main()
Dim rt(1),pt(4),n1(4)

pt(2)=1
pt(3)=1
pt(4)=1

clp=9 'colpi di gioco
rt(1)=1 '1a ruota di gioco


ini=EstrazioneFin -140
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=12 Then '12 Estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,12,5)

'------------------------------Quartina
n1(1)=Fuori90 (a+9)
n1(2)=Fuori90 (a+17)
n1(3)=Fuori90 (a+18)
n1(4)=Fuori90 (a+25)

ImpostaGiocata 2,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore
 
R

Roby

Guest
Scrivi : Scrivi "QUESTO SCRIPT CALCOLA 2 AMBATE SU ROMA ALLA 10°ESTRAZIONE DEL MESE"

Sub main()
Dim pt(1),rt(1),nn(2),pta(1)
pt(1)=1
pta(1)=1

clp=9 'colpi di gioco
rt(1)=8 '1a ruota di gioco
ini=EstrazioneFin -310
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=10 Then '10° estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,1,3)'<<--- questo è il 3^estr. di Bari!!!

'------------------------------Ambate
nn(1)=Fuori90 (a+46)
nn(2)=Fuori90 (a+84)
ImpostaGiocata 1,nn,rt,pta,clp,1

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore
 
R

Roby

Guest
Scrivi : Scrivi "QUESTO SCRIPT CALCOLA 3 AMBI SECCHI SU TUTTE LE RUOTE ALL'ULTIMA ESTRAZIONE DEL MESE"

Sub main()
Dim n1(3),n2(3),n3(3),pt(2),rt(1),pta(2)

pt(2)=1
pta(2)=1

clp=8 'colpi di gioco
rt(1)=11 '1a ruota di gioco

ini=EstrazioneFin -260
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,10,3)


'------------------------------1^ Ambo
n1(1)=Fuori90 (a+10)
n1(2)=Fuori90 (a+40)
'------------------------------2^ Ambo
n2(1)=Fuori90 (a+10)
n2(2)=Fuori90 (a+78)
'------------------------------3^ Ambo
n3(1)=Fuori90 (a+40)
n3(2)=Fuori90 (a+78)


ImpostaGiocata 1,n1,rt,pt,clp,2
ImpostaGiocata 2,n2,rt,pt,clp,4
ImpostaGiocata 3,n3,rt,pt,clp,4


Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore
 
R

Roby

Guest
Scrivi : Scrivi "QUESTO SCRIPT CALCOLA 1 AMBO SECCO SU RUOTA ALLA 9°ESTRAZIONE DEL MESE"

Sub main()
Dim pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2

clp=10 'colpi di gioco
rt(1)=6 '1a ruota di gioco

ini=EstrazioneFin -60
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=9 Then '1a estrazione del mese

co=co+1
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,9,1)
'------------------------------Ambo
nn(1)=Fuori90 (a+19)
nn(2)=Fuori90 (a+79)
ImpostaGiocata 1,nn,rt,pta,clp,2

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore
 
R

Roby

Guest
Scrivi : Scrivi"QUESTO SCRIPT TROVA 1 AMBATA SU RUOTA E CALCOLA QUANTE VOLTE è USCITA (Con InputBox Per Ruota Percentuale,colpi etc..)"

Sub main()
Dim ambi(4500,6),nn(10),ruota(10)
nru1=InputBox("ruota : ",,1)
nes=InputBox("Inserisci 0 ultima, 1 prima, ....",,1)
ne=InputBox("Numero estrazioni:",,200)
perc=InputBox("Percentuale minima (60-99%):",,95)
ncg=InputBox("Numero colpi di gioco",,8)
ruota(1)=eval(nru1)
casi=0
ini=EstrazioneFin-ne
fin=EstrazioneFin
For x=1 To 4500
ambi(x,1)=0 : ambi(x,2)=0 : ambi(x,3)=0 : ambi(x,4)=0 : ambi(x,5)=0 : ambi(x,6)=0
Next
For es=ini To fin
If eval(nes)=0 Then
If IndiceMensile(es+1)=1 Then
casi=casi+1
co=0
For r=1 To 10
For p=1 To 5
For nu=1 To 90
co=co+1
c=0
a=Estratto(es,r,p)
b=Fuori90(a*nu)
nn(1)=b
esncg=es+eval(ncg)
If esncg>EstrazioneFin Then esncg=EstrazioneFin End If
c=SerieFreq(es+1,esncg,nn,ruota,1)
If c>0 Then
ambi(co,1)=co
ambi(co,2)=r
ambi(co,3)=p
ambi(co,4)=nu
ambi(co,5)=ambi(co,5)+1
ambi(co,6)=ambi(co,6)+c
End If
Next
Next
Next
End If
Else
If IndiceMensile(es)=eval(nes) Then
casi=casi+1
co=0
For r=1 To 10
For p=1 To 5
For nu=1 To 90
co=co+1
c=0
a=Estratto(es,r,p)
b=Fuori90(a*nu)
nn(1)=b : nn(2)=Vert(b)
esncg=es+eval(ncg)
If esncg>EstrazioneFin Then esncg=EstrazioneFin End If
c=SerieFreq(es+1,esncg,nn,ruota,1)
If c>0 Then
ambi(co,1)=co
ambi(co,2)=r
ambi(co,3)=p
ambi(co,4)=nu
ambi(co,5)=ambi(co,5)+1
ambi(co,6)=ambi(co,6)+c
End If
Next
Next
Next
End If
End If
Next
ca=0
ColoreTesto 1
Scrivi "ANALISI Dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin),1
Scrivi
If eval(nes)=0 Then
Scrivi "ESTRAZIONE DI CALCOLO : "& "Ultima del mese",1
Else
Scrivi "ESTRAZIONE DI CALCOLO : "& eval(nes)&"° del mese",1
End If
Scrivi "RUOTE DI GIOCO : "& NomeRuota(nru1)& " - "& NomeRuota(nru2),1
Scrivi "COLPI DI GIOCO : "& ncg,1
Scrivi "CASI ANALIZZATI : "& casi,1
Scrivi : ColoreTesto 0
per=Int((casi/100)*perc)
For ca=1 To 4500
If eval(ambi(ca,5))=>per Then
Scrivi eval(ambi(ca,3))& "°" & Left(NomeRuota(eval(ambi(ca,2))),2)&" * "&_
Format2(ambi(ca,4))&" su "& NomeRuota(nru1)&"-"& NomeRuota(nru2)&_
" è uscito "& FormatSpace(ambi(ca,5),3)&" su "&FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(ambi(ca,6),3)
End If
Next
End Sub


Blackmore
 
R

Roby

Guest
Scrivi "QUESTO SCRIPT ALL'USCITA DI UN AMBO SPIA CALCOLA UNA CINQUINA SU RUOTA (Con InputBox)"

Sub main()
Dim rt(1),nu(2),ru(2),n5(5),ptt(5),rtt(1),rut(1)
ptt(2)=1 : ptt(3)=0.50 : ptt(4)=0.25 : ptt(5)=0.25
rtt(1)=11 : rut(1)=12

aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","25.52")
aa="0."&aa
s=Split(aa,".")
nu(1)=CInt(s(1)) : nu(2)=CInt(s(2))

r1=CInt(InputBox ("Su che Ruota è uscito l'Ambo?","RUOTA",8))
rt(1)=r1

rr=InputBox ("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","8")
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",9))

ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 3.1= 3^estr.di BA)","POS.-RUOTA","5.8")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 5 Fissi da sommare all'estratto scelto","FISSI","20.23.46.50.51")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3)) : f4=CInt (h(4)) : f5=CInt (h(5))
co=0
For es=3200 To EstrazioneFin 'qui' inserire da che estrazione vogliamo controllare
Messaggio es
If SerieFreq (es,es,nu,rt,2)>0 Then
co=co+1
a=Estratto (es,r,p)
n5(1)=Fuori90(a+f1) : n5(2)=Fuori90(a+f2) : n5(3)=Fuori90(a+f3) : n5(4)=Fuori90(a+f4) : n5(5)=Fuori90(a+f5)
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambo Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&","&f4&","&f5&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" per "&clp&" colpi"
ImpostaGiocata 1,n5,ru,ptt,clp
If ts=1 Then
'ImpostaGiocata 1,n5,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 10,n5,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es
End If
Next
ScriviResoconto
End Sub



Blackmore
 

rabberto

Advanced Member
Messaggi
506
Punti reazione
7
Punti
18
E bello sapere che ci sono persone come te sul forum che postano il loro materiale dando la possibilita' anche a chi e negato come me con gli script di avere degli script buoni , GRAZIE , Ciao.
 

keeper

Advanced Member >PLATINUM PLUS<
Messaggi
3.082
Punti reazione
1
Punti
36
ciao blackmore negli ultimi due script ci sono degli errori
 
R

Roby

Guest
QUESTO SCRIPT CALCOLA ALL'ULTIMA DEL MESE UN 'AMBO A NAZIONALE PALERMO E MILANO(OTTIMO PER AMBATE)




Sub main()
ColoreTesto 2 :Scrivi String(47,32) & " 1°estrazione del mese x PALERMO - MILANO - NAZIONALE di LEON65",1
Dim ruota(10)
Dim numeri1(2)

Dim posta(2)
posta(2) = 5
ruota(1) = 12
ruota(2) = 5
ruota(3) = 7
For n = 8000 To EstrazioneFin
If IndiceMensile(n) = 1 Then
numeri1(1) = Fuori90(Estratto(n,4,3) + 57)
numeri1(2) = Fuori90(Estratto(n,5,5) * Estratto(n,6,5) + 47)
ImpostaGiocata 1,numeri1,ruota,posta,13,2
Gioca n
End If
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(47,32) & " 1°estrazione del mese x PALERMO - MILANO - NAZIONALE di LEON65",1

End Sub

SUERTE !!!!
 
R

Roby

Guest
QUESTO SCRIPT CALCOLA SU BARI UN'AMBO ,CHE VIENE RICALCOLATO OGNI 4 ESTRAZIONI,SI GIOCA QUINDI SU BARI PER 4 COLPI.LO SCRIPT DA' LA POSSIBILITA' DI SCELTA DELL'ESTRAZIONE INIZIALE E DEL FUORI QUOTA DA ESEGUIRE(FUORI 90 O 91)



'Metodo sommativo su Bari X Codicebinario e listato da Enplein
Sub main()
Dim ab(2),ambo1(2),ambo2(2),ambo3(2),ambo4(2)
Dim ruota(1),ruote(2),poste1(2)
poste1(2)=1
t=0
im=CInt (InputBox ("Quale indice mensile vuoi? 1= fine mese, 5= 4° del mese, 9= 8° del mese ",,1))
fq=CInt (InputBox ("F.90=1 o F.91=2 ???",,1))
'Imposta la giocata su Ba
r1 =1
ini=6982 '3/1/2001
For es=ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin ,es
If Indicemensile (es+1)=im Then
If im=1 Then riga="fine mese"
If im=5 Then riga="4° del mese"
If im=9 Then riga="8° del mese"
n1=Estratto (es,1,1):n2=Estratto (es,2,2)
n3=Estratto (es,10,1):n4=Estratto (es,2,1)
If fq=1 Then
q=90:eek:k=0
ambo1(1) = Fuori90 (n1*50) :ambo1(2) =Fuori90 (n2+63)
ambo2(1) = Fuori90 (n1+2) :ambo2(2) =Fuori90 (n1+59)
ambo3(1) = Fuori90 (n1+40) :ambo3(2) =Fuori90 (n3+65)
ambo4(1) = Fuori90 (n1+24) :ambo4(2) =Fuori90 (n4+39)
If ambo1(1)=ambo1(2) Then ab(1)=ambo1(1):ab(2)=91-ambo1(1):eek:k=1
If ambo2(1)=ambo2(2) Then ab(1)=ambo2(1):ab(2)=91-ambo2(1):eek:k=1
If ambo3(1)=ambo3(2) Then ab(1)=ambo3(1):ab(2)=91-ambo3(1):eek:k=1
If ambo4(1)=ambo4(2) Then ab(1)=ambo4(1):ab(2)=91-ambo4(1):eek:k=1
End If
If fq=2 Then
q=91:eek:k=0
ambo1(1) = fuori91 (n1*50) :ambo1(2) =fuori91 (n2+63)
ambo2(1) = fuori91 (n1+2) :ambo2(2) =fuori91 (n1+59)
ambo3(1) = fuori91 (n1+40) :ambo3(2) =fuori91 (n3+65)
ambo4(1) = fuori91 (n1+24) :ambo4(2) =fuori91 (n4+39)
If ambo1(1)=ambo1(2) Then ab(1)=ambo1(1):ab(2)=91-ambo1(1):eek:k=1
If ambo2(1)=ambo2(2) Then ab(1)=ambo2(1):ab(2)=91-ambo2(1):eek:k=1
If ambo3(1)=ambo3(2) Then ab(1)=ambo3(1):ab(2)=91-ambo3(1):eek:k=1
If ambo4(1)=ambo4(2) Then ab(1)=ambo4(1):ab(2)=91-ambo4(1):eek:k=1
End If
ruota(1)=r1:ruote(1)=r1:ruote(2)=11
t=t+1
Scrivi "------------------------------------------------------------"
Scrivi DataEstrazione(es)&" "& NomeRuota (r1)&" "& (riga)&" con il fuori "&q& Chr (10)&_
"1°BA "& Format2 (n1)&"*50 e 2°CA "& Format2 (n2)&"+63"& Chr (10)&_
"1°BA "& Format2 (n1)&"+02 e 1°BA "& Format2 (n1)&"+59"& Chr (10)&_
"1°BA "& Format2 (n1)&"+40 e 1°VE "& Format2 (n3)&"+65"& Chr (10)&_
"1°BA "& Format2 (n1)&"+24 e 1°CA "& Format2 (n4)&"+39",1
Scrivi "---------------------------------------------"& "Giocata n° "& Format2(t)
ImpostaGiocata 1,ambo1,ruota,poste1,4,2
ImpostaGiocata 2,ambo2,ruota,poste1,4,2
ImpostaGiocata 3,ambo3,ruota,poste1,4,2
ImpostaGiocata 4,ambo4,ruota,poste1,4,2
If ok=1 Then ImpostaGiocata 5,ab,ruote,poste1,4,2
Gioca es
End If
Next
ScriviResoconto
End Sub

Function fuori91(numero)
nn=Int (numero/91)
If numero-(nn*91)=0 Then fuori91=90 Else fuori91= numero-(nn*91)
End Function

SUERTE !!!!
 

marco6474

Member
Messaggi
47
Punti reazione
0
Punti
6
Ambata + 5 ambi a Mi/Na
ciao Marco

Sub Main()
Dim rt(2),pte(2),pta(2),am(2),ambo(5),nr(5)

estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",100))
clpe = CInt(InputBox("Quanti colpi di gioco per l'ambata?","Colpi ambata",4))
clpa = CInt(InputBox("Quanti colpi di gioco per l'ambo?","Colpi ambo",12))
n1 = CInt(InputBox("1° numero da abbinare?","N1",8))
n2 = CInt(InputBox("2° numero da abbinare?","N2",13))
n3 = CInt(InputBox("3° numero da abbinare?","N3",20))
n4 = CInt(InputBox("4° numero da abbinare?","N4",45))
n5 = CInt(InputBox("5° numero da abbinare?","N5",79))
ini = EstrazioneFin - estr
fin = EstrazioneFin

For es = ini To fin
Messaggio es

pte(1) = 1
pte(2) = 1
pta(2) = 1
rt(1) = 5
rt(2) = 6
ng = 0

am(1) = Fuori90(Estratto(es,5,5) + Estratto(es,6,1))
am(2) = Vert(am(1))
ng = ng + 1
ImpostaGiocata ng,am,rt,pte,clpe

nr(1) = n1
nr(2) = n2
nr(3) = n3
nr(4) = n4
nr(5) = n5

For x = 1 To 5
ambo(1) = am(1)
ambo(2) = nr(x)
ng = ng + 1
ImpostaGiocata ng,ambo,rt,pta,clpa
Next

For x = 1 To 5
ambo(1) = am(2)
ambo(2) = nr(x)
ng = ng + 1
ImpostaGiocata ng,ambo,rt,pta,clpa
Next

co = co + 1
Scrivi String(70,"=") & " Caso n° " & co,1
Scrivi

Gioca es
Next
ScriviResoconto
End Sub
 

DjNomade

Advanced Member >PLATINUM<
Messaggi
1.894
Punti reazione
4
Punti
38
ColoreTesto 1 :Scrivi String(37,32)&"2 ambate BARI-CAGLIARI METODO PRIMUS",1


Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0
Sub main()
Dim posta(5)
Dim ruote(5)
Dim am(10)
posta(1)=1

casi=0

fin=EstrazioneFin
ini=EstrazioneFin-920
For es=ini To fin
If IndiceMensile(es)=1 Then

a=Estratto(es,1,1)
b=Estratto(es,2,5)

ColoreTesto 2 :Scrivi "--1°estrazione del mese---------------------------",1
ColoreTesto 0 :Scrivi " "&Left(NomeRuota(1),9)&" "&Cint(a)&" "&(1)&"° estratto ",1
ColoreTesto 0 :Scrivi " "&Left(NomeRuota(2),9)&" "&Cint(b)&" "&(5)&"° estratto ",1

ruote(1)=1
ruote(2)=2
am(1)=Abs(91-(a+b))
am(2)=Fuori90(a+b+45)
ra1=SerieRitardo(ini,es,am,ruote,1)
ColoreTesto 2:scrivi "Ritardo x Ambata sulle due Ruote = "& Format2 (ra1):coloretesto 0
ImpostaGiocata 1,am,ruote,posta,8,1
Gioca es
casi=casi+1
End If

Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
ColoreTesto 1 :Scrivi String(37,32)&"2 ambate BARI-CAGLIARI METODO PRIMUS",1


Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0
End Sub


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

Roby

Guest
AMBATE CICLOMETRICHE DA AMBI A DISTANZA DETERMINATA

ATTENZIONE SONO 4 SCRIPT !!!!!






Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(4)
Dim ruote(3)
Dim poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-150
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11:If r1=11 Then r1=12
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)
For r2=1 To 11
If r2=11 Then r2=12
For p3=1 To 5
n3=Estratto(es,r2,p3)
If n1>n2 Then ds2=Distanza(n1,n3):a1=Diametrale(n3)
If n2>n1 Then ds2=Distanza(n2,n3):a1=Diametrale(n3)
If ds1=45 And n1>n2 And p1=p3 And ds2=30 Or ds1=45 And n2>n1 And p2=p3 And ds2=30 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" >"&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2 (ds2)&" >"&Format2(n3)
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0
nu2(1)=a1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next
Next:Next:Next
ScriviResoconto
End Sub



Distanza 45 14

Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(4)
Dim ruote(3)
Dim poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-150
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11:If r1=11 Then r1=12
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)
For r2=1 To 11
If r2=11 Then r2=12
For p3=1 To 5
n3=Estratto(es,r2,p3)
If n1>n2 Then ds2=Distanza(n1,n3)
If n2>n1 Then ds2=Distanza(n2,n3)
If ds1=45 And n1>n2 And p1=p3 And Ds2=15 Or ds1=45 And n2>n1 And p2=p3 And Ds2=15 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" >"&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2 (ds2)&" >"&Format2(n3)
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0
a1=Diametrale(n3)
nu2(1)=a1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next
Next:Next:Next
ScriviResoconto
End Sub


Distanza 45-30

Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(4)
Dim ruote(3)
Dim poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-150
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11:If r1=11 Then r1=12
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)
For r2=1 To 11
If r2=11 Then r2=12
For p3=1 To 5
n3=Estratto(es,r2,p3)
If n1>n2 Then ds2=Distanza(n1,n3):a1=Diametrale(n2)
If n2>n1 Then ds2=Distanza(n2,n3):a1=Diametrale(n1)
If ds1=30 And n1>n2 And p1=p3 And ds2=45 Or ds1=30 And n2>n1 And p2=p3 And ds2=45 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" > "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2 (ds2)&" > "&Format2(n3)&" chiusura > 45 < 30 > "&Format2(a1)
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0
nu2(1)=a1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next
Next:Next:Next
ScriviResoconto
End Sub

Distanza 45-30-15 incrociato

Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(4)
Dim ruote(3)
Dim poste(5)
poste(1)=1
fin=EstrazioneFin
ini=fin-150
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11:If r1=11 Then r1=12
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
 
R

Roby

Guest
QUESTO E' IL BYRON di A.LONGO !!!!!listato dal bravissimo
F.FLORINDI.


Sub main()
Dim ruota(1),amb(2),lg(5),posta(1),poste(5)
Dim num(10),df(10),dfs(6),dfi(5),nr1(7),nr2(7),nr3(7),nr4(7),nr5(6),sv(6)
posta(1)=1 : poste(2)=2 : poste(3)=1.5 : poste(4)=1 : poste(5)=0.50 : colpo=18 : colpi=40
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(40," ")&"****** BYRON DI A. LONGO ****** ",1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi String(70,"=")&"listato by franco florindi",1
ColoreTesto 0
rs=CInt(InputBox("Quante estrazioni si vogliono analizzare ?","F.Florindi",10))
ini=EstrazioneFin -rs
fine=EstrazioneFin
conta=0
Scrivi
Scrivi String(40," ")&"****** RENDICONTO ****** ",1
Scrivi
Scrivi String(40," ")& DataEstrazione(ini)&" : "& DataEstrazione(fine)
For es=ini To fine
Messaggio es
For r=1 To 11
If r=11 Then r=12
ruota(1)=r
'Numeri estratti
For i=1 To 5
num(i)=Estratto (es-1,r,i)
num(i+5)=Estratto (es,r,i)
Next
'Calcola le differenze dei numeri estratti
h=0
For j=2 To 10
h=h+1
df(h)=Fuori90 ((num(1)+90)-num(j))
Next
df(10)=90
'Calcola le differenze superiori con la relativa somma
h=0:ss=0
For i=1 To 6: j=i+1
h=h+1
dfs(h)=Fuori90 ((df(i)+90)-df(j))
ss=Fuori90 (ss+dfs(i))
Next
'Crea la disposizione dei numeri in un Quadro
For i=1 To 7:nr1(i)=df(i):Next
h=0
For i=2 To 8:h=h+1:nr2(h)=df(i):Next
h=0
For i=3 To 9:h=h+1:nr3(h)=df(i):Next
h=0
For i=4 To 10:h=h+1:nr4(h)=df(i):Next
h=0
For i=5 To 10:h=h+1:nr5(h)=df(i):Next
sc=0
'Somma delle 6 solonne + somma delle somme
For i= 1 To 6
sv(i)=Fuori90(nr1(i)+nr2(i)+nr3(i)+nr4(i)+nr5(i))
sc=Fuori90 (sc+sv(i))
Next
'Differenze inferiori con relativa somma
h=0 : si=0
For i=1 To 5:j=i+1
h=h+1
dfi(h)=Fuori90 ((sv(i)+90)-sv(j))
si=Fuori90 (si+dfi(i))
Next
'Somma incognita
sx=0
For i=7 To 10
sx=Fuori90 (sx+df(i))
Next
'Somma delle differenze sup. + inf.
sd=Fuori90 (ss+si)
'1a Equazione ridotta di BYRON :3a+3b+4c+5d+6e+2g+2h+i=90
a=Fuori90(3*dfs(1))
b=Fuori90(3*dfs(2))
c=Fuori90(4*dfs(3))
d=Fuori90(5*dfs(4))
e=Fuori90(6*dfs(5))
f=Fuori90(4*dfs(6))
g=Fuori90(2*dfi(1))
h=Fuori90(2*dfi(2))
i=Fuori90(1*dfi(3))
se1=Fuori90(a+b+c+d+e+f+g+h+i)
'2a Equazione
a1=Fuori90(3*num(1))
b1=Fuori90(3*num(2))
c1=Fuori90(4*num(3))
d1=Fuori90(5*num(4))
e1=Fuori90(6*num(5))
f1=Fuori90(4*num(6))
g1=Fuori90(2*num(7))
h1=Fuori90(2*num(8))
i1=Fuori90(1*num(9))
se2=Fuori90(a1+b1+c1+d1+e1+f1+g1+h1+i1)
'Elem. differenziale
x=Fuori90 ((2*se1)+se2)
amb(1)=Fuori90 ((si+90)-x)
amb(2)=ss
ab1=Fuori90 ((amb(1)+90)-x):ab2=Diametrale (se1):ab3=Diametrale (se2)
lg(1)=amb(1):lg(2)=amb(2):lg(3)=ab1:lg(4)=ab2:lg(5)=ab3
conta=conta+1
ColoreTesto 1 :Scrivi : Scrivi String (70,"=")&" Caso n°"& conta,1 : ColoreTesto 0
Scrivi DataEstrazione (es-1)&" "& SiglaRuota (r)&" "& StringaEstratti (es-1,r)
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)& Chr (10)&_
"Diff. estratti al n°"& Format2(num(1))&"-->"& StringaNumeri (df)
Scrivi Space (10)&" QUADRO ",1
Scrivi Space(5)& StringaNumeri (dfs)& Space(2)&"<-- Diff. superiori"&" Somma :"& Format2 (ss)
Scrivi String (74,"-")
Scrivi Space (3)& StringaNumeri (nr1)& Chr (10)&_
Space (3)& StringaNumeri (nr2)& Chr (10)&_
Space (3)& StringaNumeri (nr3)& Chr (10)&_
Space (3)& StringaNumeri (nr4)& Chr (10)&_
Space (3)& StringaNumeri (nr5)&" xx"& Chr (10)&_
String (74,"-")& Chr (10)&_
Space (3)& StringaNumeri (sv)& space(3)&"<-- Somma :"& Format2 (sc) & Chr (10)&_
Space (4)& StringaNumeri (dfi)& Space(5)&"<-- Diff. inferiori"&" Somma :"& Format2 (si)
Scrivi : ColoreTesto 1
Scrivi "Somma delle somme delle prime sei colonne = "& Format2 (sc)
Scrivi "Somma di tutte le Differenze (Ultima esclusa) = "& Format2 (sd)
Scrivi "EQUAZIONE (EQ): 3A+3B+4C+5D+6E+4F+2G+2H+I=90"
Scrivi Format2 (a)&"."& Format2 (b)&"."& Format2 (c)&"."& Format2 (d)&"."& Format2 (e)&"."& Format2 (f)&_
"."& Format2 (g)&"."& Format2 (h)&"."& Format2 (i)
Scrivi "(1a EQ) Applicata alle differenze superiori ed inferiori : "& Format2 (se1)
Scrivi Format2 (a1)&".
 

imported_n/a

Advanced Premium Member
Messaggi
174.437
Punti reazione
1
Punti
38
Le mie seghe mentali
lo script eseguito dal buon DJ Nomade
(ottimo per convergenze)


ColoreTesto 1 :Scrivi String(20,32)&"2 numeri isotopi in 2° o 3° o 4° posizione quartine radicali x el gondolier",1


Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0

Sub main()
Dim ruote(2),num1(2),num2(4),num3(2),num4(2),posta(3),poste(5)
posta(1)=5:poste(2)=3:poste(3)=2
ce=InputBox(" estrazione vuoi controllare? ","estrazione",10)
k=InputBox ("per quanti colpi?","colpi di gioco",13)
ini=EstrazioneFin-ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
If p1=2 Or p1=3 Or p1=4 Then
For r2=r1+1 To 10
If r2=11 Then r2=12 End If
For p2=1 To 5
If p2=2 Or p2=3 Or p2=4 Then
b=Estratto(es,r2,p2)
If p1=p2 Then
If Radicale(a) And Radicale(b) Then
casi=casi+1:Scrivi String(50,"=")&" by DjNomade",1
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r2)&" - "&stringaEstratti(es,r2)&_
" ] [ "&format2(b)&" ] in "&(p2)&"^ pos."
Scrivi String(60,"-")&" caso n°"&casi


ruote(1)=r1:ruote(2)=r2
n1=Fuori90(a+b) '1° abbinamento
n2=Estratto(es,r1,p1-1) '1 laterale r1 sinistro
n3=Estratto(es,r1,p1+1) '2 laterale r1 destro
n4=Estratto(es,r2,p2-1) '1 llaterale r2 sinistro
n5=Estratto(es,r2,p2+1) '2 laterale r2 destro
n6=Fuori90(n2+a+b)'ambata
n7=Fuori90(n5+a+b)'2° ambata

num1(1)=n6
num1(2)=n7
ra1=SerieRitardo(ini,es,num1,ruote,1)
ColoreTesto 2:scrivi "Ritardo x Ambata sulle due Ruote = "& Format2 (ra1):coloretesto 0
ImpostaGiocata 1,num1,ruote,posta,k

num2(1)=n6:num2(2)=n7
num2(3)=Vert(n6):num2(4)=Vert(n7)
ImpostaGiocata 2,num2,ruote,poste,k



Gioca es
End If
End If
End If

Next
Next
End If
Next
Next
Next
ScriviResoconto

ColoreTesto 1 :Scrivi String(20,32)&"2 numeri isotopi in 2° o 3° o 4° posizione quartine radicali x el gondolier",1


Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0
End Sub


Parlar sensa pensar xè come sparar sensa mirar
 
R

Roby

Guest
SOMMA 90 IN VERTICALE con input box per la somma ricercata e numero estrazioni di ricerca,lo script contempla anche la NAZIONALE.





Sub main()

som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
ini = EstrazioneFin - nes
fin = EstrazioneFin
For es = ini To fin
Messaggio "Estrazione: " & es

For r1 = 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
For r2 = r1 + 1 To 12
b = Estratto(es,r2,p)
If a + b = som And r2 <> 11 Then

Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(a),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & Format2(b),1
Scrivi

End If
Next
Next
Next
Next
End Sub

SUERTE !!!!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 dicembre 2019
    Bari
    31
    35
    51
    16
    17
    Cagliari
    74
    45
    88
    04
    02
    Firenze
    58
    79
    71
    32
    70
    Genova
    35
    36
    74
    19
    67
    Milano
    37
    22
    09
    03
    50
    Napoli
    67
    32
    06
    82
    37
    Palermo
    59
    41
    52
    31
    06
    Roma
    17
    79
    01
    58
    19
    Torino
    41
    31
    57
    60
    03
    Venezia
    50
    31
    41
    01
    68
    Nazionale
    05
    12
    65
    02
    13

Ultimi Messaggi

Alto