قبل البدأ الرجاء قول التالى

" أقسم بالله العظيم ان لا استخدم هذا الشرح لتصميم برنامج فيه ما يعصى الله من موسيقى وغيرها "

 

 

****

لمكن لا تظهر له الصور يمكنه تحميل الشرح من هنا

http://www.4shared.com/file/92314550/96007290/sharh_i-k.html

****

مقدمة :

* اولاً عندما تتقن لغة الفيجوال بيسك حاول ان تتعلم لغة اخرى و خاصتاً ( ++C ) .

* الويندوز xp تم تصميمه 100 % عبر برنامج ( ++C ) . بسم الله نبدأ

تحتاج الى برنامج فيجوال بيسك 6 اذا لم تكن تملك البرنامج الرجاء تحميله من الرابط التالى : http://www.islamcg.com/vb/showthread.php?t=5288

بعد تحميل البرنامج قم بفتح البرنامج

 

****

أولا : تصميم الصفحة الرئيسية

بعد فتح البرنامج سوف تقابلك هذه الصفحة

قم بإختيار Standard EXE ثم Open

****

بعد ذالك سوف تحد فورم فارغ ( فورم = صفحة او نموذج )

****

نستطيع تغير الأسم الموجود فى الأعلى من  "Form1" الى " برنامج إبن الخطاب " عن طريق تغير Caption تجدها فى المربع يمين الشاشة

 

النتيجة

****

الأن نقوم بإضافة الأزرار عبر الأختيار من صندوق الأدوات نختار الأداة Command Button

بعد الضغط على Command Button نقوم بلصقها فى الفورم

****

ثم نقوم تغير الأسم من "Command1" الى اى شيء و ليكن "القرأن الكريم" عن طريق Caption

بعد التغير

و يكون شكل الزر كأتي

وبعد ذلك نستمر فى اضافة الأزرار الى ان يصبح بالشكل التالى

****

و الأن نقوم بإضافة فورم جديد

ثم نثوم بالضغط على Add Form مباشرة

طريقه أخرى / بعد الضغط على السهم بالقرب من Add Form قم بإختيار Form

طريقة أخرى / نقوم باضغط على Project ثم Add Form

 بعد فتح صفحة جديده سوف تكون كأتى

 

 ثم قم بالربط بين الصفحة الرئيسة و الصفحة الجديده

عند الضغط على احد الأزرار و ليكن " القرأن الكريم " سوف ننتقل الى صفحة أخرى و هى صفحة لوضع الشفرات البرمجية

ويكون كتوب فيها

Private Sub Command1_Click()

End Sub

علماً بأن  Command1 هو إسم الزر و يمكن تغيره من Caption

س / ما هى الشفره ؟

جـ / هى الأمر الذى ستطلب من الحاسب الألى تنفيذه .

وسوف نقوم بإضافة الشفره داخله بالشكل التالى

Form2.Show Unload Me

 علماً بأن الصفحة الجديده  اسمها Form2

 و يكمن تغيره من الجدول

 

 نغيرها الى " quran " مثلاً

 

 وبعد ذلك سوف تكون الشفره كاتى

Private Sub Command1_Click() quran.Show Unload Me End Sub

 البعض قد يتسائل ما الفائده من Unload Me وقد يظن انها بلا فائده و يحذفها و لاكن سوف تكون هناك مشكله صغيره وقتها و هى انه عندما تقوم بإستخدام البرنامج سوف تتراكم الصفحات و ستبطأ عمل الكمبيوتر و هذه المشكله موجوده فى الأصدار الأول و الثاني من البرنامج

 بعد ذلك يمكنك ان تجرب عمل البرنامج بالضغط على زر F 5  و التأكد من عمل البرنامج بشك جيد

****

ثانيا : القرأن الكريم

قم بتسمية الصفحة الجديده " القرأن الكريم " عبر خاصية Caption ثم قم بإضافة الأزرار التي تحمل اسماء القراء

 الى ان تصبح بهذا الشكل

 

 البعض قد يتسائل كيف تمكنت من جعل الصفحة بحجم الشاشة ؟ الأمر سهل !

إذهب الى الجدول و غير خاصية height من 3600 الى 11520

 

 

 و غير خاصية  width  من 4800 الى 15360

 

****

بعد ذلك اذهب الى اقصى اليمين فى أسفل الشاشة سوف تجد هذا الشكل

قم بسحب المربع الأبيض الى ان يصبح فى وسط المربع الأسود بالضبط حتى لا يكون انحراف فى الصفحة

****

بعد ذالك قم بفتح فورم جديد و قم بتسميته " إبراهيم الأخضر " على سبيل المثال

بعد تكبير الشاشة و تطبيق الخطوات السابقة إبدأ بوضع الأزرار

بعد الأنتهاء

س / كيف أضيف مشغل الميديا بلير الى النموذج ؟

الطريقة الأولى : إضغط كليك باليمين ( إضغط الزر الأيمن فى الفأره ) فى صندوق الأدوات

ثم قم بإختيار Components

 الطريقه الثانيه : نضغط على كنترول و حرف " ف "و ستكون نفس النتيجه ( Ctrl + T )

 

 قم بالنزول الى اسفل القائمه

 

 قم بأختيار Windows Media Player تأكد من وضع صح على المربع الذى بجانبه ثم اضغط على  ok

 

 ثم قم بالضغط على مشغل الميديا بلير و قم بلصقه فى النموذج

 

 بعد ذلك قم بوضعها بالحجم الذى تريده

 س / طيب كيف اقوم بتشغيله ؟

جـ / فم بالضغط على احد الأزرار و ليكن Command1 عندما تظهر صفحة الشفرات قم بوضع الشفره التاليه

 WindowsMediaPlayer1.Controls.Stop WindowsMediaPlayer1.URL = ""

  

انتبه WindowsMediaPlayer1 هو متغير و هو الأسم الموجود عند الجدول فى خانة name

أولا قم بالضغط على الميديا بلير ثم انتقل الى الجدول

 كما تلاحظ فى اخر الشفره توجد علامات اقتباس ""  هنا سوف نقوم بوضع الرابط

س / طيب من اين نجد الرابط ؟

 هناك مواقع كثيره تقدم لك خدمة الأستماع الى القرأن الكريم مثل

 www.mp3quran.net و www.islamway.com

 وسوف نقوم بتطبيق على الأثنين

 اولاً : نذهب الى www.mp3quran.net  ثم بعد اختيار القارء اختر السوره و اضغط على " اضغط هنا الأستماع "

 

 بعد الضغط سوف تظهر لك صفحة كتالى

 

 قم بالضغط على الزر الأيمن من الفأره ثم قم بإختيار خصائص

 

 سوف تظهر لك هذه الصفحة تجد الرابط فى خانة "موقع"

 

 انسخ الرابط و قم بلصقه بين علامتي الأقتباس فيصبح بهذا الشكل

Private Sub Command1_Click() WindowsMediaPlayer1.Controls.Stop WindowsMediaPlayer1.URL = "http://server3.mp3quran.net/akdr/001.mp3" End Sub 

 

 ثانياً : قم بزيارة www.islamway.com  بعد اختيار القارء قم بالضغط على ايقونة الأستماع بتقنية mp3 كما فى الصوره

 

 بعد ذلك سوف تجد هذه الصفحة

 

 بعد ذلك قم بالضغط على الزر الأيمن فى الفأره و بعد ذلك خصائص و النتاتج يكون

 

 ثم قو بوضعه بين علامات الأقتباس

 تنبيه / احياناً تكون الروابط معطوبه فلذلك يجب الحذر

 س / كيف أعرف أذا كانت الروابط معطوبه او لا ؟

جـ / اذا كانت غير معطوبه فسوف تكون هنار رساله مكتوب فيها " يتم الأن فتح الوسائط " ثم " يتم الأن الأتصال الوسائط " ثم " تخزين مؤقت "

و يمكن معرفة ذلك من هنا

بعد ذلك يمكنك الأستماع الى الصوت و تصهر هناك رساله مثل هذه

اما إذا كان الرابط معطوب فلن يعمل و سوف تجد رساله مكتوب بها " يتم الأن الأتصال الوسائط " ثم  " جاهز "

ملاحظه / عند ظهور "جاهز" الأول مره جرب مره أخرى التأكد فأحياناً تعمل بعد ان تجرب مره ثانيه فتأكد انها لن تعمل

ثالثاً : الأذاعة

قم بإنشاء فورم جديد وبعد تسميته و تطبيق الخطوات السابقه قم بإضافة 13 زر

1 - إذاعة القرأن الكريم من سوريا

2 - إذاعة الشبكة الأسلامية للقرأن الكريم

3 - إذاعة القرأن الكريم من الكويت

4 - المكتبة الصوتية للقرأن الكريم

5 - إذاعة القرأن الكريم من إذاعة الشمال - فلسطين

6 - إذاعة القرأن الكريم من تونس

7 - إذاعة القرأن الكريم من نابلس - فلسطين

8 - إذاعة القرأن الكريم من قطر

9 - إذاعة القرأن الكريم من المغرب

10 - إذاعة القرأن الكريم من إيران

11 - إذاعة نور دبي

12 - إمارات اف ام

13 - المجد للحديث النبوي - البث الأذاعي

سوف يصبح بها بهذا الشكل

 

 وبعد إضافة ملف الميديا بلير

 

 و بعد ذلك تقوم بالضغط على الأزرار الأضافة الشفرات

 بعد الضغط على الزر و الأنتقال الى صفحة الشفرات قم بلصق هذه الشفره

WindowsMediaPlayer1.Controls.Stop WindowsMediaPlayer1.URL = ""

 س / طيب من فين مو هذى نفس الشفره الى قبل شوي ؟

جـ / نعم , هذه الشفره تستخدم لفتح الميديا بلير ولاكن انت تحدد ماذا سوف تعرض فيها

س / طيب من فين اجيب روابط الأذاعات ؟

جـ / هذه هى هديتي إليك تفضل

1 - إذاعة القرأن الكريم من سوريا

mms://90.153.255.248/quran

—-

2 - إذاعة الشبكة الأسلامية للقرأن الكريم (www.islamweb.net)

http://files.islamweb.net.qa:7070/iwradio?MSWMExt=.asf

 

—-

3 - إذاعة القرأن الكريم من الكويت

mms://62.215.162.163:6666 

—-

4 - المكتبة الصوتية للقرأن الكريم(www.mp3quran.net)

 mms://208.43.81.152/radio

—-

5 - إذاعة القرأن الكريم من إذاعة الشمال - فلسطين

 http://www.alshamal.net/radio/quran/live.wax

—-

6 - إذاعة القرأن الكريم من تونس

 http://www.zitounafm.net/zitouna.asx

—-

7 - إذاعة القرأن الكريم من نابلس - فلسطين

 mms://www.barakastreaming.com:8088/QuranRadio

—-

8 - إذاعة القرأن الكريم من قطر

 http://azul.streamguys.com/drwahed03

—-

9 - إذاعة القرأن الكريم من المغرب

 mms://aljamaa-tv.net/QuranRadio

—-

10 - إذاعة القرأن الكريم من إيران

 http://www2.irib.ir/live/quranradio.asx

—-

11 - إذاعة نور دبي

 http://asx.abacast.com/gateway/arabian_radio/sautelasala.asx

—-

12 - إمارات اف ام

 http://live1.interoutemediaservices.com/?id=bf402c64-0868-4c55-b673-e9c6e1ca2c72

—-

13 - المجد للحديث النبوي - البث الأذاعي

 http://www.fomny.com/Video/Arabic/Almajd-Hadeeth/Audio/video.asx

—-

****

 س / طيب كيف ارجع الى الصفحة السابقه ؟

جـ / بعد وضع الزر قم بوضع الشفره التاليه

Form1.Show

Unload Me

يعني نفس الشفره الى انتقل منها من نموضج الى اخر و لاكن Form1 هو اسم الصفحة السابقه وهى على حسب تسميتك لها

****

رابعا : التلفزيون الأسلامي

 قم بإنشاء فورم جديد و أضف 6 ازرار و مشغل الميديا بلير

قم بإضافة هذه الشفرات

1 - Huda Channel

mms://208.100.25.66/huda

—-

2 - تفسير القرأن الكريم - انجليزي

http://www.fomny.com/Video/Arabic/02/Tafseer-Quran-Tv/video.asx

—-

3 - Peace TV USA

http://www.fomny.com/Video/Arabic/Peace-TV-USA/video.asx

—-

4 - حنين

http://www.fomny.com/Video/Arabic/Honain/video.asx

—-

5 - قناة المجد

mms://88.191.93.90/majd-0101

—-

6 - فناة المجد للقرأن الكريم

http://www.fomny.com/Video/Arabic/Almajd-Hadeeth/video.asx

النتيجه

س / طيب كيف اضيف قنوات إضافيه ؟

جـ / هناك مواقع كثيره تقدم لك خدمة المشاهده المباشره ( البث المباشر ) مثل هذه الصفحة

http://www.muslimvideo.com/live

****

خامساً : الخروج

س / ما هي الشفرة للخروج من البرنامج

 جـ / قم بلصق End او  Unload Me فى صفحة الشفرات ( لا يهم اى واحده الأن الأثنين ستقومان بنفس الشيء )

Private Sub Command8_Click() Unload Me End Sub

****

سادساً : عن البرنامج

قم بإضافة فورم جديد ثم قم بكتابة ما تريده

****

سابعاً : المصحف الألتروني

بعد إضافة فورم جديد قم بإضافة ادوات جديده ( كنترول و حرف ف ) ثم ضع صح على  Microsoft Internet Controls

 

بعد ذلك قم بإختياره من صندوق الأدوات و ألصقه فى النموذج

 

بعد ذلك اقوم بوضع الشفره ولاكن هذه المره ليس فى الأزرار الأنه ليس هناك ازرار بل اقوك بالضغط مرتين على النموذج نفسه و بعد ذلك سوف يضهر لدي هذه الشفره

Private Sub Form_Load() WebBrowser1.Navigate "" End Sub

علماً بأن WebBrowser1 هو متغير

س / لماذا اقوم بوضع الشفره فى النموذج و ليس فى الزر ؟

جـ / الأنك اذا وضعتها فى الزر عليه ان يضغط على الزر حتى يفتح الموقع ام اذا فى النموذج فسوف يفتح الموقع بمجرد دخوله على الصفحة

بعد ذلك اقوم بوضع الموقع الذى اريده ان يضهر فى الفورم و فى هذه الحاله هذا هو رابط الموقع

http://www.quranexplorer.com/quran/

 و بالتالى الشفره سوف تكون

Private Sub Form_Load() WebBrowser1.Navigate "http://www.quranexplorer.com/quran" End Sub

****

 ثامناً : الأنتقال الى صفحة التحميل

س / كيف امكن المستخدمين من الذهاب الى صفحة التحميل ؟

جـ / طيب على سبيل المثال لو تبقى تنتقل الى صفحة القارء " محمد أيوب "  انتبه معاى

انشئ فورم جديد و اضف متصفح الأنترنت بعد ذلك اضغط على الفورم و الصق الشفره التاليه

Private Sub Form_Load() WebBrowser1.Navigate "http://www.mp3quran.net/ayyub.html" و إذا كنت تريد اى قارء اخر ادخل الى موقع www.mp3quran.net مثلاً تم عند الدخوال الى القارء الذى تريده قم بنسخ الرابط و إستبداله بالرابط السابق

التاسع : دليل المواقع الأسلامية

قم بإضافة فورم وبعد ذلك متصفح الأنترنت و ( Combo Box )

س / من اين اضيف ( Combo Box )

 انتقل الى صندوق الأدواة

 

 بعد ذلك قم بلصقه على النموذج و قم بإجراء اختبار بسيط

س / كيف احذف كلمة  "Combo1" ؟

جـ/ بعد ذلك انتقل الى الجدول اذهب الى خانة Text  وامسح كلمة "Combo1"

 بعد ذلك انتقل الى خانة List 

و قم بإضافة التالى

برنامج إبن الخطاب , طريق الأسلام , المكتبه الصوتيه  , الجرافيك الأسلامي

بعد ذلك قم بالضغط على Combo لتنتقل الى صفحة الشفرات و قم بوضع الشفره التاليه

 Private Sub Combo3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then WebBrowser1.Navigate Combo3.Text If Combo3 = "برنامج ابن الخطاب" Then WebBrowser1.Navigate ("http://i-k.maktoobblog.com") If Combo3 = "طريق الأسلام" Then WebBrowser1.Navigate ("http://www.islamway.com") If Combo3 = "مكتبة الصوتيه" Then WebBrowser1.Navigate ("http://www.mp3quran.net") If Combo3 = "الجرافيك الاسلامي" Then WebBrowser1.Navigate ("http://www.islamcg.com/vb") End Sub

 بمعنى اذا تم اختيار "برنامج ابن الخطاب" انتقل الى موقع  http://i-k.maktoobblog.com

و لاحظ انه فى اول سطر KeyPress(KeyAscii As Integer) وليس Click يعني بعد اختيارك قم بالضغط على انتر "Enter" لكي ينفذ الأمر

 س / طيب أين أجد دليل للمواقع الأسلامية ؟

هناك الكثير من المواقع التى تقدم لك خدمة الدليل للمواقع الأسلامية

أما الذى تم استخدامه فى برنامج ابن الخطاب فهو موقع المنطلق الأسلامي (www.montalq.com)

فكل ما عليك فعله هو تطبيق الخطوات السابقه و فى النهايه سوف يتكون لديك مثل هذه الصفحة

 

****

العاشر : تحويل النموذج الى ملف تنفيذي ( EXE )

س / كيف اجعل نموذجي ينفذ كأي برنامج أخر ؟

جـ / قم بالضغظ على File

ثم Make Project1.exe

ثم اختر مكان الحفظ و اضغط على ok

سوف تأخذ العملية ثواني او دقائق معدوده ثم يكون الملف بهذا الشكل

بعد التشغيل

 

****

الحادي عشر : التحزيم (setup)

فى البدايه حمل برنامج SetUp Factory V. 8.0 من الرابط التالى

http://ifile.it/m1z36wq

معلومات تخص الملف : حجم الملف : 31.38 MB صيغة الملف : [RaR] كلمة المرور www.islamcg.com

****

طريقة التحميل

بعد الأنتقال الى رابط التحميل اضغط على Request Download Ticket تجدها فى اعلى الصفحة

بعدها سوف تتحول الى

ثم الى

عندها قم بالضغط على Download ليبدأ التحمبل

****

شرح البرنامج

http://www.moondil.com/vb/showthread.php?t=25487

****

 كيف تجعل البرنامج كأنه برنامج إحترافي :

1 - ساعة :

اختر Label من صندوق الأدوات

ثم قم بلصقه مرتين فى النموذج ولتكون الأسماء Label1 و Label2

ثم اختر المؤقت ( Timer )  من صندوق الأدوات

بعد اللصق سيكون الشكل كأتى

ثم قم بالضغط على (  Timer ) مرتين و أكتب الشفره التاليه

Private Sub Timer1_Timer() Label1.Caption = Time Label2.Caption = Date End Sub

وبعد الضغظ على F5 سيكون الشكل كتالى

****

2 - ايقونه :

قد تتسائل كيف اغير شكل أيقونة البرنامج من   الى 

اولا اذهب الى الجدول عند خاصية Icon

ثم قم بالبحث عن صور من نوع ico

س / عندي صوره و لاكن ليسة بأمتداد ico فمذا افعل ؟

جـ / قم بتحميل برنامج اسمه Right Click Image Converter

تحميل ربنامج Right Click Image Converter

http://download.kristanix.com/rcicsetup.exe

——-

و لتحميل البرنامج مع الكراك و الشرح

http://majdah.maktoob.com/vb/majdah4106

———————–

بعد تحميل و تنصيب البرنامج يمكنك تغير الأمتداد عن طريق الضغط باليمين على الصوره  ثم اضغظ على Right Click Image Converter ثم Convert to .Ico

****

 3 - تغير شكل البرنامج :

اولا تحتاج الى برنامج اكتف سكان ( ActiveSkin 4.3 )

تحميل البرنامج

http://ifile.it/thnb2kg

معلومات تخص الملف :

حجم الملف : 2.33 MB

صيغة الملف : [RaR]

كلمة المرور www.islamcg.com

****

بعد التنصيب اضغط على كنترول و حرف الفاء ( Ctrl + T )

ثم قم بإختيار ActiveSkin 4.3 Type Library ثم ok

ثم قم بلصقها فى الفورم

 بعد ذلك قم بالضغط مرتين على الفورم و اكتب الشفره التاليه

Private Sub Form_Load() Skin1.ApplySkin hWnd End Sub

 بعدين اضغط على اكتف سكن باليمين و أختار Load Skin

بعد ذلك اختار الملف الى تريد إضافته تجده العاده فى الرابط

C:\Program Files\ActiveSkin 4.3\Skins

بعض التطبيقات

 

مع امكانية تصميم skin خاصه بك

إبدأ => كل البرامج => ActiveSkin 4.3 => ثم Skin Builder

ثم إبدأ بتصميم الخاصه بك

****

4 - شريط الأدوات :

فم بالضغط على كنترول + حرف الثاء (Ctrl +E)

أو قم الأنتقال الى Tool فى شريط الأدوات ثم  Menu Editer  

وبعد ذلك سوف تواجهك الصفحة التاليه

 

****

 بعد ذلك تقوم بكتابة الأسماء التى تريدها بهذه الطريقه

 و تتم كتابة الأسماء فى خانة Caption

 

****

 مع مراعات انك  تكون مرتبها على ان تكون الخيارات الأساسيه فى الخلف و الثانويه فى الأمام عن طريق الضغط على الأسهم

 

****

 و بأمكانك إضافة اختصارات عبر الضغط الأختيار من Shortcut مع مراعات عدم اختيار نفس الأختصار أكثر من مره

 مع مراعات عدم وضع اختصار للخيارات الأساسية و سيصبح بهاذا الشكل

 

****

 و المهم هو تسمية كل الخيارات سواء كانت اساسية او ثانويه مع مراعات عدم تكرار الأسم فى خانة Name

س / ما فائدة الخانة Name ولماذا لا أستطيع تنفيذ البرنامج إذا لم اقم بإدراج إسم ؟

جـ / الأن هذا الأسم هو نفس الأسم فى خانة الأسم فى الجدول عند إضافة زر جديد و بالتالى هذا الأسم حتى تتمكن من إضافة أوامر و شفرات

لاحظوا ان الأسم هو m2

****

أخطاء قد تواجهك و حلولها

الخطأ الأول :

الحل :

قم بتغير المدخل لكلى الأسماء المتشابهة عبر وضع رقم فى خانة Index

****

الخطأ الثاني :

الحل :

تغير الأختصار لأحدهما لتكون مختلفه عن الأخرى

****

الخطأ الثالث :

الحل :

سوف يظهر هذا الخطأ عند وضع إختصار للخيار الأساسي و الحل هو حذف الأختصار

****

لمكن لا تظهر له الصور يمكنه تحميل الشرح من هنا

http://www.4shared.com/file/92314550/96007290/sharh_i-k.html

****

يمكنكم مراسلتي الأستفسار عن اى شيأ

mansou_888@hotmail.com

أخوكم / منصور

 

سبحان الله وبحمده سبحان الله العظيم

سبحان الله عدد خلقه و رضى نفسه و زنة عرشه و مداد كلماته

 

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
التصنيفات : برنامج أبن الخطاب, درس | السمات:درس
أرسل الإدراج  |   دوّن الإدراج