un aiuto se possibile x il lotto

baikal · 28 Dicembre 2016

Buongiorno un aiuto. C'é una funzione in spazionetria che permette di sapere se inserendo in determinato numero questo é presente 1 volta in un estrazione mensile? Es. Inserisco il numero 5 voglio sapere se sia presente in un anno tutti i mesi cioé minimo 12 volte. Credo che si tratti di ciclometria se non erro. Oppure sia stato creato uno script.grazie

Membro cancellato 16574 · 29 Dicembre 2016

Buogiorno ,
Salutandola e rinnovandondo gli Auguri
Non vogliamo dire un inesattezza , ma forse Ilegend ,
ha fatto qualche lavoro simile , a queelo che cerca .
Nel frattempo , provi questo listato , trovato in rete .
Se qualcuno vuole migliorarlo .

Codice:

Option Explicit
'un aiuto se possibile x il lotto di baikal
'http://forum.lottoced.com/forum/lottoced/area-download/2033368-un-aiuto-se-possibile-x-il-lotto
Sub Main()
    Dim Ini,fin,es
    fin = EstrazioneFin
    Ini = EstrazioneIni
    Dim an,nx,r,rx
    an = CInt(InputBox("SCRVI ANNO DA CONTROLLARE",,2014))' indica l'anno in cui fare la ricerca
    nx = CInt(InputBox("SCRIVI NUMERO DA CONTROLLARE"," 01 - 90 ",1))' indica il numero da ricercare
    r = CInt(InputBox("SCRIVI RUOTA DA CONTROLLARE"," 01 - 12 NO 11 ",1))' indica ruota 1 = Bari fino a 10 = Venezia e 12 = Nazionale
    If r = 11 Then
        Call MsgBox(("NON VALE PER LA 11 TUTTE LE RUOTE "),vbCritical)
        Exit Sub
    End If
    Call Scrivi()
    Call Scrivi("Controllo numero .......> " & Format2(nx) & " sulla Ruota di " & NomeRuota(r),01)
    rx = r
    FreTotale = 0
    For es = Ini To fin
        If an = Anno(es) Then
            Dim Inx,IdXMese1
            Dim co,j,p
            Dim IdXMese2
            Dim Fre,FreTotale
            'GENNAIO ---------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 1 per gennaio
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 01 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'FEBBRAIO --------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 2 per febbraio
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 02 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'MARZO -----------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 3 per marzo
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 03 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'APRILE ----------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 4 per aprile
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 04 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'MAGGIO ----------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 5 per maggio
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 05 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'GIUGNO ----------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 6 per giugno
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 06 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'LUGLIO ----------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 7 per luglio
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 07 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'AGOSTO ----------------------------------------------------------------------------------------------------------------------------
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 08 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'SETTEMBRE -------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 9 per settembre
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 09 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'OTTOBRE ---------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 10 per ottobre
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 10 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'NOVEMBRE --------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 11 per novembre
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 11 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            'DICEMBRE --------------------------------------------------------------------------------------------------------------------------
            Inx = Mese(es) ' prendo il numero del mese 12 per dicembre
            IdXMese1 = IndiceMensile(es) ' prendo indice mensile
            If IdXMese1 = 01 And Inx = 12 Then ' se indice mensile e la prima calcolo
                co = 00
                For j = 00 To 15 ' controllo 16 estrazioni ma esco se fine mese
                    For p = 01 To 05 ' controllo 5 estratti
                        If nx = Estratto(es + j,rx,p) Then Fre = Fre + 01
                    Next
                    co = co + 01 ' conta i cicli partendo da 1
                    IdXMese2 = IndiceMensile(es + co)' prendo indici mensili temporali
                    If IdXMese2 = 01 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
                Next
                If Fre >= 01 Then
                    Call ColoreTesto(03)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre)'scrivo data e frequenza
                    Call ColoreTesto(00)
                Else
                    Call ColoreTesto(02)
                    Call Scrivi(DataEstrazione(es) & " Ruota " & SiglaRuota(rx) & " ____ Frequenza ---> " & Fre) 'scrivo data e frequenza
                    Call ColoreTesto(00)
                End If
                FreTotale = FreTotale + Fre
                Fre = 00
            End If
            '-----------------------------------------------------------------------------------------------------------------------------------
        End If
    Next
    If FreTotale >= 12 Then
        Call ColoreTesto(03)
        Call Scrivi(Space(18) & "Frequenza Totale ---> " & FreTotale)
        Call ColoreTesto(00)
    Else
        Call ColoreTesto(02)
        Call Scrivi(Space(18) & "Frequenza Totale ---> " & FreTotale)
        Call ColoreTesto(00)
    End If
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

baikal · 29 Dicembre 2016

La ringrazio sig.magia augurandole una buona fine ed un buon 2017

Alien. · 4 Gennaio 2017

Ciao magia che per caso sarebbe possibile inserire anche gli altri 4 numeri usciti con il numero immesso ?
grazie.
E........poter inserire 4/10 anni insieme in una unica videata?

Membro cancellato 16574 · 13 Gennaio 2017

Buongiorrno ,
Salutando tutti .
Le postiamo un listato , di Mike58 .
Lo provi .

Codice:

'frequenza mensile Estratti in tot, anni di Mike58
Sub Main()
    Dim ru(01),nua(4005,13),nn(01)
    ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","31/12/2008")
    ms = CInt(InputBox("In quale mese? ",,5))
    If ms = "" Then Exit Sub
    r = CInt(InputBox("Di quale ruota? ",,5))
    If r = "" Then Exit Sub
    ru(01) = r
    q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ? ",,20))
    If q = "" Then Exit Sub
    '
    fin = EstrazioneFin
    '------------init tabella ------------------
    ReDim atitoli(13)
    atitoli(01) = " "
    atitoli(02) = " Numero "
    atitoli(03) = " Frequenza "
    atitoli(04) = " Ritardo Attuale "
    atitoli(05) = " Anno_2016 "
    atitoli(06) = " Anno_2015 "
    atitoli(07) = " Anno 2014 "
    atitoli(08) = " Anno 2013 "
    atitoli(09) = " Anno 2012 "
    atitoli(10) = " Anno 2011 "
    atitoli(11) = " Anno 2010 "
    atitoli(12) = " Anno 2009 "
    atitoli(13) = " "
    Call InitTabella(atitoli,01,,03,05)
    For es = PrimaSuccessiva(ee) To fin
        Messaggio es
        AvanzamentoElab PrimaSuccessiva(ee),fin,es
        If Mese(es) = ms Then
            co = 00
            For x = 01 To 90
                co = co + 01
                nua(co,01) = co
                nua(co,02) = x
                nn(01) = x
                k = SerieFreqTurbo(es,es,nn,ru,01)
                rt = SerieRitardoTurbo(Ini,fin,nn,ru,01)
                nua(co,04) = nua(co,04) + k
                nua(co,05) = rt
                k1 = 00
                If Anno(es) = 2016 Then k1 = SerieFreqTurbo(es,es,nn,ru,01)
                nua(co,06) = nua(co,06) + k1
                k2 = 00
                If Anno(es) = 2015 Then k2 = SerieFreqTurbo(es,es,nn,ru,01)
                nua(co,07) = nua(co,07) + k2
                k3 = 00
                If Anno(es) = 2014 Then k3 = SerieFreqTurbo(es,es,nn,ru,01)
                nua(co,08) = nua(co,08) + k3
                k4 = 00
                If Anno(es) = 2013 Then k4 = SerieFreqTurbo(es,es,nn,ru,01)
                nua(co,09) = nua(co,09) + k4
                k5 = 00
                If Anno(es) = 2012 Then k5 = SerieFreqTurbo(es,es,nn,ru,01)
                nua(co,10) = nua(co,10) + k5
                k6 = 00
                If Anno(es) = 2011 Then k6 = SerieFreqTurbo(es,es,nn,ru,01)
                nua(co,11) = nua(co,11) + k6
                k7 = 00
                If Anno(es) = 2010 Then k7 = SerieFreqTurbo(es,es,nn,ru,01)
                nua(co,12) = nua(co,12) + k7
                k8 = 00
                If Anno(es) = 2009 Then k8 = SerieFreqTurbo(es,es,nn,ru,01)
                nua(co,13) = nua(co,13) + k8
            Next
        End If
    Next
    OrdinaMatriceTurbo nua,- 01,04
    ColoreTesto 02
    Scrivi Space(10) & "Dal " & ee & " al " & DataEstrazione(fin),01
    ColoreTesto 00
    Scrivi "I " & Format2(q) & " Numeri più frequenti " & " a " & NomeRuota(r) & " nel mese di " & MeseNome(ms),01
    Scrivi
    For z = 01 To q
        ReDim avalori(13)
        avalori(01) = "  "
        avalori(02) = nua(z,02)
        avalori(03) = nua(z,04)
        avalori(04) = nua(z,05)
        avalori(05) = nua(z,06)
        avalori(06) = nua(z,07)
        avalori(07) = nua(z,08)
        avalori(08) = nua(z,09)
        avalori(09) = nua(z,10)
        avalori(10) = nua(z,11)
        avalori(11) = nua(z,12)
        avalori(12) = nua(z,13)
        avalori(13) = " "
        Call AddRigaTabella(avalori,,,03)
        For xx = 05 To 12
            Call SetColoreCella((xx),04,01)
            If avalori(5) > 0 And avalori(06) > 00 And avalori(07) > 00 And avalori(8) > 00 And avalori(09) > 00 And avalori(10) > 00 And avalori(11) > 00 And avalori(12) > 00 Then
                Call SetColoreCella((xx),06,01)
                Call SetColoreCella(02,06,01)
            End If
        Next
        If avalori(05) = 00 Then Call SetColoreCella(02,03,01)
        If avalori(04) = 00 Then Call SetColoreCella(04,03,02)
        Call SetColoreCella(01,01,00)
        Call SetColoreCella(13,01,00)
        k11 = k11 + avalori(05)
        k12 = k12 + avalori(06)
        k13 = k13 + avalori(07)
        k14 = k14 + avalori(08)
        k15 = k15 + avalori(09)
        k16 = k16 + avalori(10)
        k17 = k17 + avalori(11)
        k18 = k18 + avalori(12)
    Next
    ReDim avalori1(13)
    avalori1(01) = " "
    avalori1(05) = k11
    avalori1(06) = k12
    avalori1(07) = k13
    avalori1(08) = k14
    avalori1(09) = k15
    avalori1(10) = k16
    avalori1(11) = k17
    avalori1(12) = k18
    Call AddRigaTabella(avalori1,01,,03,05)
    Call SetTableWidth("100%")
    Call CreaTabella()
    Scrivi "     Tabella listed by Mike58      ",01,- 01,03
End Sub

Alien. · 17 Gennaio 2017

Buongiorno,magia

credo che il listato sia diretto a me,grazie ottimo.

ma...mi riferivo al primo script

Controllo numero .......> 77 sulla R11uota di Bari 02.01.2014 Ruota BA ____ Frequenza ---> 2 01.02.2014 Ruota BA ____ Frequenza ---> 1 01.03.2014 Ruota BA ____ Frequenza ---> 0 01.04.2014 Ruota BA ____ Frequenza ---> 1 02.05.2014 Ruota BA ____ Frequenza ---> 3 03.06.2014 Ruota BA ____ Frequenza ---> 1 01.07.2014 Ruota BA ____ Frequenza ---> 1 02.08.2014 Ruota BA ____ Frequenza ---> 1 02.09.2014 Ruota BA ____ Frequenza ---> 1 02.10.2014 Ruota BA ____ Frequenza ---> 0 03.11.2014 Ruota BA ____ Frequenza ---> 0 02.12.2014 Ruota BA ____ Frequenza ---> 0

11 Frequenza Totale --->

quindi il 77 è il numero da ricercare giusto? volevo sapere(senza essere mandato alla prima porta a destra) se si poteva sapere ,con quali gli altri 4 numeri è uscito il 77 e fare la statistica dei più frequenti,spero di non aver fatto confusione.grazie.

Alien. · 17 Gennaio 2017

cavoli,si è spostato tutto il copia ed incolla sorry

Alien. · 22 Gennaio 2017

Cerca

Cerca

un aiuto se possibile x il lotto

baikal

Super Member >PLATINUM<

Membro cancellato 16574

Guest

baikal

Super Member >PLATINUM<

Alien.

Advanced Premium Member

Membro cancellato 16574

Guest

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

Ultima estrazione Lotto

Ultimi Messaggi