Novità

x luigi

mastrogino

Advanced Premium Member
Ciao
scusa se ti disturbo,
se nel tuo tempo libero ti trovassi a fare un script con questi parametri te ne sarei grato

1° la somma dei 5 numeri delle ruote
2° il suo ritardo su ogni ruota
 
ciao , non vi abituate che appena finisco le ferie non avro piu tempo ...


Codice:
Option Explicit
Dim ColoreFixedCol
Dim ForeColorFixedCol
Dim ColoreColSomma
Sub Main
	Dim idEstr,Inizio,Fine
	ReDim aT(13)
	ReDim aFont(13)
	ReDim aColori(13)
	ReDim aForeColor(13)
	ReDim aClrEvid(3)
	Call Init(aT,aFont,aColori,aForeColor,aClrEvid)
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	For idEstr = Inizio To Fine
		Call EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		If ScriptInterrotto Then Exit For
	Next
End Sub
Sub Init(aT,aFont,aColori,aForeColor,aClrEvid)
	Dim k,i,r
	ColoreFixedCol = RGB(143,143,143)
	ForeColorFixedCol = vbWhite
	ColoreColSomma = RGB(192,192,192)
	For k = 1 To 13
		aFont(k) = "Lucida console"
		aColori(k) = vbCyan
		aForeColor(k) = vbBlack
	Next
	aFont(1) = "Courier new"
	aColori(1) = ColoreFixedCol
	aColori(2) = ColoreColSomma
	aForeColor(1) = ForeColorFixedCol
	aT(1) = "Ruota"
	aT(2) = "Somma"
	i = 2
	For r = 3 To 14
		If r - 2 <> 11 Then
			i = i + 1
			aT(i) = " " & SiglaRuota(r - 2) & " "
		End If
	Next
	aClrEvid(1) = vbRed
	aClrEvid(2) = RGB(255,128,0)
	aClrEvid(3) = vbYellow
End Sub
Sub EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
	Dim r,s,i,k,idRit
	ReDim aV(13)
	ReDim aRitPerRuota(121,3)
	idRit = 0
	Call InitTabella(aT,ColoreFixedCol,,,ForeColorFixedCol,"Courier new")
	For r = 1 To 12
		If r <> 11 Then
			s = Fuori90(SommaEstratti(idEstr,r))
			i = 2
			aV(1) = NomeRuota(r)
			aV(2) = s
			For k = 1 To 12
				If k <> 11 Then
					i = i + 1
					aV(i) = RitardoEstratto(s,idEstr,k)
					idRit = idRit + 1
					aRitPerRuota(idRit,1) = s ' il numero cioe la somma estratti
					aRitPerRuota(idRit,2) = aV(i) ' il suo ritardo
					aRitPerRuota(idRit,3) = k ' la ruota dove è stato calc il rit
				End If
			Next
			Call ModificaColori(aV,aColori,aClrEvid)
			Call AddRigaTabella(aV,aColori,,,aForeColor,aFont)
		End If
	Next
	Call Scrivi(String(100,"_"))
	Call Scrivi(GetInfoEstrazione(idEstr) & " -- Ritardo somme sulle ruote")
	Call Scrivi(String(100,"_"))
	Call Scrivi
	Call CreaTabella
	ReDim aTT(3)
	aTT(1) = "Somma"
	aTT(2) = "Ruota"
	aTT(3) = "Ritardo"
	Call InitTabella(aTT,ColoreFixedCol,,,ForeColorFixedCol,"Lucida console")
	Call OrdinaMatrice(aRitPerRuota,- 1,2)
	For k = 1 To 5
		'Call Scrivi("Somma : " & FormatSpace(aRitPerRuota(k,1),4,True) & " Rit " & FormatSpace(aRitPerRuota(k,2),5,True) & " Ruota " & SiglaRuota(aRitPerRuota(k,3)))
		aTT(1) = aRitPerRuota(k,1)
		aTT(2) = SiglaRuota(aRitPerRuota(k,3))
		aTT(3) = aRitPerRuota(k,2)
		Call AddRigaTabella(aTT,vbCyan,,,,"Lucida console")
	Next
	Call Scrivi("Primi 5 più in ritardo")
	Call CreaTabella
End Sub
Sub ModificaColori(aT,aColori,aClrEvid)
	Dim k,j
	ReDim aRit(11)
	For k = 3 To 13
		aRit(k - 2) = aT(k)
	Next
	Call OrdinaMatrice(aRit,- 1)
	For k = 3 To 13
		aColori(k) = vbCyan
	Next
	For k = 1 To UBound(aClrEvid)
		For j = 3 To 13
			If aT(j) = aRit(k) Then
				aColori(j) = aClrEvid(k)
			End If
		Next
	Next
End Sub
 
Scusami ancora , nn me ne voglio aproffitare
essendo ceh carica tutte l'estrazioni dal 1886
come faccio a portarlo nell'ultimo mese piu velocemente?

o meglio e possibile che fa il calcolo degli ultimi 13 estrazioni?
 
Ciao Luigi ben riletto :D:D
pure io sono in ferie........ anche se ormai sono gli ultimi giorni :(

riguardo allo script, non ho il pc e non posso farlo girare, ma credo che basti modificare questa riga:
Inizio = EstrazioneIni
con questa:
Inizio = EstrazioneFin - 13

ciao a tutti ci sentiamo presto
 
ciao Black , anche per me sono finite lunedi si rilavora.
Per lo scrip non è necessario modificare nulla lo script lavora sul range impostato nel programma (barra rosa sotto)
percio è su quella che si deve agire col mouse priima di lanciare lo script.
 
hai ragione Luigi, il fatto è che io sono abituato così, oppure uso l'inputbox
la barra rosa delle estrazioni non l'ho mai toccata
ogniuno ha i propri stratagemmi hehehe
ciao
 
ciao Peppe , tutto bene grazie .. anche perche a queste domande uno non è che possa rispondere per filo e per segno tutte le cose che non vanno :-) ti mando un saluto .. ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 03 aprile 2025
    Bari
    71
    57
    74
    66
    81
    Cagliari
    08
    71
    63
    28
    13
    Firenze
    02
    77
    51
    48
    40
    Genova
    20
    73
    85
    80
    83
    Milano
    13
    69
    82
    14
    43
    Napoli
    89
    22
    84
    57
    80
    Palermo
    88
    17
    29
    43
    68
    Roma
    20
    10
    67
    41
    39
    Torino
    59
    43
    71
    34
    78
    Venezia
    57
    35
    28
    39
    29
    Nazionale
    52
    72
    73
    26
    77
    Estrazione Simbolotto
    Genova
    25
    07
    38
    14
    18
Indietro
Alto