Novità

se possibile un piccolo aiuto

Ciao Rosa,

ho integrato allo script che ti avevo proposto ... una tabella iniziale,

nella quale dovrai sostituire i numeri di tuo interesse, manca il conteggio dei ritardi

ed anche la possibilità di sostituire i pronostici.

Anche la ricerca è mensile e questo può creare qualche piccola differenza.

Codice:
'xRosa V.5.0 Script By Joe
Sub Main
Dim Lu(12),T(12) : Sc = True ' Sc = False = Tabella Riepilogo Mensile

Lu(BA_) = "11.05.04" : Lu(CA_) = "56.90.34" : Lu(FI_) = "11.12.13"
Lu(GE_) = "22.33.66" : Lu(MI_) = "03.06.08" : Lu(NA_) = "08.18.81"
Lu(PA_) = "30.60.90" : Lu(RO_) = "01.46.90" : Lu(TO_) = "10.30.20"
Lu(VE_) = "01.02.03" : Lu(NZ_) = "88.89.90"

ColoreTesto 1 : Scrivi "Joe'Script ",1,0 : ColoreTesto 0
For R = BA_ To NZ_ : If R = TU_ Then R = NZ_
 ColoreTesto 2 : Scrivi SiglaRuota(R),1,0 : ColoreTesto 0
 Nu = Split("0." & Lu(R),".") : UB = UBound(Nu) 
 For N = 1 To UB
  Scrivi FormatSpace(Format2(Nu(N)),3,1),1,0
 Next : Scrivi Space(2),0,0 
Next : Scrivi 

ReDim Pr(12,UB)
For Es = 8320 To EstrazioneFin
If IndiceAnnuale(es) = 1 Then Scrivi Anno(ES) & " " & String(147,"="),1
 DE = Replace(DataEstrazione(es),".","/")  
 If Sc Then Scrivi DE & Space(3),0,0
 For R = BA_ To NZ_ : If R = TU_ Then R = NZ_
 Nu = Split("0." & Lu(R),".") : UB = UBound(Nu)
  For n = 1 To UB
   If Posizione(Es,r,Nu(n)) > 0 Then
     If Sc Then Scrivi FormatSpace("U",3,1),0,0
    Pr(R,N) = 1 : T(R) = T(R) + 1
      Else
    ColoreTesto 4
     If Sc Then Scrivi FormatSpace("N",3,1),0,0
    ColoreTesto 0
   End If
  Next
  If Sc = True Then Scrivi Space(4),0,0 
 Next
 If Sc = True Then Scrivi
 If IsUltimaDelMese(Es) Then
  NM = MeseNome(Mese(Es)) : L = 10 - Len(NM)
  Scrivi NM & String(L," "),1,0   
  For R = BA_ To NZ_ : If R = TU_ Then R = NZ_ 
   ColoreTesto 2
    Scrivi FormatSpace(CInt(T(R)),3,1),1,0 : T(R) = 0
   ColoreTesto 0
   For N = 1 To Ub
   If CInt(Pr(R,N)) > 0 Then
    Scrivi FormatSpace("U",3,1),1,0
    Else
     Scrivi FormatSpace("N",3,1),1,0
   End If
   Next : Scrivi Space(1),0,0
  Next 
  ReDim Pr(12,UB) : Scrivi  
 End If
Next
End Sub

:) Fammi sapere.
 
CIAO JOE91

CI SIAMO QUASI DOBBIAMO FARE L'ULTIMO SFORZO

SI PUO' CAMBIARE IL COLORE DI TUTTE LE ( N ) ?

DIMMI COME FARE SE LO VOGLIO ROSSO


GRAZIE TANTE

ciao
 
CIAO JOE91

CI SIAMO QUASI DOBBIAMO FARE L'ULTIMO SFORZO

SI PUO' CAMBIARE IL COLORE DI TUTTE LE ( N ) ?

DIMMI COME FARE SE LO VOGLIO ROSSO


GRAZIE TANTE

ciao

Ciao Rosa,

I colori, nello script, li ho gestiti nella forma tradizionale, (Spaziometria ... ha una versione SUPER).

Coloretesto seguito da numero con cui lo si sceglie.

Questo piccolo script ti elenca gli 8 colori ( 7 + Zero) con il numero corrispondente.

Codice:
Sub Main
 For C = 0 To 7
 ColoreTesto C
 Scrivi "ColoreTesto  " & C,1 
 Next 
End Sub

Nota: "Bianco 5" in genere non è visibile perchè non ha contrasto con lo sfondo.

Ciò detto, devi rintracciare l'istruzione che precede Scrivi "N" ... "Coloretesto 4" (giallo)

e sostituire il numero del colore ... con 2 (rosso).

:) Buona Giornata
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto