aiuto per anomalia per uno script da me leggermente modificato

[ppaaoolloo]

ciao
ho provato a variare uno script di Mike
con numeri a mio piacimento
per il 10elotto, ma senza successo.


ho inserito una tabella da
a(01) = "01-02-03"
fino a
a(90) = "90-01-02"
ma non me le analizza tutte e 90.



mi analizza da:
a(13) = "13-14-15" fino ad a(89) = "89-90-01"

non mi analizza:
a(01) = "01-02-03"
a(02) = "02-03-04"
a(03) = "03-04-05"
a(04) = "04-05-06"
a(05) = "05-06-07"
a(06) = "06-07-08"
a(07) = "07-08-09"
a(08) = "08-09-10"
a(09) = "09-10-11"
a(10) = "10-11-12"
a(11) = "11-12-13"
a(12) = "12-13-14"
a(90) = "90-01-02"


come mai non me le analizza tutte?
dove sta l'errore?
come mai questa anomalia?

qualche bravo scripter riesce a correggermelo?

grazie



ecco lo script:



Sub Main
Dim a(90)
arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " 1 = Serale " & Chr(13) & " 2 = 5 Minuti "," SCEGLI ARCHIVIO ",1))
ImpostaArchivio10ELotto(arch)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,3))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioniArchivioDL
Ini = fin - qt
If arch = 1 Then Scrivi "ARCHIVIO 10 e Lotto Serale ",1
If arch = 2 Then Scrivi "ARCHIVIO 10 e Lotto 5 Minuti ",1
Scrivi " dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
ReDim atitoli(14)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " Esito "
atitoli(6) = " Stringa estratti "
atitoli(7) = " Ultima ESTR_Esito "
atitoli(8) = " Conta Estratti "
atitoli(9) = " -1 "
atitoli(10) = " -2 "
atitoli(11) = " -3 "
atitoli(12) = " +2 "
atitoli(13) = " +3 "
atitoli(14) = " +4 "

Call InitTabella(atitoli,2,,2,5)

a(01) = "01-02-03"
a(02) = "02-03-04"
a(03) = "03-04-05"
a(04) = "04-05-06"
a(05) = "05-06-07"
a(06) = "06-07-08"
a(07) = "07-08-09"
a(08) = "08-09-10"
a(09) = "09-10-11"
a(10) = "10-11-12"
a(11) = "11-12-13"
a(12) = "12-13-14"
a(13) = "13-14-15"
a(14) = "14-15-16"
a(15) = "15-16-17"
a(16) = "16-17-18"
a(17) = "17-18-19"
a(18) = "18-19-20"
a(19) = "19-20-21"
a(20) = "20-21-22"
a(21) = "21-22-23"
a(22) = "22-23-24"
a(23) = "23-24-25"
a(24) = "24-25-26"
a(25) = "25-26-27"
a(26) = "26-27-28"
a(27) = "27-28-29"
a(28) = "28-29-30"
a(29) = "29-30-31"
a(30) = "30-31-32"
a(31) = "31-32-33"
a(32) = "32-33-34"
a(33) = "33-34-35"
a(34) = "34-35-36"
a(35) = "35-36-37"
a(36) = "36-37-38"
a(37) = "37-38-39"
a(38) = "38-39-40"
a(39) = "39-40-41"
a(40) = "40-41-42"
a(41) = "41-42-43"
a(42) = "42-43-44"
a(43) = "43-44-45"
a(44) = "44-45-46"
a(45) = "45-46-47"
a(46) = "46-47-48"
a(47) = "47-48-49"
a(48) = "48-49-50"
a(49) = "49-50-51"
a(50) = "50-51-52"
a(51) = "51-52-53"
a(52) = "52-53-54"
a(53) = "53-54-55"
a(54) = "54-55-56"
a(55) = "55-56-57"
a(56) = "56-57-58"
a(57) = "57-58-59"
a(58) = "58-59-60"
a(59) = "59-60-61"
a(60) = "60-61-62"
a(61) = "61-62-63"
a(62) = "62-63-64"
a(63) = "63-64-65"
a(64) = "64-65-66"
a(65) = "65-66-67"
a(66) = "66-67-68"
a(67) = "67-68-69"
a(68) = "68-69-70"
a(69) = "69-70-71"
a(70) = "70-71-72"
a(71) = "71-72-73"
a(72) = "72-73-74"
a(73) = "73-74-75"
a(74) = "74-75-76"
a(75) = "75-76-77"
a(76) = "76-77-78"
a(77) = "77-78-79"
a(78) = "78-79-80"
a(79) = "79-80-81"
a(80) = "80-81-82"
a(81) = "81-82-83"
a(82) = "82-83-84"
a(83) = "83-84-85"
a(84) = "84-85-86"
a(85) = "85-86-87"
a(86) = "86-87-88"
a(87) = "87-88-89"
a(88) = "88-89-90"
a(89) = "89-90-01"
a(90) = "90-01-02"




'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a),"-")
Call StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,I ni,fin)
Call VerificaEsitoDL(nu,fin - rit,sorte,10,retesito,colpi,retestratti,retid)
Call VerificaEsitoDL(nu,EstrazioneFin,1,,esitoF,,estrF)
aaa = SerieFreqDL(EstrazioneFin,EstrazioneFin,nu,1)
bbb = SerieFreqDL(EstrazioneFin - 1,EstrazioneFin - 1,nu,1)
ccc = SerieFreqDL(EstrazioneFin - 2,EstrazioneFin - 2,nu,1)
ddd = SerieFreqDL(EstrazioneFin - 3,EstrazioneFin - 3,nu,1)
If fre > 0 Then
ReDim avalori(14)
avalori(1) = " Dec. " & Format2
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = retesito
avalori(6) = retestratti
avalori(7) = esitof & " : " & estrF
avalori(8) = aaa
avalori(9) = bbb
avalori(10) = ccc
avalori(11) = ddd
avalori(12) = aaa + bbb
avalori(13) = aaa + bbb + ccc
avalori(14) = aaa + bbb + ccc + ddd

Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 16
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub

 

[Membro cancellato 16574]

Buongiorno,
Salutsando tutti .
Il problema e' che il listato visualizza solo le terzine con frequenza superiore a 0 .
Questa e' la linea , che controlla la frequenza :

If fre > 0 Then

Provi lo stesso listato . aggiornato .

Option Explicit
Sub Main
    Dim Tipoarchivio
    Tipoarchivio = ScegliArchivioDL
    If Tipoarchivio > 00 Then
        If Tipoarchivio = 02 Then
            If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
                Call AggiornaArchivioDL
            End If
        End If
        Call ImpostaArchivio10ELotto(Tipoarchivio)
        Dim qualetab,qt
        Dim sorte,color
        qualetab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))
        qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
        sorte = CInt(InputBox("QUALE SORTE ",,3))
        color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
        'Dim posta(2)
        'posta(1) = 1
        'posta(2) = 1
        Dim Ini,fin
        fin = EstrazioniArchivioDL
        Ini = fin - qt
        If Tipoarchivio = 01 Then Call Scrivi("ARCHIVIO 10 e Lotto Serale ",01)
        If Tipoarchivio = 02 Then Call Scrivi("ARCHIVIO 10 e Lotto 5 Minuti ",01)
        Call Scrivi(" dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),01)
        Call Scrivi("Sorte analizzata..." & NomeSorte(sorte),01,01,,01,03)
        Call Scrivi()
        ReDim atitoli(14)
        atitoli(01) = " Tipo decina "
        atitoli(02) = " Combinazione "
        atitoli(03) = " Ritardo "
        atitoli(04) = " Rit. Max "
        atitoli(05) = " Esito "
        atitoli(06) = " Stringa estratti "
        atitoli(07) = " Ultima ESTR_Esito "
        atitoli(08) = " Conta Estratti "
        atitoli(09) = " - 1 "
        atitoli(10) = " - 2 "
        atitoli(11) = " - 3 "
        atitoli(12) = " + 2 "
        atitoli(13) = " + 3 "
        atitoli(14) = " + 4 "
        Call InitTabella(atitoli,2,,2,5)
        Dim a(90)
        a(01) = "01.02.03"
        a(02) = "02.03.04"
        a(03) = "03.04.05"
        a(04) = "04.05.06"
        a(05) = "05.06.07"
        a(06) = "06.07.08"
        a(07) = "07.08.09"
        a(08) = "08.09.10"
        a(09) = "09.10.11"
        a(10) = "10.11.12"
        a(11) = "11.12.13"
        a(12) = "12.13.14"
        a(13) = "13.14.15"
        a(14) = "14.15.16"
        a(15) = "15.16.17"
        a(16) = "16.17.18"
        a(17) = "17.18.19"
        a(18) = "18.19.20"
        a(19) = "19.20.21"
        a(20) = "20.21.22"
        a(21) = "21.22.23"
        a(22) = "22.23.24"
        a(23) = "23.24.25"
        a(24) = "24.25.26"
        a(25) = "25.26.27"
        a(26) = "26.27.28"
        a(27) = "27.28.29"
        a(28) = "28.29.30"
        a(29) = "29.30.31"
        a(30) = "30.31.32"
        a(31) = "31.32.33"
        a(32) = "32.33.34"
        a(33) = "33.34.35"
        a(34) = "34.35.36"
        a(35) = "35.36.37"
        a(36) = "36.37.38"
        a(37) = "37.38.39"
        a(38) = "38.39.40"
        a(39) = "39.40.41"
        a(40) = "40.41.42"
        a(41) = "41.42.43"
        a(42) = "42.43.44"
        a(43) = "43.44.45"
        a(44) = "44.45.46"
        a(45) = "45.46.47"
        a(46) = "46.47.48"
        a(47) = "47.48.49"
        a(48) = "48.49.50"
        a(49) = "49.50.51"
        a(50) = "50.51.52"
        a(51) = "51.52.53"
        a(52) = "52.53.54"
        a(53) = "53.54.55"
        a(54) = "54.55.56"
        a(55) = "55.56.57"
        a(56) = "56.57.58"
        a(57) = "57.58.59"
        a(58) = "58.59.60"
        a(59) = "59.60.61"
        a(60) = "60.61.62"
        a(61) = "61.62.63"
        a(62) = "62.63.64"
        a(63) = "63.64.65"
        a(64) = "64.65.66"
        a(65) = "65.66.67"
        a(66) = "66.67.68"
        a(67) = "67.68.69"
        a(68) = "68.69.70"
        a(69) = "69.70.71"
        a(70) = "70.71.72"
        a(71) = "71.72.73"
        a(72) = "72.73.74"
        a(73) = "73.74.75"
        a(74) = "74.75.76"
        a(75) = "75.76.77"
        a(76) = "76.77.78"
        a(77) = "77.78.79"
        a(78) = "78.79.80"
        a(79) = "79.80.81"
        a(80) = "80.81.82"
        a(81) = "81.82.83"
        a(82) = "82.83.84"
        a(83) = "83.84.85"
        a(84) = "84.85.86"
        a(85) = "85.86.87"
        a(86) = "86.87.88"
        a(87) = "87.88.89"
        a(88) = "88.89.90"
        a(89) = "89.90.01"
        a(90) = "90.01.02"
        '--------------------------------------------------------------------
        Dim n,nu
        For n = 01 To UBound(a)
            nu = Split("00." & a(n),".")
            Dim rit,max,Incr,fre
            Dim retesito,colpi,retestratti,retid
            Dim esitoF,estrF
            Call StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,Ini,fin)
            Call VerificaEsitoDL(nu,fin - rit,sorte,10,retesito,colpi,retestratti,retid)
            Call VerificaEsitoDL(nu,fin,AMBATA_,,esitoF,,estrF)
            aaa = SerieFreqDL(fin,fin,nu,AMBATA_)
            bbb = SerieFreqDL(fin - 01,fin - 01,nu,AMBATA_)
            ccc = SerieFreqDL(fin - 02,fin - 02,nu,AMBATA_)
            ddd = SerieFreqDL(fin - 03,fin - 03,nu,AMBATA_)
            If fre >= 00 Then
                ReDim avalori(14)
                Dim aaa,bbb,ccc,ddd
                avalori(01) = " Dec. " & Format2(n)
                avalori(02) = StringaNumeri(nu)
                avalori(03) = rit
                avalori(04) = max
                avalori(05) = retesito
                avalori(06) = retestratti
                avalori(07) = esitoF & " : " & estrF
                avalori(08) = aaa
                avalori(09) = bbb
                avalori(10) = ccc
                avalori(11) = ddd
                avalori(12) = aaa + bbb
                avalori(13) = aaa + bbb + ccc
                avalori(14) = aaa + bbb + ccc + ddd
                Call AddRigaTabella(avalori,,,02)
            End If
            Dim x
            For x = 01 To 16
                If n = color Then Call SetColoreCella((x),03,01)
            Next
        Next
        Call SetTableWidth("100%")
        If qualetab = 01 Then Call CreaTabella(06)
        If qualetab = 02 Then Call CreaTabellaOrdinabile(06)
        If qualetab > 02 Then Call MsgBox(" errore digit Tabella")
        PicClear
        Call PicStampaTesto(01,10,"Script by Mike58 ",,01,01,,11,vbRed)
        PicEsegui
    End If
End Sub
Function ScegliArchivioDL()
    ReDim aVoci(01)
    aVoci(00) = "10 e lotto Serale"
    aVoci(01) = "10 e lotto 5minuti"
    ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function

Controllare Sempre .
Salvo Errori ed Omissis .

 

[ppaaoolloo]

ciao Magia
grazie per avermi risposto,
ho provato lo script ma non funziona

le analisi che prima non uscivano
con questo nuovo script escono
ma in modo errato

è alla voce "combinazione" che escono valori strani


ad esempio :

tipo di decina combinazione

dec.1 37653
dec.2 38048
dec.3 38445
dec.4 38841
ecc. ecc.


invece dovrebbe essere

tipo di decina combinazione

dec.1 01.02.03
dec.2 02.03.04
dec.3 03.04.05
dec.4 04.05.06
ecc. ecc.


ti ringrazio per la tua disponibilità

fammi sapere

grazie

ciao

 

[Joe91]

Ciao Paolo

Si era gia discusso di argomento simile.

http://forum.lottoced.com/forum/lott...iazione-script

Prima di tutto dovresti CORREGGERE DEFINITIVAMENTE l'errore presente nello SPLITtare.

Altrimenti si ripercorre all'infinito una sorta di girone perverso.

Si prende uno script ... lo si modifica e poi si, rileva che non funziona.

Sempre allo stesso modo.

Che è come scriverebbe Murphy: Se c'è un qualcosa da non fare ... lo si fa di sicuro.

 

[Membro cancellato 16574]

Buonanotte,
Salutando tutti e ringraziando Joe91, che ha la vista molto lunga .
L' esperienzaa e la classe , non e' acqua .
Abbiamo corretto il listato , con le osservazioni , appunto di Joe91 .
Controllare Sempre .
Salvo Errori ed Omissis .

 

[ppaaoolloo]

ciao a tutti
e grazie per i vostri interventi,
vorrei aggiungere che questo script lo usato con
notevoli formazioni ed ha sempre funzionato
molto bene, utilizzando formazioni anche fino a 20 numeri.
ho notato che utilizzandolo con formazioni che vanno
da 4 a 20 funziona perfettamente mentre se lo utilizzo
per formazioni di 2 o 3 numeri da questa anomalia segnalata
al post #1

 

[ppaaoolloo]

ciao Joe e Magia
scusate ma non riesco a seguirvi

non ho le competenze per capire
i vostri termini specifici e tecnici

ho riprovato a copiare il listato
ma il risultato non cambia,
mi da sempre la stessa anomalia


ciao

 

[Membro cancellato 16574]

Buonanotte,
Provato adesso , funziona .
Riprovi a copiare di nuovo il listato .

 

[ppaaoolloo]

ciao
riprovato adesso
ed è tutto ok

funziona perfettamente




grazie di tutto

ciao

 

[Joe91]

Ciao Paolo.

E'’ Semplice.

Split significa dividere .

Si divide ... dove c’è un “carattere speciale” cioè uno spazio / un puntino /

/ un punto e virgola / una barra obliqua “/” ecc..

Quindi l’unica condizione necessaria è che ci sia “il” criterio e/o il punto in cui dividere.

Cioè quando è possibile identificare …il carattere speciale e dividere

ciò che c'è prima da ciò che c'è dopo di esso.

Tutto questo riguarda “Split”.

“Format2” invece agevola la lettura e l' ’incolonnamento dei numeretti rendendoli di “2 Cifre”.

E’' un formato per l'istuzione “Scrivi”.

Scrivi ...che non ha nulla a che a vedere con “Split”.

Quindi "Format2" inserito tra gli argomenti di Split è "un errore".

Rende stupido il computer ... ed i risultati che crea sono molto diversi da quelli desiderati.

Se vogliamo anche difficilmente immaginabili.

Imprevedibili.

Quindi prima di tutto bisognava correggere quell' ’errore.

TOGLIERE FORMAT2 da SPLIT.

Con queste premesse quello che scrivi è parzialmente inesatto.

Senza la correzione che ho suggerito e che è stata inserita da Magia

lo script funzionerebbe di tanto in tanto.

Cioè funziona come un orologio rotto che

2 volte al giorno indica l' ora esattamente.

 

[ppaaoolloo]

ciao Joe
grazie della tua spiegazione,
vedrò di farne tesoro e di utilizzare
i tuoi consigli se dovesse capitarmi
nei prossimi script

buona serata e grazie

ciao