-
miele50.
User deleted
Per Roby: 
. -
lones.
User deleted
una piccola modifica per avere piu casi SPOILER (clicca per visualizzare)ColoreTesto 2 :Scrivi String(37,32)&"Il simmetrico mancante - di Miele50",1
Scrivi String(45,32)&"by chilofa",1
ColoreTesto 0
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10),sd1(2),dd1(2)
Dim poste(5),poste1(5),poste2(5)
poste(1)=1
poste(1)=1
poste2(2)=1
poste1(2)=1
poste1(3)=1
poste1(4)=1
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n7=Fuori90(n1+n2)
For r2=r1+1 To 11
If r2=11 Then r2=12
n3=Estratto(es,r2,p1)
n4=Estratto(es,r2,p2)
n8=Fuori90(n3+n4)
n5=Distanza(n7,n8)
If n5=30 Then
If Fuori90(n7+60)=n8 Then nm1=Fuori90 (n7+30) Else nm1=Fuori90 (n7+60)
sd1(1)=Fuori90(n1+n4):sd1(2)=Fuori90(n2+n3)'<<<<somme diagonali
OrdinaMatrice sd1,+1
If Distanza(sd1(1),sd1(2))=30 Then
If Fuori90(sd1(1)+60)=sd1(2) Then nm2=Fuori90 (sd1(1) +30) Else nm2=Fuori90 (sd1(1) +60)
dd1(1)=Abs(n1-n3):dd1(2)=Abs(n2-n4) '<<<<differenze verticali
OrdinaMatrice dd1,+1
If Distanza(dd1(1),dd1(2))=30 Then
If Fuori90(dd1(1)+60)=dd1(2) Then nm3=Fuori90 (dd1(1) +30) Else nm3=Fuori90 (dd1(1) +60)
If dd1(1)=0 Then dd1(1)=90
If dd1(2)=0 Then dd1(2)=90
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > somma..."&Format2 (n7)
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo < "&Format2(n3)&"."&Format2 (n4)&" > somma..."&Format2 (n8)
Scrivi Space(15) &" simmetrico manc "&nm1
Scrivi Space(11) &" somme diagonali "&sd1(1)& " "& sd1(2)&" simmetrico manc "&nm2
Scrivi Space(10) &" differenze vert. "&dd1(1)& " "& dd1(2)& " simmetrico manc "&nm3
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2::ruota(1)=11:k=14:co=0
nu1(1)=nm1
ImpostaGiocata 1 ,nu1,ruote,poste,k
nu3(1)=nm1
nu3(2)=nm2
nu3(3)=nm3
ImpostaGiocata 2 ,nu3,ruote,poste2,k
nu2(1)=nm1
nu2(2)=nm2
nu2(3)=nm3
nu2(4)=n7
nu2(5)=n8
ImpostaGiocata 3 ,nu2,ruote,poste1,k
ImpostaGiocata 4 ,nu2,ruota,poste1,k
Gioca es
End If
End If
End If
Next:Next:Next
Next:Next:
ScriviResoconto
End SubCODICE===========================================================================
sab 14.05.2011 < Na 24.17.54.37.31 > ambo < 24.37 > somma...61
sab 14.05.2011 < To 69.54.77.22.03 > ambo < 69.22 > somma...01
simmetrico manc 31
somme diagonali 16 46 simmetrico manc 76
differenze vert. 15 45 simmetrico manc 75
----------------------------------------------------------------- caso n° 102
sab 14.05.2011 [8377]
G 1: M 31 Na To 6/14
M 31 su To 2° colpo [8379/19.05.2011]
in corso (6° su 14)
G 2: A 31.76.75 Na To 6/14
in corso (6° su 14)
G 3: ATQ 31.76.75.61.01 Na To 6/14
in corso (6° su 14)
G 4: ATQ 31.76.75.61.01 Tu 6/14
A 76.01 su Tu (Ro) 2° colpo [8379/19.05.2011]
in corso (6° su 14)
===========================================================================
gio 19.05.2011 < Fi 28.04.74.71.48 > ambo < 28.04 > somma...32
gio 19.05.2011 < Ro 43.49.71.76.01 > ambo < 43.49 > somma...02
simmetrico manc 62
somme diagonali 47 77 simmetrico manc 17
differenze vert. 15 45 simmetrico manc 75
----------------------------------------------------------------- caso n° 103
gio 19.05.2011 [8379]
G 1: M 62 Fi Ro 4/14
in corso (4° su 14)
G 2: A 62.17.75 Fi Ro 4/14
in corso (4° su 14)
G 3: ATQ 62.17.75.32.02 Fi Ro 4/14
in corso (4° su 14)
G 4: ATQ 62.17.75.32.02 Tu 4/14
in corso (4° su 14)
===========================================================================
mar 24.05.2011 < Fi 31.17.45.70.69 > ambo < 17.45 > somma...62
mar 24.05.2011 < Pa 73.62.60.84.20 > ambo < 62.60 > somma...32
simmetrico manc 2
somme diagonali 17 77 simmetrico manc 47
differenze vert. 15 45 simmetrico manc 75
----------------------------------------------------------------- caso n° 104
mar 24.05.2011 [8381]
G 1: M 02 Fi Pa 2/14
in corso (2° su 14)
G 2: A 02.47.75 Fi Pa 2/14
in corso (2° su 14)
G 3: ATQ 02.47.75.62.32 Fi Pa 2/14
in corso (2° su 14)
G 4: ATQ 02.47.75.62.32 Tu 2/14
in corso (2° su 14)
===========================================================================
gio 26.05.2011 < Ge 43.19.89.60.05 > ambo < 43.05 > somma...48
gio 26.05.2011 < Pa 43.55.24.20.35 > ambo < 43.35 > somma...78
simmetrico manc 18
somme diagonali 48 78 simmetrico manc 18
differenze vert. 90 30 simmetrico manc 60
----------------------------------------------------------------- caso n° 105
gio 26.05.2011 [8382]
G 1: M 18 Ge Pa 1/14
in corso (1° su 14)
G 2: A 18.60 Ge Pa 1/14
in corso (1° su 14)
G 3: ATQ 18.60.48.78 Ge Pa 1/14
in corso (1° su 14)
G 4: ATQ 18.60.48.78 Tu 1/14
in corso (1° su 14)
===========================================================================
sab 28.05.2011 < Na 85.50.79.10.51 > ambo < 50.10 > somma...60
sab 28.05.2011 < Pa 53.35.71.55.72 > ambo < 35.55 > somma...90
simmetrico manc 30
somme diagonali 15 45 simmetrico manc 75
differenze vert. 15 45 simmetrico manc 75
----------------------------------------------------------------- caso n° 106
sab 28.05.2011 [8383]
G 1: M 30 Na Pa 0/14
i.c. (14 colpi)
G 2: A 30.75 Na Pa 0/14
i.c. (14 colpi)
G 3: ATQ 30.75.60.90 Na Pa 0/14
i.c. (14 colpi)
G 4: ATQ 30.75.60.90 Tu 0/14
i.c. (14 colpi). -
.
Lones,gentilissimo come sempre..grazie davvero..
.
Il simmetrico mancante |
Offline
Web