Sub Main()
Dim rt(1) 'la ruota è una (1)
Dim nr(10) ' i nr in gioco sono 10
Dim pta(2) ' la puntata che faccio è l'ambo
pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
Dim pnr(10) ' i prossimi nr in gioco sono 10
cicli = InputBox("inserire il num dei cicli(cicli di 9 estraz)di cui si vuol conoscere gli esiti ...",,11)
estraz = cicli*9 - 1
dal = EstrazioneFin - estraz
z = ScegliRuota ' InputBox("su quale ruota ?",,5)
rt(1) = z ' la ruota che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9
Call GetCipECiop(dal,EstrazioneFin,rt,k,cip,ciop)
If cip > 0 And ciop > 0 Then 'se sia CIP sia CIOP sono superiori a 0.....
For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcol ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
'ai 5 numeri di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
'"cip" ottenendo così 5 numeri e una volta " ciop " per ultreiori 5 numeri
Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " a cui aggiugiamo una volta " & cip & " " & " e una volta " & ciop
'ng = 0
nr(1) = Fuori90(Estratto(n,z,1) + cip)
nr(2) = Fuori90(Estratto(n,z,2) + cip)
nr(3) = Fuori90(Estratto(n,z,3) + cip)
nr(4) = Fuori90(Estratto(n,z,4) + cip)
nr(5) = Fuori90(Estratto(n,z,5) + cip)
nr(6) = Fuori90(Estratto(n,z,1) + ciop)
nr(7) = Fuori90(Estratto(n,z,2) + ciop)
nr(8) = Fuori90(Estratto(n,z,3) + ciop)
nr(9) = Fuori90(Estratto(n,z,4) + ciop)
nr(10) = Fuori90(Estratto(n,z,5) + ciop)
EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,2) ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
Gioca n,,,1
Next
es = EstrazioneFin + 1
Scrivi " la prossima giocata l'estraz generatrice sarà la N° " & es & " " & NomeRuota(z) & " " & StringaEstratti(es,z) & " " & " a cui aggiugiamo una volta " & cip & " " & " e una volta " & ciop
pnr(1) = Fuori90(Estratto(es,z,1) + cip)
pnr(2) = Fuori90(Estratto(es,z,2) + cip)
pnr(3) = Fuori90(Estratto(es,z,3) + cip)
pnr(4) = Fuori90(Estratto(es,z,4) + cip)
pnr(5) = Fuori90(Estratto(es,z,5) + cip)
pnr(6) = Fuori90(Estratto(es,z,1) + ciop)
pnr(7) = Fuori90(Estratto(es,z,2) + ciop)
pnr(8) = Fuori90(Estratto(es,z,3) + ciop)
pnr(9) = Fuori90(Estratto(es,z,4) + ciop)
pnr(10) = Fuori90(Estratto(es,z,5) + ciop)
EliminaRipetuti pnr
Scrivi "cosi da avere i num da giocare " & pnr(1) & " " & pnr(2) & " " & pnr(3) & " " & pnr(4) & " " & pnr(5) & " " & pnr(6) & " " & pnr(7) & " " & pnr(8) & " " & pnr(9) & " " & pnr(10)
ScriviResoconto
Else
MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
End If
End Sub
Sub Sviluppoambi(aRetAmbi)
ReDim aN(90)
Dim k
For k = 1 To 90
aN(k) = k
Next
aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,aRuota,Colpi,Cip,Ciop)
Dim arrAmbi
Dim k,i,e,idEstr
Dim bFound
Cip = 0
Ciop = 0
Call Sviluppoambi(arrAmbi)
For k = 1 To UBound(arrAmbi)
bFound = True
For idEstr = Inizio To Fine Step 9
ReDim aNumInGioco(10)
i = 5
For e = 1 To 5
i = i + 1
aNumInGioco(e) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,1))
aNumInGioco(i) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,2))
Next
If VerificaEsito(aNumInGioco,aRuota,idEstr + 1,2,Colpi) = False Then
bFound = False
'Call Scrivi ("Ambo non valido " & arrAmbi(k,1) & "-" & arrAmbi(k,2) )
Exit For
End If
Next
If bFound Then
Call Scrivi("Coppia di numeri che sommata all'estrazione base dia sempre almeno un ambo " & arrAmbi(k,1) & "-" & arrAmbi(k,2))
Call Scrivi("")
Call Scrivi(StringaNumeri(aNumInGioco))
Cip = arrAmbi(k,1)
Ciop = arrAmbi(k,2)
Exit For
End If
Next
End Sub
