Per favore un aiuto...........

[Roby]

Chiedo agli amici del forum che programma posso utilizzare per verificare l'efficacia di un metodo sull'archivio delle estrazioni
tipo questo:


Resoconto del metodo
2000 estr. dal 12-12-1981 al 09-08-2007
casi n°27



Estratti di Napoli 76.88.89.66.71
Somma estratti = 390
mar 19.12.2006 [7688]
G 1: ATQC 86.38.34.60.35 Na 9/9
negativo
******************************
Estratti di Napoli 56.49.35.69.70
Somma estratti = 279
gio 21.12.2006 [7689]
G 1: ATQC 55.83.69.72 Na 9/9
negativo
******************************
Estratti di Napoli 16.87.66.52.80
Somma estratti = 301
sab 23.12.2006 [7690]
G 1: ATQC 77.40.37.41.61 Na 9/9
negativo
******************************
Resoconto complessivo di 1 giocata
=======================================

Resoconto totale giocate
Risultati generali

Casi esaminati: 100
in corso: 8
casi finali: 92
positivi: 19
negativi: 73
Pronostici generati: 100
Pronostici vincenti: 19 (19,0 %)
Estrazioni di gioco: 769
Tentativi (scontrini giocati): 769
Vincite (scontrini vincenti): 19 (2,47 %)
Attesa media: 4,11


oppure se esiste un foglio excel già pronto per evitare di farlo
manualmente?

Grazie.



Nando
_______________________
di G.Giusti: Chi non accetta il consiglio dei veri amici, cade poi sotto la mano de' cattivi consiglieri.

 

[maxma62]

Ma qual'e' il metodo?
Max

 

[Nando64]

Ciao,
i metodi sono diversi ma uno in particolare è questo:
Alla prima del mese prendere i 5 estratti della ruota di Bari ad esempio quelli del 2 agosto 2007:

estratti
55 - 40 - 67 - 12 - 71

ora sottraggo il numero della categoria a cui appartengono da 1 a 30 da 31 a 60 e da 61 a 90 e cioè il 55 che fa parte della categoria da 31 a 60 faccio questa operazione 60 - 55 = 5 (primo n° ottenuto)
poi 40 che rientra nella stessa categoria 60 - 40 = 20 (secondo n° ottenuto)
poi il 90 - 67 = 23 (terzo n° ottenuto) ecce. ecc.
in questo caso i numeri ottenuti sono i seguenti:

5-20-23-18-19 (Bari) e giorcarli per ambo.
Vorrei fare questo controllo a ritroso per verificare i casi positivi.
E' unpo incasinato lo so ma ho visto (manualmente) che sforna sempre un ambo nel giro di un mese).
Spero di essermi fatto capire.

Ciao




Nando
_______________________
di G.Giusti: Chi non accetta il consiglio dei veri amici, cade poi sotto la mano de' cattivi consiglieri.

 

[imported_n/a]

Quello che hai postato e stato fatto con un listato,del prog L8+
ho provato a farlo ma mi sono incasinato "tra gli IF THEN "accccc,meglio aspettare polska o maxma62 o qualcun altro

Solo

 

[imported_n/a]

a=Estratto(es,r,1)
If a<31 Then a1=30-a
If a>30 And a<61 Then a1=60-a
If a>60 And a<91 Then a1=90-a
.......e così per i 5 estratti
Ciao

marblix

 

[maxma62]

Resoconto 500 estr. - 45 casi

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
mer 03.12.2003 Ba 07.01.12.45.88
-------------------------------------------------------caso n°1
mer 03.12.2003  [7292]
  G  1:  ATQC          23.29.18.15.02   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
sab 03.01.2004 Ba 29.28.53.67.45
-------------------------------------------------------caso n°2
sab 03.01.2004  [7301]
  G  1:  ATQC          01.02.07.23.15   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
mer 04.02.2004 Ba 11.67.48.37.36
-------------------------------------------------------caso n°3
mer 04.02.2004  [7310]
  G  1:  ATQC          19.23.12.24   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
mer 03.03.2004 Ba 23.44.03.14.87
-------------------------------------------------------caso n°4
mer 03.03.2004  [7318]
  G  1:  ATQC          07.16.27.03   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
sab 03.04.2004 Ba 06.59.82.54.15
-------------------------------------------------------caso n°5
sab 03.04.2004  [7327]
  G  1:  ATQC          24.01.08.06.15   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
lun 03.05.2004 Ba 07.70.21.64.74
-------------------------------------------------------caso n°6
lun 03.05.2004  [7335]
  G  1:  ATQC          23.20.09.26.16   Ba    14/14    
     A  16.09            su Ba   14° colpo   [7349/19.06.2004]

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
gio 03.06.2004 Ba 16.31.82.11.40
-------------------------------------------------------caso n°7
gio 03.06.2004  [7344]
  G  1:  ATQC          14.29.08.19.20   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
sab 03.07.2004 Ba 14.87.34.63.73
-------------------------------------------------------caso n°8
sab 03.07.2004  [7353]
  G  1:  ATQC          16.03.26.27.17   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
mer 04.08.2004 Ba 44.75.88.46.06
-------------------------------------------------------caso n°9
mer 04.08.2004  [7362]
  G  1:  ATQC          16.15.02.14.24   Ba    14/14    
     A  02.24            su Ba   13° colpo   [7375/18.09.2004]

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
mer 01.09.2004 Ba 05.12.43.30.42
-------------------------------------------------------caso n°10
mer 01.09.2004  [7370]
  G  1:  ATQC          25.18.17   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
sab 02.10.2004 Ba 37.18.34.79.60
-------------------------------------------------------caso n°11
sab 02.10.2004  [7379]
  G  1:  ATQC          23.12.26.11   Ba    14/14    
     A  11.23            su Ba   14° colpo   [7393/20.11.2004]

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
mer 03.11.2004 Ba 60.85.82.53.69
-------------------------------------------------------caso n°12
mer 03.11.2004  [7388]
  G  1:  ATQC          05.08.07.21   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
mer 01.12.2004 Ba 65.12.36.56.33
-------------------------------------------------------caso n°13
mer 01.12.2004  [7396]
  G  1:  ATQC          25.18.24.04.27   Ba    14/14    
     negativo
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
lun 03.01.2005 Ba 61.17.44.03.39
-------------------------------------------------------caso n°14
lun 03.01.2005  [7405]
  G  1:  ATQC          29.13.16.27.21   Ba    14/14    
     A  13.21            su Ba   12° colpo   [7417/12.02.2005]

ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
mer 02.02.2005 Ba 85.41.01.83.06
-------------------------------------------------------caso n°15
mer 02.02.2005  [7414]
  G  1

 

[Nando64]

Grazie a tutti per l'aiuto.
Nando

Nando
_______________________
di G.Giusti: Chi non accetta il consiglio dei veri amici, cade poi sotto la mano de' cattivi consiglieri.

 

[imported_n/a]

ciao a tutta la compagnia

X marblix
Grazie del suggerimento funziona tutto OK

X maxma62
mi spieghi per favore come fai a far scrivere "casi n°1---casi n°2
oppure mi posti i vari passaggi.
Un saluto a tutti e grazie

Solo

 

[maxma62]

Ti posto il listato del metodo:

Sub main() 
Dim ruota(1),nu1(5),poste(5) 

poste(2)=3:poste(3)=1.1:poste(4)=0.4:poste(5)=0.2

r=CInt(InputBox("Qual'e' la ruota?","Ruota",1))
For es=EstrazioneFin-50 To EstrazioneFin 
If IndiceMensile(es)=1 Then 

caso=caso+1 '<<<-----
Scrivi String(65,"o")
Scrivi DataEstrazione(es,1)&" "&siglaruota(r)&" "&stringaestratti(es,r)
Scrivi  String(55,"-")&"caso n°"&caso '<<<----

ruota(1)=r:k=14

a=Estratto(es,r,1)
If a>0  And a<31 Then a1=(30-a)
If a>30 And a<61 Then a1=(60-a) 
If a>60 And a<91 Then a1=(90-a) 
nu1(1)=a1

b=Estratto(es,r,2)
If b>0  And b<31 Then b1=(30-b)
If b>30 And b<61 Then b1=(60-b)
If b>60 And b<91 Then b1=(90-b)
nu1(2)=b1

c=Estratto(es,r,3)
If c>0  And c<31 Then c1=(30-c)
If c>30 And c<61 Then c1=(60-c)
If c>60 And c<91 Then c1=(90-c)
nu1(3)=c1

d=Estratto(es,r,4)
If d>0  And d<31 Then d1=(30-d)
If d>30 And d<61 Then d1=(60-d)
If d>60 And d<91 Then d1=(90-d)
nu1(4)=d1

e=Estratto(es,r,5)
If e>0  And e<31 Then e1=(30-e)
If e>30 And e<61 Then e1=(60-e)
If e>60 And e<91 Then e1=(90-e)
nu1(5)=e1
ImpostaGiocata 1,nu1,ruota,poste,k,5

Gioca es 
End If 
Next 
ScriviResoconto 
End Sub

ciao, max

 

[imported_n/a]

Ti ringrazio max

Solo

 

[Nando64]

Scusa Max ma il listato lo devo usare in l8+ oppure
in qualche altro programma?
io ho il prog l8+ 6 ma non è aggiornato come estrazioni
potresti darmi un'indicazione su dove posso eventualmente scaricare l'archivio?
Scusami ancora, Nando



Nando
_______________________
di G.Giusti: Chi non accetta il consiglio dei veri amici, cade poi sotto la mano de' cattivi consiglieri.

 

[imported_n/a]

si il listato é per L8+
se metti l'e-mail ti spedisco l'archivio

Solo

 

[Nando64]

Grazie solo.
per intero non posso mettere l'email ma penso che
sia decifrabile.
fdaniellochioccolainwindpuntoit
Nando

Nando
_______________________
di G.Giusti: Chi non accetta il consiglio dei veri amici, cade poi sotto la mano de' cattivi consiglieri.

 

[imported_n/a]

spedito fammi sapere

Solo

 

[Nando64]

Grazie solo.

Nando
_______________________
di G.Giusti: Chi non accetta il consiglio dei veri amici, cade poi sotto la mano de' cattivi consiglieri.