fillotto
Advanced Member >PLATINUM<
Non per bravura ma, come dicono a Roma, pe TIGNA ci sono riuscito!!! .
Ricapitolando Adesso fa quello che volevo :trova 2 adattatori che aggiunti a una delle 50 posizioni delle 10 ruote giocando su una ruota a scelta, da 2 num. da giocare che sono sempre usciti nei cicli di 9 estrazioni. Il vantaggio consiste che non si gioca costretti a indici mensili ma si decide da quando incominciare (attenzione non bisogna esagerare con i cicli dalle prove ho visto fino a 25 cicli positivi)
ADESSO PERO' PER CURIOSITA' VORREI VEDERE LA SOLUZIONE DEGLI ALTRI
Ricapitolando Adesso fa quello che volevo :trova 2 adattatori che aggiunti a una delle 50 posizioni delle 10 ruote giocando su una ruota a scelta, da 2 num. da giocare che sono sempre usciti nei cicli di 9 estrazioni. Il vantaggio consiste che non si gioca costretti a indici mensili ma si decide da quando incominciare (attenzione non bisogna esagerare con i cicli dalle prove ho visto fino a 25 cicli positivi)
ADESSO PERO' PER CURIOSITA' VORREI VEDERE LA SOLUZIONE DEGLI ALTRI
Codice:
Sub Main()
Dim rt(1) 'la ruota di gioco è una (1)
Dim rr(1) 'la ruota di ricerca posiz è una (1)
Dim nr(2) ' i nr in gioco sono 2
Dim pta(1) ' la puntata che faccio è l'ambata
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
Dim pnr(2) ' i prossimi nr in gioco sono 2
'Dim po(5)
cicli = InputBox("inserire il num dei cicli(cicli di 9 estraz)di cui si vuol conoscere gli esiti ...",,12)
estraz = cicli*9 - 1
dal = EstrazioneFin - estraz
rg = CInt(InputBox("QUALE RUOTA di Gioco ",,1))
po = CInt(InputBox("Quale posizione conteggio Qui VERA ",,1))
rri = CInt(InputBox("QUALE RUOTA di ricerca ",,1))
rt(1) = rg ' la ruota di gioco che è una (1) è "rg" !!!)
rr(1) = rri 'la ruota di ricerca che è una (1) è "rri" !!!)
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 calcoli ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
'al 1° numero di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
'"cip" ottenendo così un numero e una volta " ciop " per l'ultreiore numero
Scrivi n & " giochiamo su " & NomeRuota(rg) & " al " & po&"° di "& StringaEstratti(n,rri) & " " & " aggiugiamo una volta " & cip & " " & " e una volta " & ciop
'ng = 0
nr(1) = Fuori90(Estratto(n,rri,po) + cip)
nr(2) = Fuori90(Estratto(n,rri,po) + ciop)
Call ImpostaGiocata(1,nr,rt,pta,k,1) ' imposto la giocata e la stoppo all'uscita dell'ambata = 1
Gioca n,,,1
Next
es = EstrazioneFin + 1
Scrivi n & " la prossima giocata da effettuare su " & NomeRuota(rg) & " al " & po&"° di "& StringaEstratti(n,rri) & " " & " aggiugiamo una volta " & cip & " " & " e una volta " & ciop
pnr(1) = Fuori90(Estratto(es,rri,po) + cip)
pnr(2) = Fuori90(Estratto(es,rri,po) + ciop)
Scrivi "cosi da avere i num da giocare " & pnr(1) & " " & pnr(2)
ScriviResoconto
Else
MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
End If
End Sub
Sub Sviluppoambi(aRetAmbi)' questa seconda routine combina i numeri in ambi
ReDim aN(90)
Dim k
For k = 1 To 90 ' k sono i 90 numeri
aN(k) = k
Next
aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,Ruota,Colpi,Cip,Ciop)'Questa terza Sub cerca la prima coppia che soddisfa la condizione ed esce.
Dim arrAmbi
Dim k,i,e,idEstr
Dim bFound
po = CInt(InputBox("Metti la posiz Vera -1 (0 per la 1^, 1 x la 2^ ..4 per la 5^ ",,0))
zz = CInt(InputBox("QUALE RUOTA di ricerca precedentemete scelta? (1/10) ",,1))
Dim aRuota(1)
aRuota(1) = zz
Cip = 0
Ciop = 0
Call Sviluppoambi(arrAmbi)
For k = 1 To UBound(arrAmbi)
bFound = True 'bFound è una variabile che assume il valore di vero
For idEstr = Inizio To Fine Step 9 'ciclo delle estrazioni
ReDim aNumInGioco(2)
i = 0
e = 1 ' "e" è la posizione
aNumInGioco(e) = Fuori90(Estratto(idEstr,aRuota(1),e + po) + arrAmbi(k,1))
aNumInGioco(i) = Fuori90(Estratto(idEstr,aRuota(1),e + po) + arrAmbi(k,2))
'Next
If VerificaEsito(aNumInGioco,Ruota,idEstr + 1,1,Colpi) = False Then
bFound = False
Exit For
End If
Next
If bFound Then
Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & "-" & arrAmbi(k,2) & " sommata all'estrazione Base (step 9) ha sempre generato un' ambata")
Call Scrivi("")
Call Scrivi(StringaNumeri(aNumInGioco))
Cip = arrAmbi(k,1)
Ciop = arrAmbi(k,2)
Exit For
End If
Next
End Sub
[SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0][B]End[/B][/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=10px][COLOR=#0000c0][SIZE=10px][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
Ultima modifica:
