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.
Certo Non Ho Problemi, Ti Ringrazio anche Io.
Ecco, guarda se Ti va bene.. io ho messo per 17 colpi, ma si può cambiare..
Sub Main
'Metodo Ambata Determinata - Su Bari - (Ultima del mese) by Xeroxs 2° 3° e 4° posizione
ColoreTesto 2 :Scrivi String(37,32) & "Ambata Determinata - Su Bari - by Xeroxs ",1
Scrivi
Dim nu(1),R(12),n(6)
Dim ini,fin,posta(1)
posta(1) = 1
ini = EstrazioneFin - 300
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
If IsUltimaDelMese(es) Then
'If IndiceMensile(es) = 1 Then
a = Estratto(es,4,2)
b = Estratto(es,9,5)
c = Estratto(es,1,1)
d = Fuori90(((a + b) - c) + 88)
'***
nu(1) = d
'***
R(1) = 1:R(2) = 6
'***
ImpostaGiocata 1,nu,R,posta,17
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
'End If
End If
Next
ScriviResoconto
End Sub