Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,MIn
Dim R1,Es1,Es2,Casi,SoC1,SoC2,Max
Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12
Dim FIn,Ini,Equ2,Equ3,S11a
Dim Salvo50,FInx,Equ1,Clp
Dim Ins1,Ins2,Ins3,X,X2,X3
Dim Ambo(2),Ruo(2),Poste(2)
Poste(2) = 1
FIn = EstrazioneFin
FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,10300)
Ins1 = InputBox("Se vuoi includere la prima equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Ins2 = InputBox("Se vuoi includere la seconda equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Ins3 = InputBox("Se vuoi includere la terza equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Clp = InputBox("Quanti colpi di gioco? ",Salvo50,13)
Scrivi Space(8) & " Modifica al Metodo Byron Chiesto da Everita C - SCRIPT SALVO50",1,,4,,3,,1
For Es1 = FInx To Ini Step - 1
AvanzamentoElab FIn,Ini,Es1
For Es2 = FInx To Ini Step - 1
Messaggio " Prima Estrazione " & Es1 & " Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
If(Es1 <> Es2) And(Es2 < Es1) Then
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
B1 = Estratto(Es1,R1,1)
If B1 > 0 Then
B2 = Estratto(Es1,R1,2)
B3 = Estratto(Es1,R1,3)
B4 = Estratto(Es1,R1,4)
B5 = Estratto(Es1,R1,5)
SoC1 = Fuori90(B1 + B2 + B3 + B4 + B5)
A1 = Estratto(Es2,R1,3)
If A1 > 0 Then
A2 = Estratto(Es2,R1,2)
A3 = Estratto(Es2,R1,1)
A4 = Estratto(Es2,R1,4)
A5 = Estratto(Es2,R1,5)
SoC2 = Fuori90(A1 + A2 + A3 + A4 + A5)
'-----------------------------------------
If SoC1 = Diametrale(SoC2) Then
S1 = Fuori90(A1 + A2 + A3 + A4 + A5)
S2 = Fuori90(A2 + A3 + A4 + A5 + B1)
S3 = Fuori90(A3 + A4 + A5 + B1 + B2)
S4 = Fuori90(A4 + A5 + B1 + B2 + B3)
S5 = Fuori90(A5 + B1 + B2 + B3 + B4)
S6 = Fuori90(B1 + B2 + B3 + B4 + B5)
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(S1 - S2))
D8 = Fuori90(90 +(S2 - S3))
D9 = Fuori90(90 +(S3 - S4))
D10 = Fuori90(90 +(S4 - S5))
D11 = Fuori90(90 +(S5 - S6))
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11) 'somma distanze
' Ambata = Fuori90(S10 + B1)
S7 = Fuori90(B2 + B3 + B4 + B5)'SOMMA della settima colonna
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)'somma delle 6 colonne
S11a = Fuori90(S11 + S7) 'somma delle 7 colonne
S12 = Fuori90(S11 + S10)'somma delle differenze + le 6 somme
Equ1 = S12 'equazione 1
Equ2 = Fuori90(SoC1 + A1)
Equ3 = Fuori90(A1 + SoC1)
MIn = Minimo(B4,B5)
Max = Massimo(B4,B5)
If S12 <> 90 Then
X = 90 - S12
B4 = Fuori90(MIn + X)
B5 = Fuori90((90 + Max) - X)
S5 = Fuori90(A5 + B1 + B2 + B3 + B4)
S6 = Fuori90(B1 + B2 + B3 + B4 + B5)
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)'somma delle 6 colonne
S12 = Fuori90(S11 + S10)'somma delle differenze + le 6 somme
Equ1 = S12 'equazione 1
End If
Ambo(1) = Fuori90(S10 + B1)
X3 = Fuori90(S5 + S6)
Ambo(2) = 90 - X3
If((Ins1 = 1 And Equ1 = 90)Or(Ins1 <> 1))And((Ins2 = 1 And Equ2 = 90)Or(Ins2 <> 1)) _
And((Ins3 = 1 And Equ3 = 90)Or(Ins3 <> 1)) Then
If Ambo(1) <> Ambo(2) Then
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi(" Estrazione n." & FormattaStringa(Es2,"0000") & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & " Somma = " & Format2(SoC2),1
Scrivi(" Estrazione n." & FormattaStringa(Es1,"0000") & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1
Scrivi
Scrivi Space(11) & "Distanze " & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
Scrivi " " & Format2(D5) & " " & Format2(D6),1
Scrivi Space(20) & String(20,"-")
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
Scrivi Format2(S10),1,,,1
Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
Scrivi " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " - Somma delle somme ",1,0
Scrivi Format2(S11),1,,,1
Scrivi Space(20) & String(20,"-")
Scrivi Space(7) & " - Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1' & " - Somma 7ª colonna ",1
Scrivi
Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(Equ1) & " 1ª Equazione ",1
Scrivi Space(20) & Format2(SoC1) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione ",1
Scrivi Space(20) & Format2(A1) & " + " & Format2(SoC1) & " = " & Format2(Equ3) & " 3ª Equazione ",1
Scrivi
Scrivi Space(20) & Format2(S10) & " + " & Format2(B1) & " = " & Format2(Ambo(1)),1,0
Scrivi Space(2) & " Primo futuro pronosticato",1
Scrivi Space(20) & Format2(S5) & " + " & Format2(S6) & " = " & Format2(X3),1
Scrivi Space(20) & 90 & " - " & Format2(X3) & " = " & Format2(Ambo(2)),1,0
Scrivi Space(2) & " Secondo futuro pronosticato",1
Scrivi
Ruo(1) = R1 : Ruo(2) = TT_
ImpostaGiocata 1,Ambo,Ruo,Poste,Clp
Gioca Es1,1
'---------------------------------------------------------------------------------------------------
' If Ok = 1 Then Exit Sub
End If
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
If ScriptInterrotto Then Exit Sub
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub