Novità

SCRIPT PER SOMME

lestodante

Junior Member
Gentili utenti, qualcuno può aiutarmi per uno script che faccia la somma degli estratti in verticale esempio: BA-CA; CA-FI; FI-GE;... QUESTO PER TUTTI E CINQUE GLI ESTRATTI
GRAZIE
 
Se usi Spaziometria nella sezione statistiche/quadro somme distanze c'e' la funzione
somme in verticale . Ciao
grazie per avermi risposto
la somma verticale che cerco deve essere intuitiva fatta per ruote consecutive e per colonne, quella che elabora spaziometria è un po laboriosa non è immediatamente visibile la somma uguale su due ruote, ad esempio.
ba-ca 1° estratto ba-ca 2° estratto...
ca-fi 1° estratto cafi 2° estratto ...
fi-ge 1° estratto... e così via
 
Ciao.

Prova questo:

Codice:
Sub Main
	Fin = EstrazioneFin : Scrivi DataEstrazione(Fin),1 : Scrivi
	For R1 = 1 To 9 : R2 = R1 + 1
		Stringa1 = SiglaRuota(R1) & "  "
		Stringa2 = SiglaRuota(R2) & "  "
		Stringa3 = Space(4)
		For P = 1 To 5
			E1 = Estratto(Fin,R1,P) : E2 = Estratto(Fin,R2,P)
			Stringa1 = Stringa1 & Format2(E1) & "+ "
			Stringa2 = Stringa2 & Format2(E2) & "= "
			Stringa3 = Stringa3 & Format2(Fuori90(E1 + E2)) & "  "
		Next
		Scrivi Stringa1
		Scrivi Stringa2
		Scrivi Stringa3
		Scrivi
	Next
End Sub

:)
 
grazie Joe91

grazie Joe91

grazie per lo script, era quello che cercavo, ti chiedo solo una cosa, anzi due
è possibile non visualizzare solo l'ultima estrazione?
è possibile evidenziare numeri uguali dati dalle somme?
grazie
 

Ciao Lestodante.

Ho provato a riassumere quanto da te richiesto, elencando dati e/o risultati

in forma compressa (considerando che essi sono molti).

Nella speranza che siano, ancora, facilmente leggibili ...

è possibile avere sott'occhio, 4-5 estrazioni, in una sola schermata.

===================== 28.12.2013 ==================

BA+CA 55+42=07 76+17=03 53+65=28 40+63=13 77+18=05
CA+FI 42+32=74 17+65=82 65+09=74 63+53=26 18+64=82
FI+GE 32+54=86 65+15=80 09+73=82 53+33=86 64+71=45
GE+MI 54+70=34 15+90=15 73+26=09 33+11=44 71+29=10
MI+NA 70+14=84 90+72=72 26+53=79 11+23=34 29+05=34
NA+PA 14+72=86 72+25=07 53+85=48 23+90=23 05+10=15
PA+RO 72+60=42 25+51=76 85+78=73 90+76=76 10+74=84
RO+TO 60+25=85 51+36=87 78+15=03 76+40=26 74+76=60
TO+VE 25+33=58 36+22=58 15+54=69 40+11=51 76+38=24
VE+BA 33+55=88 22+76=08 54+53=17 11+40=51 38+77=25
==================== 31.12.2013 ==================
BA+CA 43+21=64 24+58=82 47+48=05 50+37=87 78+23=11
CA+FI 21+73=04 58+04=62 48+12=60 37+08=45 23+64=87
FI+GE 73+47=30 04+17=21 12+01=13 08+42=50 64+02=66
GE+MI 47+11=58 17+13=30 01+27=28 42+31=73 02+51=53
MI+NA 11+66=77 13+25=38 27+54=81 31+90=31 51+18=69
NA+PA 66+11=77 25+79=14 54+32=86 90+65=65 18+82=10
PA+RO 11+58=69 79+37=26 32+68=10 65+26=01 82+28=20
RO+TO 58+17=75 37+69=16 68+54=32 26+05=31 28+47=75
TO+VE 17+09=26 69+58=37 54+12=66 05+53=58 47+14=61
VE+BA 09+43=52 58+24=82 12+47=59 53+50=13 14+78=02
==================== 02.01.2014 ==================
BA+CA 16+11=27 15+76=01 40+40=80 34+07=41 24+19=43
CA+FI 11+45=56 76+42=28 40+40=80 07+21=28 19+69=88
FI+GE 45+60=15 42+49=01 40+34=74 21+89=20 69+05=74
GE+MI 60+66=36 49+56=15 34+29=63 89+89=88 05+10=15
MI+NA 66+69=45 56+54=20 29+06=35 89+64=63 10+24=34
NA+PA 69+73=52 54+25=79 06+67=73 64+16=80 24+46=70
PA+RO 73+11=84 25+09=34 67+79=56 16+64=80 46+63=19
RO+TO 11+46=57 09+33=42 79+60=49 64+87=61 63+26=89
TO+VE 46+52=08 33+78=21 60+27=87 87+68=65 26+05=31
VE+BA 52+16=68 78+15=03 27+40=67 68+34=12 05+24=29
==================== 04.01.2014 ==================
BA+CA 72+63=45 74+77=61 24+69=03 19+64=83 52+81=43
CA+FI 63+05=68 77+12=89 69+63=42 64+76=50 81+75=66
FI+GE 05+58=63 12+59=71 63+46=19 76+54=40 75+10=85
GE+MI 58+85=53 59+41=10 46+31=77 54+61=25 10+63=73
MI+NA 85+14=09 41+20=61 31+06=37 61+59=30 63+11=74
NA+PA 14+08=22 20+67=87 06+38=44 59+42=11 11+55=66
PA+RO 08+20=28 67+41=18 38+19=57 42+56=08 55+90=55
RO+TO 20+49=69 41+90=41 19+39=58 56+26=82 90+03=03
TO+VE 49+41=90 90+88=88 39+31=70 26+66=02 03+36=39
VE+BA 41+72=23 88+74=72 31+24=55 66+19=85 36+52=88
RUOTE 1' Estr. 2' Estr. 3' Estr. 4' Estr. 5' Estr.


:)
 
Ultima modifica:
Codice:
Sub Main
'Somme Ripetute per lestodante. V.3.0 By Joe. Alba, 07/01/2014.   
	Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
	For Es = Ini To Fin : Scrivi String(21,"=") & " " & DataEstrazione(Es) & " " & String(22,"="),1
		For R1 = 1 To 10 : R2 = R1 + 1 : If R2 = 11 Then R2 = 1
			Scrivi SiglaRuota(R1) & "+" & SiglaRuota(R2) & "  ",1,0
			ReDim Nu(90)
			For P = 1 To 5
				E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
				S =(Fuori90(E1 + E2)) : Nu(S) = Nu(S) + 1
			Next
			For P = 1 To 5
				E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
				S = Format2(Fuori90(E1 + E2))
				If Nu(s) > 1 Then ColoreTesto 2 : Gr = True
				Scrivi Format2(E1) & "+" & Format2(E2) & "=" & Format2(S) & "  ",Gr,0 : ColoreTesto 0 : Gr = False
			Next
			Scrivi
		Next
	Next
	Scrivi "RUOTE  ",1,0
	For P = 1 To 5
		Scrivi P & "' Estr.  ",1,0
	Next
End Sub

:) Buona Giornata a Tutte/i.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21
Indietro
Alto