Tem muito exemplo de multithread, mas nenhum com visão disso.
Código: Selecionar todos
PROCEDURE Main()
SetMode( 25, 80 )
CLS
Altd()
hb_ThreadStart( { || Otro() } )
hb_ThreadStart( { || Otro() } )
hb_ThreadStart( { || Otro() } )
Inkey(0)
RETURN
FUNCTION Otro()
LOCAL nCont
hb_gtReload( "WVG" )
SetMode( 25, 80 )
CLS
Altd()
FOR nCont = 1 TO 100
? nCont
Inkey(1)
NEXT
RETURN Nil
Como dá pra ver, é como ter vários EXEs, cada um roda à vontade.
O vídeo deixa isso nítido, porque dá até pra fazer debug em uma thread enquanto a outra está rodando.
E se fechar a thread principal, fecha tudo, porque não coloquei nada pra impedir isso.

