MODIFICA SCRIPT

[roy]

Ciao a tutti cortesemente,non riesco a capire come cambiare la ricerca da AMBATA AD AMBO a questo script,un grazie anticipato a chi mi aiuterà


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 po(5)
cicli = InputBox("inserire il num dei cicli(cicli di 9 estraz)di cui si vuol conoscere gli esiti ...",,5)
estraz = cicli*9 - 1
dal = EstrazioneFin - estraz
z = CInt(InputBox("QUALE RUOTA ",,1))
po = CInt(InputBox("Quale posizione conteggio Qui VERA ",,1))

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)

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 & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " a cui aggiugiamo una volta " & cip & " " & " e una volta " & ciop
'ng = 0
nr(1) = Fuori90(Estratto(n,z,po) + cip)
nr(2) = Fuori90(Estratto(n,z,po) + ciop)
Call ImpostaGiocata(1,nr,rt,pta,k) ' imposto la giocata e la stoppo all'uscita dell'ambata = 1
Gioca n,,,1

Next
es = EstrazioneFin + 1

Scrivi " la prossima giocata l'estraz generatrice sarà la N° " & es & " " & NomeRuota(z) & " " & StringaEstratti(es,z) & " " & " più l'adatt. " & cip & " " & " e una volta l'adatt. " & ciop
pnr(1) = Fuori90(Estratto(es,z,po) + cip)
pnr(2) = Fuori90(Estratto(es,z,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)
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)

Dim arrAmbi
Dim k,i,e,idEstr
Dim bFound
'Dim po (5)
po = CInt(InputBox("Metti la posiz Vera -1 (0 per la 1^, 1 x la 2^ ..4 per la 5^ ",,0))

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 = 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,aRuota,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

 

[claudio8]

Belinnnnn forse questo è uno script modificato da Filotto....

modifica questa riga

If VerificaEsito(aNumInGioco,aRuota,idEstr + 1,1,Colpi) = False Then

con questa

If VerificaEsito(aNumInGioco,aRuota,idEstr + 1,2,Colpi) = False Then

per il resto, non capisco cosa voglia significare questa correzione di costrutto.

If bFound Then ....... bisognerebbe chiederlo forse al "manovratore filatelico"

 

[roy]

Grazie Claudio,lo script l'ho preso tempo fà in questa sezione...non ricordo altro,visto che nello script manca l'autore

 

[Beppignello]

Dimpta(2) ' la puntata che faccio è l'ambata
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
pta(2) = 1 'la puntata sull'ambo((1) è di 1 euro


se non ho capito male, modificare in alto queste 3 righe
o inserire la terza riga perché mancante


nel riepilogo conteggia la vincita dell'ambo

 

[Joe91]

Si ma ... cip ciop, BaffoBlu e Coco ...

... non è possibile che sia.

Ha ragione Claudio, è d'altro autore,

o perlomeno ci hanno messo su le mani altri.

"Cip & Ciop" per quello che ricordo erano per avere una garanzia al 100% del risultato di Estratto.

Ovvero una "conditio sine qua non" con cui validare i 2 numeri da considerare

in pronostico e/o in convergenza.

 

[fillotto]

"Cip&Ciop" fu un idea mia ma REALIZZATA da LUIGI !! la prima stesura ricavava 10 numeri x la sorte di ambo si chiedeva la ruota su cui giocare , il numero di cicli (di 9 estraz) quindi cicli non N° di estr. mensile perciò + 5numeri con l'adatt Cip e 5numeri con l'adatt Ciop quindi 10 numeri che nei cicli richiesti davano la garanzia dell'ambo (naturalmente non si doveva esagerare con il n° elevato di cicli).
Successivamente fu fatta la versione che cip e ciop ricavavano 2 numeri x ambata (agli effetti del premio era la stessa cosa) a questo punto è intervenuto anche Claudio8 che ha semplificato non poco un fastidioso ripetersi di input questo "po = CInt(InputBox("Metti la posiz Vera -1 (0 per la 1^, 1 x la 2^ ..4 per la 5^ ",,0))"

 

[roy]

scusatemi ma non sono un grande in fatto di script...riesco a fare quelli abbastanza semplici e quando posso aiuto a farne(sempre nelle mie modeste capacità).... in effetti è fastidioso il fatto delle posizioni......ehm si potrebbero recuperare le altre due versioni?Grazie

 

[fillotto]

Prova questa versione attenzione devi ripetere 2 volte la ruota di ricerca e due volte la posizione La ruota di gioco la chiede UNA VOLTA la ruota di Ricerca e la posizione di questa 2 volte, per la posizione la prima volta che lo chiede metterai la posiz vera la seconda volta che lo richiede una posiz in meno di quella messa in precedenza .C'è il vantaggio che le ruote di Ricercha sono 10 e quindi potrai scegliere 50 posizioni!!:

 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 " giochiamo su  " & NomeRuota(rg) & "  e al " & po & "°  di " & NomeRuota(rri) & " " & 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 " la prossima giocata da effettuare dall'estr n° " & n + 1 & " " & " su  " & NomeRuota(rg) & " e al  " & po & "°  di " & NomeRuota(rri) & " " & StringaEstratti(n,rri)
pnr(1) = Fuori90(Estratto(es,rri,po) + cip)
            pnr(2) = Fuori90(Estratto(es,rri,po) + ciop)
            Scrivi "  aggiugiamo una volta " & cip & " " & " e una volta " & ciop & " " & "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

 

[roy]

Grazie Fillotto ,gentilissimo

speravo ci fosse anche quella con gli abbinamenti ciao

nb:Fillotto e il nik Fill sono la stessa persona?

 

[fillotto]

Grazie Fillotto ,gentilissimo

speravo ci fosse anche quella con gli abbinamenti ciao

nb:Fillotto e il nik Fill sono la stessa persona?

No, siamo due persone diverse!!

 

[fillotto]

Se per abbinamenti intendevi l'ambo eccoti lo script originario cosi come lo aveva fatto Luigi una sorta di "trova Metodi" ma ripeto trovare un ambo su 10 numeri o trovare un estratto su 2 numeri , agli effetti del premio ¨¨ la medesima cosa . Questa la 1^ stesura di Cip & Ciop :Non capisco xch¨¨ alcune volte mi colora il codice ..... BO !?! .....CORRETTO!!!

 Sub Main()
    Dim rt(1) 'la ruota è una (1)
    Dim nr(10) ' i nr in gioco sono 10
    Dim pta(2) ' la puntata che faccio è l'ambo
    pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
        Dim pnr(10) ' i prossimi nr in gioco sono 10
    cicli = InputBox("inserire il num dei cicli(cicli di 9 estraz)di cui si vuol conoscere gli esiti ...",,11)
estraz = cicli*9 - 1
    dal = EstrazioneFin - estraz'EstrazioneIni' InputBox("inserire il num di estrazione iniziale...",,8631)
    
    z = ScegliRuota
    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)
    
    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,1) + cip)
            nr(2) = Fuori90(Estratto(n,z,2) + cip)
            nr(3) = Fuori90(Estratto(n,z,3) + cip)
            nr(4) = Fuori90(Estratto(n,z,4) + cip)
            nr(5) = Fuori90(Estratto(n,z,5) + cip)
            nr(6) = Fuori90(Estratto(n,z,1) + ciop)
            nr(7) = Fuori90(Estratto(n,z,2) + ciop)
            nr(8) = Fuori90(Estratto(n,z,3) + ciop)
            nr(9) = Fuori90(Estratto(n,z,4) + ciop)
            nr(10) = Fuori90(Estratto(n,z,5) + ciop)
            EliminaRipetuti nr
            Call ImpostaGiocata(1,nr,rt,pta,k,2) ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
            Gioca n,,,1
        
        Next
        es = EstrazioneFin + 1
    
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
pnr(1) = Fuori90(Estratto(es,z,1) + cip)
            pnr(2) = Fuori90(Estratto(es,z,2) + cip)
            pnr(3) = Fuori90(Estratto(es,z,3) + cip)
            pnr(4) = Fuori90(Estratto(es,z,4) + cip)
            pnr(5) = Fuori90(Estratto(es,z,5) + cip)
            pnr(6) = Fuori90(Estratto(es,z,1) + ciop)
            pnr(7) = Fuori90(Estratto(es,z,2) + ciop)
            pnr(8) = Fuori90(Estratto(es,z,3) + ciop)
            pnr(9) = Fuori90(Estratto(es,z,4) + ciop)
            pnr(10) = Fuori90(Estratto(es,z,5) + ciop)
            EliminaRipetuti pnr
Scrivi "cosi da avere i num da giocare  " & pnr(1) & " " & pnr(2) & " " & pnr(3) & " " & pnr(4) & " " & pnr(5) & " " & pnr(6) & " " & pnr(7) & " " & pnr(8) & " " & pnr(9) & " " & pnr(10)
        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
        aN(k) = k
    Next
    
    aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,aRuota,Colpi,Cip,Ciop)