Sub Main()
Dim ruota(2),ruote(1)
Dim amb(1),lg(5)
Dim posta(1),poste1(3)
posta(1) = 1
poste1(2) = 1.50:poste1(3) = .50
Scrivi
Scrivi String(35," ") & "********* DUE AMBI DI STESSA DISTANZA MATEMATICA ******",1
Scrivi String(45," ") & "******* SU DUE RUOTE DI D. MANNA & FABARRI ******",1
ColoreTesto 2
Scrivi
Scrivi String(45," ") & "Forum Ambolotto_by Enplein ",1
ColoreTesto 1
Scrivi
Scrivi String(70,"*") & _
"listato da Enplein",1
ColoreTesto 0
t = 0
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
For r1 = 1 To 10
For p1 = 1 To 4 : p2 = p1 + 1
a1 = Estratto(es,r1,p1)
a2 = Estratto(es,r1,p2)
d1 = Distanza(a1,a2)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
b1 = Estratto(es,r2,p1):b2 = Estratto(es,r2,p2)
d2 = Distanza(b1,b2)
If(d1 = d2) And a1 <> b1 And a1 <> b2 And a2 <> b1 And a2 <> b2 Then
'Operazioni
n1 = Fuori90(Figura(a1) & Cadenza(a1)):n2 = Fuori90(Figura(a2) & Cadenza(a2))
n3 = Fuori90(Figura(b1) & Cadenza(b1)):n4 = Fuori90(Figura(b2) & Cadenza(b2))
dd1 = Distanza(n1,n2)
dd2 = Distanza(n3,n4)
If dd1 = dd2 Then
amb(1) = d1
lg(1) = d1:lg(2) = n1:lg(3) = n2:lg(4) = n3:lg(5) = n4
ruota(1) = r1:ruota(2) = r2 : ruote(1) = 11
t = t + 1
Scrivi"---------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" [" & Format2(a1) & "." & Format2(a2) & "]" & " Dist. " & Format2(d1) & " Pos. " & p1 & "^ " & p2 & "^ " & _
" Trasf. " & Format2(n1) & "." & Format2(n2) & " Dist. " & Format2(dd1) & Chr(10) & _
DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" [" & Format2(b1) & "." & Format2(b2) & "]" & " Dist. " & Format2(d2) & " Pos. " & p1 & "^ " & p2 & "^ " & _
" Trasf. " & Format2(n3) & "." & Format2(n4) & " Dist. " & Format2(dd2),1
Scrivi"------------------------------------------------------------------------------Giocata n°" & Format2(t)
ImpostaGiocata 1,amb,ruota,posta,12,1
ImpostaGiocata 2,lg,ruota,poste1,12,2
Gioca es
End If
End If
Next
Next
Next
Next
ScriviResoconto 1
ScriviResoconto
End Sub
|
|
AMBI TRASFORMATI
Spedito - 05 giugno 2015 : 06:48:17
