| 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 - 05 marzo 2015 : 14:57:03
Sub Main()
Scrivi "Somma Diabolica di Osvaldo Manara",1
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?",,10)
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 |
|
|
