Script

[Pandit]

Come chi ti da il pane ma non ti insegna a coltivare il grano...
Ma va bene così, non siamo tutti uguali... Comunque grazie a chi condivide...

 

[phil79]

Ciao,purtroppo no....non sto più nel gruppo,perchè per un giorno di ritardo....da 20 euro,ne servono 50....

Praticamente ti costringe a stare nel gruppo prima con 50 e poi con 20... Se esci e vuoi rientrare di nuovo 50

 

[franca46]

ciao Pandit , tu hai visto il video sulla ripetizione degli eventi?
sembra diverso da questo che hai fatto tu.
comunque funziona e grazie dello script

ciao Pandit , è stato postato qui da djnomade un listato di Mike58 che fa un procedimento simile, naturalmente modificando alcuni codici ,

Discussione 'Richiesta'

6 Marzo 2025

Buongiorno a tutti voi , avrei una richiesta " se possibile "
un script che mi dia il numero più frequente negli ultimi 2 anni dello stesso mese
sia a ruote che su tt
grazie

• mastrogino
• Risposte: 21
• Forum: Area Download

 

[Pandit]

Grazie Franca, sempre gentile..

 

[scarfacetony]

Buonasera,a chi interessa video vecchi di Badessa

https://www.mediafire.com/file/3f1ypt9311beqdo/CREA+IL+TUO+SOMMATIVO.mp4/file

https://www.mediafire.com/file/2s3axwy0dpv5ouc/CREA+IL+TUO+METODO+CON+SALVO.mp4/file

 

[Graziella73]

Buongiorno a tutti. Vorrei, se possibile, porvi una stupidissima domanda tecnica: ma come si usano gli SCRIPT ?
Grazie

 

[joe]

Buongiorno a tutti. Vorrei, se possibile, porvi una stupidissima domanda tecnica: ma come si usano gli SCRIPT ?
Grazie

Ciao Graziella,

Copi tutto il testo dello script, che è contenuto tra: Sub Main() ... fino a ... End Sub. (Anch'essi compresi).

Incolli il testo che hai copiato nel wordpad o nel blocco-note e -salvi con nome- adeguato a descriverlo.

Ad esempio: Script.ls

Poi un doppio-click sul file Script.ls (che hai salvato) lo avvia e lo esegue.

Una volta terminato si troverà nella finestra "Codice" dell' Editor di Spaziometria.

Dove può essere modificato / salvato / rieseguito ecc. ecc.

Mentre nella finestra "Output" ci sono i risultati che ha prodotto.

Lo script è in pratica una serie di istruzioni in Basic che il PC sa interpretare ed eseguire,

velocemente e con precisione, ogni volta che si rendono necessarie.

Offrendo la possibilità di salvarle e ed eseguirle (senza doverle scrivere nuovamente)

ma semplicemente richiamandole con il nome congruo che si è attribuito allo script.

 

[Graziella73]

Ciao Graziella,

Copi tutto il testo dello script, che è contenuto tra: Sub Main() ... fino a ... End Sub. (Anch'essi compresi).

Incolli il testo che hai copiato nel wordpad o nel blocco-note e -salvi con nome- adeguato a descriverlo.

Ad esempio: Script.ls

Poi un doppio-click sul file Script.ls (che hai salvato) lo avvia e lo esegue.

Una volta terminato si troverà nella finestra "Codice" dell' Editor di Spaziometria.

Dove può essere modificato / salvato / rieseguito ecc. ecc.

Mentre nella finestra "Output" ci sono i risultati che ha prodotto.

Lo script è in pratica una serie di istruzioni in Basic che il PC sa interpretare ed eseguire,

velocemente e con precisione, ogni volta che si rendono necessarie.

Offrendo la possibilità di salvarle e ed eseguirle (senza doverle crivere nuovamente)

ma semplicemente richiamandole con il nome congruo che si è attribuito allo script.

Grazie mille, provo subito

 

[scarfacetony]

Bentrovati a tutti,chi vuole farne uno script,metodo di Salvo Badessa

MAX-BON

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[nunzio65]

nessuno a il metodo di badessa 300

 

[Pandit]

Hahahahahahaha!!!!

 

[Reacher]

Bentrovati a tutti,chi vuole farne uno script,metodo di Salvo Badessa

MAX-BON

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Provato... Non serve

 

[Pandit]

scarfacetony ecco lo script, ma va modificato e corretto perchè mi raddoppia le giocate, ma almeno abbiamo una base, poi se qualche buon scripter vorrà dargli un'occhiata...​

Anticipazione (Spoiler)

'MAX BON di Salvo Badessa
Sub Main()
Dim n(6),ru(12),ra(2),ps(5)
Dim c,d,k,nu(2),psa(1)
psa(1) = 1
ps(2) = 1
k = 16
For es = EstrazioneFin - 18 To EstrazioneFin
For r = 1 To 10
For p = 1 To 5
a = Estratto(es,r,p)
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
If r1 <> r Then
b = Estratto(es,r1,p)
If a = b Then
c = Fuori90(a + 45)
d = Fuori90(c + c)
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " - " & SiglaRuota(r) & " -> " & CInt(a) & " + 45 = " & CInt(c),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " - " & SiglaRuota(r1) & " -> " & CInt(b) & " -> " & CInt(c) & " + " & CInt(c) & " = " & CInt(d),1
ColoreTesto 1:Scrivi String(45,152)
'***
ra(1) = r:ra(2) = r1
ru(1) = r:ru(2) = r1:ru(3) = 12:ru(4) = 11
nu(1) = c
nu(2) = d
ImpostaGiocata 1,nu,ra,psa,k
n(1) = c
n(2) = d
ImpostaGiocata 2,n,ru,ps,k
Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[InRicordo]

Variante tangenziale Sud-Est Nord-Ovest
BY Diavolessa

'MAX BON di Salvo Badessa - Versione corretta

Sub Main()
Dim n(6), ru(12), ra(2), ps(5)
Dim c, d, k, nu(2), psa(1)
Dim es, r, r1, p, a, b

psa(1) = 1
ps(2) = 1
k = 16

For es = EstrazioneFin - 18 To EstrazioneFin
For r = 1 To 10
For p = 1 To 5
a = Estratto(es, r, p)

For r1 = r + 1 To 12

' Esclude l'indice 11 dal confronto
If r1 <> 11 Then

b = Estratto(es, r1, p)

If a = b Then
c = Fuori90(a + 45)
d = Fuori90(c + c)

ColoreTesto 1
Scrivi String(87, 152)

Scrivi DataEstrazione(es) & " - " & _
SiglaRuota(r) & " - " & _
StringaEstratti(es, r) & " - " & _
SiglaRuota(r) & " -> " & _
CInt(a) & " + 45 = " & CInt(c), 1

Scrivi DataEstrazione(es) & " - " & _
SiglaRuota(r1) & " - " & _
StringaEstratti(es, r1) & " - " & _
SiglaRuota(r1) & " -> " & _
CInt(b) & " -> " & CInt(c) & _
" + " & CInt(c) & " = " & CInt(d), 1

ColoreTesto 1
Scrivi String(45, 152)

' Giocata 1: Estratto sulle due ruote
ra(1) = r
ra(2) = r1

nu(1) = c
nu(2) = d

ImpostaGiocata 1, nu, ra, psa, k

' Giocata 2: Ambo sulle ruote previste
n(1) = c
n(2) = d

ru(1) = r
ru(2) = r1
ru(3) = 12
ru(4) = 11

ImpostaGiocata 2, n, ru, ps, k

Gioca es, 1
End If
End If
Next
Next
Next
Next

ScriviResoconto
End Sub

 

[InRicordo]

Dallo Script ho ricavato un file Python poi trasformato in EXE.
C'è una cartella zippata al cui interno ci sono un'altra cartella zippata e un file con l'hash se volete controllare che nessuno abbia modificato qualcosa. Poi nella seconda cartella zippata troverete:

exe è l'eseguibile, hash txt sempre per controllare l'exe, storico.txt l'archivio, e le istruzioni per l'uso (sono certo che non vi serviranno, comunque sono lì)

9.46 MB file on MEGA

mega.nz

è leggermente diverso perché la ricerca di esiti si interrompe, sia per l'estratto che per l'ambo, all'uscita dell'ambo, oppure per raggiunta durata

Quando lanciate il programma verrete accolti da:

Sorry

 

[Pandit]

Peccato non aver studiato Pyton, ottimo lavoro, sopratutto dettagliato..
Grazie..

 

[InRicordo]

Peccato non aver studiato Pyton, ottimo lavoro, sopratutto dettagliato..
Grazie..

Io di Python so poco o nulla. Per questo mi affido in toto alla AI.
I primi tentativi sono stati un disastro. L'interdenrazione richiesta da questo linguaggio non la capivo (nemmeno ora)
E una piccola modifica mi portava via ore.
Non so nulla neanche di script, di C++, eppure, grazie alla AI li uso.
Non ho particolari capacità e come riesco io può riuscirci chiunque.
Lo Script, ad esempio, ho fatto cosi, l'ho copiato dandolo in pasto alla AI, assieme all'immagine delle estrazioni raddoppiate. Ho semplicemente chiesto se poteva individuare l'errore e correggerlo.
In poco tempo mi ha sfornato lo Script corretto. Uso Claude perché è quello che mi dà risultati migliori.
Provaci qualche volta.
Se non demordi alle prime difficoltà ti si aprirà davanti un mondo di possibilità.

 

[18k]

ciao questo script mi sembra un buon elaborato, per convergenze è anche buono per trovare i miei ambi secchi sulle ruote

es: 04 a cagliari 04 48 atteso, chissà.

grazie

 

[scarfacetony]

Variante tangenziale Sud-Est Nord-Ovest
BY Diavolessa

'MAX BON di Salvo Badessa - Versione corretta

Sub Main()
Dim n(6), ru(12), ra(2), ps(5)
Dim c, d, k, nu(2), psa(1)
Dim es, r, r1, p, a, b

psa(1) = 1
ps(2) = 1
k = 16

For es = EstrazioneFin - 18 To EstrazioneFin
For r = 1 To 10
For p = 1 To 5
a = Estratto(es, r, p)

For r1 = r + 1 To 12

' Esclude l'indice 11 dal confronto
If r1 <> 11 Then

b = Estratto(es, r1, p)

If a = b Then
c = Fuori90(a + 45)
d = Fuori90(c + c)

ColoreTesto 1
Scrivi String(87, 152)

Scrivi DataEstrazione(es) & " - " & _
SiglaRuota(r) & " - " & _
StringaEstratti(es, r) & " - " & _
SiglaRuota(r) & " -> " & _
CInt(a) & " + 45 = " & CInt(c), 1

Scrivi DataEstrazione(es) & " - " & _
SiglaRuota(r1) & " - " & _
StringaEstratti(es, r1) & " - " & _
SiglaRuota(r1) & " -> " & _
CInt(b) & " -> " & CInt(c) & _
" + " & CInt(c) & " = " & CInt(d), 1

ColoreTesto 1
Scrivi String(45, 152)

' Giocata 1: Estratto sulle due ruote
ra(1) = r
ra(2) = r1

nu(1) = c
nu(2) = d

ImpostaGiocata 1, nu, ra, psa, k

' Giocata 2: Ambo sulle ruote previste
n(1) = c
n(2) = d

ru(1) = r
ru(2) = r1
ru(3) = 12
ru(4) = 11

ImpostaGiocata 2, n, ru, ps, k

Gioca es, 1
End If
End If
Next
Next
Next
Next

ScriviResoconto
End Sub

Grazie mille

 

[scarfacetony]

scarfacetony ecco lo script, ma va modificato e corretto perchè mi raddoppia le giocate, ma almeno abbiamo una base, poi se qualche buon scripter vorrà dargli un'occhiata...​

Anticipazione (Spoiler)

'MAX BON di Salvo Badessa
Sub Main()
Dim n(6),ru(12),ra(2),ps(5)
Dim c,d,k,nu(2),psa(1)
psa(1) = 1
ps(2) = 1
k = 16
For es = EstrazioneFin - 18 To EstrazioneFin
For r = 1 To 10
For p = 1 To 5
a = Estratto(es,r,p)
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
If r1 <> r Then
b = Estratto(es,r1,p)
If a = b Then
c = Fuori90(a + 45)
d = Fuori90(c + c)
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " - " & SiglaRuota(r) & " -> " & CInt(a) & " + 45 = " & CInt(c),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " - " & SiglaRuota(r1) & " -> " & CInt(b) & " -> " & CInt(c) & " + " & CInt(c) & " = " & CInt(d),1
ColoreTesto 1:Scrivi String(45,152)
'***
ra(1) = r:ra(2) = r1
ru(1) = r:ru(2) = r1:ru(3) = 12:ru(4) = 11
nu(1) = c
nu(2) = d
ImpostaGiocata 1,nu,ra,psa,k
n(1) = c
n(2) = d
ImpostaGiocata 2,n,ru,ps,k
Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Grazie mille