Novità

dati sula stessa riga

G

giorgioantonio

Super Member >PLATINUM<
Salve,
ho per le mani questo script,
ho fatto qualcosa ma non riesco a portare a termine
quanto vorrei.
Si tratta che vorrei i dati che figurano tutti dalla stessa riga
Se mi potete aiutare e non so quanto è facile a dirsi o difficile a farsi.
Per meglio capire cosa voglio si prega di avviare lo script<.

Option Explicit
Sub Main()
Call ImpostaArchivio10ELotto(1)
Dim n01(20),n02(20),n03(20),n04(20),n05(20),n06(20),n07(20)
Dim x01,x02,x03,x04,x05,x06,x07
Dim z01,z02,z03,z04,z05,z06,z07
Dim ini,fin,es : ini = EstrazioneFinDL - 40 : fin = EstrazioneFinDL
Call Scrivi("TERNA posizione 01-02-03 04-05-06 07-08-09 10-11-12 13-14-15 16-17-18",True)
For es = ini To fin : Call Messaggio(es) : Call AvanzamentoElab(ini,fin,es)
Call Scrivi(DataEstrazioneDL(es) & " RC " & FormatSpace(fin - es,04),False,False)

For z01 = 01 To 03
n01(z01) = EstrattoDL(es,z01)
Next
x01 = SeriePrimaDL(es + 01,EstrazioneFinDL,n01,AMBO_) - es

If x01 < 00 Then
Call ColoreTesto(vbRed)
Call Scrivi(StringaNumeri(n01,,True),False,True)
Call ColoreTesto(vbBlack)
ElseIf x01 >= 00 Then
Call Scrivi("........ ........ ........ ........ ........ ........",False,True)
End If
x01 = 00
Next
Call Scrivi("",True)
'.Riga
Call Scrivi("TERNA posizione 04-05-06",True)
For es = ini To fin : Call Messaggio(es) : Call AvanzamentoElab(ini,fin,es)
Call Scrivi(DataEstrazioneDL(es) & " RC " & FormatSpace(fin - es,16),False,False)
For z02 = 04 To 6
n02(z02) = EstrattoDL(es,z02)
Next
x02 = SeriePrimaDL(es + 01,EstrazioneFinDL,n02,AMBO_) - es
If x02 < 00 Then
Call ColoreTesto(vbRed)
Call Scrivi(StringaNumeri(n02,,True),False,True)
Call ColoreTesto(vbBlack)
ElseIf x02 >= 00 Then
Call Scrivi("........",False,True)
End If
x02 = 00
Next
Call Scrivi(" ",True)
'
Call Scrivi("TERNA posizione 07-08-09",True)
For es = ini To fin : Call Messaggio(es) : Call AvanzamentoElab(ini,fin,es)
Call Scrivi(DataEstrazioneDL(es) & " RC " & FormatSpace(fin - es,26),False,False)
For z03 = 7 To 09
n03(z03) = EstrattoDL(es,z03)
Next
x03 = SeriePrimaDL(es + 01,EstrazioneFinDL,n03,AMBO_) - es
If x03 < 00 Then
Call ColoreTesto(vbRed)
Call Scrivi(StringaNumeri(n03,,True),False,True)
Call ColoreTesto(vbBlack)
ElseIf x03 >= 00 Then
Call Scrivi("........",False,True)
End If
x03 = 00
Next
Call Scrivi(" ",True)
'
Call Scrivi("TERNA posizione 10-11-12",True)
For es = ini To fin : Call Messaggio(es) : Call AvanzamentoElab(ini,fin,es)
Call Scrivi(DataEstrazioneDL(es) & " RC " & FormatSpace(fin - es,36),False,False)
For z04 = 10 To 12
n04(z04) = EstrattoDL(es,z04)
Next
x04 = SeriePrimaDL(es + 01,EstrazioneFinDL,n04,AMBO_) - es
If x04 < 00 Then
Call ColoreTesto(vbRed)
Call Scrivi(StringaNumeri(n04,,True),False,True)
Call ColoreTesto(vbBlack)
ElseIf x04 >= 00 Then
Call Scrivi("........",False,True)
End If
x04 = 00
Next
Call Scrivi(" ",True)
'
Call Scrivi("TERNA posizione 13-14-15",True)
For es = ini To fin : Call Messaggio(es) : Call AvanzamentoElab(ini,fin,es)
Call Scrivi(DataEstrazioneDL(es) & " RC " & FormatSpace(fin - es,46),False,False)
For z05 = 13 To 15
n05(z05) = EstrattoDL(es,z05)
Next
x05 = SeriePrimaDL(es + 01,EstrazioneFinDL,n05,AMBO_) - es
If x05 < 00 Then
Call ColoreTesto(vbRed)
Call Scrivi(StringaNumeri(n05,,True),00,True)
Call ColoreTesto(vbBlack)
ElseIf x05 >= 00 Then
Call Scrivi("........",False,True)
End If
x05 = 00
Next
Call Scrivi(" ",True)
'
Call Scrivi("TERNA posizione 16-17-18",True)
For es = ini To fin : Call Messaggio(es) : Call AvanzamentoElab(ini,fin,es)
Call Scrivi(DataEstrazioneDL(es) & " RC " & FormatSpace(fin - es,56),False,False)
For z06 = 16 To 18
n06(z06) = EstrattoDL(es,z06)
Next
x06 = SeriePrimaDL(es + 01,EstrazioneFinDL,n06,AMBO_) - es
If x06 < 00 Then
Call ColoreTesto(vbRed)
Call Scrivi(StringaNumeri(n06,,True),00,True)
Call ColoreTesto(vbBlack)
ElseIf x06 >= 00 Then
Call Scrivi("........",False,True)
End If
x06 = 00
Next
Call Scrivi(" ",True)
'
End Sub
 
Ho visto l'output di Magia che corrisponde , ma mi sembra preso da un'altro script.
Nb: Il ciclo for es = ini to fin deve essere all'esterno delle singole verifiche
Ti ho inserito anche le pos 19 e 20, se le elimini modifica l' "a capo" di Scrivi.

Option Explicit
Sub Main()
Call ImpostaArchivio10ELotto(1)
Dim n01(20),n02(20),n03(20),n04(20),n05(20),n06(20),n07(20)
Dim x01,x02,x03,x04,x05,x06,x07
Dim z01,z02,z03,z04,z05,z06,z07
Dim ini,fin,es : ini = EstrazioneFinDL - 40 : fin = EstrazioneFinDL
Call Scrivi("TERNA posizione 01-02-03 04-05-06 07-08-09 10-11-12 13-14-15 16-17-18 19-20 ",True)
For es = ini To fin
Call Messaggio(es)
Call AvanzamentoElab(ini,fin,es)
Call Scrivi(DataEstrazioneDL(es) & " RC " & FormatSpace(fin - es,04),False,False)
For z01 = 01 To 03
n01(z01) = EstrattoDL(es,z01)
Next
x01 = SeriePrimaDL(es + 01,EstrazioneFinDL,n01,AMBO_) - es
If x01 < 00 Then
Call Scrivi(StringaNumeri(n01,,True) & " ",False,False,,2)
ElseIf x01 >= 00 Then
Call Scrivi("........ ",False,False)
End If
x01 = 00
For z02 = 04 To 6
n02(z02) = EstrattoDL(es,z02)
Next
x02 = SeriePrimaDL(es + 01,EstrazioneFinDL,n02,AMBO_) - es
If x02 < 00 Then
Call Scrivi(StringaNumeri(n02,,True) & " ",False,False,,2)
ElseIf x02 >= 00 Then
Call Scrivi("........ ",False,False)
End If
x02 = 00
For z03 = 7 To 09
n03(z03) = EstrattoDL(es,z03)
Next
x03 = SeriePrimaDL(es + 01,EstrazioneFinDL,n03,AMBO_) - es
If x03 < 00 Then
Call Scrivi(StringaNumeri(n03,,True) & " ",False,False,,2)
ElseIf x03 >= 00 Then
Call Scrivi("........ ",False,False)
End If
x03 = 00
For z04 = 10 To 12
n04(z04) = EstrattoDL(es,z04)
Next
x04 = SeriePrimaDL(es + 01,EstrazioneFinDL,n04,AMBO_) - es
If x04 < 00 Then
Call Scrivi(StringaNumeri(n04,,True) & " ",False,False,,2)
ElseIf x04 >= 00 Then
Call Scrivi("........ ",False,False)
End If
x04 = 00
For z05 = 13 To 15
n05(z05) = EstrattoDL(es,z05)
Next
x05 = SeriePrimaDL(es + 01,EstrazioneFinDL,n05,AMBO_) - es
If x05 < 00 Then
Call Scrivi(StringaNumeri(n05,,True) & " ",False,False,,2)
ElseIf x05 >= 00 Then
Call Scrivi("........ ",False,False)
End If
x05 = 00
For z06 = 16 To 18
n06(z06) = EstrattoDL(es,z06)
Next
x06 = SeriePrimaDL(es + 01,EstrazioneFinDL,n06,AMBO_) - es
If x06 < 00 Then
Call Scrivi(StringaNumeri(n06,,True) & " ",False,False,,2)
ElseIf x06 >= 00 Then
Call Scrivi("........ ",False,False)
End If
x06 = 00
For z07 = 19 To 20
n07(z07) = EstrattoDL(es,z07)
Next

x07 = SeriePrimaDL(es + 01,EstrazioneFinDL,n07,AMBO_) - es
If x07 < 00 Then
Call Scrivi(StringaNumeri(n07,,True) & " ",False,True,,2)
ElseIf x06 >= 00 Then
Call Scrivi("..... ",False,True)
End If
x07 = 00
Next
Call Scrivi(" OUTPUT TERMINATO ",True)
End Sub

Saluti
 
Salve Claudio,

quindi inserendo la sola riga
x01 = SeriePrimaDL(es + 01,EstrazioneFinDL,n01,AMBO_) - es
e false,,2)
se per favore (il 2°) mi dai una piccola informazione il ragionamento
che si fa per questa aggiunta.
E per il 1° favore che me lo hai completato.
Grazie
 
giorgioantonio ha scritto:
Salve Claudio,

quindi inserendo la sola riga
x01 = SeriePrimaDL(es + 01,EstrazioneFinDL,n01,AMBO_) - es

e false,,2)
se per favore (il 2°) mi dai una piccola informazione il ragionamento
che si fa per questa aggiunta.
E per il 1° favore che me lo hai completato.
Grazie
Clicca per espandere...
la sola riga
x01 = SeriePrimaDL(es + 01,EstrazioneFinDL,n01,AMBO_) - es
esegue questa operazione:
Descrizione ( specificata nell'help alla parola chiave "SeriePrimaDL")
Analizza una determinata combinazione di numeri (no1) per una data sorte(AMBO_) entro un certo range di estrazioni (es+1 ed EstrazioneFin) e torna il numero dell'estrazione in cui per la prima volta è sortita la sorte specificata.
Con "-es", si sottrae dal numero dell'estrazione sopra ricavato con "SeriePrimaDL" il numero dell'estrazione "es" .

il false,,2 invece è un parametro della funzione(parolachiave) Scrivi
Descrizione ( specificata nell'help alla parola chiave "Scrivi")
Consente di scrivere un testo nella finestra di output specificando una serie di parametri, tra questi il colore del testo ( 2= rosso).

se vai von il mouse subito dopo la parola chiave e clicchi sulla barra spaziatrice, ti si apre una finestrella gialla dove sono elencati tutti i parametri impostabili. Scorrendo ilcursore con la freccetta dx oltre lo "Scrivi", vedrai evidenziarsi in grassetto nella finestra gialla il parametro che stai leggendo separato dagli altri con una virgola",".

Nello spegifico della riga cui fai riferimento, il 1° false si riferisce al carattere in grassetto, il 2° al testo a Capo, poi vi è un parametro vuoto e quindi il valore 2 che si riferisce TextColor (Colore testo = 2 = rosso).

Avendo quindi utilizzato tale parametro presente nella funzione, ho eliminato
le righe precedenti: Call ColoreTesto(vbRed) che predisponeva a scrivere in rosso
e le successive: Call ColoreTesto(vbBlack) che riportavano la scrittura in colore nero
di tutte le righe di scrittura come questa: Call Scrivi(StringaNumeri(n01,,True) & " ",False,False,,2)

spero di essere stato chiaro e comunque nell'help trovi il tutto.
Saluti
 
Salve Magia,
non avevo capito con "bunanotte"
pensavo mi avessi liquidato ma così non è
nel senso che mi sono accorto che avevi soddisfatto
la mia richiesta.
L'o avviato e con la scelta dei punti mi hai tolto
il fastidio di aprire un altro script che lavora appunto con i
3 punti
Insomma uno è meglio di 3.
A questo punto vorrei chiederti, sempre che non c'è da smontare
tutto lo script se puoi fare in modo che possa scegliere
tra terzine, coppie, quaterne, cinquine e in fine tra decine
quindi di coppie saranno 10,
terzine 7;
quaterne 5;
cinquine 4;
decine 2,
Se non devi smontare/rifare tutto
si può avere un unico script invece di averne tanti?
Resta che ti ringrazio per quanto mi hai fatto.
Saluti
 
Salve Claudio,
ho cambiato la posizione delle celle a coppie
non mi riesce di applicare i cambiamenti
allego 2 file.
In verità per evitate diversi script avrei voluto la scelta che ha
fatto Magia però con l'aggiunta che si possono scegliere le posizioni dei numeri.
Il che mi risulta difficilissimo cambiare i dati di Magia:
Ripiegando sul tuo aiuto la parte iniziale non riesco a sistemarla.
Vedi gli allegati.
Salve
 

Allegati

  • Claudio.JPG
    Claudio.JPG
    112,6 KB · Visite: 17
  • Claudio2.txt
    Claudio2.txt
    3,3 KB · Visite: 13
Vedi se va bene.
Ho sistemato le righe a capo e la formattazione con uno spazio dopo i "....."
saluti.

Option Explicit
Sub Main()
Call ImpostaArchivio10ELotto(1)
Dim n01(20),n02(20),n03(20),n04(20),n05(20),n06(20),n07(20),n08(20),n09(20),n10(20)
Dim x01,x02,x03,x04,x05,x06,x07,x08,x09,x10
Dim z01,z02,z03,z04,z05,z06,z07,z08,z09,z10
Dim ini,fin,es : ini = EstrazioneFinDL - 40 : fin = EstrazioneFinDL
Call Scrivi("coppia posizione 01-02 03-04 05-06 07-08 09-10 11-12 13-14 15-16 17-18 19-20 ",True)
For es = ini To fin
Call Messaggio(es)
Call AvanzamentoElab(ini,fin,es)
Call Scrivi(DataEstrazioneDL(es) & " RC " & FormatSpace(fin - es,04),False,False)
For z01 = 01 To 02
n01(z01) = EstrattoDL(es,z01)
Next
x01 = SeriePrimaDL(es + 01,EstrazioneFinDL,n01,AMBATA_) - es
If x01 < 00 Then
Call Scrivi(StringaNumeri(n01,,True) & " ",False,False,,2)
ElseIf x01 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x01 = 00
For z02 = 03 To 04
n02(z02) = EstrattoDL(es,z02)
Next
x02 = SeriePrimaDL(es + 01,EstrazioneFinDL,n02,AMBATA_) - es
If x02 < 00 Then
Call Scrivi(StringaNumeri(n02,,True) & " ",False,False,,2)
ElseIf x02 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x02 = 00
For z03 = 05 To 06
n03(z03) = EstrattoDL(es,z03)
Next
x03 = SeriePrimaDL(es + 01,EstrazioneFinDL,n03,AMBATA_) - es
If x03 < 00 Then
Call Scrivi(StringaNumeri(n03,,True) & " ",False,False,,2)
ElseIf x03 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x03 = 00
For z04 = 07 To 08
n04(z04) = EstrattoDL(es,z04)
Next
x04 = SeriePrimaDL(es + 01,EstrazioneFinDL,n04,AMBATA_) - es
If x04 < 00 Then
Call Scrivi(StringaNumeri(n04,,True) & " ",False,False,,2)
ElseIf x04 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x04 = 00
For z05 = 09 To 10
n05(z05) = EstrattoDL(es,z05)
Next
x05 = SeriePrimaDL(es + 01,EstrazioneFinDL,n05,AMBATA_) - es
If x05 < 00 Then
Call Scrivi(StringaNumeri(n05,,True) & " ",False,False,,2)
ElseIf x05 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x05 = 00
For z06 = 11 To 12
n06(z06) = EstrattoDL(es,z06)
Next
x06 = SeriePrimaDL(es + 01,EstrazioneFinDL,n06,AMBATA_) - es
If x06 < 00 Then
Call Scrivi(StringaNumeri(n06,,True) & " ",False,False,,2)
ElseIf x06 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x06 = 00
For z07 = 13 To 14
n07(z07) = EstrattoDL(es,z07)
Next
x07 = SeriePrimaDL(es + 01,EstrazioneFinDL,n07,AMBATA_) - es
If x07 < 00 Then
Call Scrivi(StringaNumeri(n07,,True) & " ",False,False,,2)
ElseIf x07 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x07 = 00
For z08 = 15 To 16
n08(z08) = EstrattoDL(es,z08)
Next
x08 = SeriePrimaDL(es + 01,EstrazioneFinDL,n08,AMBATA_) - es
If x08 < 00 Then
Call Scrivi(StringaNumeri(n08,,True) & " ",False,False,,2)
ElseIf x08 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x08 = 00
For z09 = 17 To 18
n09(z09) = EstrattoDL(es,z09)
Next
x09 = SeriePrimaDL(es + 01,EstrazioneFinDL,n09,AMBATA_) - es
If x09 < 00 Then
Call Scrivi(StringaNumeri(n09,,True) & " ",False,False,,2)
ElseIf x09 >= 00 Then
Call Scrivi("..... ",False,False)
End If
x09 = 00
For z10 = 19 To 20
n10(z10) = EstrattoDL(es,z10)
Next
x10 = SeriePrimaDL(es + 01,EstrazioneFinDL,n10,AMBATA_) - es
If x10 < 00 Then
Call Scrivi(StringaNumeri(n10,,True) & " ",False,True,,2)
ElseIf x10 >= 00 Then
Call Scrivi("..... ",False,True)
End If
x10 = 00
Next
Call Scrivi(" OUTPUT TERMINATO ",True)
End Sub

modificato come da nota di Silop che ringrazio.
 
Ultima modifica:
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================

For z10 = 19 To 20
n10(z10) = EstrattoDL(es,z06)
Next

piccolo errore di "stampa"

For z10 = 19 To 20
n10(z10) = EstrattoDL(es,z10)
Next
stickman.gif
======================
A presto
Silop ;) ;) ;)
 
Ti faccio presente che con spaziometria sempre nella sezione degli script, puoi elaborare in sequenza una serie di script.
Vai in MULTI (a dx di CODICE->OUTPUT-> ELENCO) ti si apre una finestra dove puoi inserire una serie di script.
Con il + ti aggiunge in elenco (nella finestrella) tutti gli script che vuoi elaborare in sequenza.
Salva l'elenco che hai costruito e con l'icona "Flash" li mandi tutti in esecuzione con la sequenza che hai impostato.
Le varie icone ti danno la possibilità di aggiungere (+) , togliere (- ) , cancellare, salvare e caricare le liste degli script.
Ricordati di mettere sempre dei titoli agli script in modo che riesci a separarne chiaramente gli output.

Buon lavoro di composizione degli altri che ti servono.
""tra terzine, coppie, quaterne, cinquine e in fine tra decine""

saluti e ....

Confucio & LuigiB : Dai un pesce a un uomo e lo nutrirai per un giorno; insegnagli a pescare e lo nutrirai per tutta la vita.
 
Ultima modifica:
Salve Magia,

per la fretta ho appreso solo ora del completamento
dello script che è quello che volevo.
Mi premuro di chiudere la richiesta dopo aver dato
un controllo dei dati che penso saranno concordi con
l'esattezza dei dati.
Resta comunque da inviarti un sentito GRAZIE per
la compilazione dello script.
Cordialmente
Giorgioantonio
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto