کسی می دو نه چطور میشه تو پاسکال فارسی نوشت؟
Printable View
کسی می دو نه چطور میشه تو پاسکال فارسی نوشت؟
سلامنقل قول:
مثل اينكه بدجوري گرفتار داس شديد!
فارسي نويسي 2مرحله دارد
1 - فارسي سازي كاراكترها
2- دريافت ورودي از كاربر بصورت راست به چپ
مرحله دوم كه مشكل خاصي نيست. شروع ميكنيد به خواندن صفحه كليد , بعد از دريافت كليد اونو روي صفحه چاپ ميكنيد و مكان نما را يك كاراكتر به سمت چپ شيفت ميدهيد.
در مورد فارسي سازي كاراكترها هم سالها پيش يك راهنماي چند صفحه اي نوشتم كه روش طراحي فونت و فارسي سازي را توضيح دادم. سعي ميكنم تو اين 1-2 روزه پيداش كنم و ارسال كنم.
ولي باز هم ميگم زياد آلوده داس نشيد, جوانيتون را ازتون ميگيرد
آره بدجور کلافه ی داس شدم.ولی من یه مشکل دارم.اگه یادتون وقتی در مورد یونیت موس تو پاسکال درخواست دادم خود شما یه آدرس برای دانلود گذاشته بودید.توی اون کاراکتر ها فارسی شده اند .ولی وقتی برنامه رو EXE می کنم جواب نمی ده.یعنی مثلاً اگر به جای کاراکتر 141# حرف"آ" رو گذاشتیم کاملاً درست عمل می کند یعنی با write(#141) حرف "آ" چاپ می شود ولی بعد از EXE شدن فایل مجدداً همان کاراکتر قبل از "آ" چاپ می شود.
سلامنقل قول:
فونتهاي تحت داس مثل ويندوز نيستند كه هميشه باقي بمانند، وقي مد صفحه عوض شود فونتها نيز به حالت اوليه برمي گردند.
اين هم راهنما :
توجه : اين راهنما را براي ابزاري به نام FMaker نوشتم. در اينجا با روش طراحي فونت آشنا مي شويد. در قسمت زير سورس FMaker يا در واقع تابع فارسي سازي يك كاراكتر را ميبينيد. براي فارسي سازي كل صفحه كليد بايد اين تابع را با مقادير مختلف صدا كنيد.(كدپيج براساس ايران سيستم است)
متاسفانه چون متن تحت داس بود مجبور شدم از صفحه كپچر بگيرم.
تصوير : (به علت بلند بودن ارتفاع ، تصوير را در وارد متن نكردم)
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
روال تغيير كاراكتر :
روال تغيير فونت :(فراخواني تابع بالا براي تمام حروف)کد:procedure set_char(char_no,l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16 : integer);
var
chardef : array[0..15] of byte;
begin
chardef[0] := l1;
chardef[1] := l2;
chardef[2] := l3;
chardef[3] := l4;
chardef[4] := l5;
chardef[5] := l6;
chardef[6] := l7;
chardef[7] := l8;
chardef[8] := l9;
chardef[9] := l10;
chardef[10] := l11;
chardef[11] := l12;
chardef[12] := l13;
chardef[13] := l14;
chardef[14] := l15;
chardef[15] := l16;
regs.ax := $1100;
regs.bh := 16;
regs.bl := 0;
regs.cx := 1;
regs.dx := char_no;
regs.es := seg(chardef);
regs.bp := ofs(chardef);
intr($10,regs);
end;
کد:procedure farsi;
begin
set_char(128,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0,0);
set_char(129,0,0,16,16,16,16,8,8,8,4,4,4,0,0,0,0);
set_char(130,0,0,62,64,64,64,32,32,32,16,16,16,0,0,0,0);
set_char(131,0,0,73,73,118,64,32,32,32,16,16,16,0,0,0,0);
set_char(132,0,0,6,8,16,16,12,8,16,32,34,28,0,0,0,0);
set_char(133,0,0,0,16,24,36,66,129,129,145,110,0,0,0,0,0);
set_char(134,0,0,66,62,2,2,4,4,4,4,2,2,0,0,0,0);
set_char(135,0,0,66,66,66,34,36,36,20,24,24,16,0,0,0,0);
set_char(136,0,0,8,24,24,20,36,36,34,66,66,66,0,0,0,0);
set_char(137,0,0,28,34,34,34,30,2,2,2,2,2,0,0,0,0);
set_char(138,0,0,0,0,0,12,24,24,24,0,0,0,0,0,0,0);
set_char(139,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0);
set_char(140,0,0,60,66,64,96,16,12,12,0,12,12,0,0,0,0);
set_char(141,0,0,62,64,8,8,8,8,8,0,0,0,0,0,0,0);
set_char(142,0,0,6,8,30,0,1,1,254,0,0,0,0,0,0,0);
set_char(143,0,0,0,0,12,18,16,12,16,4,8,0,0,0,0,0);
set_char(144,0,8,12,12,8,8,8,8,8,0,0,0,0,0,0,0);
set_char(145,0,4,4,4,4,4,4,4,3,0,0,0,0,0,0,0);
set_char(146,0,0,0,0,0,64,129,129,126,0,0,16,0,0,0,0);
set_char(147,0,0,0,0,0,0,1,1,254,0,0,32,0,0,0,0);
set_char(148,0,0,0,0,0,64,129,129,126,0,0,40,16,0,0,0);
set_char(149,0,0,0,0,0,0,1,1,254,0,0,40,16,0,0,0);
set_char(150,0,0,0,20,0,64,129,129,126,0,0,0,0,0,0,0);
set_char(151,0,0,0,20,0,0,1,1,254,0,0,0,0,0,0,0);
set_char(152,0,0,8,20,0,64,129,129,126,0,0,0,0,0,0,0);
set_char(153,0,0,8,20,0,0,1,1,254,0,0,0,0,0,0,0);
set_char(154,0,0,0,0,24,36,2,63,64,128,136,128,65,62,0,0);
set_char(155,0,0,0,0,0,12,18,1,254,0,0,8,0,0,0,0);
set_char(156,0,0,0,0,24,36,2,63,64,128,148,136,65,62,0,0);
set_char(157,0,0,0,0,0,12,18,1,254,0,0,40,16,0,0,0);
set_char(158,0,0,0,0,24,36,2,63,64,128,128,128,65,62,0,0);
set_char(159,0,0,0,0,0,12,18,1,254,0,0,0,0,0,0,0);
set_char(160,0,0,16,0,24,36,2,63,64,128,128,128,65,62,0,0);
set_char(161,0,0,8,0,0,12,18,1,254,0,0,0,0,0,0,0);
set_char(162,0,0,0,0,4,2,1,33,62,0,0,0,0,0,0,0);
set_char(163,0,0,16,0,4,2,1,33,62,0,0,0,0,0,0,0);
set_char(164,0,0,0,0,0,0,0,1,1,1,2,36,24,0,0,0);
set_char(165,0,0,0,2,0,0,0,1,1,1,2,36,24,0,0,0);
set_char(166,0,0,2,5,0,0,0,1,1,1,2,36,24,0,0,0);
set_char(167,0,0,0,0,0,0,21,21,143,136,132,132,120,0,0,0);
set_char(168,0,0,0,0,0,0,37,45,210,0,0,0,0,0,0,0);
set_char(169,0,2,5,0,0,0,21,21,143,136,132,132,120,0,0,0);
set_char(170,0,4,10,0,0,0,37,45,210,0,0,0,0,0,0,0);
set_char(171,0,0,0,0,0,2,5,41,158,136,132,132,120,0,0,0);
set_char(172,0,0,0,0,0,6,41,49,254,0,0,0,0,0,0,0);
set_char(173,0,0,2,0,0,2,5,41,158,136,132,132,120,0,0,0);
set_char(174,0,4,0,0,0,6,41,49,254,0,0,0,0,0,0,0);
set_char(175,0,32,32,32,32,38,41,49,254,0,0,0,0,0,0,0);
set_char(224,0,0,36,32,32,38,41,49,254,0,0,0,0,0,0,0);
set_char(225,0,0,0,12,18,16,8,62,64,128,128,128,66,60,0,0);
set_char(226,0,0,0,0,14,18,12,19,32,64,64,64,33,30,0,0);
set_char(227,0,0,0,0,0,28,36,24,231,0,0,0,0,0,0,0);
set_char(228,0,0,0,0,6,9,16,8,255,0,0,0,0,0,0,0);
set_char(229,0,8,0,12,18,16,8,62,64,128,128,128,66,60,0,0);
set_char(230,0,4,0,0,14,18,12,19,32,64,64,64,33,30,0,0);
set_char(231,0,0,8,0,0,28,36,24,231,0,0,0,0,0,0,0);
set_char(232,0,4,0,0,6,9,16,8,255,0,0,0,0,0,0,0);
set_char(233,0,4,0,0,6,73,137,133,126,0,0,0,0,0,0,0);
set_char(234,0,4,0,0,6,9,9,5,254,0,0,0,0,0,0,0);
set_char(235,0,0,10,0,0,2,5,37,67,65,65,34,28,0,0,0);
set_char(236,0,10,0,0,6,9,9,5,254,0,0,0,0,0,0,0);
set_char(237,0,6,8,16,16,14,65,129,126,0,0,0,0,0,0,0);
set_char(238,0,6,8,16,16,14,1,1,254,0,0,0,0,0,0,0);
set_char(239,0,38,72,16,16,14,65,129,126,0,0,0,0,0,0,0);
set_char(240,0,38,72,16,16,14,1,1,254,0,0,0,0,0,0,0);
set_char(241,0,1,1,1,1,1,1,65,129,129,129,66,60,0,0,0);
set_char(242,0,33,33,33,17,9,9,7,30,0,0,0,0,0,0,0);
set_char(243,0,1,1,1,1,1,1,1,254,0,0,0,0,0,0,0);
set_char(244,0,0,0,0,14,17,9,62,64,64,32,32,16,16,24,24);
set_char(245,0,0,0,0,0,14,17,41,198,0,0,0,0,0,0,0);
set_char(246,0,0,0,8,0,0,0,33,65,65,65,34,28,0,0,0);
set_char(247,0,0,0,8,0,0,1,1,254,0,0,0,0,0,0,0);
set_char(248,0,0,0,0,0,6,9,9,7,1,2,68,56,0,0,0);
set_char(249,0,0,0,0,12,18,17,17,14,0,0,0,0,0,0,0);
set_char(250,0,0,0,0,0,28,36,40,243,36,18,14,0,0,0,0);
set_char(251,0,0,0,8,28,38,37,25,246,0,0,0,0,0,0,0);
set_char(252,0,0,0,0,0,0,0,0,7,72,140,130,130,124,0,0);
set_char(253,0,0,0,0,0,6,72,140,130,130,124,0,0,0,0,0);
set_char(254,0,0,0,0,0,0,1,1,254,0,0,40,0,0,0,0);
end;
ميتوني هم از دوتا برنامه معروف در اين زمينه استفاده كني.
يك برنامه F وجود داره كه ميتوني باهاش فارسي تايپ كني و فونتهاي فارسي رو ببيني.
ولي از من به تو نصيحت.
Pascal رو ول كن. چون ديگه به درد نميخوره. من قبل دلفي Foxpro,Pascal,C,Basic و ... رو كار كردم ولي الان روي تمام سيستمها ويندوز هست و همه دوست دارن محيط ويندوز رو ببينن.
حالا خود داني.
ضمنا اگه اين فايلس كه گفتم به دردت ميخوره بگو تا لينكشو بدم.
موفق باشي.
اين برنامه F كه شما ميگين واقعا چيز بدرد بخوري هست براي اين كار. البته ورژن هاي مختلف داره هر كدوم ساخت يه شركت. يادمه سابق كه خدمت مي رفتم همه برنامه ها رو مجبور بوديم با فاكس پرو 2.6 كاركنيم! حالم ديگه از داس به هم ميخوره! ياد خدمت ميفتم.نقل قول:
آره مرد مباح خوشحال مي شم اگه لينكشو بذاري
اينم لينكش.
لطفا سريع دانلود كن و بهم بگو تا پاكش كنم.
اميدوارم به دردت بخوره با ScrollLock از حالت En به Fa ميره.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
موفق باشي
دانلود كردم.ميتوني پاكش كني.ولي چطوري كار ميكنه؟هر دكمه اي رو ميزنم زرتي خارج ميشه!
اين برنامه رو بايد توي خود برنامت اجرا كني.
يا بري توي DOS Prompt و اونجا اجراش كني.
چون توي DOS يك برنامه رزيدنت توي حافظت ميشه.
ولي چون برنامه تحت داس هست توي ويندوز ميپره بيرون.