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
    sabato 05 aprile 2025
    Bari
    10
    58
    03
    61
    14
    Cagliari
    04
    67
    36
    85
    87
    Firenze
    70
    45
    80
    62
    06
    Genova
    05
    66
    32
    59
    89
    Milano
    20
    56
    02
    87
    47
    Napoli
    60
    63
    75
    72
    06
    Palermo
    14
    80
    30
    76
    70
    Roma
    73
    42
    36
    79
    08
    Torino
    26
    74
    83
    78
    31
    Venezia
    06
    60
    85
    76
    40
    Nazionale
    44
    11
    71
    06
    37
    Estrazione Simbolotto
    Genova
    26
    14
    36
    31
    44
Indietro
Alto