'Chiesto da Chicco3 versione 2
'METODO:- trovare in 1 o in 5 posizione di bari-Venezia e Nazionale uno zerato.
'ESEMPIO:- estraz.16.6.2018 quinto Estratto di venezia nr.80 In trasversale
'si calcola con il 1 Estratto di bari sommando e sottraendolo il risultato
'In questo caso è 18-52 AMBATE x accoppiamento vertibili 81 e 25 sulla ruota
'di BA/VE X 5 COLPI. Ovviamente questo è un esempio dell'ultima estrazione,
'ma se riscontriamo sia a venezia, nazionale il 1 estratto è un zerato si calcola
'con il 5 di bari. Ovviamente lo zerato puo esserci anche su bari in 1 e 5 posizione
'e si fanno le stesse operazioni di prima sempre intrasversale. In quest'ultimo
'se si trovano gli zerati a BARI il calcolo si fa solo su questa ruota e quella
'di venezia e non la Nazionale e le ruote da mettere in gioco sono quelle di rilevamento.
'script by Salvo50
Option Explicit
Sub Main
Dim Fin,Es,Ini,R1,R2,R3,Clp1,Clp2
Dim S1,S2,S3,S4,S5,S6,D1,D2,D3,D4,D5,D6
Dim VS1,VS2,VS3,VS4,VS5,VS6,VD1,VD2,VD3,VD4,VD5,VD6
Dim BA1,BA5,VE1,VE5,NZ1,NZ5,Ruo1(2),Ruo2(2)
Dim CBA1,CBA5,CVE1,CVE5,CNZ1,CNZ5
Dim Amb1a(2),amb1b(4),Amb2a(2),amb2b(4)
Dim Amb3a(2),amb3b(4),Amb4a(2),amb4b(4)
Dim Amb5a(2),amb5b(4),Amb6a(2),amb6b(4)
Dim Post1(1) : Post1(1) = 1
Dim Post2(4) : Post2(2) = 1 : Post2(3) = 1
Clp1 = 4
Clp2 = 10
Call ScegliRange(Ini,Fin,9450,EstrazioneFin)
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
R1 = BA_ : R2 = VE_ : R3 = NZ_
Ruo1(1) = R1 : Ruo1(2) = R2 : Ruo2(1) = R1 : Ruo2(2) = R3
BA1 = Estratto(Es,R1,1) : BA5 = Estratto(Es,R1,5)
VE1 = Estratto(Es,R2,1) : VE5 = Estratto(Es,R2,5)
NZ1 = Estratto(Es,R3,1) : NZ5 = Estratto(Es,R3,5)
'
CBA1 = Cadenza(BA1) : CBA5 = Cadenza(BA5)
CVE1 = Cadenza(VE1) : CVE5 = Cadenza(VE5)
CNZ1 = Cadenza(NZ1) : CNZ5 = Cadenza(NZ5)
If CBA1 = 0 Or CBA5 = 0 Or CVE1 = 0 Or CVE5 = 0 Or CNZ1 = 0 Or CNZ5 = 0 Then
'
ColoreTesto 1
Scrivi String(89,"-") & " Estrazione " & FormattaStringa(Es,"0000")
ColoreTesto 0
If CBA1 = 0 Or CBA5 = 0 Then
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
Scrivi
If CBA1 = 0 Then
S1 = Fuori90(BA1 + VE5)
D1 = Differenza (BA1,VE5)
VS1 = Vert(S1)
VD1 = Vert(D1)
Amb1a(1) = S1 : Amb1a(2) = D1
ImpostaGiocata 1,Amb1a,Ruo1,Post1,Clp1
amb1b(1) = S1 : amb1b(2) = D1
amb1b(3) = VS1 : amb1b(4) = VD1
ImpostaGiocata 2,amb1b,Ruo1,Post2,Clp2
Gioca Es
End If
'
If CBA5 = 0 Then
S2 = Fuori90(BA5 + VE1)
D2 = Differenza (BA5,VE1)
VS2 = Vert(S2)
VD2 = Vert(D2)
'------------------------------------
Amb2a(1) = S2 : Amb2a(2) = D2
ImpostaGiocata 3,Amb2a,Ruo1,Post1,Clp1
amb2b(1) = S2 : amb2b(2) = D2
amb2b(3) = VS2 : amb2b(4) = VD2
ImpostaGiocata 4,amb2b,Ruo1,Post2,Clp2
Gioca Es
End If
End If
If CVE1 = 0 Or CVE5 = 0 Then
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
Scrivi
If CVE1 = 0 Then
S3 = Fuori90(VE1 + BA5)
D3 = Differenza (VE1,BA5)
VS3 = Vert(S3)
VD3 = Vert(D3)
Amb3a(1) = S3 : Amb3a(2) = D3
ImpostaGiocata 5,Amb3a,Ruo1,Post1,Clp1
amb3b(1) = S3 : amb3b(2) = D3
amb3b(3) = VS3 : amb3b(4) = VD3
ImpostaGiocata 6,amb3b,Ruo1,Post2,Clp2
Gioca Es
End If
'
If CVE5 = 0 Then
S4 = Fuori90(VE5 + BA1)
D4 = Differenza(VE5,BA1)
VS4 = Vert(S4)
VD4 = Vert(D4)
Amb4a(1) = S4 : Amb4a(2) = D4
ImpostaGiocata 7,Amb4a,Ruo1,Post1,Clp1
amb4b(1) = S4 : amb4b(2) = D4
amb4b(3) = VS4 : amb4b(4) = VD4
ImpostaGiocata 8,amb4b,Ruo1,Post2,Clp2
Gioca Es
End If
End If
If CNZ1 = 0 Or CNZ5 = 0 Then
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " " & StringaEstratti(Es,R3),1
Scrivi
If CNZ1 = 0 Then
S5 = Fuori90(NZ1 + BA5)
D5 = Differenza(NZ1,BA5)
VS5 = Vert(S5)
VD5 = Vert(D5)
Amb5a(1) = S5 : Amb5a(2) = D5
ImpostaGiocata 9,Amb5a,Ruo2,Post1,Clp1
amb5b(1) = S5 : amb5b(2) = D5
amb5b(3) = VS5 : amb5b(4) = VD5
ImpostaGiocata 10,amb5b,Ruo2,Post2,Clp2
Gioca Es
End If
'
If CNZ5 = 0 Then
S6 = Fuori90(NZ5 + BA1)
D6 = Differenza (NZ5,BA1)
VS6 = Vert(S6)
VD6 = Vert(D6)
Amb6a(1) = S6 : Amb6a(2) = D6
ImpostaGiocata 11,Amb6a,Ruo2,Post1,Clp1
amb6b(1) = S6 : amb6b(2) = D6
amb6b(3) = VS6 : amb6b(4) = VD6
ImpostaGiocata 12,amb6b,Ruo2,Post2,Clp2
Gioca Es
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
