Novità

MEGA RACCOLTA "SCRIPT"

rosce14

Premium Member
Messaggi
7.030
Punti reazione
48
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.030
Punti reazione
48
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.030
Punti reazione
48
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
351
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 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90
Alto