RICHIESTA SCRIPT AMBI SPIA

[Roby]

Ciao a tutti,non so se è già stato creato uno script del genere,ho cercato un po' ma non ho trovato nulla..In pratica,all'uscita di un qualsiasi ambo(da scegliere volta per volta),su una determinata ruota,se fosse possibile estrapolare i numeri piu frequenti usciti successivamente al suddetto ambo,sulla stessa ruota..spero di essermi spiegata bene..ringrazio in anticipo chi potrà aiutarmi..

 

[Master]

Ho questo già fatto

[B]Sub[/B] [B]Main[/B]()
[B]Scrivi[/B]
[B]ColoreTesto[/B] 2
[B]Scrivi[/B] "I NUMERI PIU' FREQUENTI DOPO L'USCITA DI UN AMBO SPIA"
[B]Scrivi[/B]
[B]ColoreTesto[/B] 2
[B]Scrivi[/B] "LISTATO BY CLAUDIO8 - X BLACKMORE"
[B]Scrivi[/B]
[B]ColoreTesto[/B] 0
[B]Scrivi[/B]
[B]Dim[/B] [B]mt[/B](90,4),[B]n[/B](1),[B]ru[/B](1)
r [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("RUOTA DI SORTITA AMBO SPIA ","Blackmore",6)) '
a [B]=[/B] [B]CInt[/B]([B]InputBox[/B](" 1° Numero  ","Blackmore",17))
b [B]=[/B] [B]CInt[/B]([B]InputBox[/B](" 2° Numero  ","Blackmore",71))
rr [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("RUOTA DI CONTROLLO ","Blackmore",6)) ' tutte
cl [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("COLPI DI RICERCA ","Blackmore",9))
testo [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("VUOI VEDERE LE ESTRAZIONI? ( 1=si altro=no ) ","Blackmore",1))
[B]ru[/B](1) [B]=[/B] rr
caso [B]=[/B] 0
[B]For[/B] es [B]=[/B] 5000 [B]To[/B] [B]EstrazioneFin[/B] [B]-[/B] cl ' è l' estrazione di partenza
[B]Messaggio[/B] " Ambo spia " [B]&[/B] a [B]&[/B] " - " [B]&[/B] b
[B]If[/B] [B]Posizione[/B](es,r,a) [B]>[/B] 0 [B]And[/B] [B]Posizione[/B](es,r,b) [B]>[/B] 0 [B]Then[/B]
caso [B]=[/B] caso [B]+[/B] 1
co [B]=[/B] 0
[B]For[/B] i [B]=[/B] 1 [B]To[/B] 90
[B]n[/B](1) [B]=[/B] i
co [B]=[/B] co [B]+[/B] 1
[B]mt[/B](co,1) [B]=[/B] co
[B]mt[/B](co,2) [B]=[/B] [B]n[/B](1)
[B]mt[/B](co,3) [B]=[/B] [B]SiglaRuota[/B](rr)
fr [B]=[/B] [B]SerieFreq[/B](es [B]+[/B] 1,es [B]+[/B] cl,[B]n[/B],[B]ru[/B],1)
[B]mt[/B](co,4) [B]=[/B] [B]mt[/B](co,4) [B]+[/B] fr
[B]Next[/B]
[B]Scrivi[/B]"'------------------- caso n° " [B]&[/B] caso
[B]If[/B] testo [B]=[/B] 1 [B]Then[/B]
[B]ColoreTesto[/B] 2
[B]Scrivi[/B] es [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B](r) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](es,r)
[B]For[/B] z [B]=[/B] es [B]+[/B] 1 [B]To[/B] es [B]+[/B] cl
[B]ColoreTesto[/B] 1
[B]Scrivi[/B] z [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B](rr) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](z,rr)
[B]Next[/B]
[B]ColoreTesto[/B] 0
[B]End[/B] [B]If[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]OrdinaMatrice[/B] [B]mt[/B],[B]-[/B] 1,4
[B]Scrivi[/B] "Dopo l'ambo spia " [B]&[/B] [B]Format2[/B](a) [B]&[/B] "-" [B]&[/B] [B]Format2[/B](b) [B]&[/B] " di " [B]&[/B] [B]NomeRuota[/B](r)
[B]Scrivi[/B]"'-----------------------------------"
[B]For[/B] co [B]=[/B] 1 [B]To[/B] 6 '<----------------- Qui cambiare in base ai numeri che si vogliono trovare
[B]Scrivi[/B] "il n° " [B]&[/B] [B]Format2[/B]([B]mt[/B](co,2)) [B]&[/B] " è uscito su " [B]&[/B] [B]mt[/B](co,3) [B]&[/B] " " [B]&[/B] [B]FormatSpace[/B]([B]mt[/B](co,4) [B]&[/B] " volte",4,1)
[B]Next[/B]
[B]End[/B] [B]Sub[/B]

 

[Roby]

grazie Master,sei stato velocissimo!!è proprio quello che cercavo..un ringraziamento ovviamente agli autori,Claudio8 e Blackmore..

 

[claudio8]

Un commento... erano proprio spartani gli script dell'epoca.

Un saluto.

rivisitato

Sub Main()
    ColoreTesto 2
    Scrivi "I NUMERI PIU' FREQUENTI DOPO L'USCITA DI UN AMBO SPIA LISTATO BY CLAUDIO8 x BLACKMORE"
    Scrivi
    ColoreTesto 0
    Dim mt(90,4),n(1),ru(1)
    r = CInt(InputBox("RUOTA DI SORTITA AMBO SPIA ","Blackmore",6)) '
    a = CInt(InputBox(" 1° Numero  ","Blackmore",17))
    b = CInt(InputBox(" 2° Numero  ","Blackmore",71))
    rr = CInt(InputBox("RUOTA DI CONTROLLO ","Blackmore",6)) ' tutte
    cl = CInt(InputBox("COLPI DI RICERCA ","Blackmore",9))
    num = CInt(InputBox("Quanti Numeri in elenco ","Blackmore",10))
    testo = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI? ( 1=si altro=no ) ","Blackmore",1))
    ru(1) = rr
    caso = 0
    For es = 5000 To EstrazioneFin - cl ' è l'estrazione di partenza
        Messaggio " Ambo spia " & a & " - " & b
        If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 Then
            caso = caso + 1
            co = 0
            For i = 1 To 90
                n(1) = i
                co = co + 1
                mt(co,1) = co
                mt(co,2) = n(1)
                mt(co,3) = SiglaRuota(rr)
                fr = SerieFreq(es + 1,es + cl,n,ru,1)
                mt(co,4) = mt(co,4) + fr
            Next
            
            If testo = 1 Then
            Scrivi" ----------------------------------- caso n° " & caso
                ColoreTesto 2
                Scrivi DataEstrazione(es) & " n° "& es & " " & SiglaRuota(r) & " " & StringaEstratti(es,r)
                For z = es + 1 To es + cl
                    ColoreTesto 1
                    Scrivi  DataEstrazione(z)& " n° "& z  & " " & SiglaRuota(rr) & " " & StringaEstratti(z,rr)
                Next
                ColoreTesto 0
            End If
        End If
    Next
    OrdinaMatrice mt,- 1,4
    Scrivi
    Scrivi "  Dopo l'ambo spia " & Format2(a) & "-" & Format2(b) & " di " & NomeRuota(r)&"  ",1,,vbYellow,1
    Scrivi" -----------------------------------"
    For co = 1 To num
            Scrivi "il n° " & Format2(mt(co,2)) & " è uscito su " & mt(co,3) & " " & FormatSpace(mt(co,4) & " volte su " & caso ,4,1)
    Next
End Sub

 

[i legend]

È pensare che quando avete lo avete listato io di script non ne sapevo nulla.
A che epoca risale?
Se metti OrdinaMatriceTurbo è più veloce.
Cmq per chi deve imparare è ottimo.
Bravi.bello script

 

[Roby]

ciao Claudio,grazie mille per averlo rivisitato..l'unica cosa è che il controllo delle estrazioni non arriva fino all'ultima estrazione,ad esempio non viene preso in considrrazione il 17-71 su napoli uscito 2 estrazioni fa..

 

[Alien.]

veramente ottimo...........ma per il super non sarebbe possibile...spia di un singolo numero....se immetto 6 numeri che mi dia 3 numeri frequenti per ogni numero?
comunque complimenti Chloé i legend claudio8

ADESSO CHE CI PENSO NON SAREBBE MALE ANCHE PER IL 10ELOTTO

 

[claudio8]

ciao Claudio,grazie mille per averlo rivisitato..l'unica cosa è che il controllo delle estrazioni non arriva fino all'ultima estrazione,ad esempio non viene preso in considrrazione il 17-71 su napoli uscito 2 estrazioni fa..

"For es = 5000 To EstrazioneFin - cl" questa riga dice: dall'estrazione 5000 all'EstrazioneFin.ale (impostata su spaziometria) escluso i colpi " - cl "
L'analisi la fa escludendo gli ultimi "cl" impostati in iputbox. cl = CInt(InputBox("COLPI DI RICERCA ","Blackmore",9))
In sostanza se c'e un ambo in corso, tipo il 17-71 su napoli uscito 2 estrazioni fa' non dovresti considerare le ultime cl/estrazioni facenti parte di quello in corso altrimenti inseriresti in elenco i numeri già usciti del caso corrente aumentando il loro numero di uscite con il rischio di portarli tra i primi posti, di conseguenza rischieresti di giocare i numeri appena usciti.
ciao.
Un'alto modo che si usa x queste ricerche è quello di verificare le coperture, nel senso che se un numero supera il livello di freq. 1 in qualche caso, si considera solo 1 uscita nello specifico caso, onde evitare di avere numeri che se per ipotesi in passate estrazioni erano super frequenti, vadano ad invalidare la ricerca.

 

[Roby]

grazie mille per la risposta Claudio,è sempre bello imparare qualcosa..

 

[giuseppe42]

ciao a tutti, perchè mi da questo errore ? ERRORE SCRIPT - 500 VARIABILE NON DEFINITA R - LINEA 8 COLONNA 4.
GRAZIE

 

[claudio8]

ciao a tutti, perchè mi da questo errore ? ERRORE SCRIPT - 500 VARIABILE NON DEFINITA R - LINEA 8 COLONNA 4.
GRAZIE

Controlla nel menù di Configurazione, avrai sicuramente Optionn explicit settato sul "si" . Fai la modifica con "no" e riapri Elabora Script, vedrai che la scritta in questione non apparirà +. Inserisci dinuovo lo script e tutto funzionerà.
Diversamente elimina la scritta "option explicit" dallo scrpt e prova.
saluti....

 

[giuseppe42]

grazie Claudio

 

[trivellatomariotretre33]

salve e possibbile sullo stesso script fare ricerca dei 5 estratti di una ruota invece che solo l'ambo grazie di cuore .

 

[rossonero8]

Salve a tutti, forse sarebbe meglio che nelle estrazioni con un colore diverso segnalare o evidenziare gli estratti che usciti + freq
è possibile? grazie

 

[claudio8]

Ogni richiesta ha bisogno di tempo, io attualmente sono impossibilitato.
un saluto

 

[Alien.]

Ciao Claudio tempo scaduto adesso ti arriva a casa una "mora" che la devi pagare entro 24 ore sono passati 10 giorni..su su al lavoro hhahahahaah

 

[claudio8]

Ciao Claudio tempo scaduto adesso ti arriva a casa una "mora" che la devi pagare entro 24 ore sono passati 10 giorni..su su al lavoro hhahahahaah

Grazie per la "mora"... la trattengo volentieri.

 

[claudio8]

salve e possibbile sullo stesso script fare ricerca dei 5 estratti di una ruota invece che solo l'ambo grazie di cuore .

La tua richiesta implica un rifacimento completo dello script, in rete ci sono diversi lavori appoositi, prova a cercare:
Ramco 29/01/2011 x Lones (Mauro) modificato a 5 spie x debora

 

[claudio8]

Salve a tutti, forse sarebbe meglio che nelle estrazioni con un colore diverso segnalare o evidenziare gli estratti che usciti + freq
è possibile? grazie

Sicuramente quello che chiedi è un passo che ti evidenzierebbe parzialmente ciò che in ultima istanza hai tu in mente quindi ti do un consiglio.

Se al termine della elaborazione dello script utilizzi il comando "EDIT" che trovi a dx della scritta su fondo giallo "OUTPT", potrai, usando il programma che si aprirà ( Kompozer), colorare i numeri ferq. come vuoi ed evidenziare anche eventuali tue specifiche ricerche.
Lo strumento che Luigi ci ha messo a disposizione gratuitamente ha centinania di risorse nascoste, cerchiamo di utilizzarle. Scoprirle smanettando, ti assicuro che è una grossa soddisfazione e ti apre a visioni "coloratissime".
Un saluto.