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 26 aprile 2025
    Bari
    23
    30
    43
    69
    25
    Cagliari
    63
    73
    02
    18
    12
    Firenze
    38
    11
    13
    32
    15
    Genova
    09
    27
    84
    16
    11
    Milano
    73
    30
    70
    60
    02
    Napoli
    60
    81
    05
    79
    89
    Palermo
    26
    28
    69
    07
    31
    Roma
    82
    38
    76
    44
    31
    Torino
    05
    62
    73
    46
    84
    Venezia
    42
    14
    45
    35
    52
    Nazionale
    48
    80
    78
    16
    23
    Estrazione Simbolotto
    Genova
    10
    22
    15
    09
    34

Ultimi Messaggi

Indietro
Alto