Novità

script tabella

bergie

Advanced Member >PLATINUM<
Buonasera a tutti
chiedo gentilmente se è possibile avere uno script fatto in tabella
11.24.07.20.03
04.12.25.08.16
17.05.13.21.09
10.18.01.14.22
23.06.19.02.15

che rilevi i numeri usciti dalla 1 del mese e li segnali calcolati su ogni ruota.
tipo Napoli dalla 1 del mese ad oggi
11.24.07.20.03
04.12.25.08.16
17.05.13.21.09
10.18.01.14.22
23.06.19.02.15
 
Ultima modifica:

Joe91

Advanced Member >PLATINUM PLUS<
Ciao Bergie.

Lo script che ti propongo richiede per comodità e semplicità d'uso e di imput, che

i 25 numeri siano inseriti in lunghetta e separati dal punto "."

:) Cordiali saluti

Codice:
Option Explicit
Sub Main
	Dim Ini,Fin,Es,M,N,Lu,Nu(1),Ru(1),X,SF,GR
	Ru(1) = ScegliRuota
	Lu = "11.24.07.20.03.04.12.25.08.16.17.05.13.21.09.10.18.01.14.22.23.06.19.02.15"
	'Lu = InputBox ("Lunghetta","INSERERISCI 25 NUMERI",Lu)
	Fin = EstrazioneFin : M = Mid(DataEstrazione(Fin),4,2)
	For Es = Fin - 20 To Fin
		If M = Mid(DataEstrazione(Es),4,2) Then Ini = Es : Exit For
	Next
	ColoreTesto 1
	Scrivi SiglaRuota(Ru(1)) & "_ " & DataEstrazione(Fin),True : Scrivi 
	ColoreTesto 0
	N = Split("0." & Lu,".")
	For X = 1 To UBound(N)
		Nu(1) = N(X) : SF = SerieFreq(Ini,Fin,Nu,Ru,1)
		If SF > 0 Then ColoreTesto 2 : GR = True
		Scrivi Format2(Nu(1)),GR,False : ColoreTesto 0 : GR = False
		If X Mod 5 <> 0 Then Scrivi ".",False,False Else Scrivi ""
	Next
End Sub
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao Bergie. Grazie.

In questa nuova versione ho cercato di sfruttare megliole dimensioni dello schermo.

Risulta un pò più complicato ... ma riesce ad infilarci tutto evitando anche di dover scrollare l'output ...

per far posto alle ruote che non sarebbero visualizzate, per mancanza di spazio in verticale.

Codice:
Option Explicit
Sub Main
Dim Ini,Fin,Es,M,N,R,Lu,Nu(1),Ru(1),X,Y,Z,SF,GR
Lu = "11.24.07.20.03.04.12.25.08.16.17.05.13.21.09.10.18.01.14.22.23.06.19.02.15"
Fin = EstrazioneFin : M = Mid(DataEstrazione(Fin),4,2)
For Es = Fin - 20 To Fin
If M = Mid(DataEstrazione(Es),4,2) Then Ini = Es : Exit For
Next
Scrivi "| ",True,False
For R = 1 To 12 : If R = 11 Then R = 12
ColoreTesto 1 : Scrivi Space(3) & FormatSpace(UCase(NomeRuota(R)),12),True,False
ColoreTesto 0 : Scrivi "| ",True,False
Next : Scrivi
N = Split("0." & Lu,".")
For X = 0 To 4 'righe
Scrivi "| ",True,False
For R = 1 To 12 : If R = 11 Then R = 12
Ru(1) = R
For Y = 1 To 5 'posizioni della ruota
Z = 5 * X + Y 'posizioni nella tabella
Nu(1) = N(Z) : SF = SerieFreq(Ini,Fin,Nu,Ru,1)
If SF > 0 Then ColoreTesto 2 : GR = True Else ColoreTesto 4
Scrivi Format2(Nu(1)),GR,False : ColoreTesto 0 : GR = False
If Z Mod 5  0 Then Scrivi ".",False,False Else Scrivi " ",False,False
Next
Scrivi "| ",True,False
Next
Scrivi
Next
End Sub

:)
 
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