PDA

View Full Version : در برنامه نويسي پاسكال چگونه به جاي عددي كه وارد مي كنيم ستاره نشان دهد؟


salvariana
سه شنبه 19 آبان 1388, 09:48 صبح
سلامم

يه سوال داشتم اگه كمك كنين ممنون ميشم ميخوام يه برنامه بنويسم داخل ژاسكال بعد يه رمز رو بگيره ولي ورودي رو روي صفحه نشون نده به جاش ستاره نشون بده مثل وقتي توي سايتا يا ياهو پسورد رو ميزنيم به جاش ستاره يا دايره نشون ميده...

ممنون ميشم راهنمايي كنين
h_mohamadi
سه شنبه 19 آبان 1388, 10:17 صبح
از مسک ايدت استفاده کرده و کارکتر پسورد را # يا × تعريف کنيد
Tasnim
سه شنبه 19 آبان 1388, 10:20 صبح
passwordchr=*
Mahmood_M
سه شنبه 19 آبان 1388, 11:51 صبح
برای نمایش دایره های مشکی به جای ستاره هم می تونید مقدار 7# رو در خاصیت PasswordChar مربوط به Edit قرار بدید ...

موفق باشید ...
دلفــي
سه شنبه 19 آبان 1388, 13:22 عصر
در برنامه نويسي پاسكال چگونه به جاي عددي كه وارد مي كنيم ستاره نشان دهد؟
از متن سوال ایشون اینجور برداشت میشه که برنامه ای که نوشتن در محیط پاسکال نوشته شده نه دلفی ، پس در این محیط از MaskEdit یا Edit خبری نیست !

شما باید داده ورودی رو توسط تابع ReadKey تو یه متغیر قرار بدید و بلافاصله بعد از اون دستور (Write(x رو بنویسید ، در این صورت کاراکتر اصلی تایپ شده توسط کاربر در متغیر قرار گرفته و کاراکتر نوشته شده توسط شما در دستور Write نمایش داده می شود .
alinikaein
سه شنبه 19 آبان 1388, 14:45 عصر
سلام دوست عزيز؛

در پاسكال تابعي تابعي داريم به نام ReadKey كه منتظر دريافت يك كليد از صفحه كليد مي‌مونه.
مثال زير را نگاه كنيد:



uses Crt;

var
C: Char;

begin
Writeln('Please press a key');
C := Readkey;
Writeln(' You pressed ', C, ', whose ASCII value is ', Ord(C), '.');
end.
شما با استفاده از اين كد و قرار دادن اون در يك حلقه‌ي Repeat و شرط خروج مثلاً زدن كليد Enter يا Esc با كد اسكي 13 يا 27، و با هر بار خواندن كليد، نمايش يك ستاره در خروجي، كار خودتون را انجام بديد.


يا علي... موفق باشيد...
salvariana
پنج شنبه 21 آبان 1388, 18:38 عصر
برنامه ای که می خوام بنویسم اینه:
یه برنامه که یه رمز سه حرفی رو بگیره اگه درست باشه اوکی بده اگر نه error و وقتی که رقما رو کاربر نشون میده ستاره نشون بده به جای عدد

میشه بیشتر راهنمایی کنین:افسرده:
Felony
پنج شنبه 21 آبان 1388, 19:16 عصر
دوستان که توضیح دادن ، خیلی سادس :


Uses WinCrt;

var
Pass:Array [1..3] of char;
i:Byte;
begin
Writeln('Enter password :');
for i:=1 to 3 do begin
Pass[i]:=ReadKey;
Write('*');
end;
WriteLn;

if Pass='123' then
WriteLn('Password is correct')
else
WriteLn('Password is incorrect');
end.
salvariana
یک شنبه 24 آبان 1388, 10:09 صبح
دوستان که توضیح دادن ، خیلی سادس :


Uses WinCrt;

var
Pass:Array [1..3] of char;
i:Byte;
begin
Writeln('Enter password :');
for i:=1 to 3 do begin
Pass[i]:=ReadKey;
Write('*');
end;
WriteLn;

if Pass='123' then
WriteLn('Password is correct')
else
WriteLn('Password is incorrect');
end.

مرسي اما errore تقسيم بر صفر ميده:افسرده:
در ضمن باwincrt جواب نميداد crt تنها دادم بهش...
alinikaein
یک شنبه 24 آبان 1388, 14:12 عصر
سلام دوست عزيز؛

در صورتي كه از پاسكال تحت داس استفاده مي‌كنيد، توي اينترنت دنبال Patch براي crt بگرديد و نصب كنيد تا مشكل شما حل بشه.
همچنين مي‌تونيد از FreePascal استفاده كنيد.

يا علي... موفق باشيد...