| R E V I S I O N E D E L L A D I S C U S S I O N E |
| piermarco |
Posted - 20 luglio 2015 : 14:04:15
Sub Main()
Dim nu(1),nn(7),rt(2),rtt(2),pt(1),ptt(3),pst(5)
pt(1) = 1
ptt(2) = 1 : ptt(3) = 1
pst(3) = 1 : pst(4) = 0.5 : pst(5) = 0.5
rtt(1) = 11 : rtt(2) = 12
clp = 14
fin = EstrazioneFin
ini = fin - 50
co = 0
For es = ini To fin
Messaggio es
For r = 1 To 10
rt(1) = r
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r,p) : b = Estratto(es,r,p1)
If a = Diametrale(b) Then
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
rt(2) = r1
For q = 1 To 4
For q1 = q + 1 To 5
c = Estratto(es,r1,q) : d = Estratto(es,r1,q1)
If c = Diametrale(d) Then
co = co + 1
Scrivi String(65,"=") & " Caso n°" & co
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ambo " & a & "-" & b
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " Ambo " & c & "-" & d
If pari(a) Then x1p = a : x1d = b Else x1p = b : x1d = a
If pari(c) Then x2p = c : x2d = d Else x2p = d : x2d = c
s1 = Fuori90(x1p + x2d) : s2 = Fuori90(x1d + x2p)
ab1 =(x1p + x2p)/2 : ab2 = Diametrale(ab1)
Scrivi "Pari 1^Ambo [" & x1p & "]+[" & x2d & "] Dispari 2^Ambo.. " & s1
Scrivi "Dispari 1^Ambo [" & x1d & "]+[" & x2p & "] Pari 2^Ambo.. " & s2
Scrivi "Creazione Ambo con punti-medi (P+P)/2..(D+D)/2.. " & ab1 & " e " & ab2
If s1 = s2 Then
nu(1) = s1
ImpostaGiocata 1,nu,rt,pt,clp
nn(1) = nu(1) : nn(2) = ab1 : nn(3) = ab2
nn(4) = Fuori90(ab1 + 30) : nn(5) = Fuori90(ab1 + 60)
nn(6) = Fuori90(ab2 + 30) : nn(7) = Fuori90(ab2 + 60)
ImpostaGiocata 2,nn,rt,ptt,clp
ImpostaGiocata 3,nn,rtt,pst,clp
Gioca es
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Su |
|
|
