X Maxma62

[Roby]

....ciao max, ho visto e provato il listato non mi tornano i

conti , fallo come quello su ca , cioè le ambate ed infine

la lunghetta senza gli ambi .


ciao

 

[maxma62]

Intendi cosi'?

Sub main()
Dim ruote(10)
Dim ruote2(10)
Dim numeri1(10)
Dim numeri2(10)
Dim posta(5)
Dim poste(5)

posta(1)=1
posta(2)=1

poste(2)=2
poste(3)=1
poste(4)=0.5
poste(5)=0.5

ruote(1)=2 'ca

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

Scrivi String(65,"*")
Scrivi " < metodo di pasquale59 >",1
Scrivi String(42,"-")& "gioca da "&dataestrazione(es+1,1)
Scrivi

a=Fuori90(Estratto(es,1,3)+Estratto(es,5,4)+28)'1a ambata
b=Fuori90(Estratto(es,2,2)+Estratto(es,6,3)+89)'2a ambata

numeri1(1)=a 'ambata
numeri1(2)=b
ImpostaGiocata 1,numeri1,ruote,posta,12,2
numeri2(1)=a 'lunghetta
numeri2(2)=b
numeri2(3)=5
numeri2(4)=30
numeri2(5)=31
numeri2(6)=61
numeri2(7)=68
numeri2(8)=81
ImpostaGiocata 2,numeri2,ruote,poste,12,3

Gioca es
End If
Next
ScriviResoconto
End Sub

ciao, max

 

[pasquale59]

.....si , però le previsioni vanno calcolate su TO.

ciao.

 

[maxma62]

'ultima estr. mensile :
'3° estratto di BA + il 4° di MI + 28 = Prima ambata
'2° estratto di CA + il 3° di NA + 89 = Seconda ambata
'giocare le due ambate su TO
'abbinamento i fissi : 5-30-31-61-68-81 = A-T-Q-C

Sub main()
Dim ruote(10)
Dim ruote2(10)
Dim numeri1(10)
Dim numeri2(10)
Dim posta(5)
Dim poste(5)

posta(1)=1
posta(2)=1

poste(2)=2
poste(3)=1
poste(4)=0.5
poste(5)=0.5

ruote(1)=9 'to

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

Scrivi String(65,"*")
Scrivi " < metodo di pasquale59 >",1
Scrivi String(42,"-")& "gioca da "&dataestrazione(es+1,1)
Scrivi

a=Fuori90(Estratto(es,1,3)+Estratto(es,5,4)+28)'1a ambata
b=Fuori90(Estratto(es,2,2)+Estratto(es,6,3)+89)'2a ambata

numeri1(1)=a 'ambata
numeri1(2)=b
ImpostaGiocata 1,numeri1,ruote,posta,12,2
numeri2(1)=a 'lunghetta
numeri2(2)=b
numeri2(3)=5
numeri2(4)=30
numeri2(5)=31
numeri2(6)=61
numeri2(7)=68
numeri2(8)=81
ImpostaGiocata 2,numeri2,ruote,poste,12,3

Gioca es
End If
Next
ScriviResoconto
End Sub

adesso va bene?.
Ciao, max