NUOVO AMBIENTE SCRIPT AREA TECNICA

LuigiB · 11 Marzo 2023

joe ha scritto:
Ciao Luigi,

nel 2° esempio di griglia hai inserito dei numeri casuali.

ReDim aDati(1000, 55)

For k = 0 To 1000
aDati(k, 0) = k
For j = 1 To 55
aDati(k, j) = Int((90 * Rnd) + 1)
Next
Next
VScroll1.Min = 1
VScroll1.Max = 1000
VScroll1.Value = 1

AlimentaGrid

Se volessi usare un mio script per linserirci parte dell'archivio e poi evidenziare su essoi risultati di altri calcoli,

quali componenti si devono aggiungere per avere tutto funzionante ?

GRAZIE.

Un esempio di come riempirla con i dati dell'archivio reale è nel form frmEstrazioni del nuovo progetot che ho messo.
Non ho capito che intendi dopo ? vuoi evidenziare a mano dopo che la griglia è stata riempita o in automatico tramite codice ?

Sakti · 11 Marzo 2023

toon ha scritto:
Nell'analisi estrazioni, potete aggiungere a nche le figure oltre che somme distanze e differenze?

La mia era una richiesta da profano, sono (perdonate il francesismo) una pippa in programmazione..

i legend · 11 Marzo 2023

guardate la mia solution della colonna casuale al post 2212

NUOVO AMBIENTE SCRIPT AREA TECNICA

Ciao Luigi Scaricato SMESS e cercato di capire come inserire script ( devo prima leggere bene il pdf). Sicuramente Interessante per nuovi e successivi sviluppi. Lo script di Legend purtroppo la pagina non avendo la scrool bar laterale non arriva al bottone Run e quindi non eseguibile. Potreste...

forum.lottoced.com

per mike nuovo layout
dovrebbe andare bene cosi
ho eliminato una barra e spostato un po di controlli

i legend · 11 Marzo 2023

volevo mettere il post di riferimento ma con il link , ma è uscito tutto il messaggione

lotto_tom75 · 11 Marzo 2023

i legend ha scritto:
volevo mettere il post di riferimento ma con il link , ma è uscito tutto il messaggione

per evidenziare con link soltanto una parola del tuo testo (es. il numero di post cui ti riferisci) devi selezionarla e solo dopo mettere il link con l'apposita icona e campo

rubino2 · 11 Marzo 2023

Text4 = text4 & stringanumeri(nr,".") & vbcrlf

Volevo mettere i nr formattato con un punto nel campo text4.Box del menu

Ma mi da un errore con la funzione wrapped.

Ma forse devo avere anche qualche problema , perche'
Mi si interrompe e mi chiude il form mentre sta lavorando che avevo gia' segnalato l altro giorno.
C e qualcosa di attivo che disturba.

Per ordinamatrice decrescente e' rimasto -1 oppure e diventato zero?

Domani ci guardo con calma.

lotto_tom75 · 11 Marzo 2023

LuigiB ha scritto:
C'è un leggero problemino di possibili numeri duplicati ..

Codice:

 Function generaformazionerandom(num)

Dim i As Long
Const LimiteInf= 0
Const LimiteSup= 90
Dim NumGenerato As Integer
Dim VNumeri() As Integer
ReDim VNumeri(num)
For i = 0 To num
  NumGenerato = Int((LimiteSup - LimiteInf + 1) * Rnd + LimiteInf)
  If PuntiSuArray(NumGenerato, VNumeri) <> 1 Then
  VNumeri(i) = NumGenerato
  End If
Next
Return VNumeri
 
 End Function

i legend · 11 Marzo 2023

text4.text= stringanumeri(an,,true)

i legend · 11 Marzo 2023

lotto_tom75 ha scritto:

Codice:

 Function generaformazionerandom(num)

Dim i As Long
Const LimiteInf= 0
Const LimiteSup= 90
Dim NumGenerato As Integer
Dim VNumeri() As Integer
ReDim VNumeri(num)
For i = 0 To num
  NumGenerato = Int((LimiteSup - LimiteInf + 1) * Rnd + LimiteInf)
  If PuntiSuArray(NumGenerato, VNumeri) <> 1 Then
  VNumeri(i) = NumGenerato
  End If
Next
Return VNumeri
 
 End Function

tom Guarda quello che ho scritto io, non serve usare puntisuarray
ovviamente aspettiamo quella che ha scritto Luigi

Mike58 · 11 Marzo 2023

i legend ha scritto:
guardate la mia solution della colonna casuale al post 2212

NUOVO AMBIENTE SCRIPT AREA TECNICA

Ciao Luigi Scaricato SMESS e cercato di capire come inserire script ( devo prima leggere bene il pdf). Sicuramente Interessante per nuovi e successivi sviluppi. Lo script di Legend purtroppo la pagina non avendo la scrool bar laterale non arriva al bottone Run e quindi non eseguibile. Potreste...

forum.lottoced.com

per mike nuovo layout
dovrebbe andare bene cosi
ho eliminato una barra e spostato un po di controlli

Vedi l'allegato 2255268

Che dire.... molto bravo.
Quando puoi mettilo sullo smess cosi da fungere come esempio e guida per chi vuole capire.

Ciao

lotto_tom75 · 11 Marzo 2023

i legend ha scritto:
tom Guarda quello che ho scritto io, non serve usare puntisuarray
ovviamente aspettiamo quella che ha scritto Luigi

No... preferisco sbagliare... che passare per un copione...

Comunque grazie e complimenti e un'occhiatina al tuo la do comunque

i legend · 11 Marzo 2023

rubino2 ha scritto:
Text4 = text4 & stringanumeri(nr,".") & vbcrlf

Volevo mettere i nr formattato con un punto nel campo text4.Box del menu

Ma mi da un errore con la funzione wrapped.

Ma forse devo avere anche qualche problema , perche'
Mi si interrompe e mi chiude il form mentre sta lavorando che avevo gia' segnalato l altro giorno.
C e qualcosa di attivo che disturba.

Per ordinamatrice decrescente e' rimasto -1 oppure e diventato zero?

Domani ci guardo con calma.

perchè non utilizzi una listBox?

i legend · 11 Marzo 2023

Mike58 ha scritto:
Che dire.... molto bravo.
Quando puoi mettilo sullo smess cosi da fungere come esempio e guida per chi vuole capire.

Ciao

Certo quando luigi lo modifica lo metto cosi lui lo inserisce.
in piu lo testiamo, cosi possiamo controllare se ci sono errori

LuigiB · 11 Marzo 2023

non c'è bisogno del true ...

se fai text1.tex =stringanumeri(aN) il punto ce lo mette da solo è di default .. bisogna vedere che roba pè quell 'NR o se c'è qualche errore che non c'entra niente con stringa numeri

i legend · 11 Marzo 2023

rubino2 ha scritto:
Text4 = text4 & stringanumeri(nr,".") & vbcrlf

Volevo mettere i nr formattato con un punto nel campo text4.Box del menu

Ma mi da un errore con la funzione wrapped.

Ma forse devo avere anche qualche problema , perche'
Mi si interrompe e mi chiude il form mentre sta lavorando che avevo gia' segnalato l altro giorno.
C e qualcosa di attivo che disturba.

Per ordinamatrice decrescente e' rimasto -1 oppure e diventato zero?

Domani ci guardo con calma.

Private Sub Form_Load()
Dim i As Integer
Dim s As String

For i = 1 To 10
s = s & i & vbCrLf
Next

Text1.Text=s
End Sub

i legend · 11 Marzo 2023

manca
.text
credo sia quello l errore

LuigiB · 11 Marzo 2023

riguardo le funzioni per generare la colonna casuale mi fa paicere che vi siete applicati , ora propongo un test con le funzioni scritte da me e da legend , c'è un aspetto da considerare che quabdo la classe si avvicina molto ai numeri limite iniziano a capitare parecchi doppioni e la procedra si rallenta , questo rimane aleatorio , una sdelel funzioni la seconda evita i doppiono proprio di base...

in tutti i casi nelle funzioni andrebeb testato se la classe è < di limite .. per velocizzare ci affidiamo alla bravura del programmatore ..

Codice:

    Public Sub MyScriptRoutine()
        Dim aRet ()As Long
        Dim Tinizio As Single
        Dim tFine As Single
        Dim nQ As Long = 5000
        Dim nLimite As Long, nClasse As Long
        Dim k As Long
       
        '
        Messaggio ("Attendere non si puo interrompere")
        nLimite = 90
        nClasse = 15
       
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale(nClasse, nLimite)
          '  Call Scrivi(StringaNumeri(aRet, "."))
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "Primo metodo colonna ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale2 (nClasse, , nLimite)
           '  Call Scrivi(StringaNumeri(aRet, "."))
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "secondo metodo colonna non ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale2 (nClasse, True, nLimite)
           '  Call Scrivi(StringaNumeri(aRet, "."))
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "secondo metodo colonna ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasualeLegend (nClasse, nLimite)
           '  Call Scrivi(StringaNumeri(aRet, "."))
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "terzo metodo colonna ordinata " & tFine - Tinizio
      
      
        Scrivi
        Scrivi "==========================================="
        Scrivi
   
      
        nLimite = 90
        nClasse = 85
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale(nClasse, nLimite)
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "Primo metodo colonna ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale2 (nClasse, , nLimite)
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "secondo metodo colonna non ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale2 (nClasse, True, nLimite)
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "secondo metodo colonna ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasualeLegend (nClasse, nLimite)
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "terzo metodo colonna ordinata " & tFine - Tinizio
       
       
         Scrivi
        Scrivi "==========================================="
        Scrivi
   
      
        nLimite = 30
        nClasse = 25
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale(nClasse, nLimite)
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "Primo metodo colonna ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale2 (nClasse, , nLimite)
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "secondo metodo colonna non ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasuale2 (nClasse, True, nLimite)
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "secondo metodo colonna ordinata " & tFine - Tinizio
       
        Tinizio = Timer
        For k = 1 To nQ
            aRet = GetColonnaCasualeLegend (nClasse, nLimite)
        Next
        tFine = Timer
        Scrivi "Classe : " & nClasse & " Limite : " & nLimite
        Scrivi "terzo metodo colonna ordinata " & tFine - Tinizio
       
       
    End Sub
 
 
    Function GetColonnaCasuale(nClasse As Long, Optional nLimite As Long = 90) As Long()
    ReDim aB(nLimite) As Long
    ReDim aRet(nClasse) As Long
    Dim k As Long
    Dim nTrovati As Long
    Dim n As Long
    Do
        n = NumeroCasuale (1, nLimite)
        Do While aB(n)
            n = NumeroCasuale (1, nLimite)
       
        Loop
        aB(n) = True
        nTrovati += 1
    Loop While nTrovati < nClasse
   
   
    nTrovati = 0
    For k = 1 To nLimite
        If aB(k) Then
            nTrovati + = 1
            aRet(nTrovati) = k
        End If
       
    Next
    Return aRet
   
End Function
Function GetColonnaCasuale2(nClasse As Long, Optional bOrdinata As Boolean = False, Optional nLimite As Long = 90) As Long()
    ReDim aN(nLimite) As Long
    ReDim aB(nLimite) As Long
    ReDim aRet(nClasse) As Long
    Dim k As Long
    Dim nTrovati As Long
    Dim n As Long
    Dim nLower As Long, nUpper As Long
    nLower = 1
    nUpper = nLimite
   
   
   
    For k = nLower To nUpper
        aN(k) = k
    Next
   
   
    If bOrdinata Then
            Do While nTrovati < nClasse
                n = NumeroCasuale (nLower, nUpper)
                 nTrovati + = 1
                aB(aN(n)) = True
                For k = n To nUpper - 1
                    aN(k) = aN(k + 1)
                Next
                nUpper -= 1
              
            Loop
           
            nTrovati = 0
            For k = 1 To nLimite
                If aB(k) Then
                    nTrovati + = 1
                    aRet(nTrovati) = k
                End If
               
            Next
    Else
       
            Do While nTrovati < nClasse
                n = NumeroCasuale (nLower, nUpper)
                nTrovati += 1
                aRet(nTrovati) = aN(n)
               
                For k = n To nUpper - 1
                    aN(k) = aN(k + 1)
                Next
                nUpper -= 1
            Loop
    End If
           
    Return aRet
   
   
End Function
Function GetColonnaCasualeLegend(nClasse As Long, Optional MaxNum As Long = 90, Optional sCharSep As String = ".") As Long()
    Dim i As Long, nTro As Long, n As Long
    ReDim aN(MaxNum) As Long
    ReDim aTro(nClasse) As Long
    ' aZzero il vettore
    For i = 1 To MaxNum
        aN(i) = 0
    Next
    nTro = 0
  
    Do While nTro < nClasse
        n = NumeroCasuale(1, MaxNum)
        If aN(n) = 0 Then
            nTro + = 1
            aTro(nTro) = n
            aN(n) = 1
        End If
    Loop
    Call OrdinaVettoreL(aTro, 1, 1)
    Return aTro
   
End Function

LuigiB · 11 Marzo 2023

i legend ha scritto:
manca
.text
credo sia quello l errore

no .. .text per le textbox è la proprietà di default

LuigiB · 11 Marzo 2023

i legend ha scritto:
Certo quando luigi lo modifica lo metto cosi lui lo inserisce.
in piu lo testiamo, cosi possiamo controllare se ci sono errori

metti qui il progetot come allegato ccosi lo possono scaricare tutti compreso me che lo aggiorno.

i legend · 11 Marzo 2023

Luigi non me lo lascia allegare mi dice che è troppo Grosso
.

modifico il mio progetto originale che ho postato la volta scorsa con le modifiche della barra d avanzamento e posto quello.
lo faccio domani mattina , adesso vado a nanna che sono distrutto.
Buona notte a tutti

NUOVO AMBIENTE SCRIPT AREA TECNICA

LuigiB

Guest

Advanced Member

Premium Member

Premium Member

Advanced Premium Member

Super Member >PLATINUM<

Advanced Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Premium Member

LuigiB

Guest

Premium Member

Premium Member

LuigiB

Guest

LuigiB

Guest

LuigiB

Guest

Premium Member