با سلام .
عزیزان اگر امکان دارد لینک دانلود Uses Crt پاسکال را بذارید .. البته اگه وجود داره !
Printable View
با سلام .
عزیزان اگر امکان دارد لینک دانلود Uses Crt پاسکال را بذارید .. البته اگه وجود داره !
جدا کسی نداره !!!
اگر میشود یه آدم جوانمردی حداقل این Uses را اپلود کنه
دوست عزیز، حقیقت اینه که بعد از مدتی طولانی دوری از زبان پاسکال، خیلی مطمئن نیستم، ولیاگه منظور شما از Uses، همون فایل crt.int هست که باید در مسیر Turbo Pascal باشه تا بتونین از توابع کتابخانه CRT وعبارت Uses CRT در ابتدای برنامتون استفاده کنین، براتون در این آدرس آپلودش کردم:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ولی قبول دارین که پیدا کردن این فایل بعد از چهار-پنج سال کار نکردن با پاسکال، کار دشواریه!
البته با وجود این، از شانس خوب شما 2 دقیقه بیشتر طول نکشید که تونستم از انبوه فایلهای درهم و برهم پیداش کنم. :happy:
سلام ، آقا اگر خواستی email بده برات بفرستم. من الان Host جایی ندارم که بخوام Uploade کنم.
خب از پاسكال تحت ويندوز استفاده كن كامپايلرش هم سريعتره.
uses هم wincrt است.
متشکرم bithiah . ولی مطمئنی آدرسی که نوشتی درسته !!
از پاسکال تحت ویندوز میخوام استفاده اما خطایی میده که حل نشدنی (نسخه ایی که دارم خرابه )
باز هم متشکرم
اگر توی توانت هست برام بفرست .نقل قول:
نوشته شده توسط MCMan
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بله دوست عزیز مطمئنم که درسته.نقل قول:
نوشته شده توسط babi
تمام محتویات این فایل هم به شرح زیره، می تونی یه فایل بهمین نام بسازی و اینو درش Paste کنی:
کد:{*******************************************************}
{ }
{ Turbo Pascal Version 7.0 }
{ CRT Interface Unit }
{ }
{ Copyright (C) 1988,92 Borland International }
{ }
{*******************************************************}
unit Crt;
{$D-,I-,S-}
interface
const
{ CRT modes }
BW40 = 0; { 40x25 B/W on Color Adapter }
CO40 = 1; { 40x25 Color on Color Adapter }
BW80 = 2; { 80x25 B/W on Color Adapter }
CO80 = 3; { 80x25 Color on Color Adapter }
Mono = 7; { 80x25 on Monochrome Adapter }
Font8x8 = 256; { Add-in for ROM font }
{ Mode constants for 3.0 compatibility }
C40 = CO40;
C80 = CO80;
{ Foreground and background color constants }
Black = 0;
Blue = 1;
Green = 2;
Cyan = 3;
Red = 4;
Magenta = 5;
Brown = 6;
LightGray = 7;
{ Foreground color constants }
DarkGray = 8;
LightBlue = 9;
LightGreen = 10;
LightCyan = 11;
LightRed = 12;
LightMagenta = 13;
Yellow = 14;
White = 15;
{ Add-in for blinking }
Blink = 128;
var
{ Interface variables }
CheckBreak: Boolean; { Enable Ctrl-Break }
CheckEOF: Boolean; { Enable Ctrl-Z }
DirectVideo: Boolean; { Enable direct video addressing }
CheckSnow: Boolean; { Enable snow filtering }
LastMode: Word; { Current text mode }
TextAttr: Byte; { Current text attribute }
WindMin: Word; { Window upper left coordinates }
WindMax: Word; { Window lower right coordinates }
{ Interface procedures }
procedure AssignCrt(var F: Text);
function KeyPressed: Boolean;
function ReadKey: Char;
procedure TextMode(Mode: Integer);
procedure Window(X1,Y1,X2,Y2: Byte);
procedure GotoXY(X,Y: Byte);
function WhereX: Byte;
function WhereY: Byte;
procedure ClrScr;
procedure ClrEol;
procedure InsLine;
procedure DelLine;
procedure TextColor(Color: Byte);
procedure TextBackground(Color: Byte);
procedure LowVideo;
procedure HighVideo;
procedure NormVideo;
procedure Delay(MS: Word);
procedure Sound(Hz: Word);
procedure NoSound;
این اطلاعات را که گفتی با نام Crt.int ذخیره کنم ؟ بعد مشکل حل میشه ؟نقل قول:
نوشته شده توسط bithiah
این فایل را ویندوز که نمیشناسه .. درسته؟ ... توربو پاسکال چطور؟
متشکرم
بله باید بنام crt.int ذخیره کنی و فایل رو در مسیر یونیت های کامپایلر پاسکالت قرار بدی. البته پیسکال تحت DOS نه ویندوز. مال ویندور اسمش WinCRT هست، اگه اشتباه نکنم.
متشکرم .. خیلی زحمت کشیدی bithiah
McMan از میلت ممنون . دانلود کردم اما یه جاش مشکل داره .