مبروك , ركبت DSL

بسم الله الرحمن الرحيم

أخيرا …

بعد 7 عمل على الإنترنت …

بعد 2492 يوم من الانتظار …

بعد 59808 ساعة من البطئ …

بعد 3588480 دقيقة من الملل …

بعد 215308800 ثانية من الانترنت البطيء …

بعد 215308800000 ملي ثانية

بعد كل هذا , ركبت ولله الحمد DSL

بعد اعتراض من والدي , أقنعناه في الآخر

لكن حاليا , وبعد ظهور سرعات انترنت 7.2 Mb فما فوق

ماذا تنتظر ؟

هل تدرك أن DSL يوفر عليك :

1/ لن تدفع سوى مرة واحدة في بداية الشهر

2/ مبلغ ثابت حتى لو شغلت النت لمدة 720 ساعة (شهر) متواصل

3/ أسرع بمراحل

ماذا تنتظر ,

حتى الآن أعرف ناس لازالو على 40 Kb

ربنا يستر

كيف تنشئ شاشة افتتاحية , بثلاثة أسطر أكواد فقط

بسم الله الرحمن الرحيم

شاهدت موضوعاً لعمل شاشة افتتاحية Splash Screen في Delphi

لكنه معقد جدا , ويتطلب منك عمل إعدادات للمشروع ولظهور النماذج

إضافة إلى كثرة الأكواد والاوامر

لذا , جربت طريقة بسيطة , كنت أستعملها في Visual Basic

وهي :

1/ أنشئ Form1 وضع فيه ما تشاء من صورة , لأنه سيكون الشاشة الافتتاحية

2/ ضع على Form1 أداة Timer (تجدها في التبويب System في شريط الادوات) , ولا تعدل خصائصها

3/ من قائمة File , اختر New ثم اختر Form

4/ افتح نافذة الكود الخاصة بـForm1 , واكتب بعد كلمة implementation , مباشرة الأمر التالي :

uses unit2;

5/ في الحدث :

TForm1.Timer1Timer(Sender: TObject)

اكتب بعد كلمة begin :

form2.Show;
timer1.Enabled := false;
form1.hide;

هذا فقط

قد يواجهك خطأ , إن قمت بكتابة form2.Show قبل وضع uses unit2

كتاب من تأليفي في شرح MSConfig

بسم الله الرحمن الرحيم

وجدت نفسي متفرغا , فقمت بتأليف هذا الكتاب لشرح الأداة MSConfig

الملف عبارة عن كتاب PDF , وهو مضغوط ببرنامج WinRAR

كلمة سر فك الضغط هي ala2vb

حجم الملف 400 ك.ب (بعد الضغط)

حجم الملف 500 ك.ب (قبل الضغط)

لتحميل الكتاب , من هذا الرابط :

http://www.4shared.com/file/44105848/b9d99785/MSConfig.html

العادات السبع للمبرمجين الأكثر فعالية

بسم الله الرحمن الرحيم

كيف تكون مبرمجا فعالاً ؟
لديك سبع عادات عليك ممارستها بشكل مستمر , وبشكل دائم سواء في حياتك اليومية
أو في الكمبيوتر والبرمجة

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

العادة الثانية :
ابدأ والملف التنفيذي في ذهنك …
عند بدايتك لمشروع , ضع الناتج (الـEXE( في ذهنك ونصب عينيك
واجعله هدفك الأسما

العادة الثالثة :
ابدأ بالبرنامج ثم البريمج …
عليك أن ترتب اولوياتك , وتبدأ بالاهم ثم المهم وبالأصعب فالأسهل

العادة الرابعة :
فكر في الفائدة للجميع …
اجعل مشروعا مفيدا للجميع , ولا تتركه على جهازك لوحدك

العادة الخامسة :
افهم ليسهل فهمك …
عند سؤال أحدهم لك , حاول ان تركز معه وتفهمه قبل أن تبدأ الإجابة

العادة السادسة :
اعمل في قروب …
حاول ان تنشئ مشاريع جماعية , وتتعاون مع الآخرين فيها

العادة السابعة :
خذلك بريك , Take a break …
حاول ان تستريح من فترة لفترة , ولا تنفذ كل مشاريع دفعة واحدة , أو بشكل متتالي دون راحة

العادات مأخوذة من كتاب :
The Seven Habits of Highly Effective People , العادات السبع للناس الأكثر فعالية
من تأليف Stephen R. Covey

وتم تحويلها إلى الصيغة البرمجية من قبل Ala2 VB

محرر منتديات مفتوح المصدر (VB 6)

بسم الله الرحمن الرحيم

يمكنك تحميل ملف محرر منتديات مفتوح المصدر من هنــــــــــــــــــــــا

وإليكم شرح للشفرة البرمجية :

[ txtMain.SelText = "[center]” & txtMain.SelText & “[/center"

هذا الأمر خاص بإضافة وسمين عن يمين ويسار النص المحدد في مربع النص txtMain

ومثله أيضا :

txtMain.SelText = "[b]” & txtMain.SelText & “[/b]“

txtMain.SelText = “[u]” & txtMain.SelText & “[/u]“

txtMain.SelText = “[left]” & txtMain.SelText & “[/left]“

الأمر التالي :

SUrl = InputBox(“أدخل الرابط هنا :”, “الرابط”, “http://”)

يقوم بإظهار مربع إدخال للمستخدم ياخذ منه مدخلات (عنوان انترنت) ويضع هذا العنوان في متغير لاستعماله فيما بعد

الأمر التالي يقوم بحفظ النص :

On Error Resume Next

DlgSave.ShowSave

Open DlgSave.FileName For Output As 1
Print #1, txtMain.Text
Close 1

وشرح أسطره على الترتيب :

الأول : خاصة بمعالجة الاخطاء , إن حدثت

الثاني : يظهر مربع الحوار الخاص بالحفظ , من خلال أداة Common Dialog Control , والتي اسمها هنا DlgSave

الثالث : يفتح الملف (الذي تم اختياره من خلال مربع الحوار) للكتابة فيه ويعطيه الرقم 1 (هذا الرقم يسهل الوصول والتعامل مع الملف فيما بعد)

الرابع : يقوم بكتابة محتوى مربع النص txtMain داخل الملف الذي له الرقم 1

الخامس : يقوم بإغلاق الملف , وهذا مهم لئلا يبقى الملف مفتوحا ويؤثر على عمل الجهاز

الأمر التالي , يضيف الأعداد من 1 إلى 7 إلى قائمة عناصر , من خلال دوارة For

Dim i As Byte
For i = 1 To 7
cmbFntSize.AddItem (i)
Next

الأمر التالي , يستدعي ملف أيقونة Icon من داخل ملف المصادر Resourses المرفق مع البرنامج , وتجده بالامتداد (اللاحقة) Res

Command1.Picture = LoadResPicture(“center”, vbResIcon)

ويتم وضع الأيقونة المستدعاة كصورة لاداة زر الأمر والذي اسمه Command1

Style جديد لبرامجك (Delphi)

بسم الله الرحمن الرحيم

هل سئمت من Style تطبيقاتك في Delphi 7 ؟

هل تضر دائما إلى إضافة مكتبات ووحدات إلى المشروع لتجميله ؟

يمكنك الآن عمل Style لتطبيقات , بنفس نمط XP ,, ودون الحاجة إلى أي مكتبات

الطريقة بسيطة جدا ,

من شريط الأدوات — اختر التبويب Win32 — ومنه اختر الأداة XPMainfest , وضعها على النموذج

هذا فقط !

أو بإمكانك أن تضيف إلى القسم Uses في الوحدة , الكلمة التالية :

XPMan

وانتهى الموضوع

ولإزالة هذا الـStyle , اذهب إلى الوحدة , ثم إلى القسم Uses

واحذف منه الكلمة XPMan

أفضل طرق حفظ قيم رسائل التنبيه (VB 6)

بسم الله الرحمن الرحيم

إن سألك أحدهم : “كيف تحفظ قيمة رسائلك التنبيهية ؟”

غالبا ستقول :

Dim X as integer

X = Msgbox (“Hello World”,vbYesNo,”Msg)

If X = 6 Then End

لكن ألا تلاحظ أنها طريقة متعبة , وتحتاج حفظ ؟

حسنا ما هو الرقم الذي ستكتبه إن كنت تريد هل ضغط المستخدم زر Cancel , Retry أو غيره

ربما تحتاج إلى مرجع , أو السؤال في منتدى ما أو غيره

لكنني , ومن منطلق “أن البرمجة ليست حفظا” , وجدت نوع بيانات اسمه VbMsgBoxResult

استبدل إذن Integer بـVbMsgBoxResult

تصبح الجملة :

Dim X as VbMsgBoxResult

اكتب في محرر الكود :

X =

سيظهر لك قائمة بالأزرار التي تعرضها رسائل التنبيه

سؤال / وماذا أفعل لأضع قيمة MsgBox داخل X ؟

لا عليك , فقط قم بكتابة

X = MsgBox “Msg Here …”

وسيضع القيمة في المتغير بشكل عادي