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 Caso,Casi,Es,R1,P1,P2,A,B,C,D
Dim Fin,Ini,Clp,E1
Dim Num1,Num2
Dim Ambo(2)
Dim Posta(2),Ruo(2)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10650)
Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo Numeri Divisori a 4 - Autore Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
Posta(2) = 1
ResetTimer
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
Messaggio Es & " " & TempoTrascorso
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 2 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P1 - 1)
If A > 9 And B > 3 Then
If A Mod 4 = 0 Then
C = B & A
D =(C / 4)
If D > 999 Then Num1 = Left(D,2)
If D <= 999 Then Num1 = Left(D,1)
Num2 = Fuori90(Right(D,2))
If Num1 <> Num2 Then
Ambo(1) = Num1 : Ambo(2) = Num2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then ColoreTesto 2
If E1 = B Then ColoreTesto 1
If E1 <> A And E1 <> B Then ColoreTesto 0
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(9) & Format2(B) & " unito a " & Format2(A) & " = " & Format2(C),1,0
Scrivi " / 4 = " & Format2(D),1
Scrivi
Ruo(1) = R1
Ruo(2) = TT_
ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
Gioca Es,,,1
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
Option Explicit
Sub Main
Dim Caso,Casi,Es,R1,P1,P2,A,B,C,D,R2
Dim Fin,Ini,Clp,E1
Dim Num1,Num2
Dim Ambo(2)
Dim Posta(2),Ruo(2)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,2611)
Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo Numeri Divisori a 4 - Autore Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
Posta(2) = 1
ResetTimer
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
Messaggio Es & " " & TempoTrascorso
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 2 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P1 - 1)
If A > 9 And B > 3 Then
If A Mod 4 = 0 Then
C = B & A
D =(C / 4)
If D > 999 Then Num1 = Left(D,2)
If D <= 999 Then Num1 = Left(D,1)
Num2 = Fuori90(Right(D,2))
If Num1 <> Num2 Then
Ambo(1) = Num1 : Ambo(2) = Num2
Caso = Caso + 1
Casi = Casi + 1
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = P1
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = P1-1
'MatriceCaselleDaEvid(3,0) = R2
'MatriceCaselleDaEvid(3,1) = P1
'MatriceCaselleDaEvid(4,0) = R2
'MatriceCaselleDaEvid(4,1) = P2
Call DisegnaEstrazione(Es,MatriceCaselleDaEvid)
ColoreTesto 1
Scrivi String(90,"·") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"·") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then ColoreTesto 2
If E1 = B Then ColoreTesto 1
If E1 <> A And E1 <> B Then ColoreTesto 0
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(9) & Format2(B) & " <> " & Format2(A) & " = " & Format2(C),1,0
Scrivi " / 4 = " & Format2(D),1
Scrivi
Ruo(1) = R1
Ruo(2) = TT_
ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
Gioca Es,,,1
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub