Novità

per magia, può aiutarmi???

margot

Super member
1 in una qualsiasi estrazione sulla ruota di bari o cagliari si verifica la sortita di un ambo in "figura5" riscontrata questa condizione, ricaveremo l'ambata da giocare sulle ruote di napoli e venezia, sommando il fisso +43 al 5° estratto di palermo
abbinamenti:
moltiplicare per 3 il 3° di napoli + il fisso 22
diametrale in decina del 1° di mi + il fisso 24
giocare per 6 colpi.

2 in qualsiasi estrazione rintracciare su qualsiasi ruota , nazionale compresa, un ambo tra i numeri 5 - 8 - 17 - 56 -,
ricaveremo l'ambata da giocare sulle ruote bari cagliari, sommando alla figura del 3° estratto di venezia il fisso 32

abbinamenti:
moltiplicare per 5 il 4° estratto di ro + il fisso 28
diametrale del 4° di pa + il fisso 44
giocare x 6 colpi

proviamo avedere che risultati danno questi metodi
ringrazio in anticipo chi realizzerà questi script.
grazie
 

stupl

Super member
Nel primo listato, che da errori, mancava solo una parentesi ed un "next", ed ho modificato il ciclo For che da 1 to 10 ho inserito da 1 to 2, dato che la condizione voluta è solo tra bari e cagliari, sembrerebbe che vada bene, provalo.

Codice:
Sub Main
ColoreTesto 2
Scrivi "AMBI FIGURA 5"
Scrivi "METODO BY Margot"
ColoreTesto 0
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim ambata(1)
Dim ambo1(2)
Dim ambo2(2)
posta(1) = 1
poste(2) = 1
k = CInt(InputBox("Quante estrazioni controllare?",,200))
clp = CInt(InputBox("Quanti colpi di gioco?",,6))

Ini = EstrazioneFin - k
fin = EstrazioneFin
co = 0
For es = Ini To fin
Messaggio "Script by Edo"
Call AvanzamentoElab(Ini,fin,es)
For r = 1 To 2

for p0=1 to 4
for p1=p0+1 to 5
a = Estratto(es,r,p0)
b = Estratto(es,r,p1)
ok = 0
If figura(a)=5 and figura(b)=5 Then
ambata(1) = Fuori90((Estratto(es,pA_,5)) + 43)
ambo1(1) = ambata(1)
ambo1(2) = Fuori90((3*Estratto(es,na_,3)) + 22)
ambo2(1) = ambata(1)
ambo2(2) = Fuori90(diametraled(Estratto(es,mi_,1)) + 24)
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(100,"=") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Ambo in figura 5 rilevato "
Scrivi String(100,"=")
ColoreTesto 0
ruote(1) = na_ : ruote(2) = ve_
ImpostaGiocata 1,ambata,ruote,posta,clp
ImpostaGiocata 2,ambo1,ruote,poste,clp
ImpostaGiocata 3,ambo2,ruote,poste,clp
Gioca es
End If
Next
next
Next
Next
ScriviResoconto
End Sub

Il secondo listato l'errore che dava era solo per mancanza di un "next" e della funzione diametrale che per errore di dicitura era scritto così: "daiametrale", comunque correggendo il listato anche se gira tranquillamente non mi sembra che faccia ciò che è stato chiesto, non so se è un malfunzionamento della funzione SerieFreqTurbo, non sono tanto pratico di script, ma vedo che sulla richiesta dei numeri da trovare come ambi, questi non coincidono cioè o non ci sono per niente o anche se ne trova solo uno lo da come condizione valida e in più allo script si dovrebbe inserire un blocco nella ricerca, altrimenti fa una giocata con gli stessi numeri per 12 volte su ogni estrazione, ecco il listato verifica:

Codice:
Sub Main
    ColoreTesto 2
    Scrivi "ambo tra i numeri 5 - 8 - 17 - 56"
    Scrivi "METODO BY Margot"
    ColoreTesto 0
    Dim ruote(2)
    Dim posta(1)
    Dim poste(2)
    Dim ambata(1)
    Dim ambo1(2)
    Dim ambo2(2)
    posta(1) = 1
    poste(2) = 1
    k = CInt(InputBox("Quante 3*strazioni controllare?",,200))
    clp = CInt(InputBox("Quanti colpi di gioco?",,6))

    Ini = EstrazioneFin - k
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        Messaggio "Script by Edo"
        Call AvanzamentoElab(Ini,fin,es)
        For r = 1 To 11
          If r =11 Then r=12
             Dim anum : anum=Array(anum,05,08,17,56)
            ReDim ru(01) :  ru(01)=r
            Dim sf : sf=SerieFreqTurbo(Es,Es,anum,ru,1,,,1)
            If sf=2 Then
                ambata(1) = Fuori90(Figura(Estratto(es,VE_,3)) + 21)
                ambo1(1) = ambata(1)
                ambo1(2) = Fuori90(4*(Estratto(es,RO_,4)) + 28)
                ambo2(1) = ambata(1)
                ambo2(2) = Fuori90(Diametrale(Estratto(es,PA_,4)) + 44)
                ok = 1
            End If
            If ok = 1 Then
                co = co + 1
                ColoreTesto 1
                Scrivi String(100,"=") & " Caso n°" & co,1
                Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & "  Ambo tra i numeri 5 - 8 - 17 - 56 "
                Scrivi String(100,"=")
                ColoreTesto 0
                ruote(1) = BA_ : ruote(2) = CA_
                ImpostaGiocata 1,ambata,ruote,posta,clp
                ImpostaGiocata 2,ambo1,ruote,poste,clp
                ImpostaGiocata 3,ambo2,ruote,poste,clp
                Gioca es
            End If
        Next
Next
    ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

In attesa che Magia ripara il Turbo, vedi se può andare questo

secondo script
Codice:
 Option Explicit
Sub Main
    Dim Ini,Fin,Es,Co,R,K,Clp,P1,P2,A,B
    Dim Ruota(2),Ruote(2),Posta(1),Poste(2)
    Dim Ambata(1),Ambo1(2),Ambo2(2),P,E
    ColoreTesto 2
    Scrivi "ambo tra i numeri 5 - 8 - 17 - 56"
    Scrivi "METODO BY Margot"
    ColoreTesto 0
    Posta(1) = 1
    Poste(2) = 1
    K = CInt(InputBox("Quante Estrazioni controllare?",,300 ))
    Clp = CInt(InputBox("Quanti colpi di gioco?",,6))
    Ini = EstrazioneFin - K
    Fin = EstrazioneFin
    Co = 0
    For Es = Ini To Fin
        Messaggio "Script by Edo - modifica script by Salvo50"
        Call AvanzamentoElab(Ini,Fin,Es)
        For R = 1 To 11
            If R = 11 Then R = 12
            For P1 = 1 To 4
                For P2 = P1 + 1 To 5
                    A = Estratto(Es,R,P1)
                    B = Estratto(Es,R,P2)
                    If((A = 5) Or(A = 8) Or(A = 17) Or(A = 56)) And((B = 5) Or(B = 8) Or(B = 17) Or(B = 56)) Then
                        Ambata(1) = Fuori90(Figura(Estratto(Es,VE_,3)) + 21)
                        Ambo1(1) = Ambata(1)
                        Ambo1(2) = Fuori90(5*(Estratto(Es,RO_,4)) + 28)
                        Ambo2(1) = Ambata(1)
                        Ambo2(2) = Fuori90(Diametrale(Estratto(Es,PA_,4)) + 44)
                        Co = Co + 1
                        ColoreTesto 1
                        Scrivi String(100,"=") & " Caso n°" & Co,1
                        Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " ",1,0
                        For P = 1 To 5
                            E = Estratto(Es,R,P)
                            If(E = A) Or(E = B) Then
                                ColoreTesto 2
                            Else
                                ColoreTesto 0
                            End If
                            Scrivi Format2(E) & Space(1),1,0
                            ColoreTesto 0
                        Next
                        Scrivi "   Ambo tra i numeri 5 - 8 - 17 - 56 ",1

                        ColoreTesto 1
                        Scrivi String(100,"=")
                        ColoreTesto 0
                        Ruote(1) = BA_ : Ruote(2) = CA_
                        ImpostaGiocata 1,Ambata,Ruote,Posta,Clp
                        ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp
                        ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp
                        Gioca Es
                    End If
                Next
            Next
        Next
        If ScriptInterrotto Then Exit Sub
    Next
    ScriviResoconto
End Sub
 

joe

Advanced Member >PLATINUM PLUS<
BuonGiorno a Tutte/i.

Mi permetto di intervenire brevemente perché la soluzione proposta non mi sembra corretta.

anum=Array(anum, 'Crea un dispendio enorme di memoria.

sf=SerieFreqTurbo(Es,Es,anum,ru,1,,,1) 'NON effettua la ricerca nell'archivio tradizionale.

Ok = 1 'attiva la giocata ... che poi NON viene disattivata. Sarebbe necessario chiuderla con Ok = 0

E' un controllo condizionale inutile in questo contesto ed introduce un errore.

In sintesi lo script per funzionare meglio richiede le piccole correzioni

che ho indicato.


:)
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Joe, nella modifica fatta da me, ho tagliato la testa al toro ed ho eliminato SerieFreqTurbo, ho risolto così, ora seguendo i tuoi suggerimenti ho riinserito SerieFreqTurbo, spero di aver capito bene i tuoi suggerimenti, ho fatto un confronto tra lo script con SerieFreqTurbo e quello senza e mettendo a tutti e due una ricerca per 300 estrazioni, i risultati sono quasi identici, ed ho capito perchè sono quasi identici, perchè in quello con la funzione SerieFreqTurbo, se l'estrazione ha più di due numeri che appartengono ai 4 numeri (5,8,17,56) ,SerieFreqTurbo non li vede, praticamente salta queste combinazioni, infatti ha saltato queste tre estrazioni

[03-05-2016] TO 30.08.17.05.27
[31-05-2016] BA 56.13.17.36.08
[26-11-2016] CA 05.08.33.56.44

Impostando 200 estrazioni i risultati nell'output sono identici, perchè non ci sono queste estrazioni

La domanda è, come bisogna impostare SerieFreqTurbo per fare in modo che veda anche quelle estrazioni che hanno più di 2 numeri?

Codice:
  Option Explicit
Sub Main
    Dim Ini,Fin,Es,Co,R,Ok,K,Clp
    Dim Ruota(2),Ruote(2),Posta(1),Poste(2)
    Dim Ambata(1),Ambo1(2),Ambo2(2),Anum(4)
    ColoreTesto 2
    Scrivi "ambo tra i numeri 5 - 8 - 17 - 56"
    Scrivi "METODO BY Margot"
    ColoreTesto 0
    Posta(1) = 1
    Poste(2) = 1
    Anum(1) = 5 : Anum(2) = 8 : Anum(3) = 17 : Anum(4) = 56
    K = CInt(InputBox("Quante Estrazioni controllare?",,200))
    Clp = CInt(InputBox("Quanti colpi di gioco?",,6))
    Ini = EstrazioneFin - K
    Fin = EstrazioneFin
    Co = 0
    For Es = Ini To Fin
        Messaggio "Script by Edo"
        Call AvanzamentoElab(Ini,Fin,Es)
        For R = 1 To 11
            If R = 11 Then R = 12
            ReDim Ru(1)
            Ru(1) = R
            If SerieFreqTurbo(Es,Es,Anum,Ru,2) = 1 Then
                Ambata(1) = Fuori90(Figura(Estratto(Es,VE_,3)) + 21)
                Ambo1(1) = Ambata(1)
                Ambo1(2) = Fuori90(5*(Estratto(Es,RO_,4)) + 28)
                Ambo2(1) = Ambata(1)
                Ambo2(2) = Fuori90(Diametrale(Estratto(Es,PA_,4)) + 44)
                Co = Co + 1
                ColoreTesto 1
                Scrivi String(100,"=") & " Caso n°" & Co,1
                Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & "  Ambo tra i numeri 5 - 8 - 17 - 56 "
                Scrivi String(100,"=")
                ColoreTesto 0
                Ruote(1) = BA_ : Ruote(2) = CA_
                ImpostaGiocata 1,Ambata,Ruote,Posta,Clp
                ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp
                ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp
                Gioca Es
            End If
        Next
    Next
    ScriviResoconto
End Sub
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Ciao Salvo.

No è cosa differente.

Diciamo che è stato preso uno script ... e lo si è adattato.

Ma ci sono errori.

Li vediamo dopo prima

Se scrivo "SerieFrequenza (Estratto) = 2" ... Cerco l'Ambo. Solo l'Ambo

Se Scrivo ">1" trova sia l' l'Ambo che le sorti maggiori.

Questo però vale universalmente.

Quanto invece dicevo ...

... è riferito ai parametri ",,,,1" significa nell'archivio "L1"

Dunque lo script come è stato proposto,

elabora statistiche per "un gioco con un altro archivio"

:)
 

joe

Advanced Member >PLATINUM PLUS<
Codice:
'Option Explicit
Sub Main
'Rev By Joe
    Dim Ini,Fin,Es,R,SF,Co,Clp,aNum
    Dim ruote(2)
    Dim posta(1)
    Dim poste(2)
    Dim ambata(1)
    Dim ambo1(2)
    Dim ambo2(2)
    Dim ru(1)
    posta(1) = 1
    poste(2) = 1
    aNum = Array(0,5,8,17,56)
    ruote(1) = BA_ : ruote(2) = CA_
    Clp = CInt(InputBox("Quanti colpi di gioco?",,6))
    Ini = EstrazioneFin - 300
    Fin = EstrazioneFin
    ColoreTesto 2
    Scrivi "Ambo tra i numeri 5 - 8 - 17 - 56"
    Scrivi "METODO BY Margot"
    ColoreTesto 0
    Messaggio "Script by Edo"
    For Es = Ini To Fin
        Call AvanzamentoElab(Ini,Fin,Es)
        For R = 1 To 11
            If R = 11 Then R = 12
            ru(1) = R
            SF = SerieFreqTurbo(Es,Es,aNum,ru,1)
            If SF >= 2 Then
                Co = Co + 1
                ambata(1) = Fuori90(Figura(Estratto(Es,VE_,3)) + 21)
                ambo1(1) = ambata(1)
                ambo1(2) = Fuori90(4*(Estratto(Es,RO_,4)) + 28)
                ambo2(1) = ambata(1)
                ambo2(2) = Fuori90(Diametrale(Estratto(Es,PA_,4)) + 44)
                ColoreTesto 1
                Scrivi String(100,"=") & " Caso n°" & Co,1
                Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & "  Ambo tra i numeri 5 - 8 - 17 - 56 "
                Scrivi String(100,"-"),True
                ColoreTesto 0
                ImpostaGiocata 1,ambata,ruote,posta,Clp
                ImpostaGiocata 2,ambo1,ruote,poste,Clp
                ImpostaGiocata 3,ambo2,ruote,poste,Clp
                Gioca Es,True
            End If
        Next
        If ScriptInterrotto Then Exit For
    Next
    ScriviResoconto
End Sub
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Ciao Salvo ...

ho guardato in un attimo di tempo libero a quanto scrivi.

Sembra che l'istruzione-turbo non consideri lo zeresimo elemento dell'Array.

Ovvero il primo.

Quindi i molti casi di ambi a capogioco 5 che avessero a presentarsi.

Soluzione possibile è caricare lo Zeresimo elemento con Zero.

Se confermi ... penso per Luigi sia possibile uniformare le istruzioni,

oppure procedere come normalmente uso fare con le 5 posizioni ove

antepongo "0." alla StringaEstratti così da allineare ai risultati dello split

"Uno" & "Primo" - "Due" & "Secondo" .... ecc

Mentre più nello specifico di quanto scrivi è, altro problema.

Secondo me non è un errore.

Se vuoi che consideri anche i terni devi scrivere ">= 2" nel test condizionale.

"= 2" per il computer è "= 2"

E' giusta rigidità della sintassi.


:)
 
Ultima modifica:
L

LuigiB

Guest
Ciao ..gli array che vanno passati alle funzioni statistiche devono essere valorizzzati a partire dalll'elemento 1 . .. lo zero non lo considera e se in qualche caso lo considerasse sarebbe un errore ..
segui il consiglio di Joe ..
 

joe

Advanced Member >PLATINUM PLUS<
Ringrazio Luigi e Salvo

e con l'occasione per aggiungere un caro saluto,

vi informo che ho modificato lo script al messaggio #10

allineandolo alle contingenze qui descritte e necessarie.

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto