Novità

Script

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... (y)
 
Ultima modifica:
franca46 ha scritto:
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
Clicca per espandere...
ciao Pandit , è stato postato qui da djnomade un listato di Mike58 che fa un procedimento simile, naturalmente modificando alcuni codici ,
mastrogino

Discussione 'Richiesta'

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
 
Ultima modifica:
Graziella73 ha scritto:
Buongiorno a tutti. Vorrei, se possibile, porvi una stupidissima domanda tecnica: ma come si usano gli SCRIPT ?
Grazie
Clicca per espandere...

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.

:)
 
Ultima modifica:
joe ha scritto:
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.

:)
Clicca per espandere...
Grazie mille, provo subito
 
Bentrovati a tutti,chi vuole farne uno script,metodo di Salvo Badessa

www.mediafire.com

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
 

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...​

'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
 
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
 
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ì)

mega.nz

9.46 MB file on MEGA

mega.nz mega.nz

1792634439638.png

è 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:
1792634869636.png
Sorry
 

Allegati

  • 1792634395250.png
    1792634395250.png
    125,8 KB · Visite: 10
Pandit ha scritto:
Peccato non aver studiato Pyton, ottimo lavoro, sopratutto dettagliato..
Grazie..
Clicca per espandere...
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à.
 
InRicordo ha scritto:
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
Clicca per espandere...
Grazie mille
 
Pandit ha scritto:

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...​

'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
Clicca per espandere...
Grazie mille
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 22 ottobre 2026
    Bari
    89
    68
    23
    07
    50
    Cagliari
    21
    80
    04
    51
    43
    Firenze
    34
    25
    05
    77
    90
    Genova
    77
    34
    37
    90
    54
    Milano
    18
    07
    61
    35
    03
    Napoli
    41
    90
    40
    76
    78
    Palermo
    18
    80
    78
    12
    84
    Roma
    40
    03
    07
    86
    30
    Torino
    34
    56
    21
    10
    41
    Venezia
    63
    78
    43
    68
    80
    Nazionale
    76
    38
    65
    21
    03
    Estrazione Simbolotto
    12
    17
    04
    39
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto