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: 12
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
    sabato 31 ottobre 2026
    Bari
    15
    60
    11
    81
    74
    Cagliari
    24
    40
    55
    20
    09
    Firenze
    63
    14
    53
    68
    73
    Genova
    55
    16
    90
    39
    58
    Milano
    19
    72
    51
    41
    39
    Napoli
    09
    17
    13
    70
    47
    Palermo
    41
    17
    54
    38
    20
    Roma
    47
    81
    19
    75
    52
    Torino
    74
    20
    44
    67
    55
    Venezia
    04
    44
    50
    03
    58
    Nazionale
    90
    09
    57
    02
    28
    Estrazione Simbolotto
    32
    15
    35
    11
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto