Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Option Explicit
Sub Main
Dim Fin,Clp,Ini,Es,R1,R2,R3,R4,R5,Caso,Casi
Dim A1,A3,A5,A,B,C,Ind_Me,P1,E1
Dim Ru1(1),Ru2(5),Ru3(3)
Dim Posta(1),Post2(2),Post3(3)
Dim Amba(1),Ambo1(2),Ambo2(2),Terno(3)
Posta(1) = 1
Post2(2) = 1
Post3(2) = 1
Post3(3) = 1
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9600)
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,14))
Ind_Me = CInt(InputBox("Inserisci il numero dell'indice mensile",,3))
Scrivi Space(6) & " Chiesto da Alien Metodo di Donatella - Script Salvo50",1,,4,,3,,1
Call ScegliRange(Ini,Fin,Ini,Fin)
R1 = BA_
R2 = CA_
R3 = VE_
R4 = NZ_
R5 = TT_
Ru1(1) = R1
Ru2(1) = R1 : Ru2(2) = R2 : Ru2(3) = R3 : Ru2(4) = R4 : Ru2(5) = R5
Ru3(1) = R3 : Ru3(2) = R5
For Es = Ini To Fin
Caso = 0
If IndiceMensile(Es) = Ind_Me Then
AvanzamentoElab Ini,Fin,Es
A1 = Estratto(Es,R1,1)
A3 = Estratto(Es,R1,3)
A5 = Estratto(Es,R1,5)
A = Differenza(A1,A3)
B = Fuori90(A3 + A5)
If B = 90 Then B = Vert(B)
If A = B Then A = DiametraleD(A)
C = Fuori90(A + B)
Casi = Casi + 1
Caso = Caso + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P1 = 1 To 5
E1 = Estratto(Es,R1,P1)
If E1 = A1 Or E1 = A3 Or E1 = A5 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " Indice Mensile Scelto " & Ind_Me,1,,,1
Scrivi
Scrivi " Elemento A " & Format2(A) & " = Differenza tra " & Format2(A1) & " e " & Format2(A3),1
Scrivi " Elemento B " & Format2(B) & " = Somma " & Format2(A3) & " + " & Format2(A5),1
Scrivi " L'Ambata " & Format2(C) & " = Somma " & Format2(A) & " + " & Format2(B),1
Amba(1) = C
ImpostaGiocata 1,Amba,Ru1,Posta,Clp
Ambo1(1) = C : Ambo1(2) = A
ImpostaGiocata 2,Ambo1,Ru2,Post2,Clp
Ambo2(1) = C : Ambo2(2) = B
ImpostaGiocata 3,Ambo2,Ru2,Post2,Clp
Terno(1) = A : Terno(2) = B : Terno(3) = C
ImpostaGiocata 4,Terno,Ru3,Post3,Clp
Gioca Es,1
End If
Next
ScriviResoconto
End Sub