MEGA RACCOLTA "SCRIPT"

[Y10]

Mille grazie Dj , tutto ok.

 

[rosce14]

visto che il grande black si sta' godendo le meritate vacanze lo script dovrebbe essere cosi'...
Ciauz

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

grazie per la correzione dello script, potrei sapere quali sono gli ambi spia da cercare per consultare lo script?
Grazie a chi mi puo' rispondere.

 

[Roby]

Ciao Rosce, gli ambi (anzi l'ambo) lo inserisci tu a piacimento, lo script poi ti trova i più frequenti dopo l'uscita dell'ambo da te scelto

 

[rosce14]

Ciao Rosce, gli ambi (anzi l'ambo) lo inserisci tu a piacimento, lo script poi ti trova i più frequenti dopo l'uscita dell'ambo da te scelto

grazie blackmore, ben tornato.
ti auguro un bellissima giornata.

 

[rosce14]

ciao rosce, gli ambi (anzi l'ambo) lo inserisci tu a piacimento, lo script poi ti trova i più frequenti dopo l'uscita dell'ambo da te scelto

ciao blackmore, ho provato ad aprire lo script, ma non c'e' nessuna chiamata per inserire gli ambi, mi dici come si fa'?

 

[Roby]

Come non ci sono Rosce....
quando fai girare lo script all'inizio le inputbox ti chiedono: qual'è il primo numero? qual'è il secondo numero?
li inserisci i numeri che compongono l'ambo, prima uno e poi l'altro
Ciao

 

[Joe91]

Buona sera a tutte/i.

Mi permetto di intervenire nella vostra discussione perchè mi pare di cogliere in questa frase :

"ho provato ad aprire lo script, ma non c'e' nessuna chiamata"

una certa criticità.

Lo script che non è altro che un file di testo contenente "parole" comprensibili sia all'uomo che al PC,

per far si che esso compia la sua missione non deve essere aperto, ma eseguito.

Per questo è necesario dapprima aver installato un ambiente particolare in cui eseguirlo.

Ovvero Spaziometria.

Poi ... si deve incollare lo script nell' editor di Spaziometria.

Poi ancora lo si deve "lanciare" o eseguire e ....

solo a questo punto esso effettua le sue rischieste (o chiamate).

Dovresti pertanto cortesemente dirci se avevi installato/copiato/eseguito ... lo script.

Cosicchè gli aiuti siano meglio ... "mirati" a risolvere il problema.

 

[rosce14]

buona sera a tutte/i.

Mi permetto di intervenire nella vostra discussione perchè mi pare di cogliere in questa frase :

"ho provato ad aprire lo script, ma non c'e' nessuna chiamata"

una certa criticità.

Lo script che non è altro che un file di testo contenente "parole" comprensibili sia all'uomo che al pc,

per far si che esso compia la sua missione non deve essere aperto, ma eseguito.

Per questo è necesario dapprima aver installato un ambiente particolare in cui eseguirlo.

Ovvero spaziometria.

Poi ... Si deve incollare lo script nell' editor di spaziometria.

Poi ancora lo si deve "lanciare" o eseguire e ....

Solo a questo punto esso effettua le sue rischieste (o chiamate).

Dovresti pertanto cortesemente dirci se avevi installato/copiato/eseguito ... Lo script.

Cosicchè gli aiuti siano meglio ... "mirati" a risolvere il problema.

ciao joe91, la colpa e' solo mia, in effetti ho caricato solo stasera lo script giusto, a quanto pare aprivo uno script sempre x gli ambi spia di blackmore ma non mi ri chiedeva nessun numero.

Ti ringrazio x il tuo intervento, e un grazie particolare a blackmore x la sua gentilezza e disponibilita'.
Buona notte.

 

[can de lotto]

Ambo ****** (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

mi dà errore ,questo;If k>45 Then k=90-k anche altri mi dici come posso correggerlo? grazie

 

[bergie]

prova, ora dovrebbe andare.

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&gt<45 Then k=90-k
k1=Distanza (Estratto (n,r,d1),Estratto (n,r1,d1))
If k1&gt<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

 

[can de lotto]

grazie bergie molto gentile ,a buon rendere

 

[gamberorosso]

up

 

[lucius1]

up

 

[giluge]

dann-
alcuni non mi vanno

 

[skygirl]

Come mai molti di questi script non vanno? non sono adatti all'ultima versione di Spaziometria 1.5.0?

 

[adispo2000]

scusate ragazzi avete le raccolte degli script del 10elotto 5m....ciao

 

[garcid]

ciao rabberto per cortesia potrei anchìo avere il link per poter scaricare la raccolta di DANILO grazie

 

[Juri]

C'è qualcosa di valido che funziona ancora o meglio lasciare perdere tutto?So che a molti c'è andata via la voglia di seguire il lotto e i metodi visto che poi non escono.

 

[lla]

grazie per la correzione dello script, potrei sapere quali sono gli ambi spia da cercare per consultare lo script?
Grazie a chi mi puo' rispondere.

ciao

si potrebbe adattare per tutte le combinazioni dei 5 numeri su ruota a scelta?

per avere il 1-2-,il 1-3,1-4,1-5, 2-3,2-4 e cos' via tutti in un'unica volta?

 

[adeleadele]

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

Ciao cortesemente puoi modificare questo script ultima estrazione del mese sottrazione 1 Venezia . 1 nazionale corrisponde an che la 1 estrazione .Grazie