Funkce několikrát spuštěná zároveň – Visual Basic – Fórum – Programujte.com

Ahoj,

Předpokládám, že je teoreticky možné možné, že i funkce z VBA může být spuštěna v jeden moment několikrát v různých vláknech, ale jde mě o to jak to funguje obecně. Nevím jak je to určitě, ale tipnul bych, že v paměti je funkce jen jedna a tedy případné několikanásobné spuštění bude používat stejné proměnné ve funkci, což povede k blbosti, nebo rovnou chybě v přístupu. Rád bych tedy věděl jak se tento problém řeší, aby funkce šla bezpečně použít, i když je volána několikrát ve stejný čas.

Jestli "proměnnými ve funkci" myslíš lokální proměnné, tak ty má každé vlákno vlastní.

Ale pokud odkazují na nějaký globální/sdílený objekt, tak si ho ty funkce (vlákna) mohou měnit pod rukama. To může být problém a řeší se to synchronizací - prostě vytvoříš nějaký zámek a každá funkce před přístupem k těm datům čeká dokud není odemčený, pak si ho zamkne pro sebe, použije ta data a zase ho odemkne.

Bohužel nevím, jak se to dělá ve VBA, ale určitě to někde vygooglíš.

Mam ve funkci jak lokální proměnné uvnitř funkce, tak sdílené v rámci modulu (ty používá několik funkcí) - ty má také každá funkce vlastní? 

Takže spíš než že by se dělaly funkce, které je možné spustit několikrát zároveň, tak se to řeší až při jejich použití, kdy pokud je funkce už spuštěna, tak se znova nevolá, dokud neskončí to první volání? 

Proměnné modulu jsou sdílené mezi vlákny. Tam je potřeba přístup synchronizovat, pokud jsou to proměnné, kde by to způsobilo problém.

Ty funkce běží současně, jen kritické části se právě synchronizují tak, aby si navzájem neškodily.

Dejme tomu, že máš kolekci (colWork), ke které nejde přistupovat z několika vláken současně. (Nebo několik souvisejících proměnných, nemusí to být jen jedna). Tak ji můžeš chránit zámkem (lckWork) nějak takhle:

Dim lckWork As Lock
Dim colWork As Collection

Sub AddWork(ByRef work As WorkData)
	lckWork.Lock()
	colWork.Add(work)
	lckWork.Unlock()
End Sub

Function GetWork() As WorkData
	Dim work as WorkData

	Set work = Nothing

	lckWork.Lock()
	If colWork.Count > 0 Then
		Set work = colWork.Remove(1)
	End if
	lckWork.Unlock()

	Set GetWork = work
End Function

A pak jsi třeba ještě v aplikaci, se kterou taky musíš komunikovat sériově (podle jiného dotazu možná tvůj případ). Tak to zase synchronizuješ (lckApp):

Dim lckApp as Lock

Sub AppReportProgress()
	lckApp.Lock()
	app.WorkFinished(1)
	lckApp.Unlock()
End Sub

A nakonec třeba 3 vlákna a nikde se nic nepere.

Sub ThreadProc()
	Dim work as WorkData

	Set work = GetWork()

	If work Is Nothing Then
		' pockat na praci. idealne pomoci semaforu.
		Sleep(5)
	Else
		' delat zadanou praci
		AppReportProgress()
	End If
End Sub

app.RegisterConsumer(AddWork)

RunInThread(ThreadProc)
RunInThread(ThreadProc)
RunInThread(ThreadProc)

Je to pseudokód, VB si moc nepamatuju. Někde najdi, jak se dělá ten lock.

V principu jde o to, že se ten kód v Lock() zasekne dokud předchozí držitel ten zámek neodemkne.

Díky.

Napadá mě, že by to možná šlo taky řešit pomocí vytváření kopií proměnných, takže by každá funkce měla svoje a mohli by pak běžet zároveň bez omezení.

A otázka mimo, i když to možná souvisí. Jak funguje winapi funkce SetTimer, jestli si vytváří svoje vlákno, nebo jak to funguje, když se po vypršení limitu volá nějaká funkce zatímco jiný kód již běží. 

Timer se zpracuje v cyklu GetMessage-DispatchMessage (i když použíješ TimerFunc).

Ten timer po té co vyprší hodí zprávu, že požadovaný čas vypršel a spustí se funkce... a kdy tedy proběhne tato funkce, když právě probíhá ve vlákně jiný kód? Podle toho jak na pohled průběh vypadá a jestli je to v jednom vlákně, tak to možná po vypršení času kód zastaví, proběhne ta funkce a pak pokračuje původní kód. Pokud by to bylo, tak je problém podobný, protože uprostřed funkce může spustit tu samou funkci.

Zprávy se hromadí ve frontě, ze které se postupně vytahují a zpracovávájí. Timer se zpracuje až na něj dojde řada, nic se nepřeruší (může dojít k rekurzi). Pokud má proces více vláken, tak může dojít ke kolizi (ale stejně tak v obsluze timeru, jako obsluze tlačítka, vykreslování okna, nebo kdekoli jinde) - takže buď data nesdílej, nebo přístupy synchronizuj. Nevím, jak to ještě vysvětlit.

Nešlo mě už o původní dotaz, spíš jsem jen chtěl vědět jak přesně to probíhá, když vyprší ten timer a volá se jiná procedura. Mam představu, že system rozesílá zprávy a zase procedury zasílají zprávy na zpracovaní, ale já ve VBA se zprávama nic nedělám, nevím tedy jestli na pozadí nejsou nějaké odesílány, ten timer je posílá určitě.

Když jsem to testoval, tak běží funkce A dokud není zavolána funkce B přes timer, zároveň neběží.

Ještě k těm vláknům, stejně nechápu jak přesně může fungovat kontrola třeba toho jestli jsou data zamčená, nebo nějaká kontrola toho jestli je funkce již spuštěna. Tedy v případě, že je ve více vláknech spuštěná funkce ve stejný čas a tedy postupně zároveň probíhají i jednotlivé bloky kódu. Takže vlákna dojdou zároveň třeba k

If spusteno=false then
  spusteno=true
  
  ...

  spusteno=false 
end if

Takže všechna spuštění funkce projdou podmínkou?

Už to asi mám, ten test musí být jen v jednom vláknu a tam se jedna funkce dostane dřív a jiná/jiné dýl.