X DANIEL AIUTO LISTATO

[Roby]

Ciao Daniel ti ringrazio ancora per il listato che mi hai fatto alcuni giorni fa ora vorrei cortesemente mettere un metodo che ho facendo un listato abuso della tue superdisponibilita' e aiuto per il prossimo. Ti spiego il metodo:
Ogni 10° estrazione del mese ricaveremo due terzine a Bari -Cagliari cosi:
1°terzina:5°estratto di Bari x 13
2° estratto di Genova+62
4° estratto di Genova+63

2° terzina:5°estratto di Bari+21
1°estratto di Torino+29
1°estratto di Roma+85
applicare sempre il fuori novanta.
Grazie Daniel speriamo che dia una bella statistica ciao campione dei listati

francolotto

 

[maxma62]

resoconto del tuo metodo dal 25/08/2005 x 12 colpi


*****************************************************************
gioca da gio 25.08.2005

mar 23.08.2005 [7481]
G 1: AT 25.88 Ba Ca 12/12
negativo
G 2: AT 16.43 Ba Ca 12/12
negativo
*****************************************************************
gioca da sab 24.09.2005

gio 22.09.2005 [7494]
G 1: AT 35.59.53 Ba Ca 12/12
negativo
G 2: AT 86.13.77 Ba Ca 12/12
negativo
*****************************************************************
gioca da mar 25.10.2005

sab 22.10.2005 [7507]
G 1: AT 04.28.56 Ba Ca 12/12
negativo
G 2: AT 49.36.19 Ba Ca 12/12
A 19.49 su Ca 5° colpo [7512/03.11.2005]

*****************************************************************
gioca da gio 24.11.2005

mar 22.11.2005 [7520]
G 1: AT 58.71.31 Ba Ca 12/12
negativo
G 2: AT 67.54.82 Ba Ca 12/12
negativo
*****************************************************************
gioca da sab 24.12.2005

gio 22.12.2005 [7533]
G 1: AT 06.38.62 Ba Ca 12/12
negativo
G 2: AT 63.33.49 Ba Ca 12/12
negativo
*****************************************************************
gioca da gio 26.01.2006

mar 24.01.2006 [7547]
G 1: AT 51.35.24 Ba Ca 12/12
negativo
G 2: AT 18.44.06 Ba Ca 12/12
A 18.44 su Ba 10° colpo [7557/16.02.2006]

*****************************************************************
gioca da sab 25.02.2006

gio 23.02.2006 [7560]
G 1: AT 52.62.89 Ba Ca 12/12
negativo
G 2: AT 25.75.12 Ba Ca 12/12
negativo
*****************************************************************
gioca da sab 25.03.2006

gio 23.03.2006 [7572]
G 1: AT 51.82.17 Ba Ca 12/12
negativo
G 2: AT 18.24.48 Ba Ca 12/12
negativo
*****************************************************************
gioca da mer 26.04.2006

sab 22.04.2006 [7585]
G 1: AT 06.17.08 Ba Ca 12/12
negativo
G 2: AT 63.57.65 Ba Ca 12/12
negativo
*****************************************************************
gioca da gio 25.05.2006

mar 23.05.2006 [7598]
G 1: AT 61.72.23 Ba Ca 12/12
negativo
G 2: AT 88.72.34 Ba Ca 12/12
negativo
*****************************************************************
gioca da sab 24.06.2006

gio 22.06.2006 [7611]
G 1: AT 56.34.39 Ba Ca 12/12
negativo
G 2: AT 53.17 Ba Ca 12/12
negativo
*****************************************************************
gioca da mar 25.07.2006

sab 22.07.2006 [7624]
G 1: AT 02.86.45 Ba Ca 12/12
negativo
G 2: AT 35.44.07 Ba Ca 12/12
negativo
*****************************************************************
gioca da gio 24.08.2006

mar 22.08.2006 [7637]
G 1: AT 67.02.37 Ba Ca 12/12
negativo
G 2: AT 40.82.11 Ba Ca 12/12
negativo
*****************************************************************
gioca da mar 26.09.2006

sab 23.09.2006 [7651]
G 1: AT 59.67.85 Ba Ca 12/12
negativo
G 2: AT 74.27.18 Ba Ca 12/12
negativo
*****************************************************************
gioca da gio 26.10.2006

mar 24.10.2006 [7664]
G 1: AT 30.61.35 Ba Ca 6/12
in corso (6° su 12)
G 2: AT 51.88.20 Ba Ca 6/12
in corso (6° su 12)

ciao, max

 

[franco]

Scusa Max mi puoi mandare il listato? CIAO

francolotto

 

[maxma62]

Non sono un "esperto" di listati, ma penso vada bene.
Ecco il listato:

Sub main()
Dim ruote(10)
Dim ruote2(10)
Dim numeri1(10) 'giocata 1
Dim numeri2(10) 'giocata 2
Dim poste(5)

poste(2)=1.5
poste(3)=0.5

ruote(1)=1
ruote(2)=2

For es=EstrazioneFin-200 To EstrazioneFin
If IndiceMensile(es)=10 Then 'estr. mensile

Scrivi String(65,"*")
scrivi"gioca da "&dataestrazione(es+1,1)
Scrivi

numeri1(1)=Fuori90(Estratto(es,1,5)*13)
numeri1(2)=Fuori90(Estratto(es,4,2)+62)
numeri1(3)=Fuori90(Estratto(es,4,4)+63)
ImpostaGiocata 1,numeri1,ruote,poste,12,3

numeri2(1)=Fuori90(Estratto(es,1,5)+21)
numeri2(2)=Fuori90(Estratto(es,9,1)+29)
numeri2(3)=Fuori90(Estratto(es,8,1)+85)
ImpostaGiocata 2,numeri2,ruote,poste,12,3

Gioca es
End If
Next
ScriviResoconto
End Sub

ciao, max

 

[franco]

GRAZIE e spero che anche DANIEL Controlla se è buono comunque grazie molto ciao

francolotto