| 'Uscendo solo 1 ambo 11.75, il terno 458.25 la QUATERNA_ che qui non c'è 1.762.50
'Sean69 oggi voglio proporre 3 Quartine su Tutte per ambo e terno.
'Per l'amico Sean69
'Eseguito Luigi53
Sub main()
Dim estrazione_estrazione,estrazione
Dim numeri
Dim ruote
Dim poste
Dim Estr
'Ruote su cui controllare gli esiti del programma
ruote = Array(0,11) '11 sta per tutte le ruore
'Impostazione della giocata in € 1.0 per Ambata e € 1,0 per Ambo
poste = Array(0,0.0,3.0,2.0) '€ 3.00 per Ambo e € 2.00 per terno su tutte
'Chiede all'utente quante estrazioni controllare
Estr=InputBox("Inserisci numero di estrazioni da controllare:")
'Algoritmo di calcolo
For estrazione = EstrazioneFin - Estr To EstrazioneFin
If IndiceMensile(Estrazione) = 1 Then
Scrivi (DataEstrazione(estrazione))
n1 = 6
n2 = 17
n3 = 65
n4 = 87
n5 = 2
n6 = 45
n7 = 71
n8 = 83
n9 = 20
n10 = 29
n11 = 65
n12 = 90
Numeri = Array(0,n1,n2,n3,n4)
Numeri = Array(0,n5,n6,n7,n8)
Numeri = Array(0,n9,n10,n11,n12)
v1 = Array(0,n1,n2,n3,n4)
v2 = Array(0,n5,n6,n7,n8)
v3 = Array(0,n9,n10,n11,n12)
ImpostaGiocata 1,v1,ruote,poste,13,2,0
ImpostaGiocata 2,v2,ruote,poste,13,2,0
ImpostaGiocata 3,v3,ruote,poste,13,2,0
Gioca estrazione
End If
Next
ScriviResoconto
End Sub
|
