Novità

X mike58

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
Ciao mike, vorrei evidenziare nella tabella “formazione cadenza” i numeri che sono sortiti e che si trovano nella tabella arancione “ultima sortita”, la data lo evidenziata ma non so come si fa a evidenziare i numeri che si trovano nella “formazione cadenza” questa tabella l’ho modificata e ho aggiunto anche i colori..



ti allego lo script

Sub Main
Dim Ru(1),T,V
min = 1000
maxrit = 0
maxmax = 0
Incrmax = 0
sorte = 1
Ini = EstrazioneFin - 180
fin = EstrazioneFin

Call ScegliRange(Ini,fin,Ini,fin)
For r = 1 To 11
If r = 11 Then r = 12

T = Array(T,"Ruota","Formazione Cadenza","Ritardo","Ultima Sortita"," Data","Cadenza")
Call InitTabella(T,RGB(0,0,255),,,5)


For x = 1 To 9
For n = 1 To 90
If Cadenza(n) = x Then
k = k + 1
Ru(1) = r
ReDim Preserve Rad(k)
Rad(k) = n
End If
Next
ReDim pos(5)
pos(1) = True
pos(2) = True
pos(3) = True
pos(4) = True
pos(5) = True
Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,,pos,,,es1,id)
'sr = SerieRitardoTurbo(Ini,fin - 1,Rad,Ru,sorte)
freq = freq + fre
If rit > maxrit Then maxrit = rit
If max > maxmax Then maxmax = max
If Incr > Incrmax Then Incrmax = Incr



mix = Cadenza(


'If rit = 0 Then srp = sr
'If rit > 0 Then srp = "--"
V = Array(V,SiglaRuota(r),StringaNumeri(Rad,,1),rit,es1,DataEstrazione(id),mix)
Call AddRigaTabella(V)
'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
k = 0



Call SetColoreCella(1,RGB(65,115,255),0)
Call SetColoreCella(2,RGB(0,209,153),0)
Call SetColoreCella(3,RGB(255,49,99),0)
Call SetColoreCella(4,RGB(255,191,48),0)
Call SetColoreCella(5,RGB(65,115,255),0)
Call SetColoreCella(6,RGB(0,209,153),0)
Call SetColoreCella(7,RGB(48,213,200),0)
Call SetColoreCella(8,RGB(0,204,153),0)
Call SetColoreCella(9,RGB(255,49,99),0)
Call SetColoreCella(10,RGB(50,189,182),0)
Call SetColoreCella(11,RGB(10,189,182),0)
Call SetColoreCella(12,RGB(59,159,182),0)


'If StringaNumeri(n)= StringaNumeri(es1) Then Call SetColoreCella((2),2,5)


If DataEstrazione(fin) = DataEstrazione(id) Then Call SetColoreCella((5),2,5)




Next

CreaTabella






Next

'If ScriptInterrotto Then Exit For
'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
Scrivi "Script By Mike58",1,,,1,,,1
End Sub

 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
Miky, modificare uno script costruito per uno scopo con delle variazioni mirate poi diventa complicato.
Ad ogni modo ho modificato con il codice GetTestoHtml la scrittura evidenziata della sortita Zero.

Prova a vedere se ti va bene .

Codice:
Sub Main
   Dim Ru(1),T,V
   min = 1000
   maxrit = 0
   maxmax = 0
   Incrmax = 0
   sorte = 1
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin
   Call ScegliRange(Ini,fin,Ini,fin)
   For r = 1 To 11
      If r = 11 Then r = 12
      T = Array(T,"Ruota","Formazione Cadenza","Ritardo","Ultima Sortita"," Data","Cadenza")
      Call InitTabella(T,RGB(0,0,255),,,5)
      For x = 0 To 9
         For n = 1 To 90
            If Cadenza(n) = x Then
               k = k + 1
               Ru(1) = r
               ReDim Preserve Rad(k)
               Rad(k) = n
               If EstrattoFrequenza(r,Rad(k),fin,fin) = 1 Then
                  riga = riga & GetTestoHtml(Rad(k),1,2,4,2) & " "
               Else
                  riga = riga & GetTestoHtml(Rad(k),1,0) & " "
               End If
            End If
         Next
         ReDim pos(5)
         pos(1) = True
         pos(2) = True
         pos(3) = True
         pos(4) = True
         pos(5) = True
         Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
         Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,,pos,,,es1,id)
         'sr = SerieRitardoTurbo(Ini,fin - 1,Rad,Ru,sorte)
         freq = freq + fre
         If rit > maxrit Then maxrit = rit
         If max > maxmax Then maxmax = max
         If Incr > Incrmax Then Incrmax = Incr
         mix = Cadenza(x)
         'If rit = 0 Then srp = sr
         'If rit > 0 Then srp = "--"
         V = Array(V,SiglaRuota(r),riga,rit,es1,DataEstrazione(id),mix)
         Call AddRigaTabella(V)
         'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
         k = 0
         riga = ""
         Call SetColoreCella(1,RGB(65,115,255),0)
         Call SetColoreCella(2,RGB(0,209,153),0)
         Call SetColoreCella(3,RGB(255,49,99),0)
         Call SetColoreCella(4,RGB(255,191,48),0)
         Call SetColoreCella(5,RGB(65,115,255),0)
         Call SetColoreCella(6,RGB(0,209,153),0)
         Call SetColoreCella(7,RGB(48,213,200),0)
         Call SetColoreCella(8,RGB(0,204,153),0)
         Call SetColoreCella(9,RGB(255,49,99),0)
         Call SetColoreCella(10,RGB(50,189,182),0)
         Call SetColoreCella(11,RGB(10,189,182),0)
         Call SetColoreCella(12,RGB(59,159,182),0)
         'If StringaNumeri(n)= StringaNumeri(es1) Then Call SetColoreCella((2),2,5)
         If DataEstrazione(fin) = DataEstrazione(id) Then Call SetColoreCella((5),2,5)
      Next
      Call SetTableWidth("50%")
      CreaTabella
   Next
   'If ScriptInterrotto Then Exit For
   'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
   Scrivi "Script By Mike58",1,,,1,,,1
End Sub
 

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
Grazie, sei sempre geniale con i tuoi lavori...
Complimenti!!
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
Miky ci devo ancora lavorare Non sono soddisfatto del lavoro finale.
Purtroppo adesso non ho tempo (causa lavoro Notturno) .
Ci aggiorniamo
 

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
Ok, sarà sicuramente un'altra tua chicca ...
 

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
Mike, posso chiederti ancora una cortesia?
Si possono aggiungere ed evidenziare il rit massimi nella colonna ritardo..
GRAZIE ancora...
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
Miky con le evidenze non vado molto d'accordo ci sto provando ma per ora funge poco.
Ho aggiunto altri dati verifica se ti tornano utili.

Codice:
Sub Main
   Dim Ru(1),T,V
   min = 1000
   maxrit = 0
   maxmax = 0
   Incrmax = 0
   sorte = 1
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin
   Call ScegliRange(Ini,fin,Ini,fin)
   For r = 1 To 11
      If r = 11 Then r = 12
      Scrivi Ini & " - " & fin
      ReDim pos(5)
      pos(1) = True
      pos(2) = True
      pos(3) = True
      pos(4) = True
      pos(5) = True
      T = Array(T,"Ruota","Formazione Cadenza","Rit.Att","Rit.Sto","IncrMax","Ultima Sortita"," Data","Ritardi Relativi","max sto","Verifica Sto")
      Call InitTabella(T,RGB(0,0,255),,,5)
      For x = 0 To 9
         For n = 1 To 90
            If Cadenza(n) = x Then
               k = k + 1
               Ru(1) = r
               ReDim Preserve Rad(k)
               Rad(k) = n
               ReDim Preserve Rsto(k)
               Rsto(k) = EstrattoRitardo(r,Rad(k),Ini,fin,,,pos)
              maxsto = MassimoV(Rsto)
              rigo = rigo & GetTestoHtml(FormattaStringa(Rsto(k),"000"),1) & " "
               ess = fin-maxsto
               Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
               Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,0,pos,esito,clp,es1,id)
               Call VerificaEsitoTurbo(Rad,Ru,ess,sorte,1,pos,esito2,clp2,es2,id2)
               If EstrattoFrequenza(r,Rad(k),fin,fin,,,pos) = 1 Then
                  riga = riga & GetTestoHtml(Format2(Rad(k)),1,5,2,2) & " "
                
               Else
                  riga = riga & GetTestoHtml(Format2(Rad(k)),1,0) & " "
               End If
              
            End If ' chiude cadenza
            'End If
         Next ' chiude for
        
              
         freq = freq + fre
         If rit > maxrit Then maxrit = rit
         If max > maxmax Then maxmax = max
         If Incr > Incrmax Then Incrmax = Incr
         mix = Cadenza(x)
        
         V = Array(V,SiglaRuota(r),riga,rit,max,incr,es1,DataEstrazione(id),rigo,maxsto & " - " & ess,es2)
         Call AddRigaTabella(V)
         'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
         k = 0
         riga = ""
         rigo = ""
         rigaR = ""
         Call SetColoreCella(1,RGB(65,115,255),0)
         Call SetColoreCella(2,RGB(0,209,153),0)
         Call SetColoreCella(3,RGB(255,49,99),0)
         Call SetColoreCella(6,RGB(255,191,48),0)
         Call SetColoreCella(7,RGB(65,115,255),0)
         Call SetColoreCella(8,RGB(0,209,153),0)
         'Call SetColoreCella(9,RGB(48,213,200),0)
         'Call SetColoreCella(10,RGB(0,204,153),0)
         'Call SetColoreCella(11,RGB(255,49,99),0)
         'Call SetColoreCella(10,RGB(50,189,182),0)
         'Call SetColoreCella(12,RGB(10,189,182),0)
         'Call SetColoreCella(13,RGB(59,159,182),0)
         'If StringaNumeri(n)= StringaNumeri(es1) Then Call SetColoreCella((2),2,5)
         If DataEstrazione(fin) = DataEstrazione(id) Then Call SetColoreCella((7),2,5)
      Next
      Call SetTableWidth("80%")
      CreaTabella
   Next
   'If ScriptInterrotto Then Exit For
   'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
   Scrivi "Script By Mike58",1,,,1,,,1
End Sub
Ciao
 

toon

Member
Messaggi
45
Punti reazione
10
Punti
8
Un vero lavoro certosino, le tabelle e la statistica sono come minimo il tuo forte.
Grande lavoro, Grazie.. (y) :D
 

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
Grazie Mike, faccio le mie verifiche e ti faccio sapere...
 

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
If rit = maxrit Then Call SetColoreCella((3),3,8)

ho provato a mettere questa riga di comando
ma si evidenzia solo su alcune ruote e le altre no
e non so perché. Non evidenzia il ritardo massimo
in tutte le ruote lo fa in alcuni si e alcuni no..
Mi aiuti a trovare il modo per sistemare
e evidenziare questi ritardi massimi su ogni ruota?
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
Miky, con quel codice non è possibile evidenziarlo perchè la scrittura della combinazione è su riga e non numeri separati quindi il setcolorecella non può agire.
Infatti anch'io faccio fatica in quanto la condizione se pur con il codice giusto non scrive correttamente.
Chiaro sicuramente sbaglio io il modus operandi, sicuramente mettendo tutti i numeri della combinazione in tabella isolata il colore cella agisce con sicurezza se vuoi così si può fare.

P.s. di questi script ne ho fatti tanti ma alcune volte certe cose poi non si riescono ad ottenere seppur semplici., STrano!!!

Ciao ci ragiono con calma.
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
ciao, visto che ho avuto un po di tempo libero ho buttato giu lo script, ma visto la stanchezza che mi porto addosso
per favore controllate i dati , se sono esatti posto lo script
ecco un immagine dell output
analizza in base alle richieste dall estratto alla cinquina

quando si cambia il fine di uno script è meglio rielaborarlo che cercare di modificarlo a mio avviso
prova3_1.png
 

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
Mbè ilegend, niente male, se invii lo script trovo il tempo x studiarlo un pò...
Ti dispiace??
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
miki per favore controlla i dati dell immagine con altre fonti
non mi piace postare script errati
se i dati combaciano lo posto piu che volentieri l ho fatto apposta
purtroppo non ho tempo di fare le verifiche .
aspetto
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
Si visto che ho perso tempo a capire gli inghippi e rivederlo ecco la mia soluzione.
Poi sono d'accordo con quello che dice iLegend alcune volte e meglio rifare exNovo uno script che rielaborare un costrutto o iter per un altro scopo.

Ciao a tutti

Codice:
Sub Main
   Dim Ru(1),T,V
   min = 1000
   maxrit = 0
   maxmax = 0
   Incrmax = 0
   sorte = 1
   Ini = EstrazioneFin - 180
   fin = EstrazioneFin
   Call ScegliRange(Ini,fin,Ini,fin)
   For r = 1 To 11
      If r = 11 Then r = 12
      Scrivi Ini & " - " & fin
      ReDim pos(5)
      pos(1) = True
      pos(2) = True
      pos(3) = True
      pos(4) = True
      pos(5) = True
      T = Array(T,"Ruota","N1","N2","N3","N4","N5","N6","N7","N8","N9"," ","Min.Att","Max.Sto","Ultima Sortita"," Data","st1","St2","St3","st4","st5","st6","st7","st8","st9","max sto","Verifica Sto")
      Call InitTabella(T,RGB(0,0,255),,,5)
      For x = 0 To 9
         For n = 1 To 90
            If Cadenza(n) = x Then
               k = k + 1
               Ru(1) = r
               ReDim Preserve Rad(k)
               Rad(k) = n
               ReDim Preserve Rsto(k)
               Rsto(k) = EstrattoRitardo(r,Rad(k),Ini,fin,,,pos)
              maxsto = MassimoV(Rsto)
              minsto = MinimoV(Rsto,1,- 1)
              'rigo = rigo & GetTestoHtml(FormattaStringa(Rsto(k),"000"),1) & " "
               ess = fin - maxsto
              

               Call StatisticaFormazioneTurbo(Rad,Ru,sorte,rit,max,Incr,fre,Ini,fin,,pos)
               Call VerificaEsitoTurbo(Rad,Ru,fin - rit,sorte,0,pos,esito,clp,es1,id)
               Call VerificaEsitoTurbo(Rad,Ru,ess,sorte,1,pos,esito2,clp2,es2,id2)
              
            End If ' chiude cadenza
            'End If
         Next ' chiude for
        
              
         freq = freq + fre
         'If rit > maxrit Then maxrit = rit
         'If max > maxmax Then maxmax = max
         'If Incr > Incrmax Then Incrmax = Incr
         mix = Cadenza(x)
        
         V = Array(V,SiglaRuota(r),Rad(1),Rad(2),Rad(3),Rad(4),Rad(5),Rad(6),Rad(7),Rad(8),Rad(9),".",minsto,maxsto,es1,DataEstrazione(id),Rsto(1),Rsto(2),Rsto(3),Rsto(4),Rsto(5),Rsto(6),Rsto(7),Rsto(8),Rsto(9),maxsto & " - " & ess,es2)
         Call AddRigaTabella(V)
         For y = 2 To 10
        Call SetColoreCella((y),RGB(188,188,188),5)
        Next
        For xx = 16 To 24
        
        Call SetColoreCella((xx),RGB(193,89,157),0)
        If V(xx) = maxsto Then Call SetColoreCella((xx),7,5)
        If V(xx) = maxsto Then Call SetColoreCella((xx) - 14,7,5)
        If V(xx) = 0 Then Call SetColoreCella((xx) - 14,3,1)
        If V(xx) = minsto And V(xx) > 0 Then Call SetColoreCella((xx) - 14,4,2)
        Next
        If V(12) = 0 Then Call SetColoreCella(12,3,1)
        If V(12) > 0 Then Call SetColoreCella(12,4,2)
        Call SetColoreCella(13,7,5)
        Call SetColoreCella(11,1,0)
        If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(15,3,0)
        
         'Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Rad,,1) & vbTab & fre & vbTab & rit & vbTab & max & vbTab & Incr & vbTab & es1 & vbTab & srp
         k = 0
         riga = ""
         rigo = ""
         rigaR = ""
        
        
      Next
      Call SetTableWidth("80%")
      CreaTabella
   Next
   'If ScriptInterrotto Then Exit For
   'Scrivi Space(39) & freq & Space(7) & maxrit & Space(5) & maxmax & Space(5) & Incrmax,1
   Scrivi "Script By Mike58",1,,,1,,,1
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
x ILegend visto che hai fatto lo script con TabellaOrdinabile vedi se ti funziona bene l'export dati in Excel
a me ultimamente da errore e cerca varie autorizzazioni.
Prima non accadeva.

Ciao
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.792
Punti reazione
399
Punti
83
Ciao ragazzi , domani scarico lo script di mike così vedo se convergono i risultati
Mike , con la versione 1.6.31 non mi dà problemi,
Ma domani per sicurezza controllo.
Ciao se i risultati sono ok posto anche la mia versione giusto per avere un confronto per chi vuole imparare un po di script un esempio in più non guasta.
Notte a tutti :)
 

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
Siete due maestri degli script,
questa è la verità ha ragione ZETRIX !!!
 

miki55

Advanced Member >PLATINUM PLUS<
Messaggi
2.977
Punti reazione
351
Punti
83
Mi date queste risposte x favore?

esempio(1)riga = riga & GetTestoHtml(Rad(k),0,5,2,3) & "."
Else
riga = riga & GetTestoHtml(Rad(k),0,0) & "."

esempio (2)riga = riga & Space(3) & GetTestoHtml(Rad(k),0,5,2,3) & "."
Else
riga = riga & Space(3) & GetTestoHtml(Rad(k),0,0) & "."

Perché nell’esempio (1) i numeri vengono evidenziati
invece nell'esempio (2) i numeri non vengono evidenziati
ho aggiunto la stringa space(3) in modo che i numeri si vedono
più grandi e si vedono meglio però aggiusta una cosa
e non va bene l'altra perché cosi i numeri non vengono evidenziati
..e un casino questi script..
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.094
Punti reazione
79
Punti
48
Miky alcune volte non sempre si riesce a scrivere quello che si vuole, seppure si crede di aver listato il tutto in modo corretto.
Anch'io nello script sopra non riuscivo ad evidenziare quello che ritenevo giusto ma ahinoi i codici vanno sempre con le condizione per non entrare in contrasto e a volta capita a non capire che una condizione esclude l'altra.

Vedi questo semplice script
c'è un if = condizione
poi elseIF = ulteriore condizione
poi else ' chiusura condizione ossia tutto il diverso dalle 2 condizioni sopra.

vedi questo picccolo esempio

Codice:
Sub Main
   Dim Nu(5)
   Ini = EstrazioneFin - 15
   fin = EstrazioneFin
   r = BA_
   For es = Ini To fin
      For p = 1 To 5
         Nu(p) = Estratto(es,r,p)
         '--------------------------------------------------------------
         If Nu(p) > 0 And Nu(p) < 16 Then ' scrive evidenza giallo dai numeri 1-15
         k1 = k1 + 1
            riga = riga & GetTestoHtml(Format2(Nu(p)),1,2,4) & " " ' giallo
         ElseIf Nu(p) > 15 And Nu(p) < 31 Then ' scrive evidenza rosso dai numeri 16-30
         k2 = k2 +1
            riga = riga & GetTestoHtml(Format2(Nu(p)),1,4,2) & " " 'rosso
         ElseIf Nu(p) > 30 And Nu(p) < 46 Then ' scrive evidenza ciano dai numeri 31-45
         k3 = k3 + 1
            riga = riga & GetTestoHtml(Format2(Nu(p)),1,5,7) & " " 'ciano
         Else
         k4 = k4 + 1
            riga = riga & GetTestoHtml(Format2(Nu(p))) & " " ' nessun colore
         End If
      Next
      Scrivi riga ' scrive la riga
      riga = "" ' azzera la riga
   Next
   Scrivi
   Scrivi "Giallo 1-15    : " & k1,1,,4,2
   Scrivi "Rosso 16-30 :  : " & k2,1,,2,4
   Scrivi "magenta 31-45  : " & k3,1,,7,5
End Sub
benvenuto tra i pochi se vuoi imparare gli script

Ciao
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 13 agosto 2020
    Bari
    85
    14
    03
    88
    26
    Cagliari
    75
    85
    81
    77
    13
    Firenze
    69
    86
    10
    60
    36
    Genova
    02
    57
    16
    09
    59
    Milano
    83
    06
    51
    18
    46
    Napoli
    75
    80
    20
    52
    47
    Palermo
    64
    05
    73
    89
    88
    Roma
    67
    02
    60
    74
    63
    Torino
    83
    42
    23
    03
    35
    Venezia
    83
    87
    86
    72
    88
    Nazionale
    12
    77
    42
    19
    32
    Estrazione Simbolotto
    Genova
    11
    36
    06
    30
    05
Alto