Sub Main
Dim Nu(3),aN(1),Ru(1),Ru2(1),Num(4),ambata(1),ambo1(2),ambo2(2),ambo3(3),Ruote(2),Corde(4),Posta(1),poste(2)
Posta(1) = 1 : poste(2) = 1
Ini = 9548'EstrazioneFin - 100
fin = EstrazioneFin
ResetTimer
Scrivi "*** Work In Progress **** Triangolo Scaleno *** Script By Mike58 " & Chr(174) & " *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
For es = Ini To fin
For r1 = 1 To 10
For P1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
For r2 = 1 To 10
For p4 = 1 To 5
d = Estratto(es,r2,p4)
If r1 <> r2 Then
If p1 = p4 Or p2 = p4 Or p3 = p4 Then
If Figura(a) = Figura(d) And Figura(b) = Figura(d) And Figura(c) = Figura(d) Then
If Figura(a) = Figura(b) And Figura(a) = Figura(c) And Figura(b) = Figura(c) Then
Nu(1) = a : Nu(2) = b : Nu(3) = c : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = d
Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
If Num(1) <> Num(4) And Num(2) <> Num(4) And Num(3) <> Num(4) Then
Call OrdinaMatrice(Num,1,1)
Corde(1) = Diametrale(Num(3)) 'Num(3)-Num(1) ' 18
Corde(2) = Fuori90(Corde(1) + 18) 'Num(4)-Num(1) ' 45
Corde(3) = Fuori90(Corde(1) + 9) 'Num(4)-Num(3) ' 27
Corde(4) =(Num(3))
If Differenza(Num(1),Num(3)) = 18 And Differenza(Num(3),Num(4)) = 27 And Differenza(Num(1),Num(4)) = 45 Then
k = k + 1
Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
Call AvanzamentoElab(Ini,fin,es)
Ruote(1) = r1
Ruote(2) = r2
ambata(1) = Diametrale(Num(3))
ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 18)
ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 9)
ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
ReDim MatCasella(4,1)
MatCasella(1,0) = r1' ruota
MatCasella(1,1) = p1
MatCasella(2,0) = r1
MatCasella(2,1) = p2
MatCasella(3,0) = r1
MatCasella(3,1) = p3
MatCasella(4,0) = r2
MatCasella(4,1) = p4
Scrivi String(150,"=") & " Caso N." & k,1
Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2 & p3
Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(15) & p4
Scrivi
Call DisegnaEstrazione(es,MatCasella,,vbBlue)
Call DisegnaCerchioCiclometrico(Num,True,True,False,,True,True,True)
Scrivi "Figura Rovesciata",1
Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)
Scrivi
'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
'If esitoA <> "" Then
'Scrivi esA & " Colpo... " & clpA
'Else
'Scrivi "Negativo"
'End If
'Scrivi "Ambo 1 " & StringaNumeri(ambo1) & vbTab,1,0
'If esitoB <> "" Then
'Scrivi esB & " Colpo... " & clpB
'Else
'Scrivi "Negativo"
'End If
'Scrivi "Ambo 2 " & StringaNumeri(ambo2) & vbTab,1,0
'If esitoC <> "" Then
'Scrivi EsC & " Colpo... " & clpC
'Else
'Scrivi "Negativo"
'End If
ImpostaGiocata 1,ambata,Ruote,Posta,10,1
ImpostaGiocata 2,ambo1,Ruote,poste,10,2
ImpostaGiocata 3,ambo2,Ruote,poste,10,2
ImpostaGiocata 4,ambo3,Ruote,poste,10,2
Gioca es,1,,1
End If
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
ScriviResoconto
End Sub
