Novità

dati sula stessa riga

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
 

claudio8

Premium Member
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
 

giorgioantonio

Super Member >PLATINUM<
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
 

claudio8

Premium Member
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
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
 

giorgioantonio

Super Member >PLATINUM<
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
 

giorgioantonio

Super Member >PLATINUM<
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
    3,3 KB · Visite: 12

claudio8

Premium Member
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:

silop2005

Advanced Member >PLATINUM<
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 ;) ;) ;)
 

claudio8

Premium Member
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:

giorgioantonio

Super Member >PLATINUM<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto