Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
Buongiorno, prov con quest
Sub Main()
Dim ruff(3), posta(5)
Dim num(5)
Dim ini, fin, es, clp
' Definizione delle ruote di gioco (BA=1, CA=2, FI=3)
ruff(1) = 1
ruff(2) = 2
ruff(3) = 3
' Configurazione delle poste (1 = Ambata, 2 = Ambo, 3 = Terno, ecc.)...
qui puoi sceglier quante estrazioni giocare
' =====================================================================
' SISTEMA A 8 NUMERI (OTTINA) - L8+
'
' METODO:
' - individua automaticamente la 10a estrazione di ogni mese
' - dal mese/anno iniziale scelto fino all'ultima estrazione...
Ciao, mi sono permesso di tradurlo in script con la AI
non saprei che dire
'=============================================================
' OTTINA - 10a ESTRAZIONE MENSILE
'
' RUOTA: CAGLIARI
'
' GIOCATE:
' 1° numero dell'ottina = ESTRATTO
' 8 numeri = TERNO
' 8 numeri...