| Sub main()
Scrivi "IL VINCOLO DIFFERENZIALE 90 -FABARRI - Il Calcolo vincitore n° 5 del 1963": Scrivi
Scrivi " LISTATO BY FEDERICO53 -": Scrivi
Dim ruote(10),lg(10),la(2),lb(2),lc(2),ld(2),posta(5)
posta(2)=1
posta(3)=1
posta(4)=1
ini = InputBox("ESTRAZIONE D'INIZIO ?",,9036)
k = InputBox("COLPI DI GIOCO ?",,13)
fin = EstrazioneFin
For es = ini To fin
For r1 = 1 To 9
r2 =r1+1
If r2=11 Then r2=12
For p1 = 1 To 4
For p2 = p1+1 To 5
n1 = Estratto(es,r1,p1) : n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p1) : n4 = Estratto(es,r2,p2)
z1 = Abs(n1-n2)
z2 = Abs(n3-n4)
z3 = Abs(n2-n4)
z4 = Abs(n1-n3)
som1 = (z1+z2+z3+z4)
If som1=90 Then
ruote(1)= r1 : ruote(2)= r2:ruote(3)=11
co=co+1 : Scrivi String(62,"=")&" Caso n°"& Format2(co),1
Scrivi "IL VINCOLO DIFFERENZIALE 90 - FABARRI Il Calcolo vincitore n° 5 del 1963-"
Scrivi " LISTATO BY FEDERICO53 -": Scrivi
Scrivi DataEstrazione(es)&" "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&" --> "& Format2(n1)&"."&format2(n2)&" "
Scrivi DataEstrazione(es)&" "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&" --> "& Format2(n3)&"."&format2(n4)&" "
Scrivi
Scrivi "DIFFERENZE "&format2(z1)& " + "&format2(z2)& " + "&format2(z3)& " + "&format2(z4)&" = " &" SOMMA "&format2(som1)&" "
Scrivi
lg(1)=n1:lg(2)=n4
la(1)=n3:la(2)=n4
lb(1)=n2:lb(2)=n4
lc(1)=n1:lc(2)=n2
ld(1)=n2:ld(2)=n3
ImpostaGiocata 1,lg,ruote,posta,k
ImpostaGiocata 2,la,ruote,posta,k
ImpostaGiocata 3,lb,ruote,posta,k
ImpostaGiocata 4,lc,ruote,posta,k
ImpostaGiocata 5,ld,ruote,posta,k
Gioca es
End If
'End If
Next
Next
Next
Next
'Next
scrivi:scrivi:scriviresoconto
Scrivi "-------------> IL VINCOLO DIFFERENZIALE 90 - FABARRI Il Calcolo vincitore n° 5 del 1963-",1
Scrivi "-----------------------------------> listato by Federico53",1
End Sub
|
