Novità

MEGA RACCOLTA "SCRIPT"

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
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.
 
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 :)
 
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:
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.

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


79854579.jpg
utenteanonimobn.png
20060131003541-borabora.gif
Entertainment Group
mi dà errore ,questo;If k>45 Then k=90-k anche altri mi dici come posso correggerlo? grazie
 
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
 
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.
 
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?
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 13 maggio 2025
    Bari
    57
    08
    71
    83
    65
    Cagliari
    06
    43
    60
    53
    65
    Firenze
    04
    76
    30
    20
    73
    Genova
    11
    50
    61
    23
    49
    Milano
    54
    50
    03
    34
    37
    Napoli
    63
    17
    76
    85
    07
    Palermo
    06
    68
    35
    31
    13
    Roma
    63
    15
    57
    82
    03
    Torino
    60
    30
    87
    63
    03
    Venezia
    52
    43
    17
    14
    25
    Nazionale
    59
    51
    84
    75
    06
    Estrazione Simbolotto
    Milano
    37
    08
    43
    03
    19

Ultimi Messaggi

Indietro
Alto