fillotto
Advanced Member >PLATINUM<
Ho arrangiato un vecchio script che mi aveva fatto il buon Luigi e adesso funziona solo in modo parziale;
Ecco cosa fa attualmente
er ogni ciclo di estrazioni(impostabili a piacimento) trova 2 numeri che sommati al 1° estratto dell'estrazione che precede le 9 che compongono i cicli non danno mai esito positivo, nel chiaro intento di trovare più cicli di possibili per trovatre un ritardo (seppur virtuale) significativo sperando nella fine del ritado
adesso funziiona nel modo descritto solo se imposto il 1° estratto come fare se quando imposto il 2°,3° ecc si comporti nel modo giusto?
Ecco cosa fa attualmente
er ogni ciclo di estrazioni(impostabili a piacimento) trova 2 numeri che sommati al 1° estratto dell'estrazione che precede le 9 che compongono i cicli non danno mai esito positivo, nel chiaro intento di trovare più cicli di possibili per trovatre un ritardo (seppur virtuale) significativo sperando nella fine del ritadoadesso funziiona nel modo descritto solo se imposto il 1° estratto come fare se quando imposto il 2°,3° ecc si comporti nel modo giusto?
Codice:
Sub Main()
Dim rt(1) 'la ruota è 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 np
cicli = InputBox("inserire il num dei cicli(cicli di 9 estraz)di cui si vuol conoscere gli esiti ...",,5)
np = InputBox("posiz? ...",,1)
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,np)
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,np) + cip)
nr(2) = Fuori90(Estratto(n,z,np) + ciop)
Call ImpostaGiocata(1,nr,rt,pta,k,1) ' imposto la giocata e la stoppo all'uscita dell'amboata = 1
Gioca n,,,1
Next
es = EstrazioneFin + 1
Call 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,-1,,3,1)
pnr(1) = Fuori90(Estratto(es,z,np) + cip)
pnr(2) = Fuori90(Estratto(es,z,np) + ciop)
Call Scrivi( "cosi da avere i num da giocare " & pnr(1) & " " & pnr(2) & " con inizio gioco dalla "& es+1,-1,,3,1)
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 ' k sono i 90 numeri
aN(k) = k
Next
aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,aRuota,Colpi,Cip,Ciop,np)
Dim arrAmbi
Dim k,i,e,idEstr
Dim bFound
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
ReDim aNumInGioco(2)
i = 1
e = np ' COME FARE AFFINCHE' QUANDO CHIEDO NELL'INPUTBOX DI CUI SOPRA "np = InputBox("posiz? ...",,1)" LA 2^ POSIZ O LA 3 ..5
'SI COMPORTI DI CONSEGUEZA? ATTUALMENTE FUNZIONA (NEL MODO VOLUTO) SOLO SE CHIEDO DI SOMMARE IL NUM DELLA 1^ POS
'AI DUE SOMMATORI CHE MI TROVA QUESTA SUB
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,1,Colpi) = True Then
' 1)Vettore contenente i numeri del pronosticoE 2)Vettore contenente le ruote in gioco 3)Identificativo dell'estrazione dalal quale inizia la verifica
'4)sorte da verificare
bFound = FalseLMENTE
Exit For
End If
Next
If bFound Then
Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & "-" & arrAmbi(k,2) & " sommata al primo num dell'estrazione Base (con step 9 dei cicli richiesti) non ha mai generato un' ambata",-1,,3,1)
Call Scrivi("")
'Call Scrivi(StringaNumeri(aNumInGioco))
Cip = arrAmbi(k,1)
Ciop = arrAmbi(k,2)
Exit For
End If
Next
End Sub
