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
 
C

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
 
G

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
 
C

claudio8

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

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
 
G

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
C

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

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 ;) ;) ;)
 
C

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:
G

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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 aprile 2024
    Bari
    49
    10
    76
    62
    26
    Cagliari
    42
    80
    16
    39
    65
    Firenze
    58
    22
    11
    86
    40
    Genova
    79
    14
    36
    51
    44
    Milano
    25
    27
    16
    77
    79
    Napoli
    70
    04
    51
    49
    71
    Palermo
    61
    65
    76
    53
    43
    Roma
    70
    86
    68
    80
    47
    Torino
    17
    71
    64
    72
    40
    Venezia
    22
    42
    39
    72
    30
    Nazionale
    83
    37
    81
    57
    78
    Estrazione Simbolotto
    Genova
    10
    14
    28
    18
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto