#include "FiveWin.ch"
function Main()
Test()
return nil
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
static void Test( void )
{
MessageBox( 0, "dentro de Test()", "ok", 0 );
}
typedef void ( * PFUNC ) ( void );
HB_FUNC( TEST )
{
PFUNC pFunction = Test;
pFunction();
}
#pragma ENDDUMP
#include "FiveWin.ch"
function Main()
cVar = "Test()"
&cVar
return nil
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
static void Test( void )
{
MessageBox( 0, "dentro de Test()", "ok", 0 );
}
typedef void ( * PFUNC ) ( void );
HB_FUNC( TEST )
{
PFUNC pFunction = Test;
pFunction();
}
#pragma ENDDUMP
PROCEDURE QuiBotPan(zOpc,zOpc1)
zNum = zOpc
do While .T.
do case
case zNum > 9
zVar = "xPul" + str(zNum,2,0)
otherwise
zVar = "xPul0" + str(zNum,1,0)
endcase
&zVar:End()
zNum = zNum + 1
if zNum = zOpc1+1
exit
endif
enddo
RETURN (NIL)
....
void QuiBotPan(int, int)
....
Main()
....
QuiBotPan(2, 6)
....
void QuiBotPan(int zOpc, int zOpc1)
{
char* zVar;
zNum = zOpc;
do
{
if (zNum > 9)
{
zVarC = "xPul";
itoc(zNum,zNumC,2);
}
else
{
zVarC = "xPul0";
itoc(zNum,zNumC,1);
}
strcpy(&zVar[ strlen(zVarC) ], zNumC);
CloseWindow(&zVar);
zNum++
}
While zNum < zOpc1+1;
}
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 160 guests