Novità

X mike58

miki55

Advanced Member >PLATINUM PLUS<
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<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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<
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<
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

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

Premium Member
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<
Mbè ilegend, niente male, se invii lo script trovo il tempo x studiarlo un pò...
Ti dispiace??
 

i legend

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

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