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
'Verificare output
Dim idestr,Ini
Dim Ruota,N1,N2
Dim colpi
Dim aRuota(1),aPosta(2)
Dim aPro1(3)
Dim aPro2(3)
Dim aPro3(3)
Dim aPro4(3)
Ini = 4965
Ruota = FI_
N1 = 34
N2 = 39
colpi = 18
aRuota(1) = Ruota
aPosta(2) = 1
'''''''''''''''''''''
aPro1(1) = 2
aPro1(2) = 52
aPro1(3) = 61
'''''''''''''''''''''
aPro4(1) = 10
aPro4(2) = 15
aPro4(3) = 45
'''''''''''''''''''''
aPro3(1) = 10
aPro3(2) = 45
aPro3(3) = 73
'''''''''''''''''''''
aPro2(1) = 36
aPro2(2) = 48
aPro2(3) = 61
'''''''''''''''''''''
For idestr = Ini To EstrazioneFin
Messaggio "Sto calcolando il concorso num: " & idestr
AvanzamentoElab Ini,EstrazioneFin,idestr
If Ambo(idestr,Ruota,N1,N2) Then 'Scrivi idestr
Call ImpostaGiocata(1,aPro1,aRuota,aPosta,colpi,2)
Call ImpostaGiocata(2,aPro2,aRuota,aPosta,colpi,2)
Call ImpostaGiocata(3,aPro3,aRuota,aPosta,colpi,2)
Call ImpostaGiocata(4,aPro4,aRuota,aPosta,colpi,2)
Call Gioca(idestr,1)
Call GetSep
End If
Next
Call ScriviResoconto
End Sub
Function Ambo(idEstr,Ruota,N1,N2)
Dim bRet
If Posizione(idEstr,Ruota,N1) > 0 And Posizione(idEstr,Ruota,N2) > 0 Then
bRet = True
Else
bRet = False
End If
Ambo = bRet
End Function
Sub GetSep
Scrivi
Scrivi "******************************************"
Scrivi "******************************************"
Scrivi "******************************************"
Scrivi
End Sub