NUOVO AMBIENTE SCRIPT AREA TECNICA

[lotto_tom75]

Questo dimostra (come dicevamo o scrivevamo) che c'e' attenzione alla platea dei non paganti... Bravi a voi per aver individuato il bug e bravi anche a Wayne & C. per averlo fixato a stetto giro!

Grazie professor Oogway ma non importa che mi diate del voi

 

[LuigiB]

comodi ragazzi comodi...

Al momento, oltre a specializzarmi nel tiro al BUG , sto portando avanti la pentolaccia di tre progettini di esercitazione (slider img, tabella numerica e quello collegato all'interfaccia di richiesta parametri lotto...)

A proposito di quest'ultimo chiedo al Master Chief SLDR prima di impazzire del tutto...

perchè questa riga mi legge come sorte sempre Estratto anche se ne scelgo un'altra?

Dim frm As New frmParametri

MsgBox("sorte " & frm.cmbSorte.List(nSorte))

Grazie mille come sempre Master Chief Bastianich Shifu 🙏

mi risulta che si debba passare cmbSorte.listindex ... prova un po vedi se lievita...

 

[lotto_tom75]

mi risulta che si debba passare cmbSorte.listindex ... prova un po vedi se lievita...

Purtroppo mi sa che ho bruciato la torta...

MsgBox("sorte " & frm.cmbSorte.ListIndex)

questo mi da -1

e quest'altro...

MsgBox("sorte " & frm.cmbSorte.ListIndex(nSorte))

mi da errore prima di lanciarlo... dalla finestra!

 

[LuigiB]

perche evidentemente non è selezionato nessun elemento nella combobox ..

 

[i legend]

Ciao a tutti
Anche oggi ho dedicato del tempo a twb
, non so perche ma a me continua a crashare.
Ho visto l esempio di ordina matrice , a me non funzia.
Domani vedo come risolvere , ora vado a nanna che sono a PEZZI.
Prossimamente ci sarà una nuova torta da assaggiare 🤣👍
buona notte a tutti

 

[lotto_tom75]

perche evidentemente non è selezionato nessun elemento nella combobox ..

I'm in alto mare... 🛟👀
le combobox mi rimangono proprio sul gargarozzo... 🥴

Tutte le volte che t'interpello Maestro Shifu mi sembra di parlare con l'Oracolo di Delphi o con la Sibilla Cumana... 😜

⛵

 

[lotto_tom75]

Ciao a tutti
Anche oggi ho dedicato del tempo a twb
, non so perche ma a me continua a crashare.
Ho visto l esempio di ordina matrice , a me non funzia.
Domani vedo come risolvere , ora vado a nanna che sono a PEZZI.
Prossimamente ci sarà una nuova torta da assaggiare 🤣👍
buona notte a tutti

"save as" come non... 👋

 

[LuigiB]

Ciao a tutti
Anche oggi ho dedicato del tempo a twb
, non so perche ma a me continua a crashare.
Ho visto l esempio di ordina matrice , a me non funzia.
Domani vedo come risolvere , ora vado a nanna che sono a PEZZI.
Prossimamente ci sarà una nuova torta da assaggiare 🤣👍
buona notte a tutti

uno fa le torte , l'altro le decora e le inforna...hanno fatot un associazione a delinquere

che vuol dire che non ti funziona ordina matrice ,io ho provaot ora

l'array bidimensionale è ordinato per colonna 0 e 1




alt a bene vedere c'è qualcosa di strano ...

 

[LuigiB]

ATTENZIONE NUOVO AGGIORNAMENTO

purtroppo non abbiamo un post di riferimento e questo si perderà tra gli altri...

Ho corretto il bug segnalato da legend su OrdinaMatrice , e ci sono delle funzioni nuove che ho aggiuto quindi la dll va registrata,
guardate sempre l'help aggiornato.

mi racccomando di copiare la dll nello stesso posto dov'era prima e di registrarla.
Ovviamente per gli script bisogna usare il nuovo template presente nello zip , attenti a non sosttuire quell ovostro se ci stavate facendo qualcosa...

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

 

[LuigiB]

legend per attivare la correzionesenza dover rifare tutto con il nuovo template , dopo che vrai sostituito e registrato la dll
apri normalmente il progetto a cui stavi lavorando

vai nel modulo ModWrapperDll e sostituisci questa funzione con questa

Function OrdinaMatrice(aMatrice2Dim As Variant, Optional aIdColOrd As Variant = 0, Optional aVersoOrdCol As Variant = Nothing, Optional Inizio As Long = -1, Optional Fine As Long = -1) As Variant
    Return cScript.OrdinaMatrice(aMatrice2Dim, aIdColOrd, aVersoOrdCol, Inizio, Fine)
End Function

matrice ordinata per colonne 0 ,1 discendente

 

[Rookie]

Ho rifatto anch'io tutto... e ho usato un trucco (forse illecito) perche' cliccando sul 5 e sul 7 non succede nulla. Il trucco consiste nel settare la caption e l'index con lo stesso valore visibile nel button, lo capisci dal codice che ho postato sopra. Voglio capire perche' per i restanti 8 buttons funziona e il trucco non funziona per quei due. Apparentemente non ci sono altri indexes in collisione... ma visto che sei stato piu' che un fulmine di guerra ho il tempo per vedere cosa non funziona...
Complimenti Luigi

Buongiorno a Tutti, dopo varie verifiche per capire perche' il pulante 5 e il pulsante 7 non facevano il lavoro ho cambiato l'array di controlli (togliendo ogni riferimento) rinominandolo e... il motivo per cui non funzioanvano e' dovuto (forse ad un altro bug dovuto alla pulizia della memoria) a cio' che ho evidenziato nell'immagine sotto:

Prima, l'array che ospitava i 10 bottoni si chiamava numero(), successivamente ho cancellato i 10 bottoni e li ho ricreati nominandoli casella() ma... nel progetto rimanevano presenti pur non essendoci alcun riferimento, equivocando perche' determinavano collissioni con gli stessi index. E' un fastidioso problema che puo' produrre risultati inattesi e inspiegabili.
Bisogna stare attenti quando si modifica un progetto esistente a cui si aggiungono elementi nuovi (controlli), guardare nelle properties i vari nomi presenti, se sono visibili nomi che non dovrebbero essere presenti.
Buona giornata

 

[LuigiB]

ogni tanto si incappa in qualche bug ,e uno non si spiega come mai di certi compotramenti , ci sono altre 2 o 3 segnalazioni che sono pending da parte mia ..
buongiorno a tutti.

 

[Rookie]

ogni tanto si incappa in qualche bug ,e uno non si spiega come mai di certi compotramenti , ci sono altre 2 o 3 segnalazioni che sono pending da parte mia ..
buongiorno a tutti.

Siamo cacciatori di errori e di bugs! Ma questo ci aiuta a prevenirli...

 

[i legend]

buon giorno
io non capisco perchè ordinamatrice mi da errore

ecco l esempio di Luigi funzionante ed il mio che mi dice che gli elementi non corrispondono.
questa è una delle routine che si seleziona dalla mia maschera
Ruote
idMese=colonna da ordinare ( dichiarato long nello script
ord= -1 decrescente (dichiarato long)

Public Sub MyScriptRoutine()

    ' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
    
       Dim aTest(10, 2) As Long
Dim aRet As Variant
Dim sRet As String
Dim k As Long, e As Long
For k = 0 To 10
    For e = 0 To 2
        aTest(k, e) = NumeroCasuale(1, 90)
    Next
Next
For k = 0 To 10
    sRet = ""
    For e = 0 To 2
        sRet = sRet & aTest(k, e) & "."
    Next
    Scrivi(sRet)
Next
Scrivi()
aRet = OrdinaMatrice(aTest, "0,1") ' si puo passare anche un array
For k = 0 To 10
    sRet = ""
    For e = 0 To 2
        sRet = sRet & aRet(k, e) & "."
    Next
    Scrivi(sRet)
Next
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
Call GetEstrattiSuRuotaSingola(aR(), idMese, ord)
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
    Dim aStatOrd As Variant = OrdinaMatrice(aStat, 3, -1)
    For id = 1 To UBound(aStatOrd)
        s = SiglaRuota(aStatOrd(id, 13)) & "   " & Format2(aStatOrd(id, 14)) & "   "
        For E = 1 To 12
            s = s & Format2(aStatOrd(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
End Sub

 

[LuigiB]

prova a passare un array all verso di ordinamento , oppure non passargli niente perche il default è gia discendente , comunque devo sistemare la copla è del trattino del -1 che viene scambiato per un separatore

redim aVerso(0) as long
aVerso(0) = -1

 

[i legend]

Ok grazie mille ci provo

 

[LuigiB]

nel nuovo aggiornamento

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

ci sono funzioni di ordnamento piu vicine a spaziometria , nel senso che ordnano direttamente il vettore o la matrice passata nel parametro.
bisogna usare la funzione giusta in base al tipo con cui è dichiarata la matrice /array

la dll va registrata dopo aversostituito quella che si aveva

 

[i legend]

Prima spaziometria ordinava il tipo variant vero?
Cmq grazie per il super lavorone che stai facendo.
👍

 

[LuigiB]

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

 

[Rookie]

Il MESS 1.0 comincia a potersi immaginare... veloce e potente! Grazie SLDR