per chi se ne intende di metodi

[Roby]

Ho trovato questo listato in un alltro forum come posso aggiungere la cinquina per ogni previsione?
Grazie, maxma

Sub main()
Dim n(4), nn(10), nnn(5), aa(10)
Dim ruote(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(1)=1
poste(2)=1
fin=EstrazioneFin
ini=fin-300
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9
For p=1 To 4
For q=p+1 To 5
n(1)=Estratto (es,r,p)
n(2)=Estratto (es,r,q)
For r1=r+1 To 10
n(3)=Estratto (es,r1,p)
n(4)=Estratto (es,r1,q)
dor1=Distanza(n(1),n(2))
dor2=Distanza(n(3),n(4))
dv1=Distanza(n(1),n(3))
dv2=Distanza(n(2),n(4))
dd1=Distanza(n(1),n(4))
dd2=Distanza(n(2),n(3))
caso=0
If dor1=18 And dor2=18 Then '<--- variabile dist orizz
a=Diametrale(n(4))
nn(1)=(91-a)
nnn(1)=n(1)
nnn(2)=Fuori90(n(1)+8)
nnn(3)=Fuori90(n(1)+16)
nnn(4)=Fuori90(n(1)+36)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Orizzontale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))&" <--- 7" 'scrittura dist
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))&" <--- 7" 'scrittura dist
Scrivi
End If
If dv1=18 And dv2=18 Then '<-- variabile dist verticale
a=Diametrale(n(4))
nn(1)=(90-a)
nnn(1)=Fuori90(n(1)+n(2)+n(3)+n(4))
nnn(2)=Fuori90(90-nnn(1))
If nnn(2)=0 Then nnn(2)=90 End If
nnn(3)=Fuori90(nnn(2)+89)
nnn(4)=Fuori90(nnn(2)+80)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Verticale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))
Scrivi : Scrivi " 7 7" : Scrivi ' scrittura dist
End If
If dd1=18 And dd2=18 Then '<-- variabile dist diagonale
a=Fuori90(n(1)+n(2)+n(3)+n(4))
b=Fuori90(a+2)
c=Fuori90(a+88)
d=Fuori90(a+4)
e=Fuori90(a+86)
nn(1)=(91-a)
nnn(1)=(90-b)
nnn(2)=(90-c)
nnn(3)=(90-d)
nnn(4)=(90-e)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Diagonale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))
Scrivi " X" : Scrivi " 7 7" : Scrivi 'scrittura dist
End If
If caso=1 Then
ruote(1)=r
ruote(2)=r1
ImpostaGiocata 1,nn,ruote,posta,10
aa(1)=nn(1)
aa(2)=nnn(1)
ImpostaGiocata 2,aa,ruote,poste,10
aa(2)=nnn(2)
ImpostaGiocata 3,aa,ruote,poste,10
aa(2)=nnn(3)
ImpostaGiocata 4,aa,ruote,poste,10
aa(2)=nnn(4)
ImpostaGiocata 5,aa,ruote,poste,10
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[imported_n/a]

quote:Originally posted by maxma62

Ho trovato questo listato in un alltro forum come posso aggiungere la cinquina per ogni previsione?
Grazie, maxma

Sub main()
Dim n(4), nn(10), nnn(5), aa(10)
Dim num(5)
Dim ruote(10)
Dim posta(5)
Dim poste(5)
Dim pos(5)
posta(1)=1
poste(1)=1
poste(2)=1
pos(2)=1
pos(3)=1
pos(4)=1
pos(5)=1
fin=EstrazioneFin
ini=fin-300
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9
For p=1 To 4
For q=p+1 To 5
n(1)=Estratto (es,r,p)
n(2)=Estratto (es,r,q)
For r1=r+1 To 10
n(3)=Estratto (es,r1,p)
n(4)=Estratto (es,r1,q)
dor1=Distanza(n(1),n(2))
dor2=Distanza(n(3),n(4))
dv1=Distanza(n(1),n(3))
dv2=Distanza(n(2),n(4))
dd1=Distanza(n(1),n(4))
dd2=Distanza(n(2),n(3))
caso=0
If dor1=18 And dor2=18 Then '<--- variabile dist orizz
a=Diametrale(n(4))
nn(1)=(91-a)
nnn(1)=n(1)
nnn(2)=Fuori90(n(1)+8)
nnn(3)=Fuori90(n(1)+16)
nnn(4)=Fuori90(n(1)+36)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Orizzontale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))&" <--- 7" 'scrittura dist
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))&" <--- 7" 'scrittura dist
Scrivi
End If
If dv1=18 And dv2=18 Then '<-- variabile dist verticale
a=Diametrale(n(4))
nn(1)=(90-a)
nnn(1)=Fuori90(n(1)+n(2)+n(3)+n(4))
nnn(2)=Fuori90(90-nnn(1))
If nnn(2)=0 Then nnn(2)=90 End If
nnn(3)=Fuori90(nnn(2)+89)
nnn(4)=Fuori90(nnn(2)+80)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Verticale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))
Scrivi : Scrivi " 7 7" : Scrivi ' scrittura dist
End If
If dd1=18 And dd2=18 Then '<-- variabile dist diagonale
a=Fuori90(n(1)+n(2)+n(3)+n(4))
b=Fuori90(a+2)
c=Fuori90(a+88)
d=Fuori90(a+4)
e=Fuori90(a+86)
nn(1)=(91-a)
nnn(1)=(90-b)
nnn(2)=(90-c)
nnn(3)=(90-d)
nnn(4)=(90-e)
caso=1
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione(es) & " Condizione Diagonale"
Scrivi FormatSpace(NomeRuota(r), 10)&format2(n(1))&"."&format2(n(2))
Scrivi FormatSpace(NomeRuota(r1),10)&format2(n(3))&"."&format2(n(4))
Scrivi " X" : Scrivi " 7 7" : Scrivi 'scrittura dist
End If
If caso=1 Then
ruote(1)=r
ruote(2)=r1
ImpostaGiocata 1,nn,ruote,posta,10
aa(1)=nn(1)
aa(2)=nnn(1)
ImpostaGiocata 2,aa,ruote,poste,10
aa(2)=nnn(2)
ImpostaGiocata 3,aa,ruote,poste,10
aa(2)=nnn(3)
ImpostaGiocata 4,aa,ruote,poste,10
aa(2)=nnn(4)
ImpostaGiocata 5,aa,ruote,poste,10
num(1)=nn(1)
num(2)=nnn(1)
num(3)=nnn(2)
num(4)=nnn(3)
num(5)=nnn(4)
ImpostaGiocata 6,num,ruote,pos,10

Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[maxma62]

Mille grazie daniel.
Ciao, max