Ultima su BA

Sub main()

Dim Ruote(10), ruote_ambate(2)
Dim Num_in_gioco (5), num_ambata(2)
Dim Poste(5), poste_ambata(2)

'Imposta gli importi delle giocate
'Poste(1)=1 'Posta per ambata
poste_ambata(1)=1
poste_ambata(2)=1

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

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

Ruote(3)=11 ' Tutte le ruote
'Ruote(4)=11 ' Ruota nazionale

' Imposta i colpi da giocare
NumColpi=12

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
' Scegliere la condizione temporale

'If IndiceMensile (estr_in_gioco)= 1 Then ' Condizione Prima estrazione del mese
'If IndiceMensile (estr_in_gioco)= x Then ' Condizione la X^ estrazione del mese
If IndiceMensile (estr_in_gioco+1)= 1 Or estr_in_gioco =estr_Fine Then ' Condizione l'ultima estrazione del mese

' inizio condizioni

Num_in_gioco(1)=Estratto (estr_in_gioco,BA_,2)
num_ambata(1)=Estratto (estr_in_gioco,BA_,2)
Num_in_gioco(2)=Estratto (estr_in_gioco,BA_,3)
num_ambata(2)=Estratto (estr_in_gioco,BA_,3)
Num_in_gioco(3)=38

Num_in_gioco(4)=80


'Num_in_gioco(5)= Vert (Num_in_gioco(2))


' impostazione giocata

ImpostaGiocata 1,num_ambata, BA_,Poste_ambate,NumColpi,2



ImpostaGiocata 2,Num_in_gioco,Ruote,Poste,NumColpi,5
Num_in_gioco(3)=32

Num_in_gioco(4)=47
ImpostaGiocata 3,Num_in_gioco,Ruote,Poste,NumColpi,5

Gioca estr_in_gioco

ImpostaGiocata 4,Num_in_gioco,12,Poste,NumColpi,5
Gioca estr_in_gioco

End If
Next
ScriviResoconto
End Sub