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
    martedì 20 ottobre 2026
    Bari
    54
    19
    90
    65
    23
    Cagliari
    07
    78
    44
    23
    64
    Firenze
    85
    52
    78
    37
    21
    Genova
    14
    88
    68
    18
    29
    Milano
    69
    16
    29
    53
    22
    Napoli
    01
    76
    64
    21
    31
    Palermo
    14
    18
    47
    37
    51
    Roma
    86
    88
    64
    26
    34
    Torino
    21
    64
    52
    62
    40
    Venezia
    29
    87
    64
    40
    50
    Nazionale
    03
    52
    85
    23
    42
    Estrazione Simbolotto
    25
    16
    13
    20
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto