[vba] rallentare sistema con thread e sleep

[Kahm]

dato lo seguente codice da me scritto il codesta sezione

Option Explicit
Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
 Const CTF_COINIT = &H8
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 Const CTF_INSIST = &H1
 Const CTF_PROCESS_REF = &H4
 Const CTF_THREAD_REF = &H2

Private Declare Function SHCreateThread Lib "shlwapi.dll" (ByVal pfnThreadProc As Long, pData As Any, ByVal dwFlags As Long, ByVal pfnCallback As Long) As Long

Sub Main()
Dim hnd&
    Dim threadparam As Long
    hnd = CreateThread(0, 2000, AddressOf CreateThread, threadparam, 0, threadid)
            
End Sub

Public Sub myNewThread()
 Dim i As Integer
 For i = 0 To 99
 Sleep (1000)
 Debug.Print "message from a new thread (" & i & ")"
 Next i

lo mio problema è che vba persevera nel inviarmi lo messaggio:
"invalid use of addressOF"

[oregon]

Originariamente inviato da Kahm
vba persevera nel inviarmi lo messaggio:
"invalid use of addressOF"

E fa bene ... :-)

L'indirizzo deve essere quello della Sub

AddressOf myNewThread


P.S. In ogni caso, l'uso dei thread con VBA non è proprio raccomandato ...

[Kahm]

Originariamente inviato da oregon
E fa bene ... :-)

L'indirizzo deve essere quello della Sub

AddressOf myNewThread


P.S. In ogni caso, l'uso dei thread con VBA non è proprio raccomandato ...

dopo numerosi tentativi insoluti
son giunto a modificare lo codice da me fatto
confermo che era proprio myNewThread quindi corretto


possa vb6 avere pietà di me

[oregon]

In tutti i casi, non capisco perché devi "rallentare" il sistema e soprattutto perché per farlo devi utilizzare un thread.

E poi i thread non vanno affatto bene con VB6/VBA ...

[Kahm]

Originariamente inviato da oregon
In tutti i casi, non capisco perché devi "rallentare" il sistema e soprattutto perché per farlo devi utilizzare un thread.

E poi i thread non vanno affatto bene con VB6/VBA ...

è uno programma che deve eseguire delle operazioni continue su un programma esterno, simulando un operatore
essendo che ogni computer puo essere veloce o meno devo gestire le tempistiche di attesa

in pratica su un i7 non fa in tempo a scrivere che già cerca di leggere in un'altra parte

[oregon]

Ma lavori con VBA (Access? Excel?) o VB6 ?

[Kahm]

Originariamente inviato da oregon
Ma lavori con VBA (Access? Excel?) o VB6 ?

VBA con TestPartner

in pratica TestPartner si è comprata la licenza di visual basic for application e lo ha inserito nel suo tool
ma pare che ci siano delle carenze,

[Fractals87]

Perdonate l'itromissione,

Se non erro (Sempre se gestisci la cosa tramite db e sempre se access abbia una fuzione del genere cosa che sql server ho letto che ha), su puo creare un commandinsert che blocchi la tabella dalle furute read fino a che non ha finito di scrivere.

Le altre operazioni dovrebbero rimanete in attesa fino alla commit.

[oregon]

Basta usare la API Sleep ...

[alka]

Originariamente inviato da Kahm
essendo che ogni computer puo essere veloce o meno devo gestire le tempistiche di attesa

Non fai prima a definire in una struttura dati le operazioni che il tuo "automa" deve compiere e, attraverso un Timer, senza chiamare alcuna Sleep, eseguire la prima operazione, poi la seconda al prossimo "tick", poi la terza e così via fino a esaurimento?