Alla 5^ estrazione del mese su CA e Na

Sub main()

Dim Ruote(10)
Dim Num_in_gioco (5), Num_Ambata(1)
Dim Poste(5), Posta_Ambata(10)


'Imposta gli importi delle giocate
posta_ambata(1)=1

'Poste(1)=1 'Posta per ambata
Poste(2)=3 'Posta per ambo
Poste(3)=1 'Posta per terno
Poste(4)=.5 'Posta per Quaterna
poste(5)=.5 'Posta per cinquina
'Imposta le ruote di gioco

Ruote(1)=2
Ruote(2)=6


' Imposta i colpi da giocare
NumColpi=9

Estr_ini=EstrazioneFin -500 'Imposta controllo per estrazione iniziale
Estr_Fine=EstrazioneFin

' inizio del ciclo di controllo

For estr_in_gioco=Estr_ini To Estr_Fine

If IndiceMensile (estr_in_gioco)= 5 Then ' Condizione la X^ estrazione del mese

' inizio condizioni
num_ambata(1)=Fuori90 (Estratto (estr_in_gioco,PA_,1)+Estratto (estr_in_gioco,TO_,1)+70)




Num_in_gioco(1)=num_ambata(1)

Num_in_gioco(2)=Fuori90 (Estratto (estr_in_gioco,MI_,1)*Estratto (estr_in_gioco,RO_,2)+34)

Num_in_gioco(3)=Fuori90 (Estratto (estr_in_gioco,GE_,4)+Estratto (estr_in_gioco,MI_,2)+9)


Num_in_gioco(4)=Fuori90 (Estratto (estr_in_gioco,FI_,2)+Estratto (estr_in_gioco,RO_,4)+71)



Num_in_gioco(5)= Fuori90 (Estratto (estr_in_gioco,NA_,1)*Estratto (estr_in_gioco,VE_,4)+87)



' impostazione giocata
ImpostaGiocata 1,Num_Ambata,Ruote,Posta_Ambata,NumColpi,1


Gioca estr_in_gioco
ImpostaGiocata 2,Num_in_gioco,Ruote,Poste,NumColpi,3
Gioca estr_in_gioco

End If
Next
ScriviResoconto
End Sub