fillotto
Advanced Member >PLATINUM<
Ciao Mike questo script così come si presenta è di difficile utilizzazione nel senso che per trovare dei ritardi di ambi nell'ambito di + cicli che mano mano aumento , ci si mette troppo tempo . Allora come ovviare mi sono chiesto invece di giocare su una ruota come modificare impostando la ruota di gioco in tutte le ruote?
Ho provato a mettere ruota di gioco : " 11" ma chiaramente non va , forse ci vorrebbe un ciclo for x gestire il verifica esito ma non ci riesco .Potresti darmi una mano ?
Lo scopo dello script è trovare con varie prove l'ambo( di una terna di numeri) + ritardario nell'ambito dei cicli che aumento man mano per trovare la situazione più favorevole ,penso che sia il classico script le cui risultaze ovvero l'output sia meglio consultabile in TABELLA ...
Ho provato a mettere ruota di gioco : " 11" ma chiaramente non va , forse ci vorrebbe un ciclo for x gestire il verifica esito ma non ci riesco .Potresti darmi una mano ?
Lo scopo dello script è trovare con varie prove l'ambo( di una terna di numeri) + ritardario nell'ambito dei cicli che aumento man mano per trovare la situazione più favorevole ,penso che sia il classico script le cui risultaze ovvero l'output sia meglio consultabile in TABELLA ...
Codice:
Sub Main()
Dim rt(1) 'la ruota di gioco è una (1)
Dim rt2(1) 'la ruota di ricerca è una (1)
Dim nr(3) ' i nr in gioco sono 3
Dim pta(2) ' la puntata che faccio è l'ambo
pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
Dim pnr(3) ' i prossimi nr in gioco sono 3
Dim np
cicli = InputBox("inserire il num dei cicli(cicli di 15 estraz)di cui si vuol conoscere gli esiti ...",,15)
np = InputBox("inserisci la posiz su cu andremo ad addizionare una volta Sommatorio1,una volta Sommatorio2 e una volta Sommatorio3...",,1)'si possono mettere 5 posiz
estraz = cicli*15 - 1
dal = EstrazioneFin - estraz
rdr = CInt(InputBox("SCEGLI LA RUOTA DI Gioco",,2))'se metto 11 (tutte) non funziona più
rt2(1) = rdr
z = CInt(InputBox("SCEGLI LA RUOTA DI Ricerca",,1))
rt(1) = z ' la ruota di gioco che è una (1) è "Z" !!!)
k = 15 ' i Kolpi in gioco sono 9
Call GetSommatori1_3(dal,EstrazioneFin,rt,rt2,k,Sommatorio1,Sommatorio2,Sommatorio3,np)
If Sommatorio1 > 0 And Sommatorio2 > 0 And Sommatorio3 > 0 Then 'se sia CIP sia CIOP sono superiori a 0.....
'For rdr = 1 To 10
For n = dal To EstrazioneFin Step 15 'questa riga dice che per fare i calcol ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 15 a cominciare dalla variabile " dal " ...+ 15.....+ 15 ecc fino alla fine
'ai primo numero o al 2° numero(secondo la scelta di cui sopra"np = InputBox") di ognuna di queste estrazioni si aggiungerà col fuori 90 una volta
'"Sommatorio1" ottenendo così un numero e una volta " Sommatorio2 " per ultreiori 2 numero e una volta sommatorio 3
Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " al " & np & "° estratto del quale aggiugiamo una volta " & Sommatorio1 & " " & " una volta " & Sommatorio2 & " " & " e una volta " & Sommatorio3
'ng = 0
nr(1) = Fuori90(Estratto(n,z,np) + Sommatorio1)
nr(2) = Fuori90(Estratto(n,z,np) + Sommatorio2)
nr(3) = Fuori90(Estratto(n,z,np) + Sommatorio3)
Call ImpostaGiocata(1,nr,rt2,pta,k,2) ' imposto la giocata e la stoppo all'uscita dell'amboata = 1
Gioca n,,,1
Next
'Next
es = EstrazioneFin + 1
Call Scrivi(" la prossima giocata l'estraz generatrice sarà la N° " & es & " " & NomeRuota(z) & " " & StringaEstratti(es,z) & " " & " al " & np & "° estratto aggiugiamo una volta " & Sommatorio1 & " " & " una volta " & Sommatorio2 & " " & " e una volta " & " " & Sommatorio3,- 1,,4,1)
pnr(1) = Fuori90(Estratto(es,z,np) + Sommatorio1)
pnr(2) = Fuori90(Estratto(es,z,np) + Sommatorio2)
pnr(3) = Fuori90(Estratto(es,z,np) + Sommatorio3)
Call Scrivi("cosi da avere i num da giocare " & pnr(1) & " " & pnr(2) & " " & pnr(3) & " sulla ruota di " & NomeRuota(rdr) & " con inizio gioco dalla " & es + 1,- 1,,4,1)
ScriviResoconto
Else
MsgBox "Terna di numeri da sommare impossibile da trovare per ottenere il risultato voluto !"
End If
End Sub
Sub SviluppoTerni(aRetTerni)
ReDim aN(90)
Dim k
For k = 1 To 90 ' k sono i 90 numeri
aN(k) = k
Next
aRetTerni = SviluppoIntegrale(aN,3)
End Sub
Sub GetSommatori1_3(Inizio,Fine,aRuota,bRuota,Colpi,Sommatorio1,Sommatorio2,Sommatorio3,np)
Dim arrTerni' E' un array che conterrà i 117000 terni possibili con 90 numeri
' per ora non è ancora dimensionato rni, si occuperàa di dimensiarlo
' la chiamata alla sub SviluppoTerni
Dim k,i,idEstr 'Si tratta di variabili di comodo o per iterare sui cicli
' vediamo i dettagli
' K : itera sull'array che contiene i 117000 terni
' I : mi pare che non sia usato si potrebbe togliere
' IdEstr : itera sul range delle estrazioni da analizzare
Dim bFound' Found in inglese vuol dire trovare , la b davanti indica un valore di tipo Booolean (cioè vero/falso)
' è come una bandierinaan che si alza e si abbassa indicando uno stato (bandiera su/giu), nel nostro caso
' prima di entrare nel ciclo gestito da idEstr (quello che itera sulle estrazioni da analizzare)
' prevalorizziamo la variabile a True (vero), poi durante il ciclo suddetto (quello di IdEstr) se la funzione
' VerificaEsito torna True allora andiamo a impostare bFound a False e usciamo dal ciclo con Exit For.
' Il nostro scopo infatti è trovare una combinazione che non abbia dato esito quindi come abbiamo ragionato ?
' Abbiamo detto , diamo per convenzione che tutte le combinazioni (quelle degli terni) siano adatte nell senso
' che non abbiano dato esito e questo è quello che avviene con bFound = True , poi pero entriamo nel ciclo
' (For idEstr = Inizio To Fine Step 15) dentro questo ciclo se l'ambo in questione ha dato esito allora
' la nostra bella bandierian si abbassa (bFound = False) e usciao dal ciclo , infatti non ha senso continuarlo
' visto che la combinazione non soddisfa i requisiti.
' Quindi al termine del ciclo gestito da IdEstr se la nostra variabile bFound vale ancora True vuol dire
' che la combinazione col sommativo non ha ancora dato esito.
Dim E
Sommatorio1 = 0 'preimposto a 0 i numeri che devo ancora scoprire
Sommatorio2 = 0
Sommatorio3 = 0
Call SviluppoTerni(arrTerni)' sviluppa i 117000 terni e alimenta l'array
For k = 1 To UBound(arrTerni)'cicla sui 117000 terni
bFound = True 'preimposto a True il flag (flag vuol dire bandiera)
For idEstr = Inizio To Fine Step 15 ' ciclo sulle estrazioni del range
ReDim aNumInGioco(3) 'predispongo un array di 2 elementi che dovra
' contenere il risultato del tale numero letto dall'estrazione
' sommando una volta il primo numero del terno , una seconda volta il secondo numero e una volta il 3°
E = np
aNumInGioco(1) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrTerni(k,1))
aNumInGioco(2) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrTerni(k,2))
aNumInGioco(3) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrTerni(k,3))
' valorizza E con la posizione del numero da leggere (posizione estrazionale da 1 a 5) np viene passato alla sub
' si pottrebbe pure evitare <E> e usare direttamente <np>
' il primo dei numeri in gioco è dato dalla somma dell'estrato in posisizione E sommato al primo numero dell'ambo corrente
aNumInGioco(1) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrTerni(k,1))
' il secondo dei numeri in gioco è dato dalla somma dell'estrato in posisizione E sommato al secondo e 3° numero del terno corrente
aNumInGioco(2) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrTerni(k,2))
aNumInGioco(3) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrTerni(k,3))
If VerificaEsitoTurbo(aNumInGioco,bRuota,idEstr + 1,2,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 5)Colpi di gioco , se omesso non c'è limite e la verifica procede fineche non trova l'esito o non fioniscono le estrazioni
'6)vettore contenente le posizioni estrazionali valide se omesso tutte le posizioni da 1 a 5 sono considerate valide
bFound = False ' i numeri in gioco non vanno bene
Exit For
End If
'End If
Next
If bFound Then ' se i numeri in gioco vanno bene allora ....
Call Scrivi("Questa TERNA di numeri " & arrTerni(k,1) & "-" & arrTerni(k,2) & "-" & arrTerni(k,3) & " sommata al " & np & "° num dell'estrazione generatrice (con step 15 dei cicli richiesti) non ha mai generato un' ambo",- 1,,4,1)
Call Scrivi("°°°°°°°°°°°°°°°°°°°°°°°°°°°° Cicli Richiesti " &(Fine - Inizio + 1)/15 & " °°°°°°°°°°°°°°°°°°°°°°°°°°°°",- 1,,4,1)
Sommatorio1 = arrTerni(k,1)
Sommatorio2 = arrTerni(k,2)
Sommatorio3 = arrTerni(k,3)
Exit For
End If
Next
End Sub
Ultima modifica:
io semplicemente chiedevo:se per tanti cicli, utilizzando sempre gli stessi tre sommatori , non riscontravo mai l'ambo a tutte avevo un aspettativa tanto più propabile quanti i cicli fossero più numerosi , in effetti questo equilibrio ,ancorchè Virtuale,si doveva per forza inerrompere, dando esito nei successivi 8 colpi ad un ambo su tutte. Ora avendo riscontrato (con i parametri espressi al 1° tread)l'assenza di un ambo con 22 cicli e, controllato che i 3 num proposti mi avrebbero dato buca anche se avessi spostato i parametri a 23 cicli , decidevo qindi di spostare la barra dell'estrazione tale che avrei dovuto avere le risultanze con 23 cicli ma inspiegabilmente senza esito atteso(la continuazione di proporre gli stessi num 32 54 e 90).
