CODICE
'Somma Diabolica (Manara)
Sub main()
Dim num(2),numeri(2),numeri1(2),numeri2(2),numeri3(5)
Dim post(1),poste(2),posta(4),ruote(10),ruot(2)
post(1)=1
poste(2)=1
posta(2)=1 : posta(3)=1 : posta(4)=1
tmp=InputBox("Quante estrazioni controllo?",,17)
x=InputBox("Per quante estrazioni deve durare il gioco?",,14)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
AvanzamentoElab ini,fin,es
For r=1 To 9
ruote(1)=r
For r1=r+1 To 10
ruote(2)=r1
For p= 1 To 4
For p1=p+1 To 5
a=Estratto (es,r,p) : b=Estratto (es,r,p1)
c=Estratto (es,r1,p) : d=Estratto (es,r1,p1)
a1=Fuori90(a+b) : a2=Fuori90(c+d)
If a2=a1 Then
ColoreTesto 1
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),2)&" "&_
StringaEstratti(es,r) &" -> "&Format2(a)&"."&Format2(b)
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r1),2)&" "&_
StringaEstratti(es,r1) &" -> "&Format2(c)&"."&Format2(d)
ColoreTesto 0
b1=Eval(a&b) : b2=Eval(c&d) : b3=Fuori90(b1+b2) : b4=90-b3
b5=Diametrale(b4)
num(1)=d
ImpostaGiocata 1,num,ruote,post,x
numeri(1)=d : numeri(2)=b3
ImpostaGiocata 2,numeri,ruote,poste,x
numeri1(1)=d : numeri1(2)=b4
ImpostaGiocata 3,numeri1,ruote,poste,x
numeri2(1)=d : numeri2(2)=b5
ImpostaGiocata 4,numeri2,ruote,poste,x
numeri3(1)=d : numeri3(2)=b3
numeri3(3)=b4 : numeri3(4)=b5
ImpostaGiocata 5,numeri3,ruote,posta,x
ruot(1)=11:ruot(2)=12
ImpostaGiocata 6,numeri3,ruot,posta,x
Gioca es
Scrivi String (65,"*")
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
