X disaronno

[baikal]

salve sig. disaronno e buon anno volevo chiederle ha mai creato uno script per 10elotto5m soltanto che disponga la ventina estratta sulla griglia dei 90 numeri avendo la possibilità di decidere quante estrazioni disporre e se è fattibile

 

[baikal]

Salve sig.disaronno ha perfettamente ragione. Ma mi sono permesso di farle la richiesta precisa xché piú volte si é occupato di 10elotto. X il momento la ringrazio

 

[claudio8]

Buogiorno,
Salutandola , provi il listato , e mi dica se e' quello che voleva ,
Visuallzza le utime 5 estrazioni.
Unico incoveniente , non ho trovato la soluzione per la scelta delle estrazioni da esaminare .


innanzitutto un bravo x If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
quindi rispondo alla tua richiesta/soluzione
Occorre chiaramente inserire un inputbo x quantificarle e dimensionare i Titoli ed i Valori della tabella attraverso dei cicli for.
ps: utilizza questa funzione"IsNumeroPresenteInEstrazioneDL" x verificare la presenza del numero nella estrazione.

Scusa x l'intromissione, ma ho apportato qualche modifica di miglioramento dell'output

Option Explicit
'http://forum.lottoced.com/forum/lottoced/area-download/1951506-x-disaronno
'X disaronno di baikal
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 n
        Dim Fin
        Fin = EstrazioniArchivioDL
        
        ReDim aTitoli(05)
        aTitoli(01) =  Fin - 00
        aTitoli(02) =  Fin - 01
        aTitoli(03) =  Fin - 02
        aTitoli(04) =  Fin - 03
        aTitoli(05) =  Fin - 04

        Call InitTabella(aTitoli,vbYellow)
        ReDim aNum(01)
        For n = 01 To 90
            Call Messaggio("Elaborazione numero..... " & Format2(n))
            Call AvanzamentoElab(01,90,n)
            aNum(01) = n
            ReDim aValori(05)
            Dim Ritardo00
            '
            Ritardo00 = RitardoEstrattoDL(n,Fin - 00)
            If Ritardo00 = 00 Then
                aValori(01) = Format2(n)
            Else
                aValori(01) = ""
            End If
            '
            Dim Ritardo01
            Ritardo01 = RitardoEstrattoDL(n,Fin - 01)
            If Ritardo01 = 00 Then
                aValori(02) = Format2(n)
            Else
                aValori(02) = ""
            End If
            '
            Dim Ritardo02
            Ritardo02 = RitardoEstrattoDL(n,Fin - 02)
            If Ritardo02 = 00 Then
                aValori(03) = Format2(n)
            Else
                aValori(03) = ""
            End If
            '
            Dim Ritardo03
            Ritardo03 = RitardoEstrattoDL(n,Fin - 03)
            If Ritardo03 = 00 Then
                aValori(04) = Format2(n)
            Else
                aValori(04) = ""
            End If
            '
            Dim Ritardo04
            Ritardo04 = RitardoEstrattoDL(n,Fin - 04)
            If Ritardo04 = 00 Then
                aValori(05) = Format2(n)
            Else
                aValori(05) = ""
            End If
            Call AddRigaTabella(aValori,,,1,,"Kartika")
        Next
        Call CreaTabella (00,,,,1)
    End If
End Sub
Function ScegliArchivioDL()
    ReDim aVoci(01)
    aVoci(00) = "10eLotto Serale"
    aVoci(01) = "10eLotto 5minuti"
    ScegliArchivioDL = ScegliOpzioneMenu(aVoci,01," Scegli archivio ") + 01
End Function

 

[baikal]

ringrazio il sig. claudio8 e disaronno per la disponibilità era ciò che volevo vi spiego lo scopo e di rilevare il ritardo di posizione del numero cercando un pò di decodificare in maniera del tutto utopistica le estrazioni.

 

[baikal]

ottimo lavoro però non è quello che cerco perchè io intendendo il ritardo di posizione mi sono espresso male. lo script calcola il numero e il ritardo in determinate posizioni, ovvero il numero x è sortito come 7 numero 8 numero 3 numero ecc.

 

[baikal]

forse era meglio di parlare di cicli? cioè il numero 7 in un ciclo di 12 ha avuto come ritardo 4 9 25 67 85 2 ecc. per questo avevo parlato della griglia dei 90 numeri per avere anche una visuale cmq già e tanto quello che ha fatto per me e la ringrazio per la sua disponibilità

 

[baikal]

grazie era quello che cercavo.