چگونگی دریافت کدهای Ascii در پاسکال

برای اینکه ما بتو انیم برای کلید های کی برد کار خاصی تعریف کنیم از کد های ASCII استفاده می کنیم

روش استفاده

در قسمت var یک کلید از نوع string تعریف کنید ;var f:string

سپس بعد از begin مقدار f(یا هر کلید دلخواه که تعریف کردید) را بصورت زیر تعریف کند ;f:=readkey

حالا با یک شرط میتونید برای هر کد دسیمان یه کار تعرف کنید
برای تعریف مقدار دسیمان از # استفاده می کنیم بدین صورت

if f=#0115 then

(کاری که می خواهیم با زدن ان حرف انجام بده )
در اینجا کد 0115 مربوط به حرف s کوچک است یعنی شما تعریف می کنید که اگه از کی برد s را بزنه فلان کار را بکنه

برای پیدا کردن کدهای دسیمان می توانید یک ویرستار متن مانند Notepad را باز کرده وکلید ALT سمت راست را نگه داشته واز قسمت Num Lock اعداد مختلف را امتحان کنید و نتیجه را مشاهده کنید

یکی از مهمترین کدها دسیمان مربوط به کلید های جهت نما هستند که در ساختن بازی ها و دوز ها بسیار کاربرد دارن
و من اون هارو به زحمت یعنی با کمک اقای اکبری جدی واستادمان اقای زرگری پیدا کردم

#72 بالا 80# پایین
#75 چپ 77# راست

اگه خواستید نمونه برنامه رو هم که نوشتم و با کلید های جهت نما اسم ورودی را حرکت می دهد را براتون می زارم

حالا یه سوال از شما اساتید بزرگ برنامه نویس داشتم میشه به من تازه کار توضیح بدید که چجوری با case این کد هارو مقدار دهی کنم

دو نوع کد برای کلید ها داریم کدهای عادی و Scan Code ها.

کد کلید های جهت دار (Arrow kwys) دو بایتیه. یعنی اول با یه readkey بایت اول رو که صفر هست بخونیم و بایت بعدی کد کلید هست.

در ضمن لازن نیست از هگزادسیمال اسفاده بکنید!
برای پیداکردن کد اسکی کلید ها هم میتونید از تابع ord استفاده کنید.

توی Case هم مقدار دهی نمیکنیم. بر حسب یه مقدار تصمیم میگیرم چه دستوراتی اجرا بشه.

اگه وقت کردم یه Sample برات میزارم.

موفق باشید

اینو همین الان نوشتم :

کد:

---

program test;
uses graph,crt;
var
 a,b:char;
 gd,gm,i,j:integer;
 finish:boolean;
begin
 gd:=Detect;
 InitGraph(gd,gm,'D:\tp\bgi');
 if GraphResult <> grOk then
  Halt(1);

 finish:=false;
 i:=200;
 j:=200;
 setcolor(5);
 circle(i,j,10);
 while(not finish)do
 begin
  a:=readkey;
  if(ord(a)=13)then
    finish:=true;
  if(ord(a)=0)then
  begin
    b:=readkey;
    case ord(b) of
    72:j:=j-5;
    80:j:=j+5;
    77:i:=i+5;
    75:i:=i-5;
    end;
  end;
  circle(i,j,10);

 end;{while}
 closegraph;
 writeln('Press any key to exit....');
 readkey;
end.

---

برنامه رو که قبل و بعد از اموزش شما نوشتم 30 سطر تو شر ط ها کم شد ای ول

کد:

---

procedure omid;
begin
textcolor(green);
gotoxy(33,12);
writeln('omid_matrix3');
textcolor(red);
gotoxy(32,14);
writeln('www.clik.co.sr');
textcolor(white);
end;
Begin
        gotoxy (35,13);
write ('enter one char:');
readln (z);
write  ('mokhtasat satr ra vared konid  az 0 ta 25:');
readln (b);
write  ('mokhtasate soton ra vared konid az 0 ta 80:');
readln  (a);
clrscr;
gotoxy (a,b);
writeln (z);
while true  do
begin
f:=readkey;
if f=#77 then
begin
clrscr;
omid;
a:=a+1;
gotoxy (a,b);
writeln (z);
    end
    else
if f=#75 then
begin
clrscr;
omid;
a:=a-1;
gotoxy (a,b);
writeln (z);
    end
else
if f=#80 then
begin
clrscr;
omid;
b:=b+1;
gotoxy (a,b);
writeln (z);
    end
    else
if f=#72 then
begin
clrscr;
omid;
 b:=b-1;
gotoxy (a,b);
writeln (z);
    end;
 end;
Readln
End.

---

بعد از استفاده ازcase

کد:

---

program omid_matrix3;
uses crt;
Var
 f:char;
 z:string;
 a,b:integer;
procedure omid;
begin
textcolor(green);
gotoxy(33,12);
writeln('omid_matrix3');
textcolor(red);
gotoxy(32,14);
writeln('www.clik.co.sr');
textcolor(white);
end;
Begin
        gotoxy (35,13);
write ('enter one char:');
readln (z);
write  ('mokhtasat satr ra vared konid  az 0 ta 25:');
readln (b);
write  ('mokhtasate soton ra vared konid az 0 ta 80:');
readln  (a);
clrscr;
gotoxy (a,b);
writeln (z);
while true  do
begin
f:=readkey;
case ord(f) of
 77:a:=a+1;
 75:a:=a-1;
 80:b:=b+1;
 72:b:=b-1;
end;
clrscr;
omid;
gotoxy (a,b);
writeln (z);
    end;
Readln
End.

---

حال یه سوال دیگه ایا می تو نم بدون استفاده از clrscr همین برنامه رو بنویسم