Novità

Per gli scripter

antonio65

Super Member >PLATINUM<
Ciao a tutti, chiederei una cortesia come sempre quella che ho trovato in questo forum....avrei bisogno di una routine di eleborazioni tra le 11 ruote e non so come fare...La routine dovrebbe essere fatta con un mio metodo..se non avete tempo per verificare lo script che allego la routine di eleborazione potrebbe essere fatta anche con le estrazioni reali mi spiego meglio: prendendo un estrazione qualsiasi vengono estratti 55 numeri per le 11 ruote da quella stessa estrazione appunto facendo la routine di eleborazioni che richiedo cortesemente...se per l'estrazione successiva accoppiando appunto i 55 numeri estratti che esito danno..Chiaro?Grazie per chi mi aiutera'....se qualcuno lo volesse fare con lo script allegato l'elaborazione finale che deve tener conto sono i 5 vettori definiti come Nn...ancora infinite grazie Antonio!!!
Codice:
Sub Main
    Dim Nu(5),Nn(5),Ru(12),T,V,Numero,SommaE,SommaEx4,Nuadd,Nuadd2,Nuadd3,NumSom,Numalti,Risnumalti,Terzonumero,Quartonumero1,Quartonumerodiviso,Quartonumero2,Quintonumero1,Quintonumero2
    Dim poste(3),postee(3)
    Dim posta(2)
    posta(1) = 1 ' < - - - posta per estratto
    Ini = EstrazioneFin - 40
    fin = EstrazioneFin
    r = InputBox("Quale Ruota",,1)
    T = Array(T,"Data Estraz."," Num.Estratti","SommaEstratti","Estr.x 4","2 Estratto","SommaEx4","NumSom","Numalti","nu1","nu2","nu3","nu4","nu5","Esito","Estratti","clp")
    Call InitTabella(T,1,3,,5)
    For es = Ini To fin
        Call AvanzamentoElab(Ini,fin,es)
        For p = 1 To 5
            p1 = 1
            p2 = 2
            p3 = 3
            p4 = 4
            p5 = 5
            estr = Estratto(es,r,p1)
            SommaE = SommaEstratti(es,r) ' Somma estratti COMPLETA
            A = Abs(SommaE - Numero) ' numero SCELTO CON 62 SOTTRATTO
            B = Abs(SommaE + Numero) ' numero SCELTO CON 62 SOTTRATTO ADDIZIONATO
            Numero = estr
            Nuadd = Numero*4' 248
            Nuadd2 = Abs(Nuadd - 100)'148
            Nuadd3 = Fuori90(Abs(SommaE - Nuadd2))'8 2°Numero
            SommaEx4 = SommaE*4'624
            NumSom = Nuadd + SommaE'404
            Numalti = Abs(SommaEx4 - NumSom)'220
            Risnumalti = Abs(Numalti - 100)'120
            Terzonumero = Abs(SommaE - Risnumalti)'36 Terzo numero
            Quartonumero1 = Numero + Nuadd3 + Terzonumero '106
            Quartonumerodiviso = Quartonumero1/2'53
            Quartonumero2 = Quartonumerodiviso + Terzonumero'89 Quarto numero
            Quintonumero1 = Nuadd3 + Terzonumero + Quartonumero2'133
            Quintonumero2 = Abs(SommaE - Quintonumero1)'23
            '************************************************************************************
            Nn(1) = Fuori90(Abs(Numero))
            Nn(2) = Fuori90(Abs(Nuadd3))
            Nn(3) = Fuori90(Abs(Terzonumero))
            Nn(4) = Fuori90(Abs(Quartonumero2))
            Nn(5) = Fuori90(Abs(Quintonumero2))
            '************************************************************************************
        Next
        Call VerificaEsito(Nn,Ru,es + 1,1,1,,es1,clp,estratti)
        '.......................................
        V = Array(V,GetInfoEstrazione(es) & " = " & SiglaRuota(r),StringaEstratti(es,r),SommaE,Nuadd2,Nuadd3,SommaEx4,NumSom,Numalti,Nn(1),Nn(2),Nn(3),Nn(4),Nn(5),es1,estratti,clp & "°")
        Call AddRigaTabella(V)
        ImpostaGiocata 1,Nn,Ru,posta,clp
        Gioca es
        Call SetColoreCella(15,,7)
        Call SetColoreCella(1,,1)
        Call SetColoreCella(2,,1)
        If V(14) = "Estratto" Then Call SetColoreCella(14,7,5)
        If V(14) = "Ambo" Then Call SetColoreCella(14,1,5)
        If V(14) = "Terno" Then Call SetColoreCella(14,4,7)
        If V(14) = "Quaterna" Then Call SetColoreCella(14,2,4)
        If V(14) = "Cinquina" Then Call SetColoreCella(14,2,4)
        rr = 11
        If EstrattoFrequenza(rr,Nn(1),es + 1,es + clp) > 0 Then Call SetColoreCella(9,2,5)
        If EstrattoFrequenza(rr,Nn(2),es + 1,es + clp) > 0 Then Call SetColoreCella(10,2,5)
        If EstrattoFrequenza(rr,Nn(3),es + 1,es + clp) > 0 Then Call SetColoreCella(11,2,5)
        If EstrattoFrequenza(rr,Nn(4),es + 1,es + clp) > 0 Then Call SetColoreCella(12,2,5)
        If EstrattoFrequenza(rr,Nn(5),es + 1,es + clp) > 0 Then Call SetColoreCella(13,2,5)
    Next
    SetTableTitle "         Listato Sommativo di antonio65 ","Arial",12
    SetTableWidth("100%")
    SetTableHeight("100%")
    Call CreaTabella()
    ScriviResoconto
End Sub
 
Ciao Claudio, come va? e' una cosa semplice solo che provo e riprovo e non riesco....tanto impegno poca riuscita....in pratica si tratta di una routine di eleborazioni : ti faccio un esempio con un estrazione reale l'ultima cioe' giovedi 19 aprile....1 estratto fi Bari se fa ambo con gli altri 54 estratti della stessa estrazione....quindi 1 e 2 e 3 e 4 e 5 di cagliari con il 1 estratto di bari...2 estratto di bari con il 1 e 2 e 3 e 4 e 5 di cagliari...poi di firenze a fare tutte le ruote ...1 estratto di cagliari con 1e 2e 3e 4 e 5 di firenze etc etc....con questo esempio poi me lo riporto con lo script allegato con i vettori Nn ....e quindi gli esiti vanno per singola ruota e tutte le ruote...quindi niente sommativi etc etc solo questo tipo di routine....grazie Antonio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 07 agosto 2025
    Bari
    22
    21
    64
    60
    55
    Cagliari
    24
    82
    80
    52
    27
    Firenze
    85
    68
    06
    58
    33
    Genova
    72
    86
    50
    80
    22
    Milano
    79
    87
    02
    38
    89
    Napoli
    84
    60
    64
    16
    32
    Palermo
    02
    38
    01
    58
    67
    Roma
    42
    28
    65
    69
    70
    Torino
    76
    68
    39
    11
    44
    Venezia
    13
    07
    81
    01
    53
    Nazionale
    76
    43
    32
    11
    19
    Estrazione Simbolotto
    Nazionale
    09
    02
    28
    34
    15
Indietro
Alto