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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto