fillotto
Advanced Member >PLATINUM<
Questo script è un adattamento di un altro vecchio script esso ha lo scopo di trovare 2 sommatori che aggiunti al 1° estratto oppure al 2° estratto(di una estrazione generatrice ogni 9) mi da due numeri che hanno la caratteristica di non aver dato neanche un ambata nelle 9 estrazioni successive a quella generatrice. Il num dei cicli di 9 sono gestibili tramite un inputbox , lo scopo è quello di trovare con un numero ritenuto interessante di cicli la coppia di sommatori (sempre uguali) che hanno accumulato un ritardo significativo con il loro perdurare di NON USCITE.
Con questa linea di codice "np = InputBox("inserisci la posiz su cu andremo ad addizionare una volta Sommatorio1 e una volta Sommatorio2...",,1)" pensavo di gestire tutti e 5 gli estratti da sommare ai sommatori 1 e 2 ma attualmente il lavoro lo svolge solo con la 1^ o 2^ posizione
Se nell' InputBox inerisco 3 (la pos) mi da Errore Script 9 Indice non incluso nell'intervallo ' e ' bloccandosi alla riga:
"aNumInGioco(e) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,1))"
CHIEDO : AVENDO ESAURITO TUTTE LE MIE SOLUZ EMPIRICHE COME GESTIRE ANCHE LE ALTRE 3 POSIZIONI? ECCO LO SCRIPT COMPLETO
UNA SOLA RACCOMANDAZIONE NELLA BARRA ESTRAZ IN BASSO SISTEMARE ALMENO 2 ESTRAZIONI INDIETRO PER FARVI SUGGERIRE I NUMERI DA GIOCARE.
Con questa linea di codice "np = InputBox("inserisci la posiz su cu andremo ad addizionare una volta Sommatorio1 e una volta Sommatorio2...",,1)" pensavo di gestire tutti e 5 gli estratti da sommare ai sommatori 1 e 2 ma attualmente il lavoro lo svolge solo con la 1^ o 2^ posizione
Se nell' InputBox inerisco 3 (la pos) mi da Errore Script 9 Indice non incluso nell'intervallo ' e ' bloccandosi alla riga:
"aNumInGioco(e) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,1))"
CHIEDO : AVENDO ESAURITO TUTTE LE MIE SOLUZ EMPIRICHE COME GESTIRE ANCHE LE ALTRE 3 POSIZIONI? ECCO LO SCRIPT COMPLETO
UNA SOLA RACCOMANDAZIONE NELLA BARRA ESTRAZ IN BASSO SISTEMARE ALMENO 2 ESTRAZIONI INDIETRO PER FARVI SUGGERIRE I NUMERI DA GIOCARE.
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("inserisci la posiz su cu andremo ad addizionare una vopta Sommatorio1 e una volta Sommatorio2...",,1)'attualmente funz solo la 1^ o 2^
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 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(z) & " " & StringaEstratti(n,z) & " " & " al " & np & "° estratto del quale aggiugiamo una volta " & Sommatorio1 & " " & " e una volta " & Sommatorio2
'ng = 0
nr(1) = Fuori90(Estratto(n,z,np) + Sommatorio1)
nr(2) = Fuori90(Estratto(n,z,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(z) & " " & StringaEstratti(es,z) & " " & " al " & np & "° estratto aggiugiamo una volta " & Sommatorio1 & " " & " e una volta " & Sommatorio2,- 1,,3,1)
pnr(1) = Fuori90(Estratto(es,z,np) + Sommatorio1)
pnr(2) = Fuori90(Estratto(es,z,np) + Sommatorio2)
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 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)
'i = 1
If np = 1 Then
i = 1
ElseIf np = 2 Then
i = 0
ElseIf np = 3 Then 'SE METTO 3 O 5 O 5
i = 3
End If
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 = 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,,3,1)
Call Scrivi("")
'Call Scrivi(StringaNumeri(aNumInGioco))
Sommatorio1 = arrAmbi(k,1)
Sommatorio2 = arrAmbi(k,2)
Exit For
End If
Next
End Sub
Ultima modifica:
