fillotto
Advanced Member >PLATINUM<
Questo script trova 2 sommatori che aggiunti ad uno dei 5 estratti della ruota di gioco generatrice in step di 9 non ha mai dato un 'ambata nei cicli impostati dall'utente.
Gli estratti a cui andranno ad aggiungersi i sommatori trovati dal programma però , così come impostato, devono attualmente coincidere con quelli della ruota di gioco.
Volendo prendere gli estratti di un altra ruota, come fare affinchè il risultato sia quello voluto, faccio un esempio: 1° estratto della ruota di Cagliari con aggiunta dei 2 sommatori trovati dallo script in step di 9 estrazioni non abbia mai dato un'ambata giocando su BAri ? Ripeto attualmente funziona solo se ruota di gioco e ricerca siano identiche
Gli estratti a cui andranno ad aggiungersi i sommatori trovati dal programma però , così come impostato, devono attualmente coincidere con quelli della ruota di gioco.
Volendo prendere gli estratti di un altra ruota, come fare affinchè il risultato sia quello voluto, faccio un esempio: 1° estratto della ruota di Cagliari con aggiunta dei 2 sommatori trovati dallo script in step di 9 estrazioni non abbia mai dato un'ambata giocando su BAri ? Ripeto attualmente funziona solo se ruota di gioco e ricerca siano identiche
Codice:
Sub Main()
Dim rt(1) 'la ruota di gioco è 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("inserisci la posiz su cu andremo ad addizionare una volta Sommatorio1 e una volta Sommatorio2...",,1)'si possono mettere 5 posiz
estraz = cicli*9 - 1
dal = EstrazioneFin - estraz
rdr = CInt(InputBox("SCEGLI LA RUOTA DI Ricerca",,2))
z = ScegliRuota ' la ruota di gioco si scglie in modo automatico con la funzione Sgegli Ruota
rt(1) = z ' la ruota di gioco che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9
Call GetSommatorio1ESommatorio2(dal,EstrazioneFin,rt,k,Sommatorio1,Sommatorio2,np)
If Sommatorio1 > 0 And Sommatorio2 > 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 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
Scrivi n & " " & NomeRuota(rdr) & " " & StringaEstratti(n,rdr) & " " & " al " & np & "° estratto del quale aggiugiamo una volta " & Sommatorio1 & " " & " e una volta " & Sommatorio2
'ng = 0
nr(1) = Fuori90(Estratto(n,rdr,np) + Sommatorio1)
nr(2) = Fuori90(Estratto(n,rdr,np) + Sommatorio2)
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(rdr) & " " & StringaEstratti(es,rdr) & " " & " al " & np & "° estratto aggiugiamo una volta " & Sommatorio1 & " " & " e una volta " & Sommatorio2,- 1,,4,1)
pnr(1) = Fuori90(Estratto(es,rdr,np) + Sommatorio1)
pnr(2) = Fuori90(Estratto(es,rdr,np) + Sommatorio2)
Call Scrivi("cosi da avere i num da giocare " & pnr(1) & " " & pnr(2) & " con inizio gioco dalla " & es + 1,- 1,,4,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 GetSommatorio1ESommatorio2(Inizio,Fine,aRuota,Colpi,Sommatorio1,Sommatorio2,np)
Dim arrAmbi
Dim k,i,idEstr
Dim bFound
Dim e
Sommatorio1 = 0
Sommatorio2 = 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)
e = np
aNumInGioco(1) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,1))
aNumInGioco(2) = 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 = False
Exit For
End If
'End If
Next
If bFound Then
Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & "-" & arrAmbi(k,2) & " sommata al " & np & "° num dell'estrazione generatrice (con step 9 dei cicli richiesti) non ha mai generato un' ambata",- 1,,4,1)
Call Scrivi("°°°°°°°°°°°°°°°°°°°°°°°°°°°° Cicli Richiesti " &(Fine - Inizio + 1)/9 & " °°°°°°°°°°°°°°°°°°°°°°°°°°°°",- 1,,4,1)
Sommatorio1 = arrAmbi(k,1)
Sommatorio2 = arrAmbi(k,2)
Exit For
End If
Next
End Sub
Cordiali saluti.
