Per gli scripter

[antonio65]

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!!!

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

 

[claudio8]

Antonio, fai un esempio pratico, personalmente non ho capito molto.
ciao

 

[antonio65]

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