'PROGETTO - UN'AMBATA ED UN TRIAMBO - BY FABARRI
'SCRIPT - BY SALVO50
Option Explicit
Sub Main
Dim fin,es,esq,clp,col,esqcol,idestr,clp2
Dim posta(1),poste(2),ruota(2),ruote(1),num(1),nut(3)
Dim p1,p2,p3,r1,r2,caso,casi
Dim estra,estrb,estrc
Dim d1,d2,d3,dm1,dm2,dm3
Dim dm1x2,dm2x2,dm3x2
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9400)
clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,7)
clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo per tutte le ruote?",,8)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,fin))
posta(1) = 1
poste(2) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
Messaggio es
AvanzamentoElab esq,esqcol,es
caso = 0
For r1 = 1 To 9
For p1 = 1 To 5
estra = Estratto(es,r1,p1)
r2 = r1 + 1
For p2 = 1 To 4
For p3 = p2 + 1 To 5
estrb = Estratto(es,r2,p2)
estrc = Estratto(es,r2,p3)
d1 = Distanza(estra,estrb)
d2 = Distanza(estra,estrc)
d3 = Distanza(estrb,estrc)
If d1 =(d2 + d3) Or d2 =(d1 + d3) Or d3 =(d1 + d2) Then
If d1 > d2 And d1 > d3 Then dm1 = d1
If d2 > d1 And d2 > d3 Then dm1 = d2
If d3 > d1 And d3 > d2 Then dm1 = d3
If dm1 = d1 Then dm2 = d2 : dm3 = d3
If dm1 = d2 Then dm2 = d1 : dm3 = d3
If dm1 = d3 Then dm2 = d1 : dm3 = d2
dm1x2 = dm1 * 2
dm2x2 = dm2 * 2
dm3x2 = dm3 * 2
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
ColoreTesto 2
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),2
ColoreTesto 0
Scrivi
Scrivi Space(15) & SiglaRuota(r1) & " " & Format2(estra)
Scrivi Space(15) & SiglaRuota(r2) & " " & Format2(estrb) & " " & Format2(estrc)
Scrivi
Scrivi " Distanza ciclometrica tra " & Format2(estra) & " e " & Format2(estrb) & " = " & Format2(d1)
Scrivi " Distanza ciclometrica tra " & Format2(estra) & " e " & Format2(estrc) & " = " & Format2(d2)
Scrivi " Distanza ciclometrica tra " & Format2(estrb) & " e " & Format2(estrc) & " = " & Format2(d3)
Scrivi " Distanza pił alta, somma delle 2 distanze minori = " & Format2(dm1)
Scrivi
ruota(1) = r1
ruota(2) = r2
ruote(1) = TU_
num(1) = dm1x2
ImpostaGiocata 1,num,ruota,posta,clp
nut(1) = dm1x2
nut(2) = dm2x2
nut(3) = dm3x2
ImpostaGiocata 2,nut,ruote,poste,clp2
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi Space(50) & "PROGETTO - UN'AMBATA ED UN TRIAMBO - BY FABARRI"
Scrivi Space(50) & "SCRIPT - BY SALVO50"
End Sub
