منتديات احباب عرب  



العودة   منتديات احباب عرب > منتديات عربية > منتديات الجزائر



قليلا من النشاط !!!

السلام عليكم يا إخوان، نظرا للركود الذي يشهده هذا القسم من المنتدى (بالمقارنة مع الأقسام الأخرى) سنحاول بث القليل من النشاط في نفوس مرتاديه. اخترنا اليوم لكم موضوع

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 08-16-2012, 12:13 PM
الصورة الرمزية رشاء احمد
رشاء احمد غير متواجد حالياً
 
تاريخ التسجيل: Mar 2010
المشاركات: 64,439
معدل تقييم المستوى: 82
رشاء احمد has much to be proud ofرشاء احمد has much to be proud ofرشاء احمد has much to be proud ofرشاء احمد has much to be proud ofرشاء احمد has much to be proud ofرشاء احمد has much to be proud ofرشاء احمد has much to be proud ofرشاء احمد has much to be proud of
موضوع منقول قليلا من النشاط !!!

السلام عليكم يا إخوان،


نظرا للركود الذي يشهده هذا القسم من المنتدى (بالمقارنة مع الأقسام الأخرى) سنحاول بث القليل من النشاط في نفوس مرتاديه.


اخترنا اليوم لكم موضوع بسيط (المهم هو الفكرة، الهدف خلق نشاط)، عبارة عن جزء من برنامج (بلغة باسكال) يقوم بتحويل كل ماتكتبه إلى نجوم (مثلما يحدث عند إدخال كلمة السر)، وبدون إطالة إليكم الكود:

program etoile;
uses crt;
function askpassword (passwordchar : char; minlength, maxlength : Longint) : String;
var
C : Char;
S : String;
begin
S := '';
Repeat
C := Readkey;
If ((C chr(13)) and (C chr() and (length(S) maxlength)) then Write(passwordchar);
If ((C chr(13)) and (C chr()and (length(S) maxlength)) then S := S + C;
If length(S) = maxlength then write(chr(7));
If C = chr( then S := '';
If ((C = chr(13)) and (length(S) < minlength)) then Write(chr(7));
Until ((C = chr(13)) and (length(S) > minlength - 1));
askpassword := S;
end;
var
password : String;
begin
password := askpassword( '*', 0,-1);
end.

قوموا بنسخ هذا الكود وجربوه، ومن واجه المشاكل يعلن عنها بالتفصيل (نوع الخطأ) هذا الكود مجرب وكما يقولون "شغال" .


يمكنكم استخدام هذا الكود في برامجكم كي تضفي عليها بعض الإحترافية والجمالية، ولمن يريده بلغات أخرى ... سنضعه إن شاء الله.

نحن رهن طلبكم.

السلام عليكم


المواضيع المتشابهه:

رد مع اقتباس
إضافة رد


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة


Privacy Policy سياسة الخصوصية |

free counters

Sitemap

الساعة الآن 08:49 AM.


Powered by vBulletin™ Version 3.8.7
Copyright © 2017 vBulletin Solutions, Inc. All rights reserved.
SEO by vBSEO

Security team