Novità

MEGA RACCOLTA "SCRIPT"

rosce14

Premium Member
Messaggi
7.033
Punti reazione
49
Punti
48
visto che il grande black si sta' godendo le meritate vacanze lo script dovrebbe essere cosi'...
Ciauz




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

Roby

Guest
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

Premium Member
Messaggi
7.033
Punti reazione
49
Punti
48
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'?
 
R

Roby

Guest
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
:D
 
Ultima modifica:

Joe91

Advanced Member >PLATINUM PLUS<
Messaggi
2.607
Punti reazione
27
Punti
48
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

Premium Member
Messaggi
7.033
Punti reazione
49
Punti
48
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

Super member
Messaggi
152
Punti reazione
0
Punti
16
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

Super member
Messaggi
172
Punti reazione
0
Punti
16
prova, ora dovrebbe andare.
Codice:
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
 

skygirl

Advanced Member >GOLD<
Messaggi
828
Punti reazione
10
Punti
18
Come mai molti di questi script non vanno? non sono adatti all'ultima versione di Spaziometria 1.5.0?
 

garcid

Member
Messaggi
52
Punti reazione
0
Punti
6
ciao rabberto per cortesia potrei anchìo avere il link per poter scaricare la raccolta di DANILO grazie
 

Juri

Super member
Messaggi
192
Punti reazione
2
Punti
18
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

Super Member >PLATINUM<
Messaggi
353
Punti reazione
4
Punti
18
rosce14;n1446768 ha scritto:
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?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 14 dicembre 2019
    Bari
    68
    27
    78
    11
    72
    Cagliari
    69
    18
    78
    08
    48
    Firenze
    41
    52
    46
    63
    77
    Genova
    74
    64
    90
    32
    43
    Milano
    14
    36
    06
    73
    57
    Napoli
    21
    83
    20
    86
    90
    Palermo
    12
    07
    50
    39
    60
    Roma
    04
    20
    80
    62
    09
    Torino
    29
    21
    12
    08
    55
    Venezia
    48
    72
    83
    18
    14
    Nazionale
    31
    07
    56
    06
    22
Alto