Hoi:

Xem bai viet bang font Unicode

PCWorld VN

Hi: Trong Pascal c cch no s dng b nh m rng c khng?

Tr li: Trong chng trnh c vit bng bt k ngn ng no, bn cng c th s dng b nh bnh trng EMS (Expanded Memory Specification) v/hoc b nh m rng XMS (Extented Memory Specification) bng cch gi cc chc nng ca n thng qua im nhp int qui nh sn. Bn nn dng b nh XMS v n hiu qu hn EMS, im nhp truy xut dch v XMS l int 2f. Bn c th tham kho bi "B nh m rng v cch truy cp b nh m rng bng Turbo Pascal" trn Th Gii Vi Tnh s thng 6/97, trang 72  bit thm chi tit v cch dng b nh XMS.

Hi: Trong phn mm VietRes 2.5 c mt chng trnh vit bng Pascal dng  np v b font VietSea cho my tnh. Vy qu bo c th vit li dm em chng trnh trn bng ngn ng C c c khng.

Em ang hc Pascal. Em c th vit mt s chng trnh n gin m khi chy c th hin th cc cu thng bo bng ting Vit ln mn hnh (Ch s dng c khi  chy VietRes trc). Lm th no c th hin th ch ting Vit ln mn hnh m khng cn chy VietRes. Th d nh dch sang tp tin chy c *.exe. T du nhc h iu hnh nh tn chng trnh th chy v hin ting Vit.

Tr li:  chng trnh ca bn hin th c ting Vit m khng cn phi c trnh VietRes (hay mt trnh qun l ting Vit khc), bn cn son font ting Vit theo bng m ca bn, ri trong chng trnh Pascal, trc khi hin th vn bn, bn np bn m ca bn vo h thng. Lu  khi dng chng trnh, bn nn np li font chun ca my. Sau y l mt chng trnh nh minh ha  tng trn:

Program thu_napfont;

Uses Crt, Dos;

Const vcode: Array[1..4096] of Byte = ($00,....); { ban ma ting Vit cua ban }

Var vmode : Boolean;

{ Thu tuc khoi dong bang ma tieng Viet }

Procedure VietInit;

Var R: Registers;

Begin

if (vmode) then exit;

{ Cai bang ma tieng Viet }

R.ax := $1100;

R.bx := $1000;

R.cx := $0100;

R.dx := 00;

R.es := Seg (vcode);

R.bp := Ofs (vcode);

intr($10,R);

vmode := TRUE;

End;

{ Thu tuc phuc hoi bang ma goc}

Procedure VietClose;

Var R : Registers;

Begin

if (NOT vmode) then exit;

{ Phuc hoi bang ma chuan }

R.ax := 3;

intr($10,R);

vmode := FALSE;

End;

Begin

clrscr;

VietInit;

write (Th hin th ting Vit); readln;

VietClose;

write (Th xem cn hin th ting Vit khng?); readln;

End.

Nu bn cn font cho mt bng m ting Vit no , bn c th lin h vi chng ti  a ch : Nguyn Vn Hip, Khoa CNTT H K Thut TP.HCM, T : (8) 865 8689 Ext.500  sao chp.

Hi: Cch dng Pascal 7.0  lp trnh cho 2 phn lm vic song song nhau? V d nh ta c th lm vic khc ngay khi mt vng trn ang di chuyn chng hn. Mong qu bo gii thch v cho v d c th.

Tr li:  lp trnh song song, bn cn c th vin h tr. Th vin l module phn mm cha nhiu th tc  phc v mt dch v no , th d th vin  ha, th vin gi th tc t xa RPC, th vin multimedia, th vin qun l process v thread,... Trn nhng HH n chng (nh MS-DOS), th vin h tr ny phi c vit trong khng gian ca chng trnh ng dng (nh th vin  ha ca Borland, ...), cn trn cc HH a chng th th vin ny c tch hp trong HH (nh Windows, Unix,...). Tm li  lp trnh song song, bn nn lp trnh trn HH a chng, trong  Win9x v Win NT l cc i biu v chng l cc HH multi-process, multi-thread.

Lu  l bng gii thut tun t ta c th to ra cc o gic ng thi cho ngi dng, th d ta c th lp trnh tun t  to ra cc chuyn ng ca nhiu phn t ng thi trong mt tr chi no .

Hi: Lm th no  hin th chut trong 256 mu ch  phn gii cao (640 x 480, 800 x 600). Hin th chut  ha mhiu mu nh tr chi Warcraft II.

Xin tp ch hng dn cho ti cch vit on chng trnh iu khin mouse. on chng trnh dng  hin ta  ct & dng ca mouse, khi mouse di chuyn trn mn hnh  ha, v ta  ny thay i mi khi mouse di chuyn (ging nh cc phn mm x l nh chy trong Win). Hin ti ti ang lp trnh bng ngn ng C. Ti  s dng ngt (0x33) v thanh ghi Ax = 3, gi tr tr v dx, cx ch s dng, s ct ca mouse, nhng khi dng lnh cout << dx <<"\t" << cx th trn mn hnh ch xut ra gi tr khng ng vi ta  mouse v khi mouse di chuyn th ta   khng thay i.

Tr li:  dng mouse trong ch   ha no  trn MSDOS, bn phi khi ng li cc thng s ng v  phn gii mn hnh cho driver mouse, sau  dng chc nng ah=3 ca int 33 mi tr v v tr ng ca mouse. Bn phi lun gim st trng thi di chuyn mouse  kp thi hin th ta  ng ca n. Bn nn tham kho chng trnh th d v iu khin mouse  PC World VN s 09/98 trang 115,  bit r qui trnh c bn v iu khin mouse. Bn cng c th thit k li hnh dng v mu sc ca cursor chut trong ch   ha.

Hi: Cch lp trnh xa tt c cc file c tn: *.pas, *.cpp... bng cch s dng ngt Bios (khng s dng ngt ca DOS). (Ti ang s dng C chy trong DOS).

Tr li: Khi lp trnh, nu bn dng cc dch v cng thp th cng kh khn, phc tp v chng trnh cng kh "portable". Do   chng trnh c th chy trn nhiu version MSDOS khc nhau v trn nhiu my khc nhau, bn ch nn dng cc dch v t MSDOS (Int 21h) tr ln, th d nh cc hm trong th vin lp trnh ca cc ngn ng lp trnh. Vi nhng my tnh c tc  rt cao nh hin nay, vn  tc  thi hnh chng trnh (nht l trn nn MSDOS) hu nh khng cn cn phi quan tm na.

 xa tt c cc file thuc 'pattern' no  mt cch  qui, bn cn phi c mt gii thut duyt cy  qui  mi ln gp mt file bn s thc hin thao tc tng ng. Sau y l mt chng trnh nh c vit bng C c chc nng xa  qui nh yu cu ca bn :

/**/

/* Chuong trinh duyet cay de qui de thuc hien mot tac vu */

/* Nguoi viet : NGUYEN VAN HIEP, TTDT DHBK Tp.HCM */

/* Ngay viet: 10 - 09 - 1991*/

/* Ngon ngu: Borland C++ */

/**/

#include <dos.h>

#include <io.h>

#include <dir.h>

#include <ctype.h>

#include <stdio.h>

typedef void (*PPROC)(char*, char*, struct ffblk);

void xoaphantu(char* drive, char* directory, struct ffblk pblock);

void duyetcay (char *patern, PPROC action);

int fcount = 0; /* so file bi xoa */

int dcount = 0; /* so directory bi xoa */

// Chuong trinh chinh

void main(int argc, char* argv[])

{

int i;

if (argc < 2) {

printf("Hay danh lenh : xoadq <pattern1> ... <patternn> <Enter>\n");

exit(1);

}

for (i = 1; i <argc; i++) duyetcay(argv[i], xoaphantu);

printf("\t\t\tCo %d thu muc va %d file bi xoa.\n",dcount,fcount);

}

/**/

/* Kiem tra file filename co thuoc pattern patname qui dinh khong ? */

/* Tra ve 1 neu thuoc ve, 0 trong truong hop nguoc lai */

/**/

thuocve (char *filename, char *fext, char *patname, char *patext)

{

while (*patname && *filename) { // xet tung ky tu trong phan ten

if (*patname == *) goto kiemtraext; // ten thuoc ve

if (*patname == ? || (toupper(*patname)==toupper(*filename)))

{ patname++; filename++; continue; }

return 0; // ten khong thuoc ve

}

if (*filename == 0 && *patname == *) goto kiemtraext;

if (*patname || *filename) return 0;

kiemtraext:

if (*fext == 0 && patext[0] == . && patext[1] == *) return 1;

while (*patext && *fext) { // xet tung ky tu trong phan noi rong

if (*patext == *) return 1;

if (*patext == ? || (toupper(*patext)==toupper(*fext)))

{ patext++; fext++; continue; }

return 0;

}

if (*fext == 0 && *patext == *) return 1;

if (*patext || *fext) return 0;

return 1;

}

/**/

/* Duyet cay thu muc va thuc hien chuc nang qui dinh */

/**/

void duyetcay (char *patern, PPROC action)

{

char drive[4], directory[100], patname[9], patext[5];

char buff[128], filename[9], file_ext[5];

struct ffblk pblock;

int result;

// tach patern ra ca thanh phan

fnsplit(patern, drive, directory, patname, patext);

// xay dung lai patern can duyet

sprintf(buff,"%s%s*.*",drive, directory);

// tim phan tu dau tien thoa man patern

result = findfirst(buff,&pblock, 0xFF);

while (!result) { // con phan tu

// khong xu ly label, thu muc hien tai va cha cua no

if (pblock.ff_name[0] == . || (pblock.ff_attrib & FA_LABEL))

{ result = findnext(&pblock); continue; }

fnsplit(pblock.ff_name, buff, buff, filename, file_ext);

if(pblock.ff_attrib &FA_DIREC) // thu muc

if(thuocve(filename, file_ext, patname, patext))

{

// xoa tat ca phan tu con cua thu muc

sprintf(buff,"%s%s%s\\*.*",drive, directory,pblock.ff_name);

duyetcay(buff,action);

// thuc hien action tren phan tu nay

action(drive,directory,pblock);

}

else

{ // chi xoa cac phan tu con thoa patern

sprintf(buff,"%s%s%s\\%s%s", drive,directory,

pblock.ff_name,patname, patext); duyetcay(buff,action);

}

else // xu ly file binh thuong

if(thuocve(filename, file_ext, patname, patext))

{

// thuc hien action tren phan tu nay

action(drive,directory,pblock);

}

result = findnext(&pblock);

}

/**/

/* Xoa phan tu theo yeu cau.*/

/* Phan tu co the la file hay thu muc trong*/

/**/

void xoaphantu(char* drive, char* directory, struct ffblk pblock)

{

char buff[128];

sprintf(buff,"%s%s%s",drive, directory,pblock.ff_name);

if (pblock.ff_attrib & FA_RDONLY)

{ // xoa bit readonly

struct REGPACK rreg;

rreg.r_ax = 0x4301; rreg.r_cx = 0;

rreg.r_ds = FP_SEG(buff); rreg.r_dx = FP_OFF(buff);

intr(0x21, &rreg);

}

if (pblock.ff_attrib & FA_DIREC)

{ // neu la thu muc thi xoa thu muc

printf("rdir %s\n",buff);

rmdir(buff); dcount++;

}

else

{ // neu la file thi xoa file

printf("del %s\n",buff);

remove(buff); // neu khong co dung unlink()

fcount++;

}

Bn c th ct chng trnh trn vo file xoadq.c, dng chng trnh dch C++, th d :

bcc -ml xoadq.c  to ra file xoadq.exe. Nu bn mun xa tt c cc file *.pas v *.cpp   cng c: v d:, bn hy nhp lnh :

xoadq c:\*.pas c:\*.cpp d:\*.pas d:\*.cpp

Lu  l sc cng ph ca chng trnh trn rt c lit, bn phi rt cn thn trong vic nhp thng s v nu khng tai ha s kh lng (th d nu bn nhp lnh xoadq c:\*.* th ton b a c: s b xa trng).

Hi: Cc chng trnh c lp trnh v dch bng nhng ngn ng lp trnh chy trong Windows (for Windows) th chy c trong Windows phi khng?

- Nhng ngn ng lp trnh trong Windows (for Windows) no c ch   ha phong ph  c th to ra cc chng trnh c mu  ha phong ph?

-Trong th mc C:\Windows\ System em thy c rt nhiu file c phn ui l .dll. Xin hi  l nhng file g, tc dng, c to ra nh th no?

Tr li: a s cc mi trng lp trnh trong Windows u to ra chng trnh  chy trong Windows, tuy nhin cng c mt s ngoi l: cc mi trng lp trnh c ca hng Borland cho php to chng trnh chy trn MS-DOS hay trn Windows ty thuc vo thng s lc dch.

Cc chc nng  ha thng c h tr bi Windows v cc th vin lp trnh, ch khng ph thuc vo ngn ng lp trnh. Bn c th dng bt k ngn ng no trong Windows  to ra  ha c mu sc phong ph nu ch   ha ca Windows hin ti trn my bn t 256 mu tr ln.

Cc file *.dll l cc th vin lin kt ng, mi file *.dll thng cha nhiu th tc gii quyt mt s vn  no  m s c dng bi cc phn mm khc. V nguyn tc, t chng trnh ca bn, bn c th gi bt k th tc no trong mt file *.dll nu bn bit tn th tc v danh sch i s ca th tc .

Trnh t  to ra mt file *.dll cng ging nh trnh t to file chng trnh: vit source code cc th tc, dch source code  to ra file *.dll. Trc khi dch bn cn khai bo thng s cho chng trnh dch bit kt qu dch l to ra chng trnh hay file *.dll.

Hi:  ngh ta son cho 1 v d c th v lnh Exec ca Pascal, gi chng trnh Vrd.exe ca VietRes.

Tr li:  chy trnh vrd.exe t chng trnh Pascal, bn dng lnh Exec nh sau:

Exec(c:\vietres\vrd.exe,);

v nu mun dng trnh vrd.exe, bn dng lnh Exec(c:\vietres\vrd .exe,/u);

Trong th d trn, gi s file vrd.exe nm  th mc vietres trn a c:\. Bn nn thm vo macro khai bo dung lng b nh heap nh li  chng trnh vrd.exe chy c, th d bn thm macro sau vo u chng trnh Pascal ca bn:

{$M $4000,0,0} {16K stack, no heap}

Hi: Trong qu trnh lp trnh trn mt s ngn ng nh Pascal, C, C++, c mt s on chng trnh cha 3, 4 hoc c nhiu hm hay th tc. on chng trnh ny c ng dng vo nhiu chng trnh khc nhau.

Lm th no  s dng on chng trnh ny vo nhng chng trnh khc nhau m khng phi tn cng vit on chng trnh ny li.

Tr li: Bn c th nh ngha mt th tc mi cha ng nhng hng lnh c dng bi nhiu chng trnh. Bn  th tc ny (v c th nhiu th tc khc) trong mt file ring. Bn dch file ny ra dng *.obj c th dng c t bt k chng trnh no. Cch thc gi th tc v lin kt file *.obj s hi khc nhau trn cc ngn ng khc nhau. Th d trong C v C++, bn ch cn khai bo c t (prototype) ca th tc cn gi trc khi gi th tc. Trong Pascal, bn phi khai bo c t th tc cn gi (dng t kha External i sau lnh Procedure hay Function) v phi dng macro  khai bo vic kt ni file *.obj vo chng trnh ({$L tenfile.obj}).

Hi: Khi xy dng mt chng trnh Pascal c s dng  ha, chn ra file .exe ri em sang my khc chy th chng trnh i hi phi c cc file .BGI v TPU. C cch no  ch cn mt file *.exe l  hay khng?

Tr li: Thng khi dng ch   ha trong Pascal, trc ht bn gi th tc InitGraph  khi ng ch   ha, th tc ny s lin kt ng file driver *.bgi tng ng vo chng trnh. Tuy nhin trong mt s trng hp bn mun lin kt tnh file *.bgi vo trong file chng trnh ca bn ( d sao n sang my khc,...), Borland c h tr vn  ny bng cch cung cp unit bgidriv.pas dng source code Pascal trong th mc bp7\examples\ dos\bgi, t th mc ny bn c th to ra file bgidriv.tpu tng ng bng cch nhp lnh sau t DOS: make fbgidriv. Sau  chp file bgidriv.tpu vo th mc units ca Pascal (bp7\units). Sau khi c c file bgidriv.tpu, bn c th dng n trong chng trnh bng lnh 'Use', v nh vy khi dch chng trnh, driver  ha cn dng s c lin kt tnh vo chng trnh *.exe ca bn. Sau y l cc lnh chnh yu trong chng trnh  ha ca bn:

Program name;

Use graph, bgidriv, ...;

Var GraphDriver, GraphMode : Integer;

....

Begin { chuong trinh chinh }

{ Dang ky driver do hoa can dung }

if RegisterBGIdriver(@EgaVgaDriverProc) < 0 then begin

writeln(Khong the dang ky BGI driver);

exit

end;

{ Khoi dong che do do hoa }

GraphDriver:=Detect;

initGraph (GraphDriver, GraphMode,);

....

END.

Hi: Xin PC World VN hng dn cch lp trnh trong Turbo Pascal v mt s hnh hc chuyn ng trong khng gian 3 chiu. Ti  c th lm nhiu ln nhng khng c.

Tr li:  lp trnh cc hnh 3D chuyn ng, bn cn trang b nhiu kin thc chuyn mn v lnh vc  ha (cc sch v Computer Graphics). Trong khun kh hn hp ca mc tr li, chng ti khng th m t c th cc kin thc chuyn mn ny. Ngn ng lp trnh ch l cng c m t gii thut cho my tnh hiu, do  khng ng vai tr quan trng trong vic vit chng trnh. Bn c th dng Pascal, C, C++, Visual Basic hay bt k ngn ng a dng no cng c.

Hi: Hin em ang lp trnh Pascal 7.0. Em c mt b font bitmap VGA, mun np font ny ra my in  ch  vn bn v  ha th lm cch no (v d bng th tc). Xin qu bo ch cch vit chng trnh lin kt mt nh bitmap vo chng trnh nh cc logo ca D2, BKAV...

Tr li: Bn nn lu  rng font bitmap ca mn hnh VGA khng phi l font ca cc my in. Mi loi my in qui nh ring format font ch ca mnh, thng th rt khc nhau gia my in kim v my in laser. Vy  download font ra my in, trc ht bn cn son font ng format qui nh ca loi my in , ri dng cc lnh iu khin np font ra my in. Bn cng c th in ni dung  ha ca mn hnh ang cha vn bn ting Vit ra my in bng lnh in  ha, tuy nhin cht lng thng rt thp.

Bn nn xem phn tr li  s bo PC World VN thng 09/97 (trang 129)  bit thm thng tin v vic download font ch ra cc my in kim Epson v HP laser.  chng trnh hin th c  ha mong mun (tnh hay di ng), bn phi vit code c th  iu khin vic hin th ny. Trong Borland C hay Pascal, 2 th tc n gin nht  ct/ hin th li mt vng  ha hnh ch nht l GetImage v PutImage. PutImage cho php bn hin th li mt  ha hnh ch nht t cu trc d liu BGI.  c c cu trc ny, bn c th :

- Dng th tc GetImage  lu  ha ang c hin th.

- Dng chng trnh chuyn i format t dng khc (v d: *.bmp) sang dng BGI ca Borland. Nu my c ni mng Internet, bn hy download mt chng trnh chuyn format  ha v dng BGI  a ch ftp://ftp.simtel.net/ pub/simtelnet/ msdos/graphics /bmp2bgi1.zip

Hi: Em dng Pascal 7.0 trong DOS. Trong Pascal c pht ra ting ni c khng. V d khi chng trnh b li, s c ging ni pht ra "C li ri". Nu nh Pascal pht ra ting ni c th xin tp ch vit cho em mt chng trnh c th hoc ch cho em cc hm th tc lm cng vic trn.

Tr li: Bt c chng trnh c vit bng ngn ng no v trong mi trng no (DOS, Windows, OS/2, Unix,...) u c th iu khin xut m thanh ra sound card (hay loa ni b ca my PC). Vic xut m thanh ra sound card rt d dng nu bn lp trnh trong mi trng Windows v mi trng Windows  h tr multimedia, cn nu bn lp trnh trn DOS, bn phi vit module iu khin xut tn hiu ra sound card hay dng li module sound card c sn. Bn c th gi chng trnh thi hnh file *.wav t trong chng trnh Pascal ca bn, hu ht cc sound card c bn u c a mm km theo, trn a  lun c mt trnh 'play' cc file m thanh dng *.wav. Gi s chng trnh chi nhc file *.wav c c php s dng l : 'play <tn file wav cn pht>, bn c th pht ra thng bo c cha trong file tbao.wav bng lnh Pascal sau:

Exec(play.exe,tbao.wav);

Hi: Cc chng trnh tr chi nh: Tomb Raider, Doom... vit bng cc chng trnh no, v xin cho bit chc nng ca tng chng trnh. Nu trong phi cnh khng gian ba chiu ti  v, ti c th can thip bng keyboard  lun lch trong  c khng?

Tr li: Cc tr chi nh Tomb Raider, Doom, ... c vit bng ngn ng no khng phi l iu quan trng, iu quan trng l chng c vit theo gii thut no. V nguyn tc, nu bn  bit gii thut ca mt ng dng, bn c th hin thc ng dng  bng bt k ngn ng lp trnh no, nu cn chy ti u mt s on code no , bn c th vit cc on code ny bng ngn ng Assembly.

Nu chng trnh ca bn  v c ln mn hnh phi cnh khng gian 3 chiu th chng trnh  cng c th cho php ngi dng lun lch trong phi cnh  (hay tng qut hn l x l phi cnh) bng chut v/hoc bn phm.

Tm li tu thuc chc nng ca chng trnh m bn c th lm c iu g, nu chng trnh do chnh bn thit k v hin thc th bn hon ton t do trong vic qui nh chc nng ca n.

Trong trng hp bn dng mt phn mm x l  ha no   v phi cnh th vic lun lch trong phi cnh  bng bn phm c c khng l ty thuc vo chnh trnh x l  ha m bn dng.

Hi: Hin em ang lp trnh bng ngn ng C, v em mun cp pht b nh  chy chng trnh vi kch thc > 1MB, hay ni cch khc l em mun s dng b nh m rng. Nhng em khng bit lm cch no  khai bo c. Em c th s dng hm farmalloc, nhng khi chy bin dch chng trnh & chy th c b treo my. Theo nh trong sch ghi l s dng hm farmalloc th truy cp c b nh ln hn 64 KB, nhng em khng bit ti a ca n l bao nhiu? Xin tp ch tr li bng mt v d minh ha c th.

Tr li: Hm th vin farmalloc ca ngn ng C hay C++ cho php bn xin cp pht mt khi nh lin tc vi kch thc bt k, ti a bng s b nh DOS cn trng. Dung lng b nh DOS qun l c l 640KB, do  hm farmalloc ch c th phn phi khi nh c kch thc ti a l 640KB, hm ny ch dng b nh qui c ca DOS ch cha s dng b nh m rng (extended memory). Nu mun dng khng gian trong b nh m rng (vn c kch thc rt ln trn cc my PC hin nay), bn phi gi cc hm chc nng ca trnh qun l b nh m rng HIMEM.SYS. Chi tit c th v cch gi cc hm chc nng ca trnh qun l himem.sys c miu t trong bi "B nh m rng v cch truy cp b nh m rng bng Turbo Pascal"  trang 72, PC World VN thng 6/1997.

Hi: Ti vit mt chng trnh qun l nhn s tin lng bng Foxpro For DOS,  lm p, ti dng hp ng v li mt s m k t (ASCII). Nhng khi chy li chng trnh ti gi VRD.EXE ca VietRes  nhp ting Vit th nhng k t ca ti v li  b VietRes bin i (mc d trong chng trnh hp ng ca ti  chn nhng k t m VietRes khng tc ng n).

Vy xin qu bo ch gim lm cch no va c th s dng VRD.EXE  nhp liu bng ting Vit va c th v li mt s k t trong bng m ASCII theo  mun.

Tr li: Mi khi VietRes chy (vrd.exe), n s chim quyn iu khin Int 10h v hiu chnh li ton b font h thng (256 k t), nu bn thay i font trc khi chy VietRes, s thay i ca bn s b VietRes ph mt. Vy bn phi thay i font sau khi  chy VietRes, tuy nhin VietRes khng thi hnh cc chc nng lin quan n vic hiu chnh li font ch ( bo v bng font ca VietRes). Nu mun gi Int 10h  thit lp mt s k t ring ca mnh sau khi  chy VietRes, bn phi bit c a ch trnh phc v ngt Int 10h ca h thng v gi ng trnh phc v ny. Trnh t cc thao tc nh sau :

- Ghi li vector ngt Int 10h ca h thng vo mt bin pointer ca chng trnh.

- Chy trnh VietRes.

- Ghi li vector ngt Int 10h (ca VietRes) vo mt bin pointer khc ca chng trnh.

- Thit lp li vector ngt Int 10h c ca h thng.

- Gi Int 10h (c ca h thng)  thit lp mt s mu k t c bit ca ring mnh (dng chc nng ah=1100h).

- Thit lp li vector ngt Int 10h ca VietRes.

- Tip tc chng trnh ca mnh, lc ny VietRes tip tc chy nhng trong bng m ca n c mt s k t c hin th theo mu ca bn.

- Khi kt thc chng trnh, bn nn g VietRes ra khi h thng nu khng mun dng n na.

Trong khung di y l mt trnh Pascal nh miu t qui trnh dng VietRes ri hiu chnh mt vi k t theo  ring.

Hi: Em mun vit mt chng trnh dng  xem cc hnh nh *.bmp hay *.pic bng Pascal th phi vit nh th no?

Tr li: Bn cn nm vng format file nh *.bmp v *.pic th mi c th vit c chng trnh hin th cc file nh ny. Sau khi nm vng format file nh, bn c th dng bt k ngn ng no  vit chng trnh. Mt cch khc, n gin hn,  hin th cc hnh nh bitmap dng *.bmp hay *.pic l dng trnh chuyn format nh v dng BGI ca Borland  nh th tc PutImage hin th nh  ln mn hnh.

Vi cch ny bn khng cn nghin cu mt format nh no ht. Nu my c ni mng Internet, bn hy download chng trnh chuyn format  ha v dng BGI  a ch ftp://ftp.simtel.net/pub/simtelnet/msdos/graphics/bmp2bgi1.zip

Hi: Trong th mc Windows, c mt file  thuc tnh n (hidden) tn l "ttfcache". Xin hi  c phi l file cha font  ci cho Win khng? Lm cch no dng mt hm (function)  ci font trong Visual Basic? Hm  tn g? Cch s dng?

Tr li: Chng ti cha r cng dng ca file ttfcache trong th mc Windows v khng phi my no cng c, nhng vi tn v ni dung ca n, chc chn n cha thng tin v font TrueType, n c to v s dng bi mt chng trnh no  nhng khng phi Windows (chng ti th xa ri khi ng li Windows, s dng nhiu ngy vn khng thy to li).

Trong chng trnh bt k c vit bng ngn ng no, bn cng c th thm font ch mi (TrueType hay bitmap) vo Windows theo kiu on-the-fly bng cch gi th tc AddFontResource.

y l mt hm ca Windows,  gi c trong chng trnh Visual Basic, bn phi khai bo n nh sau:

Declare Function AddFontResourceA Lib "GDI32" (path As String) As Integer

Lc no cn thm font, bn c th gi n, v d nh:

ketqua = AddFontResourceA ("c:\psfonts\gvgafix.fon")

i s duy nht ca hm AddFontResourceA l ng dn m t file font resource (dng *.fon hay *.fot).

Hi: Lm cch no  bit c mt macro ang chy mang tn g. V d mt macro tn "Word" c kch hot th bn thn chng trnh dng cch g  c th nhn c chui "Word" tc l tn ca n. Tn macro ny thng xuyn thay i nn n phi t bit c hin ti n ang mang tn g. PC World c th vit dm em on chng trnh t tm tn ny c khng?

Tr li: V nguyn tc, ng l c th vit c mt macro c kh nng thi hnh nhiu tc v ty theo tn gi. V d c 2 macro: macro 1 thi hnh tc v 1, macro 2 thi hnh tc v 2. By gi ta sa macro 1, macro 2 thnh mt macro duy nht c th thi hnh c c 2 tc v, nu tn n l macro 1 n s lun thi hnh tc v 1, cho ti khi i tn n thnh macro 2 th n s thi hnh tc v 2.

Trong Word 97, macro l mt th tc c vit bng ngn ng VBA (Visual Basic Application). Trong cc ngn ng lp trnh c in nh C, Pascal,... ngi ta ch cung cp phng tin xc nh tn chng trnh ang chy (tn file chng trnh) ch khng cung cp phng tin xc nh tn mt th tc ang chy.

C th ngn ng VBA cng c cng kh nng ny, ngha l trong cc lnh ca mt th tc no  ngi ta khng th bit tn ca th tc ang chy. iu ny khng gy phin h cho ngi lp trnh. Theo kinh nghim, chng ti cha thy nhu cu no dn n vic thay i tn macro thng xuyn trong qu trnh chy, hn na, nu ngi dng macro ca bn khng phi l bn th lm sao h c th hiu chnh m ngun  i tn cc macro? Thay v vit 1 macro c kh nng thc hin 2 chc nng khc nhau ty theo tn, bn nn vit ring tng macro, phn vic chung c dng bi 2 macro s c  trong mt hay nhiu th tc khc, code trong macro ch gi cc th tc ny  gii quyt vn  ring ca mnh, nh vy chng trnh s trong sng hn nhiu so vi cch m bn mun vit.

Trong trng hp bn  vit l macro  ri v khng mun sa li nhiu th cch gii quyt nh sau: vit thm 2 macro, mi macro ch c mt lnh gi n th tc ca bn, trong lnh gi c truyn tn ca macro gi. Code c th nh sau:

Code cua macro thi hanh cong viec 1

Sub macro1()

macro_chung("macro1")

End Sub

 Code cua macro thi hanh cong viec 2

Sub macro2()

macro_chung("macro2")

End Sub

 Code cua macro ma ban da viet

Sub macro_chung(macroname As String)

if macroname = "macro1" then

 Doan code thi hanh cong viec 1

Elseif macroname = "macro2" then

 Doan code thi hanh cong viec 2

Endif

End Sub

Hi: B dch C++ 32 bit c nht, gn nh nht l b no?

Tr li: C th  l trnh bin dch Borland C++, version 3.0. Borland rt ni ting v tnh gn nh hiu qu ca cc trnh bin dch ca h. Tuy nhin, hin nay b Visual Studio 6.0 ca Microsoft  cung cp mt mi trng lp trnh rt mnh v n nh trn Windows 32-bit.

Hi: C th in kt qu ca mt chng trnh vit bng ngn ng Pascal, C, C++ t mn hnh ra giy c khng? Lm bng cch no?

Tr li: c, ty theo mi trng thi hnh chng trnh v c source code chng trnh khng? Nu c source code ca chng trnh, bn s thm vo nhng lnh cn thit  sau khi hin th ra mn hnh, bn xut kt qu ra my in.

Nu khng c source code, bn c th dng k thut screen capture  sao li kt qu ang hin th trn mn hnh, ct n vo mt file no  (th d file ca Paint, ca Word,...) ri in n ra my in sau . a s cc trnh screen capture trn nn MS-DOS v Windows u c kh nng in trc tip ra my in ni dung mn hnh va b capture.

Hi: Em th thay th tc WritePixel trong chng trnh PC BMP (PCW thng 5/1995) bng th tc Putpixel ca Unit Graph th thy tc  c nh tng ln r rt. Vy c phi th tc Putpixel khng ghi nh bng cch thc hin ngt khng? Nu ng nh vy th th tc ny ghi im nh bng cch no?

Tr li: Trong qu trnh lp trnh, chng ta s gi rt nhiu th tc trong nhiu th vin khc nhau.  gi c th tc trong mt th vin no , ta ch cn bit c t (prototype) ca th tc , bao gm tn th tc, s lng i s, kiu ca tng i s v chc nng ca th tc . Ngi gi th tc khng cn bit chi tit gii thut c th bn trong th tc . Th tc Putpixel trong th vin  ha ca Borland c hin thc bi hng Borland, chng ta kh lng bit chi tit bn trong th tc, nhng nh trn  ni, iu  khng nh hng g n vic s dng n.

Hi: - Trong Pascal 7.0, khi em dng n unit CRT th chng trnh khng chy c mc d my bo l khng c li (khi dch). Lc  hin ln dng: "Division by zero" v bt buc em phi chn OK (mc d trong chng trnh em khng h dng n cc biu thc tnh ton).

- Khi chy Turbo Pascal 7.0  dch v chy file c ni dung:

uses crt;

Begin

Writeln;

End

th b bo li khi chy chng trnh l li sau:

Error 200: runtime at xxxx : 0091

Error 200: Division by zero

Cn khi dch vn bnh thng. em a cha Turbo Pascal 7.0  chy trn cc my khc vn bnh thng. My em c cu hnh Pentium II 266 MHz, Ram 32MB, chy bnh thng Turbo Pascal 5.5. Vi 7.0 nu b dng lnh uses crt hoc thay cc unit khc v khng dng cc hm ca unit crt th chy bnh thng.

Tr li: y l li ca Turbo Pascal 7.0: khng tng thch vi CPU Pentium II. Bn xem bi: "Khc phc li "Runtime Error 200" trong TP 7 trn my PC tc  cao" trang 85 trong s bo ny.

Hi: Lm th no  a mt biu tng vo ca s "system tray"? Xin cho v d nh (dng VBasic 4-43).

Tr li:  thm mt biu tng chng trnh vo ca s System Tray ca Windows 9x hay Win NT, bn phi gi hm API ca Windows Shell_NotifyIcon (c cha trn file th vin shell32.dll). Qui trnh s dng hm ny t Visual Basic  thm mt biu tng vo System Tray kh di nn khng tin miu t  y. Mun bit thng tin chi tit v c th v vn  ny, bn c th c bi "HOW TO: Use the System Tray Directly from Visual Basic 5.0" trong a MSDN s 2 ca b a Visual Studio 6.0. Nu bn quan tm v lp trnh trong mi trng Windows 32-bit bng cc ngn ng ca Microsoft (Visual Basic, C++, J++, Visual FoxPro), bn nn tm mua hai a MSDN ny.

Hi: Lm sao  ngn cho chng trnh trong Windows chy hai ln trong Visual Basic? Em ang lm mt chng trnh ci font "System Tray" l ni c biu tng loa, my in ...

Tr li: Mt chng trnh Visual Basic bao gm nhiu form, trong  c mt form chnh m t chng trnh, chng trnh bt u chy t th tc Form_Load() ca form ny. Nu bn mun chng trnh ch c php chy mt bn (instance), bn c th kim tra thuc tnh PrevInstance ca i tng App m t chng trnh, nu khc khng th chng trnh  chy t nht mt bn, trong trng hp ny bn dng chng trnh. on lnh c th nh sau:

Private Sub Form_Load()

If App.PrevInstance Then

Unload Me ng form miu t ca s chng trnh

End  Dng chng trnh

End If

Cc lnh khi ng thng s cho chng trnh

End Sub

Hi: C th to mt macro trong Microsoft Word hay mt chng trnh trong Visual Basic  ly s serial ca a mm (A:, B:) hay khng? Xin tp ch vit mt macro hay on chng trnh nh yu cu. (Em thy trong phin bn lm vic vi Word nu m file t mt a mm no y nhng cha ng li, sau  rt a mm y ra  a a khc vo th khi thao tc trn tp tin  m th Word s bo li v yu cu ta t a mm c s serial... vo, lm th no Word bit s Serial ca a  a vo  ?).

Tr li: Bn c th gi hm GetVolumeInformationA trong th vin ca Windows  ly nhiu thng tin lin quan n mt a mm (hay a cng) no , trong  c s serial ca n. V y l mt hm ca Windows nn bn phi khai bo trc khi dng trong Visual Basic. Sau y l mt macro n gin c vit bng Visual Basic  hin th s serial ca a mm ang   a:

Khai bao ham GetVolumeInformationA

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _

(ByVal lpRootPathName As String, _

ByVal lpVolumeNameBuffer As String, _

ByVal nVolumeNameSize As Long, _

ByRef lpVolumeSerialNumber As Any, _

ByRef lpMaximumComponentLength As Any, _

ByRef lpFileSystemFlags As Any, _

ByVal lpFileSystemNameBuffer As String, _

ByVal nFileSystemNameSize As Long) As Boolean

 Thu tuc mo ta macro can viet

Sub ReadSerieNumber()

Dim Path As String

Dim volname As String

Dim fsn As String

Dim volserial As Long

Dim mcl As Long

Dim flag As Long

Path = "a:\"

kq = GetVolumeInformation(Path, volname, 128, volserial, mcl, _

flag, fsn, 256)

MsgBox ("Serial number cua dia mem tren o A: la " + Hex(volserial))

End Sub

Hi: Ti mun PCW cung cp thng tin v:

- Header ca cc file *.exe v chng trnh dng k thut overlay.

- Cch xc nh v tr, kch thc ca module c np i vi nhng chng trnh thuc loi ny.

- Tn nhng ti liu c cc thng tin trn.

Tr li: File overlay l trng hp c bit ca file *.exe. Header ca file *.exe trn MS-DOS l mt record gm nhiu vng nhm cung cp thng tin y  v file *.exe. Cu trc c th ca file *.exe c trnh by trong bng (phn u l header, phn sau l ni dung cn li ca file *.exe).

Microsoft  ni rng header trn  miu t cc file *.exe v *.dll chy trong mi trng Windows. Nu mun bit thm thng tin trong phn ni rng ny, bn c th c bi "Executable-File Format" trong a MSDN 2 ca b Visual Studio 6.0.

Hi: Khi ci Borland C (BC) 4.5 na chng my bo: "Need 386 or better to expand file: scrptsrc.pak".  l thng bo g, v cn phi lm g? Hin ti ang chy BC 3.0 v b BC 4.5 ci na chng. Khi vit chng trnh v bin dch th c thng bo:

can't open include <io.h>
include <stdio.h>

Vy  l cc vn  g, c phi do b BC b thiu gy ra?

Tr li: CÊu hnh tèi thiÓu ®Ó ci v sö dông trnh bin dÞch BC 4.5 l my 386, 4MB RAM trë ln. Vy bn hy kim tra li my mnh xem c tha mn cu hnh ti thiu khng. Nu my bn l 386 hay cao hn m BC 4.5 bo li nh bn miu t th  l chuyn bt thng, a s trng hp l do virus gy ra. Nu BC 4.5 ci cha thnh cng th vic s dng n b li l chuyn bnh thng v cc thng s cu hnh cho chng trnh cha c thit lp ng (cc thng bo li tm khng c cc file include ca BC 4.5 nh io.h, stdio.h,... l mt th d c th). Tm li nu my bn l 386, 4MB Ram hay cao hn, bn hy thc hin trnh t sau y:

- Khi ng li my t a mm sch, dit virus bng cc trnh dit mi nht (D2, BKAV...).
- To cu hnh khi ng n gin nht bng cch hiu chnh li hai file Config.sys v Autoexec.bat.
- Kim tra li bn gc BC 4.5 nht l khi dng a mm, ri ci li BC 4.5.

Hi: Ti ang s dng Windows 98. Xin hi lm cch no  chuyn mt chng trnh vit bng Pascal sang tp tin thc thi .Exe c th chy trong Windows, Dos (s dng Turbo Pascal 7.0). V lm cch no  c th ci t Turbo Pascal (TP) vo Windows  khi chy khng cn dng thng bo "Do you want to continue?"

Tr li:  ci t TP 7.0 vo my chy Windows 98, tt nht l bn thot ra DOS (hay khi ng  ch  Command Prompt Only). TP 7.0 c c hai mi trng lp trnh: trn DOS v trn Windows; n cho php bn to chng trnh chy  mt trong nhiu ch  khc nhau, trong  hai ch  chnh l DOS v Windows.

C nhiu cch khc nhau  dch chng trnh ngun ra tp tin *.exe chy trn mi trng DOS, hai cch thng thng l:

- T du nhc DOS, bn chy trnh turbo.exe  lm vic vi mi trng lp trnh trn DOS ca Pascal. Sau khi bn  m chng trnh ngun (th d Myprog.pas), bn chn menu Compile, ri chn mc Destination Memory  chuyn mc ny thnh Destination Disk. Sau  bn chn menu Compile/Make  to file Myprog.exe. Tp tin *.exe to ra s c lu  cng th mc cha chng trnh ngun nu bn khng nh ngha tng minh th mc cha n trong menu Options/Directories/EXE Directory.

- Dng chng trnh dch hng lnh bpc.exe  to tp tin *.exe nh sau : «bpc -CD Myprog.pas».  bit chi tit v cc tham s ca trnh bpc.exe, bn nhp lnh bpc ri nhn Enter, chng trnh s hin th cc tham s m n h tr.

Tng t,  to ra tp tin *.exe chy trong Windows, bn cng c th dng nhiu cch khc nhau, trong  hai cch thng thng l:

- Chy trnh BPW.exe  lm vic vi mi trng lp trnh ca Pascal trn Windows. Sau khi m tp tin ngun (th d Myprog.pas), bn chn menu Compile  xem mc Target.. c phi l Windows khng (ch  default), nu khng, chn mc Target  thay i thnh Windows. Sau  bn chn menu Compile/Make  to tp tin Myprog.exe. Tp tin *.exe c to ra s lu  cng th mc cha tp tin ngun nu bn khng nh ngha tng minh th mc cha n trong menu Options/Directories/EXE Directory.

- T du nhc DOS, bn dng chng trnh dch hng lnh Bpc.exe  to tp tin *.exe nh sau:

bpc -CW myprog.pas

 bit chi tit v cc tham s ca trnh Bpc.exe, bn nhp lnh bpc ri Enter, chng trnh s hin th cc tham s m n h tr.

Lu  rng  to mt chng trnh chy c trn Windows, bn cn phi vit chng trnh theo cc qui nh ca Windows.  lm quen vi cu trc chng trnh trn Windows, bn c th c cc chng trnh mu ca TP 7.0

Hi: Em c mt bi ton gii bng Pascal

Trm b trm c
Tru ng n nm
Tru nm n ba
Tru gi ba con n mt
Tm s tru mi loi
(y l bn gc ca , nhng thy cho l "Tru gi n mt")

Em  dng Pascal, cu trc vng lp FOR  gii nhng khng c. Bi ca em nh sau:

Var a, b, c: integer;
Begin
for a:= 1 to 20 do
for b: = 0 to 35 do
for c: = 0 to 99 do
if (5*a + 3*b + c/3 = 100) and (a+b+c = 100) then writeln (a,b,c);
end.

NÕu viÕt chng trnh theo ®Ò cña thÇy th söa dßng if li

If (5*a + 3*b + c= 100) and (a+b+c = 100) then

Em  th nhng chng trnh chy sai. Em dng While... do, vn vy. Khi em b i on "and (a+b+c = 100)" th chng trnh chy ng nhng n khng nh  bi na.

Xin ta son gip em gii bi ton ny.

Tr lêi: NÕu bi ton cña bn ®îc pht biÓu râ rng nh sau: "cã 100 con tr©u n 100 bã cá, trong ®ã cã 3 loi tr©u : tr©u ®øng mét con n 5 bã, tr©u nm mét con n 3 bã, tr©u gi 3 con n 1 bã. Hy tm tt c cc t hp v s tru ca mi loi tho mn bi ton" th chng trnh Pascal gii bi ton ny s c vit n gin nh sau:

Program timsotrau;
Var std, stn, stg : Integer;
Begin writeln(Cac kha nang co the co la :);
for std := 0 to 20 do { toi da co 100/5=20 trau dung }
for stn := 0 to 33 do { toi da co 100/3=33 trau nam }
for stg := 0 to 100 do { toi da co 100 trau gia }
if (std*5+stn*3+ stg div 3 = 100) and
(std+stn+stg=100) and (stg mod 3 = 0) then
writeln(std=,std, stn=,stn, stg=,stg);
readln;
end.

Sau khi dch v chy chng trnh ta c kt qu hin ln mn hnh nh sau:

Cac kha nang co the co la:
std=0 stn=25 stg=75
std=4 stn=18 stg=78
std=8 stn=11 stg=81
std=12 stn=4 stg=84

Bn c th kim chng li tng kh nng. Lu  l chng trnh trn cha c ti u v mt thi gian thi hnh, nhng trn cc my tnh hin nay th chng trnh trn chy hu nh tc thi nn c l cng khng cn ti u n lm g.

Hi: Em c vit mt on chng trnh nh sau:

Var: I: Integer;
a,b,:Real;
St: String;
f:Text;
Gd,Gm:Integer;
Begin
Gd:=Detect;
Ini Graph(Gd,Gm.C:\Tp\Bgi);
If GraphResult <> grOK then
Halt(1);
...
a:=Port[$3F8];
Str(a:10:2,st);
outtextxy(10,10,st);
...
closegraph;
End.

Chng trnh ny chy nhng khng th iu khin nh  mun c, khng th c lin tc bin 'a' vo t cng COM, chui 'St' khi in ra nu c t 2 ln in th b  ln nhau (hai gi tr khc nhau) trong mi trng  ha. Xin c ch dn.

Tr lêi: Bn cã thÓ ®äc/ghi mét  nhí theo nhÞp ®iÖu cña bn, nhng bn phi nhËp/xuÊt mét thanh ghi cña card giao tiÕp I/O theo ®Æc ®iÓm v trng thi cña card I/O ®ã. Thng card I/O c cc loi thanh ghi sau: thanh ghi trng thi, thanh ghi lnh, thanh ghi d liu xut v thanh ghi d liu nhp. S khng c ngha khi bn ghi ni dung ra thanh ghi trng thi hay thanh ghi nhp d liu. Tng t, vic c ni dung thanh ghi lnh hay thanh ghi xut d liu l khng c ngha. Vic c ni dung ca thanh ghi nhp liu ch c ngha (v cn thit) sau khi d liu c gi t thit b I/O n thanh ghi nhp liu ca card giao tip tng ng. Th d ch khi ngi dng n mt phm, m scan ca phm y mi c gi v my tnh v c a vo thanh ghi nhp liu keyboard  port 60h. Lc ny (nh tn hiu ngt qung thng bo) bn mi nn c ni dung ca thanh ghi ny  bit c m phm va nhn. Sau  bn phi xut ra thanh ghi iu khin  port 61h  to tn hiu phn hi (acknowledgement) v cho keyboard  n c th gi tip m scan khc khi c phm c nhn k tip.

Ring i vi lnh OuttextXY trong th vin  ha Pascal trn nn DOS, n khng xa d liu trc khi hin th ni dung mi, do  s dn n vic ghi chng ln ni dung c v khin ngi dng kh lng c c.
 trnh vic ghi chng ny, bn cn phi xa ni dung trc  (bng lnh Bar(...) chng hn) trc khi gi hm OuttextXY  hin th ni dung mi.

Hi: Ti t hc FoxPro v Access. Trong FoxPro, khi tnh tin tn qu ca tp tin TienMat.DBF c cc trng: Ngay, Chung_Tu, Dien_Giai, Thu, Chi, Ton_Quy theo cng thc: Tn qu ti thi im Chung_tu(i) = Tn qu ti thi im Chung_tu(i -1) + Thu(i) - Chi(i). Ti vit chng trnh TienMat.PRG tnh Ton_Quy nh sau:

Set talk off

Clear

Use TienMat.DBF

tq=ton_quy

do while !eof()

replace ton_quy with tq+thu-chi

tq=tq+thu-chi

skip

enddo

browse

return

Chng trnh trn tnh c Ton_quy theo yu cu. Lm cch no gii quyt yu cu ny bng Access?

Tr li: Nu bn  hc v nm c c tnh ca Access th vic dng Access  gii quyt bi ton ca bn s gn ging nh FoxPro gii quyt:

- Mi tp tin c s d liu (CSDL) ca Access cha nhiu loi phn t: table, query, form, report, macro v module, trong  mi table (tng ng vi mt tp tin CSDL ca FoxPro) gm nhiu mu tin (record) vi mt cu trc no  theo yu cu.

- Ngn ng chnh  vit chng trnh ng dng trong Access l VBA (Visual Basic for Applications).

Th d sau y miu t mt cch lm c th  gii quyt vn  bn nu:

- Chy Access, chn nt Create blank database  to mt database mi.

- Chn nt Tables, chn New, chn mc Datasheet view. Khi ca s trnh by mt bng trng hin ln, bn chn cc ct t Field1 ti Field6 ri t tn li cho chng l: Ngay, Chung_tu, Thu, Chi, Ton_Quy, Dien_Giai. Sau , t tn cho bng ny l Thuchi.

- Nhp d liu theo th t tng record vi tng field theo yu cu (dng field Ton_Quy ca record u  cha gi tr tn qu ban u, c th l 0).

- Chn li ca s database, chn nt Forms, chn New, chn mc Design view. Khi xut hin mt form trng, chn cng c Command Button trong ca s Toolbox  to mt nt lnh trong form. Nhn chut phi vo nt va to  lm hin th thc n ri chn Properties, t li tn cho nt lnh ny l tinhtonquy v Caption l Tinh ton quy. Kt hp bin c (event) OnClick ca nt lnh vi th tc sau y  tnh tn qu theo yu cu ca bn:

Private Sub tinhtonquy_Click (Cancel As Integer)

Dim Thu As Database

Dim Thuchi As Recordset

Dim tq As Double

Set Thu = CurrentDb

Set Thuchi = Thu.OpenRecordset("Thuchi")

With Thuchi

tq = !tonquy

.MoveNext

Do While Not .EOF

.Edit

!tonquy = tq + !Thu - !Chi

tq = !tonquy

.Update

.MoveNext

Loop

.Close

End With

End Sub

- Sau khi bn  to ra form n gin c mt button lnh nh trn, Access s yu cu bn t tn cho n chng hn nh fmtinhtonquy. T y, bn c th chy form ny bt k lc no bn mun bng cch vo ca s database, chn nt Forms ri nhn p fmtinhtonquy.

Hi: Ti vit chng trnh bng AutoLisp cho AutoCAD. Cc tp tin chng trnh ny c vit di dng vn bn (text) nn ngi dng c th sa i c chng trnh. Ti c bit c mt s tp tin LSP c th c i sang dng m my m AutoCad c th c c (cc tp tin LSP ny c Protected). Xin cho bit cch hoc chng trnh no  bo v cc tp tin Autolisp ny.

Tr li: Bnh thng th cc tp tin chng trnh AutoLisp  dng vn bn nn bt k ai cng c th tham kho ni dung. Nu mun "che du" ni dung ca n, bn cn i n sang mt dng m kh c. Tuy nhin khng c tin ch no i km theo b phn mm AutoCAD cho php bn thc hin vic ny c. Mc d vy, c nhiu ngi chuyn dng AutoCAD  vit tin ch ny, trong  c cc thy  Khoa C Kh Trng H K Thut Tp. HCM.  bit thng tin c th v tin ch ny, bn c th lin h trc tip vi thy V Tin t theo in thoi s 823 2691.

Hi: 1. Em mun hin mt file .bmp nhanh trn Turbo Pascal 7.0 th lm cch no?

2. Mt chng trnh Pascal (Ver 7.0) c dng th tc EXEC ca Unit Dos  gi chng trnh ngoi (EXEC('C:\VPIC.Exe','C:\Anh.BMP'), v file Anh.bmp kh ln nn khi gp lnh ny th chng trnh dng li  c a, iu ny ngoi  mun. Vy c cch no  a c 2 file: Anh.bmp v VPIC.exe (file xem nh) vo Ram  khi gp lnh trn th chng trnh ch tm chng trong Ram  gim thi gian truy xut a (khi kt thc chng trnh th cc file trn cng c gii phng).

Tr li: (1&2). Trn DOS khng c cch no cho php bn np trc chng trnh v d liu ca chng trnh  vo RAM  khi cn s chy nhanh hn. Thc vy, khi cn thi hnh chng trnh, DOS mi tm file chng trnh trn a v np n vo RAM. Lc chng trnh chy, ty thuc vo gii thut, n s c d liu khi cn thit. Ring trng hp ca bn, do chng trnh bn gi trnh vpic.exe  nh n hin th file nh anh.bmp nn bn khng th can thip vo qu trnh hin th nh ca vpic.exe c.  ch ng trong qu trnh np file nh vo RAM cng nh hin th n ln mn hnh, bn nn x l trc tip file nh.  x l trc tip c nh *.bmp, bn phi:

- Hoc nm vng cu trc file nh *.bmp. C rt nhiu ti liu gii thiu cu trc file *.bmp, bn c th c bi "Bitmap Storage" v cc bi bo lin quan trong CDROM MSDN km theo b Visual Studio 6.0 ca Microsoft.
- Hoc dng tin ch chuyn format file t *.bmp sang dng  ha BGI ca Borland ri dng hm putimage()  hin th ln mn hnh khi cn thit. Mt trong nhng tin ch chuyn format nh t *.bmp sang *.bgi l trnh bmp2bgi.exe, bn c th download n t Internet  a ch ftp://ftp.simtel.net/pub/simtelnet/msdos/graphics/bmp2bgi1.zip

Hi: Trong Pascal  ch   ha mi khi thc hin chng trnh hm GraphResult s tr li m li ca chng trnh  ha . Mun bit c thng bo li ny ta dng hm GraphErrorMsg. Cn  ch  vn bn khi thc hin gi mt trong cc th tc trong Unit Dos hoc thc hin cc li gi vo ra... th m li lu trong bin Dos Error hoc hm IOResult. Hi c cch no bit c cu thng bo li m hm IOResult hay bin DosError tr li khng.

Tr li: Bin DosError trong unit Dos hay hm IOResult ch tr v m li sai  bn x l (dng s nguyn), Pascal khng cung cp hm no cho php i m li sai thnh chui vn bn sai tng ng. Nu bn cn yu cu ny, bn c th to mt dy n String, String i cha chui li tng ng vi m li i. Bn c th vo phn Help ca Pascal, tm mc "Run-time error messages"  bit tt c m li v cc chui li tng ng.

PcLeHoan 1996 - 2002
Mirror : http://www.pclehoan.com
Mirror : http://www.lehoanpc.net
Mirror : http://www.ktlehoan.com