Novità

Ciao, qualcuno può aiutarmi per favore

Q

Quinty

Junior Member
Ciao a tutti, vi seguo da diverso tempo e da poco ho deciso di iscrivermi al forum.
Grazie a voi ho imparato diverse cose nuove, ho scoperto il programma Spaziometria (un grazie immenso all'autore che ce lo ha messo a disposizione gratis) e sto imparando a fare piccoli algoritmi a me utilissimi.
A questo proposito vi chiedo aiuto per migliorare un listato da me fatto, prendendo qualche pezzo qua e la e ringrazio gli autori.

questo è il lisato:

Sub Main()

Dim ru(1),posta(10),num(5),nu(5),nu1(5),pos1(5),pos2(5)

r1 = CInt(InputBox("RUOTA",,1))
ce = CInt(InputBox("DA ESTRAZIONE",,10200))
clp = CInt(InputBox("COLPI DI GIOCO",,15))

Scrivi "RUOTA " & SiglaRuota(r1) & " e tabella per ambetti ",1,,3,,4
Scrivi

ru(1) = r1

fin = EstrazioneFin
ini = ce

caso = 0

ReDim atitoli(14)
atitoli(1) = " DATA ESTRAZIONE "
atitoli(2) = " RUOTA DI " & NomeRuota(r1)
atitoli(3) = " NUMERI IN GIOCO "
atitoli(4) = " ESITO AMBETTO1 "
atitoli(5) = " COLPI "
atitoli(6) = " ESITO AMBETTO2 "
atitoli(7) = " COLPI "
atitoli(8) = " CASO "


Call InitTabella(atitoli,1,,2,5)

For es = ini To fin
Messaggio es

nu(1) = Estratto(es,r1,1)
nu(2) = Estratto(es,r1,3)

nu1(1) = Estratto(es,r1,5)
nu1(2) = Estratto(es,r1,3)

caso = caso + 1

Scrivi
Scrivi String(80,"=") & " caso: " & caso,2,,0,5,3

Gioca es,1

Scrivi
Scrivi "AMBETTI: " & nu(1) & "-" & nu(2) & " --- " & nu1(1) & "-" & nu1(2),1,,,1,3

For cc = 1 To clp
es2 = es + cc
If es2 > fin Then Exit For

ambetto1 = VerificaAmbetto(nu,ru(1),es2,nume1,vin1)
ambetto2 = VerificaAmbetto(nu1,ru(1),es2,nume2,vin2)

If ambetto1 > 0 Then Scrivi "Ambetto su " & nume1 & " colpo " & cc & " Vincita di " & vin1 & " Volte la posta",1,,,2,3
If ambetto2 > 0 Then Scrivi "Ambetto2 su " & nume2 & " colpo " & cc & " Vincita di " & vin2 & " Volte la posta",1,,,2,3

ReDim avalori(14)
avalori(1) = DataEstrazione(es)
avalori(2) = StringaEstratti(es,r1)
avalori(3) = StringaNumeri(nu) & " -- " & StringaNumeri(nu1)
avalori(4) = nume1
avalori(5) = cc
avalori(6) = nume2
avalori(7) = cc
avalori(8) = caso


If InStr(nume1,"-") Or InStr(nume2,"-") Then 'elimina dalla Tabella tutti i colpi e i casi negativi
'io invece vorrei che i casi nrgativi possano essere visibili senza però mostrare tutti i colpi
'di gioco negativi così da poter avere un quadro statistico preciso

Call AddRigaTabella(avalori,,,3)

Call SetColoreCella(1,RGB(128,255,255),1)
Call SetColoreCella(2,RGB(192,192,192),1)
Call SetColoreCella(3,RGB(255,128,64),1)
Call SetColoreCella(4,RGB(128,255,128),2)
Call SetColoreCella(5,RGB(128,255,128),2)
Call SetColoreCella(6,RGB(255,255,128),2)
Call SetColoreCella(7,RGB(255,255,128),2)
Call SetColoreCella(8,RGB(79,79,79),5)


End If
Next
Next

Scrivi
Scrivi
Scrivi String(120,"-"),1,,,,3
Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clp,1,,1,4,3
Scrivi

SetTableWidth("90%")
CreaTabella

Scrivi

If ScriptInterrotto Then Exit Sub

End Sub


e questa è la tabella che vorrei modificare

TABELLA AMBETTO.jpg
come potete notare non risultano i casi negativi perchè se facessi scrivere i casi negativi mi scriverebbe anche tutti i colpi negativi di ogni caso e la tabella risulterebbe molto lunga e poco leggibile.
Così com'è adesso la tabella serve a poco perchè poter leggere i casi negativi è importante per una statistica più precisa.
Ora vi chiedo se possibile di fare in modo di inserire i casi negativi oppure di inserire una colonna dove si fa la differenza tra un caso e il caso successivo, ad esempio
nella tabella i primi 2 casi positivi sono 3 e 8 quindi i casi negativi tra i due sono 4 (il 4, il 5, il 6, il 7) quindi scrivere 4 affianco al 8 e così via.
Spero di essere stato chiaro, e spero che qualcuno possa aiutarmi.
Vi ringrazio in anticipo e rimango a disposizione.
 
Controlla se tutto ( esiti compresi ) è corretto ... se vuoi i colori, sai come fare

Codice: 
Sub Main
     Dim ru(1),posta(10),num(5),nu(5),nu1(5),pos1(5),pos2(5)
     Dim r1,ce,es,clp,Ini,fin,caso,ambetto1,ambetto2,aRetnum1,nRetvin1
     Dim aRetnum2,nRetvin2,anume1,anume2,cc1,cc2,co1,co2,casi_pos
     r1 = CInt(InputBox("RUOTA",,1))
     ce = CInt(InputBox("QUANTE ESTRAZIONI CONSIDERO? ",,100))
     clp = CInt(InputBox("COLPI DI GIOCO",,15))
     Scrivi "RUOTA " & SiglaRuota(r1) & " e tabella per ambetti ",1,,3,,4
     Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clp,1,,1,4,3
     Scrivi
     ru(1) = r1
     fin = EstrazioneFin
     Ini = EstrazioneFin - ce + 1
     caso = 0
     casi_pos = 0
     ReDim atitoli(8)
     atitoli(1) = " caso "
     atitoli(2) = " DATA ESTRAZIONE "
     atitoli(3) = " RUOTA DI " & NomeRuota(r1)
     atitoli(4) = " NUMERI IN GIOCO "
     atitoli(5) = " ESITO AMBETTO1 "
     atitoli(6) = " COLPI "
     atitoli(7) = " ESITO AMBETTO2 "
     atitoli(8) = " COLPI "
 
     Call InitTabella(atitoli,1,,2,5)
     For es = Ini To fin
          caso = caso + 1
          Messaggio "Elaborazione su " & SiglaRuota(r1) & " - estrazione n° " & es & " caso n° " & caso
          nu(1) = Estratto(es,r1,1)
          nu(2) = Estratto(es,r1,3)
          ''
          nu1(1) = Estratto(es,r1,3)
          nu1(2) = Estratto(es,r1,5)
          ReDim avalori(14)
          avalori(1) = caso
          avalori(2) = DataEstrazione(es)
          avalori(3) = StringaEstratti(es,r1)
          avalori(4) = StringaNumeri(nu) & "  -  " & StringaNumeri(nu1)
          If EstrazioneFin - es >= clp Then
               clp = clp
          Else
               clp = EstrazioneFin - es
          End If
          For cc1 = 1 To clp
               If VerificaAmbetto(nu,ru(1),es + cc1,aRetnum1,nRetvin1) Then
                    anume1 = aRetnum1
                    co1 = cc1
                   casi_pos= casi_pos+1
                    Exit For
               Else
                    anume1 = " - "
                    co1 = clp
               End If
          Next
          avalori(5) = anume1
          avalori(6) = co1
          For cc2 = 1 To clp
               If VerificaAmbetto(nu1,ru(1),es + cc2,aRetnum2,nRetvin2) Then
                    anume2 = aRetnum2
                    co2 = cc2
                    casi_pos= casi_pos+1
                    Exit For
               Else
                    anume2 = " - "
                    co2 = clp
               End If
          Next
          avalori(7) = anume2
          avalori(8) = co2
       
          '                    If InStr(nume1,"-") Or InStr(nume2,"-") Then 'elimina dalla Tabella tutti i colpi e i casi negativi
          '                         '                         'io invece vorrei che i casi nrgativi possano essere visibili senza però mostrare tutti i colpi
          '                         '                         'di gioco negativi così da poter avere un quadro statistico preciso
          Call AddRigaTabella(avalori,,,3)
          '                         Call SetColoreCella(1,RGB(128,255,255),1)
          '                         Call SetColoreCella(2,RGB(192,192,192),1)
          '                         Call SetColoreCella(3,RGB(255,128,64),1)
          '                         Call SetColoreCella(4,RGB(128,255,128),2)
          '                         Call SetColoreCella(5,RGB(128,255,128),2)
          '                         Call SetColoreCella(6,RGB(255,255,128),2)
          '                         Call SetColoreCella(7,RGB(255,255,128),2)
          '                         Call SetColoreCella(8,RGB(79,79,79),5)
          '                    End If
          If ScriptInterrotto Then Exit Sub
     Next
     SetTableWidth("90%")
     CreaTabella
     Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clp & " casi positivi " & casi_pos & "/" & caso,1,,1,4,3

End Sub
Saluti
 
Ultima modifica:
Piccolo modifica sulla gestione della variabile clp che dava errore nel testo dopo la tabella


Codice: 
Sub Main
     Dim ru(1),posta(10),num(5),nu(5),nu1(5),pos1(5),pos2(5)
     Dim r1,ce,es,clp,clpg,Ini,fin,caso,ambetto1,ambetto2,aRetnum1,nRetvin1
     Dim aRetnum2,nRetvin2,anume1,anume2,cc1,cc2,co1,co2,casi_pos
     r1 = CInt(InputBox("RUOTA",,1))
     ce = CInt(InputBox("QUANTE ESTRAZIONI CONSIDERO? ",,100))
     clpg = CInt(InputBox("COLPI DI GIOCO",,15))
     clp = clpg
     Scrivi "RUOTA " & SiglaRuota(r1) & " e tabella per ambetti ",1,,3,,4
     Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clp,1,,1,4,3
     Scrivi
     ru(1) = r1
     fin = EstrazioneFin
     Ini = EstrazioneFin - ce +1
     caso = 0
     casi_pos = 0
     ReDim atitoli(8)
     atitoli(1) = " caso "
     atitoli(2) = " DATA ESTRAZIONE "
     atitoli(3) = " RUOTA DI " & NomeRuota(r1)
     atitoli(4) = " NUMERI IN GIOCO "
     atitoli(5) = " ESITO AMBETTO1 "
     atitoli(6) = " COLPI "
     atitoli(7) = " ESITO AMBETTO2 "
     atitoli(8) = " COLPI "
   
     Call InitTabella(atitoli,1,,2,5)
     For es = Ini To fin
          caso = caso + 1
          Messaggio "Elaborazione su " & SiglaRuota(r1) & " - estrazione n° " & es & " caso n° " & caso
          nu(1) = Estratto(es,r1,1)
          nu(2) = Estratto(es,r1,3)
          ''
          nu1(1) = Estratto(es,r1,3)
          nu1(2) = Estratto(es,r1,5)
          ReDim avalori(14)
          avalori(1) = caso
          avalori(2) = DataEstrazione(es)
          avalori(3) = StringaEstratti(es,r1)
          avalori(4) = StringaNumeri(nu) & "  -  " & StringaNumeri(nu1)
          If EstrazioneFin - es >= clp Then
               clp = clp
          Else
               clp = EstrazioneFin - es
          End If
          For cc1 = 1 To clp
               If VerificaAmbetto(nu,ru(1),es + cc1,aRetnum1,nRetvin1) Then
                    anume1 = aRetnum1
                    co1 = cc1
                   casi_pos= casi_pos+1
                    Exit For
               Else
                    anume1 = " - "
                    co1 = clp
               End If
          Next
          avalori(5) = anume1
          avalori(6) = co1
          For cc2 = 1 To clp
               If VerificaAmbetto(nu1,ru(1),es + cc2,aRetnum2,nRetvin2) Then
                    anume2 = aRetnum2
                    co2 = cc2
                    casi_pos= casi_pos+1
                    Exit For
               Else
                    anume2 = " - "
                    co2 = clp
               End If
          Next
          avalori(7) = anume2
          avalori(8) = co2
         
          '                    If InStr(nume1,"-") Or InStr(nume2,"-") Then 'elimina dalla Tabella tutti i colpi e i casi negativi
          '                         '                         'io invece vorrei che i casi nrgativi possano essere visibili senza però mostrare tutti i colpi
          '                         '                         'di gioco negativi così da poter avere un quadro statistico preciso
          Call AddRigaTabella(avalori,,,3)
          '                         Call SetColoreCella(1,RGB(128,255,255),1)
          '                         Call SetColoreCella(2,RGB(192,192,192),1)
          '                         Call SetColoreCella(3,RGB(255,128,64),1)
          '                         Call SetColoreCella(4,RGB(128,255,128),2)
          '                         Call SetColoreCella(5,RGB(128,255,128),2)
          '                         Call SetColoreCella(6,RGB(255,255,128),2)
          '                         Call SetColoreCella(7,RGB(255,255,128),2)
          '                         Call SetColoreCella(8,RGB(79,79,79),5)
          '                    End If
          If ScriptInterrotto Then Exit Sub
     Next
     SetTableWidth("90%")
     CreaTabella
     Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clpg & " casi positivi " & casi_pos & "/" & caso,1,,1,4,3

End Sub
Ti ho lasciato il n° di colpi 15 nei casi negativi in modo che tu possa anche conteggiare il totale e valutare economicamente le giocate.
 
Ultima modifica:
Ciao claudio puoi fare delle modifiche allo script- stessi numeri con ID mese ma ambi su tutte, grazie.
 
Ciao claudio8, ti ringrazio tantissimo per il tempo che mi hai dedicato e la rapidità della risposta.
La tabella è perfetta, ora mi studio il listato per capire bene come hai fatto così da poter riutilizzare la conoscenza acquisita per altre occasioni.
La tabella va benissimo così com'è, se non chiedo troppo e se possibile, potresti aggiungere anche la seconda richiesta ovvero di inserire una colonna dove è riportata la numerazione progressiva dei casi negativi consecutivi che riparte da zero nel momento in cui si verifica un caso positivo cosi da avere a colpo d'occhio quanti casi negativi ci sono stati tra un caso positivo e l'altro e non debba contarli ogni volta. Spero di essermi spiegato bene.
Ti faccio questa richiesta perchè mi sarebbe molto utile (una volta che ho imparato come si fa) anche per altri script dove ci sono molte più previsioni e in questo modo posso rendermi conto di quali hanno più probabilità di sortita.
Se puoi farlo prenditi il tempo che vuoi non è urgente, altrimenti va benissimo così e ti ringrazio, sei gentilissimo. Ciao.
 
Non voglio farlo da solo.
Troviamo insieme il tempo in modo che sia tu a fare le modifiche e io ti aiuto se fai errori.
Comincia a ipotizzare le variazioni che appena mi libero ti riscrivo
Ciao
 
Ciao, per me va benissimo e lo faccio volentieri ma tieni presente che tutto quello che fino ad ora so l'ho imparato grazie al forum. Non ho nessun genere di preparazione nel settore informatico, non ho fatto altro che studiare gli script che trovavo sul forum e cercare di fare deduzioni inverse e cioè dal risultato risalire a come ci si è arrivati e cercare di approfondire.
A lavorare sulle colonne di una tabella più o meno me la cavo ma come lavorare sulle righe (farle interagire) non ne ho idea. Magari se mi dai qualche suggerimento posso cominciare a fare qualcosa. Ho cercato di capirci qualcosa anche cercando su internet info sul linguaggio VBA ma ho finito per confondermi ancora di più.
Se te la senti di perdere un po di tempo con me non posso che esserti grato, ma mi dispiacerebbe per te se alla fine il tuo tempo impiegato andrebbe sprecato per mia incapacità.
Sei veramente gentile e sarei onorato di averti come maestro, ma non sono sicuro di essere un allievo all'altezza.
Stiamo a vedere. Grazie mille.
 
Riprendi la tua richiesta e analizzala x capire quante colonne devi inserire visto che si parla di 2 coppie diverse di numeri che vanno in gioco.
Inoltre devi autonomamente definire la parte di costrutto su cui intervenire.
Aspetto tue
 
In effetti sono stato impreciso nella richiesta, ora definisco meglio quello che deve essere il risultato finale e ti ricontatto.

intanto ho apportato queste piccole modifiche
- indice mensile che riduce i casi ancora in gioco (altrimenti sarebbe difficilissimo scegliere una previsione da seguire
- la dicitura "in gioco" per le previsioni ancora valide
- la colorazione delle varie colonne e celle, che aiuta sempretabella modificata.png
 
Come vedi l'appetito viene mangiando e quindi imparare ad usare gli strumenti è importante.
A parte questa tua ultima richiesta, io ti ho già impostato il quadro finale con i conteggi che andrebbero inseriti.
(dove inserirli e come farli è compito tuo).
Prima di fare un nuovo progetto, una modifica, dovresti schematizzare quanto hai in testa, sia come procedura da trasformare in codice sia come quadro di esposizione output dei dati, le 2 cose vanno di pari passo poichè nella maggiorparte degli script lo schema di output ti dà anche l'indicazione di come deve procedere il componimento dello script.

1698012441726.png

Ti consiglio di imparare a dichiarare sempre le variabili (DIm -Redim ecc.) in modo da evitare errori di battitura nel costrutto e di chiamarle con nomi aderenti a ciò che rappresentano per esempio es= estrazione, clp= colpi anche compositi tot_co1 = totale contatore1, aNum = a (arry) di numeri, sTesto= s(stringa) di testo ecc, scrivere appunti man mano che costruisci il costrutto in modo che quando avrai da creare script complessi o rileggere vecchi script, non avrai difficoltà a focalizzare il significato delle variabili che sono presenti negli script.

Altra cosa importante che molti non prendono in considerazione è che devi imparare ad usare l'Help delle funzioni per capirne e memorizzare le potenzialità di ognuna per padroneggiarne l'uso.

Saluti
 
Ultima modifica:
Ciao, in riferimento al discorso di prepararsi e di schematizzare prima di fare un nuovo progetto hai ragione.
Quando mi viene un'idea cerco di fare immediatamente qualcosa e non sto lì a pensare e schematizzare perchè poi mi do alle solite interminabili modifiche, ma in effetti questo si può fare facilmente nel caso il listato sia semplice (come quello postato) ma diventa complicato nel caso di listati complessi, spesso si cade in errori che per correggerli portano via un sacco di tempo.
per quanto riguarda il fatto che tu dichiari tutte le variabili era una domanda che ti volevo fare a alla quale mi hai risposto.
In quanto al' Help lo uso di continuo ma molte cose mi rimangono, per il momento, poco chiare. Magari se ci fossero stati degli esempi...ma va bene così non è una lamentela.
Uno dei mie problemi sul come approcciare un listato è la logica.
Noi siamo abituati a fare le cose dando per scontato le azioni necessarie per farle, per costruire un algoritmo invece è necessario specificare ogni singolo passaggio ed è qui che spesso mi perdo. E' un modo di ragionare che devo acquisire se voglio progredire.
Ti ringrazio per i consigli che mi stai dando sono tutti preziosi.
Per quanto riguarda la tabella ci sto rimuginando sopra e appena ho chiaro come strutturare l'output (che sarà non molto dissimile da quello che hai postato) ti contatto.

Ciao.
 
Alien. ha scritto:
Ciao claudio puoi fare delle modifiche allo script- stessi numeri con ID mese ma ambi su tutte, grazie.
Clicca per espandere...

Ciao, vedi se è quello che vuoi e ricontrolla se non ci sono errori.

Codice: 
Sub Main
     Dim ru(1),posta(10),num(5),nu(5),nu1(5),pos1(5),pos2(5)
     Dim r1,w,ce,es,clp,clpg,Ini,fin,caso,ambetto1,ambetto2,aRetnum1,nRetvin1
     Dim aRetnum2,nRetvin2,anume1,anume2,cc1,cc2,co1,co2,casi_pos
     pos1(2) = 1
     ru(1) = 11
     r1 = CInt(InputBox("RUOTA DI CALCOLO?",,1))
     w = CInt(InputBox("INDICE MENSILE? ",,1))
     ce = CInt(InputBox("QUANTE ESTRAZIONI CONSIDERO? ",,1000))
     clpg = CInt(InputBox("COLPI DI GIOCO",,15))
     clp = clpg
     Scrivi "RUOTA DI CALCOLO: " & SiglaRuota(r1),1,,3,,4
     Scrivi "GIOCO PER 2 AMBI SU: " & SiglaRuota(ru(1)) & " - PER COLPI: " & clp,1,,1,4,3
     Scrivi
     Scrivi
     fin = EstrazioneFin
     Ini = EstrazioneFin - ce
     caso = 0
     ReDim atitoli(8)
     atitoli(1) = " caso "
     atitoli(2) = " DATA ESTRAZIONE "
     atitoli(3) = " RUOTA DI " & NomeRuota(r1)
     atitoli(4) = " NUMERI IN GIOCO "
     atitoli(5) = " ESITO AMBO 1 TUTTE "
     atitoli(6) = " COLPI "
     atitoli(7) = " ESITO AMBO 2 TUTTE"
     atitoli(8) = " COLPI "
  
     Call InitTabella(atitoli,1,,2,5)
     For es = Ini To fin
     If IndiceMensile(es) = w Then
          caso = caso + 1
          Messaggio "Elaborazione su " & SiglaRuota(r1) & " - estrazione n° " & es & " caso n° " & caso
          AvanzamentoElab Ini,fin,es
          nu(1) = Estratto(es,r1,1)
          nu(2) = Estratto(es,r1,3)
          
          nu1(1) = Estratto(es,r1,3)
          nu1(2) = Estratto(es,r1,5)
          
          ReDim avalori(14)
          avalori(1) = caso
          avalori(2) = DataEstrazione(es)
          avalori(3) = StringaEstratti(es,r1)
          avalori(4) = SiglaRuota(11) & " ... " & StringaNumeri(nu) & "  -  " & StringaNumeri(nu1)
          
          If VerificaEsito(nu,ru,es+1,2,clp,,RetEsito1,RetColpi1) Then
          anume1 = RetEsito1
          co1 = RetColpi1
          Else
          anume1 = "="
          co1 = RetColpi1
          End If
          If InStr(anume1,"=") And co1 < 15 Then anume1 = "In gioco"
          avalori(5) = anume1
          avalori(6) = co1
          
          If VerificaEsito(nu1,ru,es+1,2,clp,,RetEsito2,RetColpi2) Then
          anume2 = RetEsito2
          co2 = RetColpi2
          Else
          anume2 = "="
          co2 = RetColpi2
          End If
          If InStr(anume2,"=") And co2 < 15 Then anume2 = "In gioco"
          avalori(7) = anume2
          avalori(8) = co2

          Call AddRigaTabella(avalori,,,3)
          
                                   Call SetColoreCella(1,RGB(79,79,79),5)
                                   Call SetColoreCella(2,RGB(128,255,255),1)
                                   Call SetColoreCella(3,RGB(192,192,192),1)
                                   Call SetColoreCella(4,RGB(174,174,255),1)
                                   Call SetColoreCella(5,RGB(128,255,128),1)
                                   Call SetColoreCella(6,RGB(128,255,128),1)
                                   Call SetColoreCella(7,RGB(255,255,128),1)
                                   Call SetColoreCella(8,RGB(255,255,128),1)
                                  
          If InStr(anume1,"") And co1 = 15 Then Call SetColoreCella(6,2)
          If InStr(anume2,"") And co2 = 15 Then Call SetColoreCella(8,2)
          
          If InStr(anume1,"gioco") Then Call SetColoreCella(5,RGB(128,255,128),2)
          If InStr(anume1,"gioco") Then Call SetColoreCella(6,6)
          
          If InStr(anume2,"gioco") Then Call SetColoreCella(7,RGB(255,255,128),2)
          If InStr(anume2,"gioco") Then Call SetColoreCella(8,6)
          
Scrivi DataEstrazione(es) & "  " & String(80,"=") & " caso n° " & caso,1,,,1,3
Scrivi "Rota di calcolo: " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  Ruota di gioco: " & SiglaRuota(ru(1)) & "  Indice Mensile: " & w _
 & "  Per colpi: " & clp,1,,,1,3
Scrivi


          ImpostaGiocata 1,nu,ru,pos1,clp
          ImpostaGiocata 2,nu1,ru,pos1,clp
          
          Gioca es,1                         
          
     End If
     If ScriptInterrotto Then Exit Sub
     Next
     SetTableWidth("90%")
     Scrivi
     Scrivi
     CreaTabella
     Scrivi
     Scrivi
ScriviResoconto

End Sub
 
Quinty ha scritto:
Ciao, vedi se è quello che vuoi e ricontrolla se non ci sono errori.

Codice: 
Sub Main
     Dim ru(1),posta(10),num(5),nu(5),nu1(5),pos1(5),pos2(5)
     Dim r1,w,ce,es,clp,clpg,Ini,fin,caso,ambetto1,ambetto2,aRetnum1,nRetvin1
     Dim aRetnum2,nRetvin2,anume1,anume2,cc1,cc2,co1,co2,casi_pos
     pos1(2) = 1
     ru(1) = 11
     r1 = CInt(InputBox("RUOTA DI CALCOLO?",,1))
     w = CInt(InputBox("INDICE MENSILE? ",,1))
     ce = CInt(InputBox("QUANTE ESTRAZIONI CONSIDERO? ",,1000))
     clpg = CInt(InputBox("COLPI DI GIOCO",,15))
     clp = clpg
     Scrivi "RUOTA DI CALCOLO: " & SiglaRuota(r1),1,,3,,4
     Scrivi "GIOCO PER 2 AMBI SU: " & SiglaRuota(ru(1)) & " - PER COLPI: " & clp,1,,1,4,3
     Scrivi
     Scrivi
     fin = EstrazioneFin
     Ini = EstrazioneFin - ce
     caso = 0
     ReDim atitoli(8)
     atitoli(1) = " caso "
     atitoli(2) = " DATA ESTRAZIONE "
     atitoli(3) = " RUOTA DI " & NomeRuota(r1)
     atitoli(4) = " NUMERI IN GIOCO "
     atitoli(5) = " ESITO AMBO 1 TUTTE "
     atitoli(6) = " COLPI "
     atitoli(7) = " ESITO AMBO 2 TUTTE"
     atitoli(8) = " COLPI "
 
     Call InitTabella(atitoli,1,,2,5)
     For es = Ini To fin
     If IndiceMensile(es) = w Then
          caso = caso + 1
          Messaggio "Elaborazione su " & SiglaRuota(r1) & " - estrazione n° " & es & " caso n° " & caso
          AvanzamentoElab Ini,fin,es
          nu(1) = Estratto(es,r1,1)
          nu(2) = Estratto(es,r1,3)
         
          nu1(1) = Estratto(es,r1,3)
          nu1(2) = Estratto(es,r1,5)
         
          ReDim avalori(14)
          avalori(1) = caso
          avalori(2) = DataEstrazione(es)
          avalori(3) = StringaEstratti(es,r1)
          avalori(4) = SiglaRuota(11) & " ... " & StringaNumeri(nu) & "  -  " & StringaNumeri(nu1)
         
          If VerificaEsito(nu,ru,es+1,2,clp,,RetEsito1,RetColpi1) Then
          anume1 = RetEsito1
          co1 = RetColpi1
          Else
          anume1 = "="
          co1 = RetColpi1
          End If
          If InStr(anume1,"=") And co1 < 15 Then anume1 = "In gioco"
          avalori(5) = anume1
          avalori(6) = co1
         
          If VerificaEsito(nu1,ru,es+1,2,clp,,RetEsito2,RetColpi2) Then
          anume2 = RetEsito2
          co2 = RetColpi2
          Else
          anume2 = "="
          co2 = RetColpi2
          End If
          If InStr(anume2,"=") And co2 < 15 Then anume2 = "In gioco"
          avalori(7) = anume2
          avalori(8) = co2

          Call AddRigaTabella(avalori,,,3)
         
                                   Call SetColoreCella(1,RGB(79,79,79),5)
                                   Call SetColoreCella(2,RGB(128,255,255),1)
                                   Call SetColoreCella(3,RGB(192,192,192),1)
                                   Call SetColoreCella(4,RGB(174,174,255),1)
                                   Call SetColoreCella(5,RGB(128,255,128),1)
                                   Call SetColoreCella(6,RGB(128,255,128),1)
                                   Call SetColoreCella(7,RGB(255,255,128),1)
                                   Call SetColoreCella(8,RGB(255,255,128),1)
                                 
          If InStr(anume1,"") And co1 = 15 Then Call SetColoreCella(6,2)
          If InStr(anume2,"") And co2 = 15 Then Call SetColoreCella(8,2)
         
          If InStr(anume1,"gioco") Then Call SetColoreCella(5,RGB(128,255,128),2)
          If InStr(anume1,"gioco") Then Call SetColoreCella(6,6)
         
          If InStr(anume2,"gioco") Then Call SetColoreCella(7,RGB(255,255,128),2)
          If InStr(anume2,"gioco") Then Call SetColoreCella(8,6)
         
Scrivi DataEstrazione(es) & "  " & String(80,"=") & " caso n° " & caso,1,,,1,3
Scrivi "Rota di calcolo: " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  Ruota di gioco: " & SiglaRuota(ru(1)) & "  Indice Mensile: " & w _
 & "  Per colpi: " & clp,1,,,1,3
Scrivi


          ImpostaGiocata 1,nu,ru,pos1,clp
          ImpostaGiocata 2,nu1,ru,pos1,clp
         
          Gioca es,1                        
         
     End If
     If ScriptInterrotto Then Exit Sub
     Next
     SetTableWidth("90%")
     Scrivi
     Scrivi
     CreaTabella
     Scrivi
     Scrivi
ScriviResoconto

End Sub
Clicca per espandere...
Grazie Quinty per la cortesia ho controllato ma non vi sono a breve molti esiti positivi poi ho voluto controllare i 5 estratti di ogni ruota su tutte vi sono molti esiti positivi con input ID mese ed il resoconto con le frequenze ruota per ruota, ti è possibile , grazie,
 
Quinty ha scritto:
Ciao, in riferimento al discorso di prepararsi e di schematizzare prima di fare un nuovo progetto hai ragione.
Quando mi viene un'idea cerco di fare immediatamente qualcosa e non sto lì a pensare e schematizzare perchè poi mi do alle solite interminabili modifiche, ma in effetti questo si può fare facilmente nel caso il listato sia semplice (come quello postato) ma diventa complicato nel caso di listati complessi, spesso si cade in errori che per correggerli portano via un sacco di tempo.
Clicca per espandere...
non condivido specialmente per i progetti + complessi.
Quinty ha scritto:
per quanto riguarda il fatto che tu dichiari tutte le variabili era una domanda che ti volevo fare a alla quale mi hai risposto.
In quanto al' Help lo uso di continuo ma molte cose mi rimangono, per il momento, poco chiare. Magari se ci fossero stati degli esempi...ma va bene così non è una lamentela.
Clicca per espandere...
Tra gli script che vengono scaricati con il programma trovi gli esempi delle funzioni nella cartella TEST.
Quinty ha scritto:
Uno dei mie problemi sul come approcciare un listato è la logica.
Noi siamo abituati a fare le cose dando per scontato le azioni necessarie per farle, per costruire un algoritmo invece è necessario specificare ogni singolo passaggio ed è qui che spesso mi perdo. E' un modo di ragionare che devo acquisire se voglio progredire.
Ti ringrazio per i consigli che mi stai dando sono tutti preziosi.
Clicca per espandere...
schematizzare un processo serve proprio ad evitare di fare errori nella stesura del costrutto.
Quinty ha scritto:
Per quanto riguarda la tabella ci sto rimuginando sopra e appena ho chiaro come strutturare l'output (che sarà non molto dissimile da quello che hai postato) ti contatto.

Ciao.
Clicca per espandere...
prova a ripetere il mio output, te lo ho fatto per velocizzare la tua risposta.
Ciao
 
Ciao claudio8, questo è quello che sono riuscito a fare.
Sono sicuro che il listato non è fatto a regola d'arte, ma per essere uno alle prime armi sono abbastanza soddisfatto.
Ancora grazie per il tempo che mi hai dedicato. Se hai altro da consigliarmi mi trovi qui.
Nel caso avrò bisogno di altro aiuto posso rivolgermi a te? Prometto di farlo il meno possibile :).

Codice: 
Sub Main
     Dim ru(1),posta(10),num(5),nu(5),nu1(5),pos1(5),pos2(5)
     Dim r1,w,p1,p2,p3,p4,ce,es,clp,clpg,Ini,fin,caso,ambetto1,ambetto2,aRetnum1,nRetvin1
     Dim aRetnum2,nRetvin2,anume1,anume2,cc1,cc2,co1,co2,casi_pos,contat1,contat2,con_tot1,con_tot2
     r1 = CInt(InputBox("RUOTA?",,1))
     p1 = CInt(InputBox("POSIZIONE PRIMO NUMERO DEL PRIMO AMBO?",,1))
     p2 = CInt(InputBox("POSIZIONE SECONO NUMERO DEL PRIMO AMBO?",,3))
     p3 = CInt(InputBox("POSIZIONE PRIMO NUMERO DEL SECONDO AMBO?",,3))
     p4 = CInt(InputBox("POSIZIONE SECONDO NUMERO DEL SECONDO AMBO?",,5))
     w = CInt(InputBox("INDICE MENSILE? ",,1))
     ce = CInt(InputBox("QUANTE ESTRAZIONI CONSIDERO? ",,1000))
     clpg = CInt(InputBox("COLPI DI GIOCO",,15))
     clp = clpg
     Scrivi "RUOTA " & SiglaRuota(r1) & " e tabella per ambetti ",1,,3,,4
     Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clp,1,,1,4,3
     Scrivi
     ru(1) = r1
     fin = EstrazioneFin
     Ini = EstrazioneFin - ce + 1
     caso = 0
     casi_pos = 0
     ReDim atitoli(9)
     atitoli(1) = " caso "
     atitoli(2) = " DATA ESTRAZIONE "
     atitoli(3) = " RUOTA DI " & NomeRuota(r1)
     atitoli(4) = " NUMERI IN GIOCO "
     atitoli(5) = " ESITO AMBETTO1 "
     atitoli(6) = " COLPI "
     atitoli(7) = " ESITO AMBETTO2 "
     atitoli(8) = " COLPI "
     atitoli(9) = "ESITO COMPLES."
  
     Call InitTabella(atitoli,1,,2,5)
     For es = Ini To fin
     If IndiceMensile(es) = w Then
          caso = caso + 1
          Messaggio "Elaborazione su " & SiglaRuota(r1) & " - estrazione n° " & es & " caso n° " & caso
          
          nu(1) = Estratto(es,r1,p1)
          nu(2) = Estratto(es,r1,p2)
          
          nu1(1) = Estratto(es,r1,p3)
          nu1(2) = Estratto(es,r1,p4)
          
          ReDim avalori(14)
          avalori(1) = caso
          avalori(2) = DataEstrazione(es)
          avalori(3) = StringaEstratti(es,r1)
          avalori(4) = StringaNumeri(nu) & "  -  " & StringaNumeri(nu1)
          
          If EstrazioneFin - es >= clp Then
               clp = clp
          Else
               clp = EstrazioneFin - es
          End If
          
          
          For cc1 = 1 To clp
               If VerificaAmbetto(nu,ru(1),es + cc1,aRetnum1,nRetvin1) Then
                    contat1 = 0
                    anume1 = aRetnum1
                    co1 = cc1
                    casi_pos = casi_pos + 1
                   Exit For
               Else
                    anume1 = " = "
                    co1 = clp
                    If InStr(anume1,"=") And co1 < 15 Then anume1 = "In gioco"
                End If
              
          Next
          avalori(5) = anume1
          If co1 = 15 And anume1 = " = " Then contat1 = contat1 + 1
          avalori(6) = "neg " & contat1 'co1 & "  n° " & contat1
          If contat1 = 0 Or co1 < 15 Then avalori(6) = co1
          
          
           For cc2 = 1 To clp
                If VerificaAmbetto(nu1,ru(1),es + cc2,aRetnum2,nRetvin2) Then
                    contat2 = 0
                    con_tot2 = 0
                    anume2 = aRetnum2
                    co2 = cc2
                    casi_pos = casi_pos + 1
                    Exit For
               Else
                    anume2 = " = "
                    co2 = clp
                    If InStr(anume2,"=") And co2 < 15 Then anume2 = "In gioco"
               End If
              
          Next
          avalori(7) = anume2
          If co2 = 15 And anume2 = " = " Then contat2 = contat2 + 1
          avalori(8) = "neg " & contat2 'co2 & "  n° " & contat2
          If contat2 = 0 Or co2 < 15 Then avalori(8) = co2
          
          If InStr(anume1,"=") And co1 = 15 And InStr(anume2,"=") And co2 = 15 Then con_tot2 = con_tot2 + 1 Else con_tot2 = 0
          
          avalori(9) = con_tot2
          
          If anume2 = " = " And anume1=aRetnum1 Then avalori(9) = "colpo: " & co1
          
          If anume1 = " = " And anume2=aRetnum2 Then avalori(9) = "colpo: " & co2
          
          If anume1=aRetnum1 And anume2=aRetnum2 Then avalori(9) = "col: " & co1 & " - col: " & co2
          
          
           Call AddRigaTabella(avalori,,,3)
          
                                   Call SetColoreCella(1,RGB(79,79,79),5)
                                   Call SetColoreCella(2,RGB(128,255,255),1)
                                   Call SetColoreCella(3,RGB(192,192,192),1)
                                   Call SetColoreCella(4,RGB(174,174,255),1)
                                   Call SetColoreCella(5,RGB(128,255,128),1)
                                   Call SetColoreCella(6,RGB(128,255,128),1)
                                   Call SetColoreCella(7,RGB(255,255,128),1)
                                   Call SetColoreCella(8,RGB(255,255,128),1)
                                   Call SetColoreCella(9,3,1)
                                  
          If InStr(anume1,"=") And co1 = 15 Then Call SetColoreCella(6,RGB(255,128,64))
          If InStr(anume2,"=") And co2 = 15 Then Call SetColoreCella(8,RGB(255,128,64))
          
          If InStr(anume1,"gioco") Then Call SetColoreCella(5,RGB(128,255,128),2)
          If InStr(anume1,"gioco") Then Call SetColoreCella(6,6)
          
          If InStr(anume2,"gioco") Then Call SetColoreCella(7,RGB(255,255,128),2)
          If InStr(anume2,"gioco") Then Call SetColoreCella(8,6)
          
          If InStr(anume1,"=") And co1 = 15 And InStr(anume2,"=") And co2 = 15 Then Call SetColoreCella(9,2)
          
          If InStr(anume1,"gioco") And InStr(anume2,"gioco") Then Call SetColoreCella(9,6)
          
      End If
          If ScriptInterrotto Then Exit Sub
     Next
     SetTableWidth("90%")
     CreaTabella
     Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clpg & " casi positivi " & casi_pos & "/" & caso,1,,1,4,3

End Sub
 
Alien. ha scritto:
Grazie Quinty per la cortesia ho controllato ma non vi sono a breve molti esiti positivi poi ho voluto controllare i 5 estratti di ogni ruota su tutte vi sono molti esiti positivi con input ID mese ed il resoconto con le frequenze ruota per ruota, ti è possibile , grazie,
Clicca per espandere...

Ciao Alien, lo farei molto volentieri ma come puoi leggere nei post precedenti sono alle prime armi e non ti posso garantire un lavoro veloce e ben fatto. La modifica che ho fatto al listato era molto semplice per altro ti consiglio di rivolgerti a utenti esperti. Per il momento mi limito a cose semplici, magari in un futuro prossimo potrò assistere anche altri utenti. Scusa e ciao.
 
Comunque tieni presente che il listato non è sviluppato da un metodo previsionale, i numeri e la ruota sono presi a caso solo per creare il listato adatto per la richiesta che ho fatto al forum.
Se ci vedi qualcosa di interessante portalo avanti.
Ciao.
 
Ti elenco alcune puntualizzazioni che non cambiano l'output ma che utilizzano maggiore memoria e tempi di elaborazione inutilmente.
1- ReDim avalori(14) - i valori sono 9, e non 14 -> ReDim avalori(9)

2- perchè in questa riga
If co2 = 15 And anume2 = " = " Then contat2 = contat2 + 1
utilizzi il semplice If ...... And anume2 = " = " Then ......
mentre in altre, nella maggior parte usi (InStr(anume1,"=") )
per es: If InStr(anume1,"=") And co1 = 15 And InStr(anume2,"=") And co2 = 15 Then
noi scripter alunni di Luigi, non abbiamo mai usato questa funzione per lo questo scopo, bensi solo la prima facente parte di un blocco decisionale, perchè la funzione InStr non serve allo specifico se non ad aumentare la complessita elaborativa del costrutto.
Funzione InStr
Restituisce la posizione della prima occorrenza di una stringa all'interno di un'altra stringa.

3- l'istruzione che segue
Call SetColoreCella(6,RGB(128,255,128),1) opera la colorazione di una specifica cella però la stessa cella viene di nuovo ripresa in considerazione con un nuovo blocco decisionale con questa istruzione
If InStr(anume1,"=") And co1 = 15 Then Call SetColoreCella(6,RGB(255,128,64))
non pensi che sia meglio decidere a priori la composizione del blocco decisionale e far si che il costrutto analizzi e colori la cella una sola volta?

concludo con un Bravo per il costrutto che hai fatto, perchè per esser uno dei primi script mostrati, sei riuscito nell'intento però....
devi migliorare molto nel ridurre le righe che attualmente sono molte ed arzigogolate.

Inoltre, ma non te ne posso fare una colpa, non hai tentato di ricostruire la tabella che ti ho inviato e capisco anche che non è semplice, non sono tanti gli scripter che riescono a riprodurla in toto (a dire il vero nessuno la completa con riepiloghi).

Come si ottiene? ..... (principalmente smanettando con criterio).

Ti invito a continuare a rispondere a richieste di altri utenti come hai fatto per Alien, è uno dei percorsi che devi, tempo e volontà permettendo, seguire per scoprire, conoscere ed implementare l'uso delle innumerevoli funzioni che Luigi ci ha messo a disposizione e comunque se hai difficoltà oltre all'Help, chiedi pure, siamo in molti a poterti aiutare in questo forum.

Saluti
ps: Ti allego il mio script.

Codice: 
Sub Main
     Dim ru(1),posta(10),num(5),nu(5),nu1(5),pos1(5),pos2(5)
     Dim r1,ce,es,clp,clpg,Ini,fin,caso,ambetto1,ambetto2,aRetnum1,nRetvin1,k
     Dim aRetnum2,nRetvin2,anume1,anume2,cc1,cc2,co1,co2,casi_pos,neg1,neg2,tot_co1,tot_co2
     r1 = CInt(InputBox("RUOTA",,1))
     ce = CInt(InputBox("QUANTE ESTRAZIONI CONSIDERO? ",,25))
     clpg = CInt(InputBox("COLPI DI GIOCO",,15))
     clp = clpg
     Scrivi "RUOTA " & SiglaRuota(r1) & " e tabella per ambetti ",1,,3,,4
     Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clp,1,,1,4,3
     'Scrivi
     ru(1) = r1
     fin = EstrazioneFin
     Ini = EstrazioneFin - ce + 1
     caso = 0
     neg1 = 0
     neg2 = 0
     casi_pos = 0
     ReDim atitoli(10)
     atitoli(1) = " caso "
     atitoli(2) = " DATA ESTRAZIONE "
     atitoli(3) = " RUOTA DI " & NomeRuota(r1)
     atitoli(4) = " NUMERI IN GIOCO "
     atitoli(5) = " ESITO AMBETTO1 "
     atitoli(6) = " CLP1° "
     atitoli(7) = " neg1° "
     atitoli(8) = " ESITO AMBETTO2 "
     atitoli(9) = " COLPI "
     atitoli(10) = " neg2° "
     Call InitTabella(atitoli,1,,2,5)
     For es = Ini To fin
          caso = caso + 1
          neg1 = neg1 + 1
          neg2 = neg2 + 1
          Messaggio "Elaborazione su " & SiglaRuota(r1) & " - estrazione n° " & es & " caso n° " & caso
          nu(1) = Estratto(es,r1,1)
          nu(2) = Estratto(es,r1,3)
          ''
          nu1(1) = Estratto(es,r1,3)
          nu1(2) = Estratto(es,r1,5)
          ReDim avalori(10)
          avalori(1) = caso
          avalori(2) = DataEstrazione(es)
          avalori(3) = StringaEstratti(es,r1)
          avalori(4) = StringaNumeri(nu) & "  -  " & StringaNumeri(nu1)
          If EstrazioneFin - es >= clp Then
               clp = clp
          Else
               clp = EstrazioneFin - es
          End If
          'inserire una colonna dove è riportata la numerazione progressiva dei casi negativi consecutivi
          'che riparte da zero nel momento in cui si verifica un caso positivo cosi da avere a colpo d'occhio
          'quanti casi negativi ci sono stati tra un caso positivo e l'altro e non debba contarli ogni volta.
          'Spero di essermi spiegato bene.
          For cc1 = 1 To clp
               If VerificaAmbetto(nu,ru(1),es + cc1,aRetnum1,nRetvin1) Then
                    anume1 = aRetnum1
                    co1 = cc1
                    casi_pos = casi_pos + 1
                    neg1 = 0
                    Exit For
               Else
                    co1 = clp
                    If co1 < 15 Then anume1 = " in gioco " Else anume1 = " neg "
               End If
          Next
          avalori(5) = anume1
          avalori(6) = co1
          avalori(7) = neg1
          tot_co1 = co1 + tot_co1
          For cc2 = 1 To clp
               If VerificaAmbetto(nu1,ru(1),es + cc2,aRetnum2,nRetvin2) Then
                    anume2 = aRetnum2
                    co2 = cc2
                    casi_pos = casi_pos + 1
                    neg2 = 0
                    Exit For
               Else
                    co2 = clp
                    If co2 < 15 Then anume2 = " in gioco " Else anume2 = " neg "
               End If
          Next
          avalori(8) = anume2
          avalori(9) = co2
          avalori(10) = neg2
          tot_co2 = co2 + tot_co2
          '                    If InStr(nume1,"-") Or InStr(nume2,"-") Then 'elimina dalla Tabella tutti i colpi e i casi negativi
          '                         '                         'io invece vorrei che i casi nrgativi possano essere visibili senza però mostrare tutti i colpi
          '                         '                         'di gioco negativi così da poter avere un quadro statistico preciso
          Call AddRigaTabella(avalori,,,3)
          If avalori(7) = 0 Then SetColoreCella 7,vbYellow,1 : SetColoreCella 6,vbYellow,1
          If avalori(10) = 0 Then Call SetColoreCella(10,vbYellow,1): Call SetColoreCella(9,vbYellow,1)
          '                         Call SetColoreCella(1,RGB(128,255,255),1)
          '                         Call SetColoreCella(2,RGB(192,192,192),1)
          '                         Call SetColoreCella(3,RGB(255,128,64),1)
          '                         Call SetColoreCella(4,RGB(128,255,128),2)
          '                         Call SetColoreCella(5,RGB(128,255,128),2)
          '                         Call SetColoreCella(6,RGB(255,255,128),2)
          '                         Call SetColoreCella(7,RGB(255,255,128),2)
          '                         Call SetColoreCella(8,RGB(79,79,79),5)
          '                    End If
          If ScriptInterrotto Then Exit Sub
     Next
   
     SetTableWidth("90%")
     CreaTabella
     Scrivi "GIOCO SU: " & SiglaRuota(r1) & " - PER COLPI: " & clpg & " casi positivi " & casi_pos & "/" & caso,1,,1,4,3
Scrivi "Totale giocate 1° ambetto " &  tot_co1 & " Totale giocate 2° ambetto " &  tot_co2
   
End Sub
 
Ultima modifica:
Ciao claudio8,
ho preso nota delle tue puntualizzazioni e le condivido. Solo la pratica e la maggior comprensione delle strutture logiche potranno farmi migliorare.
Provo a risponderti sul perché in alcuni casi ho utilizzato Instr e in altri no.
Perché mi sono accorto che in alcuni casi Instr restituisce il risultato voluto e in altri invece non è adatto, così provandolo, sto cercando di capire come e se usarlo. Lo so che per te può sembrare stupido (e magari lo è) ma tieni a mente che sono un neofita autodidatta partito da zero (a mala pena sapevo qualcosa su If) e fino a ora solo.
Ti ringrazio per aver postato il tuo script, mi sarà utile per capire meglio e evitare di arzigogolare :):):)
La tabella a dire il vero l'avevo fatta ma, come hai detto tu, senza la parte riepilogativa. ci riproverò.
Ciao.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 gennaio 2025
    Bari
    47
    06
    65
    72
    48
    Cagliari
    75
    33
    52
    59
    73
    Firenze
    08
    05
    35
    74
    81
    Genova
    33
    59
    68
    27
    07
    Milano
    68
    12
    60
    51
    65
    Napoli
    49
    17
    10
    71
    87
    Palermo
    31
    64
    45
    04
    47
    Roma
    18
    84
    43
    28
    31
    Torino
    14
    23
    33
    16
    84
    Venezia
    39
    41
    08
    02
    86
    Nazionale
    63
    41
    58
    16
    01
    Estrazione Simbolotto
    Bari
    45
    03
    38
    41
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto