فعال کردن موس در پاسکال

واضح آرشیو وب فارسی:سایت ریسک: mofi27-04-2007, 12:19 PMمن یه کاربر ناشی هستم. حالا یه سؤال داشتم. که چه جوری میشه موس را در پاسکال فعال کرد؟ راستش من خودم تو یه سایتی این عنوان را دیدم ولی نتوانستم از آن استفاده کنم.و در آن سایت با تعریف یک پروسیجر این کار را کرده بودند.کدهای آن را اینجا می گذارم تا کمکم کنید. مثلاً می خواهم با یک جمله ی شرطی که اگر Xموس یعنی مکان آن روی محور Xها 30 شد و کاربر کلیک چپ کرد یک جمله ای را چاپ کند. اینم عین اون مطلبی که تو اون سایت دیدم: براي استفاده از Mouse در محيط گرافيكي بايد وقفه مربوط به فعالسازي Mouse را فراخواني كنيم . اين وقفه 33Hex (هگزادسيمال) نام دارد و شامل يكسري توابع است كه هر تابع با يك شماره مشخص شده و كاربرد خاصي دارد . هركدام از توابع مذكور داراي ثباتهاي ورودي و خروجي هستند . ثباتهاي ورودي بايد قبل از فراخواني وقفه مقدار دهي شوند تا وقفه عمل مورد نظر ما را انجام دهد و ثباتهاي خروجي نتايج اجراي وقفه را برمي گردانند . تابع 00Hex از وقفه 33Hex : اين تابع اعمال زير را انجام مي دهد : 1- پارامترهاي Mouse را با مقادير پيش فرض Set مي كند . 2- اشاره گر Mouse را به مركز صفحه منتقل مي كند . ثبات ورودي : Ax := 0 ; ثبات خروجي : درايور Mouse نصب شده است . Ax = ffff Hex درايور Mouse نصب نشده است . Ax = 0000 Hex تعداد كليد هاي Mouse را مشخص مي كند . Bx = 3 function mreset:integer; var i:integer; begin asm;{ اين دستور براي نوشتن دستورات اسمبلي بكار مي رود . } mov ax,0; int 33h; {فراخواني وقفه } mov i,ax; end; end; نكته : اين تابع فقط Mouse را فعاي مي كند ولي اشاره گر Mouse را آشكار نمي كند . براي نمايان شدن اشاره گر Mouse بايد از تابع بعدي استفاده كنيم . تابع 01Hex از وقفه 33Hex : اين تابع اشاره گر Mouse را در صفحه نشان مي دهد . قبل از اجراي اين تابع بايد تابع Mreset اجرا شده باشد . ثبات ورودي : Ax := 01 ; ثبات خروجي : ندارد . procedure mshow; begin asm; mov ax,01h; int 33h; end; end; اين تابع براي تشخيص مكان اشاره گر Mouse در هر لحظه و تعيين كليد فشره شده بكار مي رود . ثبات ورودي : Ax := 03 ; ثبات خروجي : مختصات اشاره گر Mouse روي محور Xها :Cx مختصات اشاره گر Mouse روي محور Yها :Dx تعيين كليد فشرده شده : Bx کلید چپ : 0 کلید راست : 1 کلید وسط : 2 ساختار ثبات Bx بصورت شكل بالا است پس به ازاي فشرده شدن هر كليد مقادير زير را خواهيم داشت . كليد چپ Bx = 1 : كليد راست Bx = 2 : كليد وسط Bx = 4 : procedure mbutton(var x1:integer;var y1:integer;var k1:integer); var x,y,k:integer; begin asm mov ax,03; int 33h; mov x,cx; mov y,dx; mov k,bx; end; x1:=x; y1:=y; k1:=k; end; اگه حال نداشتید این ها را تایپ کنید من خودم تایپ شده ی آن ها را این جا با فر مت .pas می گذارم. http://www.2shared.com/file/1867723/dd 2b 5e5a/MOUSE---.html:10: MasterData28-04-2007, 08:41 AMاینجا یه سری سورس کد به پاسکال هست که برنامه های گرافیکی و .......... چیز دیگه داره http://mordorado.persiangig.com/document/Software.pascal.rar سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 358]