Novità

aiuto per anomalia per uno script da me leggermente modificato

ppaaoolloo

Super Member >PLATINUM<
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(n)),"-")
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(n)
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
 
Ultima modifica:
M

Membro cancellato 16574

Guest
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 :

Codice:
If fre > 0 Then

Provi lo stesso listato . aggiornato .

Codice:
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 .
 
Ultima modifica di un moderatore:

ppaaoolloo

Super Member >PLATINUM<
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

Advanced Member >PLATINUM PLUS<
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.

:)
 
Ultima modifica:
M

Membro cancellato 16574

Guest
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

Super Member >PLATINUM<
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

Super Member >PLATINUM<
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
 
Ultima modifica:
M

Membro cancellato 16574

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

Joe91

Advanced Member >PLATINUM PLUS<
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.

:)
 
Ultima modifica:

ppaaoolloo

Super Member >PLATINUM<
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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto