Chi ha un programma....

[Roby]

Ciao a tutti,
ho bisogno di un grande aiuto.
Il mio problema è questo:
Devo sapere quante volte, la somma dei 5 estratti della ruota di Torino ha dato : 182.
Qualcuno di voi ha un programma per verificarlo?
A mano ci riuscirò tra 2 anni..
Grazie in anticipo
Mera

 

[piocola]

Salve Mera,

io da ieri ho il programma che permette di fare listati ma...
non li sò fare [[V]], se provassi a chiedere all'ottimo Alex777
o all'altrettanto bravo Maxma62 !?

Sono certo che in men che non si dica ti risolvono!

Ciao

piocola

 

[meravigliosamente]

Grazie del suggerimento caro Piocola...
Ora vedo se riesco ad arrangiarmi, altrimenti chiederò aiuto di nuovo.
Un abbraccio a presto.
Mera.

 

[piocola]

Sono certo che qualcuno 'dotato' dei programmi adatti non
impiegherà molto a darti risposta!

 

[meravigliosamente]

Cercherò di fare da sola...
Grazie lo stesso.
A presto. Mera.
[:I]

 

[piocola]

Mera, forse ci sono, girando quà e là ho trovato qualcuno
in grado di aiutarmi(ti) !

A tra poco per gli esiti, ok!?

piocola

 

[capitan_d]

Ciao Mera dal 1939 ad oggi:

27/06/1942 TO 43 21 38 5 75 182
16/11/1946 TO 85 7 15 52 23 182
21/06/1947 TO 22 10 19 58 73 182
12/11/1949 TO 32 2 47 86 15 182
27/02/1954 TO 23 19 39 18 83 182
02/11/1963 TO 18 62 61 28 13 182
07/08/1965 TO 69 37 2 20 54 182
21/07/1973 TO 7 41 39 14 81 182
31/05/1975 TO 50 46 32 33 21 182
24/06/1978 TO 21 46 44 17 54 182
14/04/1979 TO 7 73 16 31 55 182
13/12/1980 TO 26 58 1 24 73 182
14/02/1981 TO 30 88 34 10 20 182
18/03/1989 TO 6 49 4 64 59 182
23/09/1989 TO 10 72 50 44 6 182
25/08/1990 TO 61 5 31 42 43 182
18/01/1992 TO 1 12 63 19 87 182
03/04/1993 TO 41 25 8 57 51 182
25/06/1994 TO 51 50 60 10 11 182
07/08/1999 TO 19 60 6 71 26 182
25/08/1999 TO 25 9 81 36 31 182
12/02/2005 TO 35 50 31 21 45 182
23/08/2005 TO 14 32 19 76 41 182
03/01/2006 TO 7 67 32 53 23 182
12/06/2007 TO 84 17 6 25 50 182


Navigare...navigare...ovunque ...nel web...

 

[domenicogian]

Riepilogo somme dei 5 estratti di torino dal 2/01/2007 al 03/07/2007
Casi esaminati 79
Casi totali 01

02/01/07	189	
04/01/07	175	
08/01/07	248	
09/01/07	208	
11/01/07	279	
13/01/07	199	
16/01/07	247	
18/01/07	126	
20/01/07	165	
23/01/07	209	
25/01/07	244	
27/01/07	88	
30/01/07	273	
01/02/07	291	
03/02/07	272	
06/02/07	272	
08/02/07	302	
10/02/07	234	
13/02/07	174	
15/02/07	200	
17/02/07	308	
20/02/07	260	
22/02/07	233	
24/02/07	152	
27/02/07	228	
01/03/07	311	
03/03/07	245	
06/03/07	300	
08/03/07	231	
10/03/07	192	
13/03/07	289	
15/03/07	237	
17/03/07	195	
20/03/07	250	
22/03/07	298	
24/03/07	168	
27/03/07	204	
29/03/07	274	
31/03/07	270	
03/04/07	167	
05/04/07	207	
07/04/07	229	
10/04/07	203	
12/04/07	188	
14/04/07	323	
17/04/07	213	
19/04/07	238	
21/04/07	290	
24/04/07	192	
26/04/07	252	
28/04/07	284	
02/05/07	270	
03/05/07	284	
05/05/07	206	
08/05/07	192	
10/05/07	196	
12/05/07	283	
15/05/07	279	
17/05/07	196	
19/05/07	302	
22/05/07	253	
24/05/07	259	
26/05/07	224	
29/05/07	231	
31/05/07	248	
04/06/07	235	
05/06/07	233	
07/06/07	200	
09/06/07	316	
12/06/07	182	somma 182
14/06/07	263	
16/06/07	310	
19/06/07	155	
21/06/07	371	
23/06/07	307	
26/06/07	268	
28/06/07	185	
30/06/07	283	
03/07/07	236

saluti Domenicogian.

 

[Cremino]

Alla fine basta chiedere, son tutti stragentili.

 

[alex777]

X Meravigliosamente

Guarda nella tua posta tra 15 minuti e troverai il programma che cerchi.
Te lo mando solo di Torino, poi se hai altre richieste chiedi pure.

Come ho detto a Mera, e questo vale per tutti,non preoccupatevi di disturbare chiedendo(almeno x Me), ogni volta che aiuto qualcuno, riesco a creare qualcosa di nuovo,e quindi aumento la mia conoscenza-abilità e questo è già un Ottimo Scambio.
Quindi a chi chiede qualcosa posso dire......Grazie di Chiedere.
Saluti.

 

[maxma62]

Chi ha il programma apposito, con questo controlla tutte le somme uscite
su qualsiasi ruota. (il listato è di joe91)

Sub main()
Dim Ru(10)
r=CInt(InputBox("Controllo somma su quale ruota?","Ruota",5))
ru(1)=r
Somma=CInt(InputBox("Qual'è la somma?","Somma",324))
Scrivi NomeRuota (R),1,1
Scrivi " N° Data Estratti",1
For e = 1 To EstrazioneFin
T=0
For n=1 To 5
T = T + Estratto (e,r,n)
Next
If T = Somma Then Scrivi "["&e&"] " &dataestrazione(e,1)& " " & StringaEstratti (e,r) & " = " & T
Next
End Sub

max

 

[meravigliosamente]

Che dire... siete stati meravigliosi...
Grazie di cuore a tutti.
Un abbraccio stretto.
A presto.
Mera.

 

[piocola]

... però non essere egoista
e facci sapere cosa estrapolerai da questa ricerca!

Ovvio si scherza, fanne buon uso e che ti possa essere
molto propizia!

piocola

 

[meravigliosamente]

Lo farò senz'altro...
purtroppo in questo periodo ho poco tempo.
E alla sera mi addormento...fffffffff....
Ciao, bacio.
Mera.