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 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto