Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
Dim DiM3M1,DiM3M2,DiM4M1,DiM4M2
Dim Diam_V1,Diam_D1,Diam_D2
Dim Ruo1(1),Ruo2(1),Ruo3(1),Ruo4(1),Ruo5(1),Ruo6(1)
Dim Ruo7(1),Ruo8(1),Ruo9(1),Ruo10(1),Ruo11(1)
Dim Po1(5),M(4),Esa(6)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9690))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,12))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(11) & " Per Giorgio1960 - Due Ruote Ambi Distanza 45 - SCRIPT SALVO50" & Space(11),1,,4,,3,,1
Po1(2) = 1
Po1(3) = 1
'Po1(4) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If A > 0 Then
If Distanza(A,B) = 45 Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If C > 0 Then
If Distanza(C,D) = 45 Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
'M3--M4
'| |
'M1--M2
DiM3M1 = Differenza(M(3),M(1))
DiM3M2 = Differenza(M(3),M(2))
DiM4M1 = Differenza(M(4),M(1))
DiM4M2 = Differenza(M(4),M(2))
Diam_V1 = Diametrale(DiM3M1)
Diam_D1 = Diametrale(DiM3M2)
Diam_D2 = Diametrale(DiM4M1)
Esa(1) = DiM3M1 : Esa(2) = DiM3M2 : Esa(3) = DiM4M1
Esa(4) = Diam_V1 : Esa(5) = Diam_D1 : Esa(6) = Diam_D2
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Distanza 45",1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Distanza 45",1
Scrivi
Scrivi Space(4) & "Maggiori Sopra " & Space(9) & "Differenze " & Space(5) & " Differenze",1
Scrivi Space(5) & "Minori sotto " & Space(9) & " Verticali " & Space(7) & "Diagonali",1
Scrivi Space(8) & Format2(M(3)) & " " & Format2(M(4)) & Space(19),1,0
Scrivi Format2(DiM3M1) & Space(14) & Format2(DiM3M2),1
Scrivi Space(8) & Format2(M(1)) & " " & Format2(M(2)) & Space(19),1,0
Scrivi Format2(DiM4M2) & Space(14) & Format2(DiM4M1),1
Scrivi
Scrivi Space(20) & " Diametrale " & Format2(DiM3M1) & " Uguale " & Format2(Diam_V1),1
Scrivi Space(20) & " Diametrale " & Format2(DiM3M2) & " Uguale " & Format2(Diam_D1),1
Scrivi Space(20) & " Diametrale " & Format2(DiM4M1) & " Uguale " & Format2(Diam_D2),1
Scrivi
Scrivi Space(14) & " Pronostico Sestina " & StringaNumeri(Esa," ",True),1
Scrivi
Ruo1(1) = BA_ : Ruo2(1) = CA_ : Ruo3(1) = FI_ : Ruo4(1) = GE_ : Ruo5(1) = MI_: Ruo6(1) = NA_
Ruo7(1) = PA_ : Ruo8(1) = RO_ : Ruo9(1) = TO_ : Ruo10(1) = VE_ : Ruo11(1) = NZ_
ImpostaGiocata 1,Esa,Ruo1,Po1,Clp
ImpostaGiocata 2,Esa,Ruo2,Po1,Clp
ImpostaGiocata 3,Esa,Ruo3,Po1,Clp
ImpostaGiocata 4,Esa,Ruo4,Po1,Clp
ImpostaGiocata 5,Esa,Ruo5,Po1,Clp
ImpostaGiocata 6,Esa,Ruo6,Po1,Clp
ImpostaGiocata 7,Esa,Ruo7,Po1,Clp
ImpostaGiocata 8,Esa,Ruo8,Po1,Clp
ImpostaGiocata 9,Esa,Ruo9,Po1,Clp
ImpostaGiocata 10,Esa,Ruo10,Po1,Clp
ImpostaGiocata 11,Esa,Ruo11,Po1,Clp
Gioca Es,1
End If
End If
Next
Next
Next
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
