Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
Adesso scarico l ultimo aggiornamento.
Dopo posso ricopiare le nuove funzioni nel mio progetto.?
AAnche con l idea proposta da luigi non funzia.
 
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..
 
quando la classe non è acqua :cool: .. 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!
 
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:)
 
ciao
ho scaricato l ultima Dll
ho lanciato lo script e mi da erroreerroreN.png


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?
 
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?
 
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:)
 
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

Codice:
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
 
correzione definitiva bug segnalato da legend


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

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 02 ottobre 2025
    Bari
    30
    40
    37
    66
    64
    Cagliari
    59
    20
    29
    09
    89
    Firenze
    60
    17
    10
    11
    90
    Genova
    26
    44
    84
    50
    86
    Milano
    37
    38
    20
    03
    29
    Napoli
    14
    20
    75
    35
    08
    Palermo
    77
    26
    70
    62
    39
    Roma
    39
    25
    05
    58
    80
    Torino
    69
    06
    65
    77
    70
    Venezia
    08
    89
    19
    09
    78
    Nazionale
    70
    67
    81
    78
    19
    Estrazione Simbolotto
    27
    44
    08
    03
    42
Indietro
Alto