Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
lotto_tom75 ha scritto:
comodi ragazzi comodi... :D :LOL:

Al momento, oltre a specializzarmi nel tiro al BUG :ROFLMAO:, 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?



Codice: 
Dim frm As New frmParametri

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

Grazie mille come sempre Master Chief Bastianich Shifu 🙏 :D
Clicca per espandere...
mi risulta che si debba passare cmbSorte.listindex ... prova un po vedi se lievita...
 
LuigiB ha scritto:
mi risulta che si debba passare cmbSorte.listindex ... prova un po vedi se lievita...
Clicca per espandere...

Purtroppo mi sa che ho bruciato la torta...

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

questo mi da -1

e quest'altro...

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

mi da errore prima di lanciarlo... dalla finestra! :D :ROFLMAO:
 
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:)
 
i legend ha scritto:
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:)
Clicca per espandere...

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

1677530971031.png


alt a bene vedere c'è qualcosa di strano ...
 
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...

www.mediafire.com

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

Codice: 
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

1677534902450.png
 
Rookie ha scritto:
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
Clicca per espandere...
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

1677569768074.png
 
Ultima modifica:
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.
 
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)
Codice: 
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
 
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
 
nel nuovo aggiornamento

www.mediafire.com

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

1677578207540.png
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto