FiveTech Software tech support forums

Code: Select all | Expand

#include "hbgtinfo.ch"
#include "std.ch"
#include "box.ch"

REQUEST HB_GT_WVT

FUNCTION  Main()

LOCAL cStdnt_Name := Space( 25 ), nAdmn_No := 0, cFather := SPACE(25),;
      cAdd1 := SPACE(25), cAdd2 := SPACE(25),  cadd3 := SPACE(25), ;
      cCity := SPACE(20), GetList := {}


   SET COLOR TO "W+/B"
   CLS

   @  0, 0                 SAY "0"
   @  0, MAXCOL()-1        SAY MAXCOL() PICT "99"
   @  MAXROW(),0           SAY MAXROW() PICT "99"
   @  MAXROW(), MAXCOL()-1 SAY MAXCOL() PICT "99"

   DispBox( 5,14, 18, 66, B_DOUBLE + Space(1),"W+/GR+" ) 

   @  7, 17      SAY  "Name of the Student:" COLOR "W+/GR+" 
   @  7,COL()+2  GET  cStdnt_Name            COLOR "W+/G+,B/W" 
   @  9, 17      SAY  "Admn.No.           :" COLOR "W+/GR+" 
   @  9, COL()+2 GET  nAdmn_No               COLOR "W+/G+,B/W" PICT "99999"
   @ 11, 17      SAY  "Father's Name      :" COLOR "W+/GR+" 
   @ 11, 39      GET  cFather                COLOR "W+/G+,B/W" PICT "@!"
   @ 13, 17      SAY  "Address            :" COLOR "W+/GR+"
   @ 13, 39      GET  cAdd1                  COLOR "W+/G+,B/W" PICT "@!"
   @ 14, 39      GET  cAdd2                  COLOR "W+/G+,B/W" PICT "@!"
   @ 15, 39      GET  cAdd3                  COLOR "W+/G+,B/W" PICT "@!"
   @ 16, 17      SAY  "City               :" COLOR "W+/GR+" 
   @ 16, 39      GET  cCity                  COLOR "W+/G+,B/W" PICT "@!"
  

   READ
   
RETURN nil   

**********
 

Code: Select all | Expand

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 9.12 - Dec. 2009           xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2009     for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7 ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

if "%FWDIR%" == "" set FWDIR=C:\FWH
if "%XHDIR%" == "" set XHDIR=C:\xharbour
if "%2" == "/b" set GT=gtwin
if not "%2" == "/b" set GT=gtgui

set hdir=%XHDIR%
set hdirl=%hdir%\lib
set bcdir=c:\bcc582
set fwh=%FWDIR%

%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log
IF ERRORLEVEL 1 GOTO COMPILEERRORS
@type comp.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo C:\FWH\lib\Fivehx.lib C:\FWH\lib\FiveHC.lib >> b32.bc
echo %hdirl%\rtl.lib + >> b32.bc
echo %hdirl%\vm.lib + >> b32.bc
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\GTWVT.lib + >> b32.bc
echo %hdirl%\lang.lib + >> b32.bc
echo %hdirl%\macro.lib + >> b32.bc
echo %hdirl%\rdd.lib + >> b32.bc
echo %hdirl%\dbfntx.lib + >> b32.bc
echo %hdirl%\dbfcdx.lib + >> b32.bc
echo %hdirl%\dbffpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\debug.lib + >> b32.bc
echo %hdirl%\common.lib + >> b32.bc
echo %hdirl%\pp.lib + >> b32.bc
echo %hdirl%\pcrepos.lib + >> b32.bc
echo %hdirl%\ct.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc
echo %hdirl%\hbzip.lib + >> b32.bc
echo %hdirl%\zlib.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
rem echo %bcdir%\lib\psdk\gdlib.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
ECHO * Compile errors *
GOTO EXIT

:LINKERROR
ECHO * Linking errors *
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT