Código: Seleccionar todo

#include <windows.h>
#include <string.h>
#include <process.h>

int main()
{
int threadID;

_beginthreadex(NULL, 0,funciondehilo ,0,0,&threadID); /*Creo un hilo de 1mb de stack, y le paso como parametro el nombre de la funcion  */
.
./*el codigo de aqui se ejecutaria en paralelo con el codigo del hilo*/
.
WaitForSingleObject(threadID,INFINITE); /*espero a que el hilo termine */

}

unsigned __stdcall funciondehilo()
{

printf("soy un hilo y me voy a dormir 5 segundos");
sleep(5000);
}



 

Código: Seleccionar todo

#include <stdio.h>
#include <windows.h>
#include <process.h>

unsigned __stdcall funciondehilo()
{

printf("soy un hilo desincronizado y me voy a dormir 5 segundos");
Sleep(5000);
}


main()
{
int threadID,id;

id = _beginthreadex(NULL, 0,funciondehilo ,0,0,&threadID);
printf("soy un hilo main\n");
printf("esto se imprime al mismo tiempo que lo otro, asi que si no sincronizo corro el riesgo de no se va a ver nada\n");
printf("esto se imprime al mismo tiempo que lo otro, asi que si no sincronizo corro el riesgo de no se va a ver nada\n");
printf("esto se imprime al mismo tiempo que lo otro, asi que si no sincronizo corro el riesgo de no se va a ver nada\n");
WaitForSingleObject(id,INFINITE); /*espero a que el hilo termine */
printf("se cerro el hijo\n");
}

Código: Seleccionar todo

'Using the CreateThread function in Visual Basic
'is very risky! VB5 is 'kinda' stable, but VB6
'applications will probably crash when you
'use the CreateThread function.

'In a form
'Add a command button to the form
Private Sub Command1_Click()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    'After you click this button, try to move the window
    'You will see that the AsyncThread-function was executed asynchronously
    hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread, ByVal 0&, ByVal 0&, hThreadID)
    CloseHandle hThread
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'If the thread is still running, close it
    If hThread <> 0 Then TerminateThread hThread, 0
End Sub
'In a module
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
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
Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public hThread As Long, hThreadID As Long
Public Sub AsyncThread()
    'Let this thread sleep for 10 seconds
    Sleep 10000
    hThread = 0
End Sub