NUOVO AMBIENTE SCRIPT AREA TECNICA

[LuigiB]

la vedi questa bella riga che hai scritto nel post prima del guazzabuglio che hai scritto dopo ?

outputform.List1.AddItem("n:" & aValori(1) & "-" & "r:" & aValori(2) & "rit:" & aValori(3) & "ritmax" & aValori(4) & "incmax:" & aValori(5) & "frq:" & aValori(6))

invece di caricare nella lista intanto carica una matrice.
La matrice la devi dimensionare prima di iniziare a caricarla , quindi 1) devi sapere a priori quanti elementi contiene , 2) devi sapere quanti valori contiene per ogni indice.

intanto fai questo.

la matrice in questioen va dichiarata globale nel form

 

[LuigiB]

Anche Wayne pensa che il tutto sia correlato a problemi legati alla memoria.
Dice che questo fatto lo esaminerà al piu presto , nel frattempo per limitare il problema dice di impostare questo flag nelle opzioni

Tools-->Ide-->options

 

[i legend]

CIao Luigi, volevo chiederti se è possibile in twb fare il resize anche dei controlli .in vb6 ho visto he facendo un ciclo for each controls è possibile, anche in vb.net.
Sarebbe un modo per adattare il form a qualsiasi schermo.
Non voglio che me lo scrivi tu il codice, mi basta sapere se sia possibile.
Finché ho tempo quando posso ci sbatto su un po l testa.
Per avere sempre l ultima dll disponibile sei riuscito ad avere il 3d ?
Buona giornata a tutti

 

[rubino2]

chi mi indica dove si deve fare la spunta sull'IDE?

tools ide option

non ho capito come fare

 

[mirapep]

Vedi l'allegato 2256416

 

[mirapep]

 

[rubino2]

grazie Mirapep

 

[giomi]

ciao a tutti , si potrebbe aggiungere allo smess , la possibilita di scegliere l' archivio da usare ed l' aggiornamento dello stesso .

 

[Mike58]

Ciao Giomi, forse capisco male ma entrambe queste cose ci sono già.
seleziona aggiornamento lotto
host image for free
seleziona aggiornamento SuperEnalotto

dalla finestrella che si apre poi selezionare l'archivio interessato

 

[lotto_tom75]

la vedi questa bella riga che hai scritto nel post prima del guazzabuglio che hai scritto dopo ?

outputform.List1.AddItem("n:" & aValori(1) & "-" & "r:" & aValori(2) & "rit:" & aValori(3) & "ritmax" & aValori(4) & "incmax:" & aValori(5) & "frq:" & aValori(6))

invece di caricare nella lista intanto carica una matrice.
La matrice la devi dimensionare prima di iniziare a caricarla , quindi 1) devi sapere a priori quanti elementi contiene , 2) devi sapere quanti valori contiene per ogni indice.

intanto fai questo.

la matrice in questioen va dichiarata globale nel form

Ho provato così.. luigi ma come ti ho scritto anche qui sotto in calce... purtroppo le matrici multidimensionali e i grafici mi rimangono particolarmente ostici nel capire come sono stutturati e per apprendere come si gestiscono via code...



cln è il numero di colonne sviluppate dall'elaborato...





Non da errore... ma credo che abbia fatto comunque un altro "guazzabuglio"

Ho provato anche a leggere la matrice così composta... e sembra che qualcosa ci abbia messo dentro... 🫠
solo che non me la ordina e se analizzo due ruote me ne fa vedere solo una... 🫤



👋🙂

 

[giomi]

ciao a tutti , grazie Mike58,
ho riscaricato la dll , ed adesso e' tutto a posto .
mi sembrava strano , che luigib , l' avesso dimenticato di inserire .

 

[LuigiB]

grazie a qualche miracolo anche a me sembra che hai fatto bene.

Ordinamatrice non ordina la matrice che gli passi ma torna un'altra amatrice ordinata , quindi devi fare

dim NuovaMatrice as variant
NuovaMatrice = Ordinamatrice ( MatriceValori)


quindi la lista la alimenterai leggendo i dati da NuovaMatrice

 

[lotto_tom75]

grazie a qualche miracolo anche a me sembra che hai fatto bene.

Ordinamatrice non ordina la matrice che gli passi ma torna un'altra amatrice ordinata , quindi devi fare

dim NuovaMatrice as variant
NuovaMatrice = Ordinamatrice ( MatriceValori)


quindi la lista la alimenterai leggendo i dati da NuovaMatrice

Una sorta di matrioska di matrici... 😭

A parte gli scherzi ho provato così...

  Dim NuovaMatrice As Variant
   NuovaMatrice = OrdinaMatrice (matricexlistbox, 2)

e a richiamarla... così...

      For cm = 0 To colonnesviluppate
      Scrivi "-------------------------------------------------------------------------------------"
      Scrivi NuovaMatrice(cm, 0) & " - " & NuovaMatrice(cm, 1) & " - " & NuovaMatrice(cm, 2)
      Scrivi "-------------------------------------------------------------------------------------"
      Next

ma ovviamente... non mi ha ordinato un bel nulla... 😵‍💫😵🥴

Adesso però mi ha mostrato entrambe le ruote con 10 risultanze anche se con 5 numeri base e classe 2 mi avrebbe dovuto mostrare 20 risultanze... (10 per ogni ruota)


Prima o poi le capirò... ne sono sicuro... e allora... anche Wayne si accorgerà del sig. Bauli... 😂

 

[LuigiB]

sicuramente avrai visto l'esempio di ordinamatrice , dato che l'esempio funziona dovrebeb funzionare pure riportato nel tuo programma

Sub MyScriptRoutine()
        ' scrivere qui il codice dello script    
      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
   
    End Sub

 

[lotto_tom75]

sicuramente avrai visto l'esempio di ordinamatrice , dato che l'esempio funziona dovrebeb funzionare pure riportato nel tuo programma

Sub MyScriptRoutine()
        ' scrivere qui il codice dello script   
      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
  
    End Sub

Grazie Lu 🙂 Domani ci guardo... e me lo studio... anche se così di primo acchito la vedo dura... 🙃 Pensavo a qualcosa di + semplice... 😓 Ora sono cotto... 'Notte 👋😉

 

[i legend]

Ciao sto facendo un piccolo browser.
Al momento ho
2 label che mi riportano concorso e anno
Indice annuale e indice mensile
Una LuigiB 's Grid un vscroll
Una combobox dove scelgo di evidenziare numeri ripetuti . Ripetuti isotopi , ambi ripetuti , isotopi e non ( si evidenziano formazioni dall ambo in su ovviamente)
C è anche l opzione scegliNumeri , dove il dorm di LuigiB evidenzia qualsiasi cosa si sceglie.
Devo un po sgrossare il codice . Renderlo più uniforme diciamo.
( ho pensato una sub per ogni chiamata, devo omogeneizzare il tutto) Appena finisco posto anche questo progetto, ma la mia domanda è
:anziché utilizzarlo c9me form si potrebbe utilizzare come homemadecontrol? E chiunque possa inserirlo in un suo form proprio come scegliRange, e grid?
Al momento l ho fatto scuro , ma se fosse possibile mi piacerebbe che il colore lo scegliesse chi lo carica sul form.

Se è fattibile mi metto a studiare .

piano piano posto tutto.
Tanto devo capire come fare il resize.
quando è perfetto,secondo me, sarà
Un aggiunta allo smess, se Luigi lo riterrà utile ovviamente.

 

[LuigiB]

per fare un usercontrol devi inserire un usercontrol il form non va bene , inoltre ci vorranno delle proprietà o funzioni che consentano all'usercontrol di interfacciarsi con chi lo deve usare.

 

[i legend]

Provo a studiare il tuo scegliRange.
Quello dovrebbe essere un user controll. Cerco anche qualche tutorial.
Già sapere che è fattibile è un passo avanti
Grazie Luigi

MIKE grazie per il pollicione sulla fiducia 😉👍

 

[lotto_tom75]

Luigi gnafo... (=un ce la fo) 😫🫡😵

Sulla falsa riga del tuo esempio... ho provato questo obbrobrio.. ma ovviamente non parte manco a spigne...

    Scrivi
    Scrivi " prova ordinamento matrice x list box 2 "
    Scrivi
  
          Dim matricexlistbox2(100, 6) As Long
         Dim aRetxmatricexlistbox2 As Variant
         Dim sRetxmatricexlistbox2 As String
         Dim z2 As Long, e2 As Long
      
         For z2 = 0 To 100
             For e2 = 0 To 6
                 matricexlistbox2(z2, e2) = NuovaMatrice 
             Next
         Next
         For z2 = 0 To 100
             sRetxmatricexlistbox2 = ""
             For e2 = 0 To 100
                 sRetxmatricexlistbox2 = sRetxmatricexlistbox2 & matricexlistbox2(z2, e2) & "."
             Next
              Scrivi(sRetxmatricexlistbox2)
         Next
      
         Scrivi()
      
         aRetxmatricexlistbox2 = OrdinaMatrice(matricexlistbox2,"0,1") ' si puo passare anche un array
      
         For z2 = 0 To 100
             sRetxmatricexlistbox2 = ""
             For e2 = 0 To 100
                 sRetxmatricexlistbox2 = sRetxmatricexlistbox2 & aRetxmatricexlistbox2(z2, e2) & "."
             Next
             Scrivi(sRetxmatricexlistbox2)
         Next

Dopo questo bagno di umiltà saresti così cortese dal mostrarmi come ordinare la matrioska di matrici sul mio preciso esempio? 🥹😅 Grazie anticipate... 👋🙂

 

[lotto_tom75]

Ciao sto facendo un piccolo browser.

Me cojioni! 😱 come dicono ad Oxford! 💪👌👍😜

ps: x legend (sottovoce...) senza farti vedere dai proff.. se Don Luì non mi da la soluzione sulle matrioske di matrici .. me la passi te sottobanco? 😈🤡😝 grassie...