Un altro gioco : trattasi di giocare 3 numeri per la sorte di ambata e ambo per 4 estrazioni . Non prendiamo in esame gli indici mensili ma cicli di 4 estrazioni l'esempio si riferisce a un gioco su Cagliari
nei 10 cicli precedenti potrete constatare (non modificando niente del sottostante script!!) che si è andati sempre a segno con un minimo di un'ambata nel ciclo e 3 ambi siamo nell'undicesimo ciclo e al primo colpo niente restano 3 colpi per giocare la terzina Numeri in gioco : 03.12.13 su CA per Estratto,Ambo
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(10) ' i nr in gioco sono max 10
Dim pta(3) ' max tre tipi di puntate
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 0.50 'la puntata sul ((2) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,9897)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,2)
rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 4 ' i Kolpi in gioco sono 4
a = InputBox("La PRIMA ruota di ricerca ?",,5)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,1)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",79)
b = InputBox("La SECONDA ruota di ricerca ?",,2)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,2)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",68)
c = InputBox("La TERZA ruota di ricerca ?",,4)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,4)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",61)
For n = dal To EstrazioneFin Step 4 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 4 a cominciare dalla variabile " dal " ...+ 4.....+ 4 ecc fino alla fine
Scrivi "Ai 3 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa) & ")" & " aggiungeremo l' adattatore " & " " & aaa & " ottenendo " & Fuori90(Estratto(n,a,aa) + aaa)
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb) & ")" & " aggiungeremo l' adattatore " & " " & bbb & " ottenendo " & Fuori90(Estratto(n,b,bb) + bbb)
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc) & ")" & " aggiungeremo l' adattatore " & " " & ccc & " ottenendo " & Fuori90(Estratto(n,c,cc) + ccc)
ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)
EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1
Next
ScriviResoconto
End Sub