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 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22
Indietro
Alto