NUOVO AMBIENTE SCRIPT AREA TECNICA

[Rookie]

il passaggio di variabili variant tra vbscript e vb6 non creava nessun problema invece in dotnet si quindi ho messo delle funzioni specifiche tipizzate

Il che e' SEMPRE una regola fausta! Mi riferisco alle variabili tipizzate!

 

[LuigiB]

Il che e' SEMPRE una regola fausta! Mi riferisco alle variabili tipizzate!

ahahhahah ci vogliono sempre gli ingredienti giusti per i pasticceri di oggi ..

 

[i legend]

Adesso scarico l ultimo aggiornamento.
Dopo posso ricopiare le nuove funzioni nel mio progetto.?
AAnche con l idea proposta da luigi non funzia.

 

[LuigiB]

devi prendere tutto il contenuto del modulowrapperdll del nuovo template e incollarlo nel tuo progetto al quale stai lavorando.

la cosa che sdici mi sembra strana ..poi posta il progeto che voglio vederlo mica ti puoi sottrarre e mandare sempre in avanscoperta il povero Tom..

 

[LuigiB]

quando la classe non è acqua .. ma tanto non ce se filano lo stesso ...

 

[Rookie]

Luigi, mi sono permesso di aggiungere alla tua istanza al forum di lottoced, un nota a supporto della desiderata tua, se vuoi leggerlo e' raggiungibile da > qui

 

[LuigiB]

Luigi, mi sono permesso di aggiungere alla tua istanza al forum di lottoced, un nota a supporto della desiderata tua, se vuoi leggerlo e' raggiungibile da > qui

percio ti ho scritto la classe non è acqua ..lo avevogià letto..

 

[Rookie]

quando la classe non è acqua .. ma tanto non ce se filano lo stesso ...

Considerando il tuo piu' che attivo contributo ma anche di quanti stanno seguendo con passione, un cenno di risposta (quand'anche fosse negativo) ritengo sia per lo meno doveroso...
Ovviamente e' il mio personalissimo pensiero rispetto a questo!

p.s.

percio ti ho scritto la classe non è acqua ..lo avevogià letto..

l'ho capito dopo, grazie Luigi!

 

[i legend]

E chibsi vuole sottrarre, solo che lo voglio postare completo

Il primo script che avevo fatto per spaziometria che poi tu hai rifatto completamente era simile.
Raccoglievo la distribuzione per mesi.
Una cosa un po nostalgica e di altro livello in realta per me.
Adesso faccio come dici.
Prendo il nuovo modulo wrap e lo copio nel mio progetto.
Grazie

 

[i legend]

ciao
ho scaricato l ultima Dll
ho lanciato lo script e mi da errore


prima di sostituire il nuovo modulo wrap con quello nel progetto che sto facendo vorrei capire perchè a voi funzia e a me da errore

la variabile è dichiarata va da 0 a fine corsa perchè non è valida?

 

[i legend]

Il problema è ubound aret

Se metto 5 va tutto bene.

 

[Rookie]

ciao
ho scaricato l ultima Dll
ho lanciato lo script e mi da erroreVedi l'allegato 2254432


prima di sostituire il nuovo modulo wrap con quello nel progetto che sto facendo vorrei capire perchè a voi funzia e a me da errore

la variabile è dichiarata va da 0 a fine corsa perchè non è valida?

Hai guardato col debug inserendo break-points (i pallini rossi ad inizio di una riga di codice che vuoi controllare) per vedere che valore assume aRet e quindi a cosa punta k?

 

[giomi]

ciao forse l ' errore e' qui

 For k = 0 To UBound(aNomi)

 

[i legend]

ciao cosi non da errori almeno sul mio pc

ubound aret per lui non è 5

 

[Rookie]

ciao cosi non da errori almeno sul mio pc
Vedi l'allegato 2254434
ubound aret per lui non è 5

Quanto vale aRet ? Se e' superiore a 5 (o assume un valore negativo) dovresti guardare in sezioni precedenti al punto in cui l'errore viene segnalato... sempre se ho capito il senso del tuo "non e' 5"

 

[i legend]

Si ho letto. Non viene ridimensionato prima aveva acquisito valore 10.
Ma perché non funzia solo a me?
Grazie per il suggerimento Rookie
Grazie anche a te giomi

 

[i legend]

Semplice errore di scrittura.

 

[i legend]

ho provato con la nuova funzione
ho dichiarato tutto Long
potete controllare se a voi funzia ?
la Colonna ru e Formz sono la 13 e 14
quindi si parte dalla colonna 3=1

Public Sub MyScriptRoutine()
Dim aR(11) As Long, idMese As Long = 3, ord As Long = -1
Dim R As Long
For R = 1 To 11
    aR(R) = R
Next
dim aOdr(0) as long
aOrd(0)=-1
Call GetEstrattiSuRuotaSingola(aR(), idMese, -1)
End Sub
Sub GetEstrattiSuRuotaSingola(aR() As Long, idMese&, ord&)
    Dim idEstr&, idM&, s$, pres&, nR&
    nR = UBound(aR)
    Dim r As Long, p As Long, E As Long, id As Long
    ' per utilizzare matrice a 2 dimensioni sostituisco aStat(nR,90,14)
    ReDim aStat(nR * 90, 14) As Long
    ReDim aId(nR, 90) As Long
    GetIdAppoggio(aR(), aId(), aStat()) ' questa funzione mi restituisce l indice del vettore dove coolocare i risultati
    For idEstr = 1 To EstrazioniArchivio
        idM = Month(DataEstrazione(idEstr))
        For r = 1 To UBound(aR)
            ReDim aE(5) As Long
            Call GetArrayNumeriRuota(idEstr, aR(r), aE)
            If aE(1) > 0 Then
                For p = 1 To 5
                    E = aE(p)
                    id = aId(r, E)
                    aStat(id, idM) = aStat(id, idM) + 1
                Next
            End If
        Next
    Next
    ' inserisco direttamente i valori da ordinare per evitare possibili errori di scrittura
    OrdinaMatriceL(aStat, 3, -1)
    For id = 1 To UBound(aStat)
        s = SiglaRuota(aStat(id, 13)) & "   " & Format2(aStat(id, 14)) & "   "
        For E = 1 To 12
            s = s & Format2(aStat(id, E)) & "    "
        Next
        Scrivi s
    Next
End Sub
' arte dell arrangiamento dell accademia  pasticcioni
Sub GetIdAppoggio(aRu() As Long, aId() As Long, aStat() As Long)
    Dim i As Long, n As Long, k As Long
    For i = 1 To UBound(aRu)
        For n = 1 To 90
            k + = 1
            aId(i, n) = k
            aStat(k, 13) = i ' numero Ruota
            aStat(k, 14) = n ' estratto
        Next
    Next

 

[LuigiB]

mi devi scusare caro Legend ma stavolta il pasticcio è mio ... qui insiem aTom siamo diventati soci ..

 

[LuigiB]

correzione definitiva bug segnalato da legend

DDLLScript_per_utenti

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

registrare la dll , se avevate gia registrato la versione precedente a questa basta solo sostituire la dll e non c'è bisogno di registrarla