اللهم لا سهل الا ما جعلت سهلا وانت تجعل الحزن ان شئت سهلا
مشروعنا اليوم متميز وفريد
قضيت وقتا كى احاول تصميمة
وبحمد الله انتهيت منه
فقلت فى نفسى اقدمه لاخوانى فى منتدى بوابة الثانوية العامة
عسى ان ينتفع به من يحتاجه
ونتيجة لضيق الوقت اعدكم ان اشرح كل شئ بصورة اكثر وضوحا
كل ما عليك هو الانتباة جيدا والتركيز
واخبط على الشريط الاصفر لكل صورة كى تراها بالحجم الكبير الواضح
الموضوعات التى لم اكملها والتى لم اجد عنها تعليقا
يعنى انها افتقدت عنصر التشويق
مما يعنى انه لاحاجة لى ولا بى لاستكمالها
---------
قم بفتح برنامج فجيوال بيسك
سواء كان 2005/2008/2010/2012 بيتا
وانشئ مشروع جديد كالعادة واعطة اسما يروق لك
ولنبدأ بالصور على اسم الله وبركته

ملاحظة هامة يجدر الاشارة اليها
اثناء تسمية مشروعك بأى اسم
تجنب الرموز الخاصة مثل ( : " ؟ . ؛ < > > )
اسم مشروعك يجب ان يكون بحروف انجليزية فقط
اللهم بلغت اللهم فاشهد ( لو انك لاحظت اننى استخدم رموزا فهذا الامر للتعمية فقط )
لو انك استخدمت رموزا خاصة ولم تستمع الى نصيحتى فلن يكتمل نجاح مشروعك بتاتا

http://www10.0zz0.com/2012/03/08/21/258008453.jpg
---------

http://www4.0zz0.com/2012/03/08/21/441313157.jpg



بعد ادراج البروجراس بار ولكى يتغير لونة
علينا بتعديل امر معين
اضغط على بروجيكت اعلى شريط القوائم واختر خصائص
كما بالصورة التالية
وازا علامة صح الموجودة امام
enabled xp style

----------
http://www9.0zz0.com/2012/03/08/21/149500199.jpg




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






------------


http://www10.0zz0.com/2012/03/08/21/454306865.jpg





----------------
http://www4.0zz0.com/2012/03/08/21/928200166.jpg


--------------------

http://www10.0zz0.com/2012/03/08/21/920804676.jpg




---------
http://www4.0zz0.com/2012/03/08/21/740880230.jpg






--------------------
http://www9.0zz0.com/2012/03/08/21/888740320.jpg



----------
http://www10.0zz0.com/2012/03/08/21/368748040.jpg


--------------------
http://www4.0zz0.com/2012/03/08/21/131933200.jpg












--------------------
http://www10.0zz0.com/2012/03/08/21/341538725.jpg



----------

http://www13.0zz0.com/2012/03/08/21/761987712.jpg



بالنسبة لويندوز سفن
فالامر هنا يكون
If Shell("shutdown /s") Then
MsgBox("your computer will shutdown within 20 second")
End If

وتحسبا لمستخدمى ويندوز اكس بى
سوف نضيف الكود التالى ايضا
Shell("shutdown -s -t 60")

ليصبح الكود النهائى لبرمجة زر اغلاق الكمبيوتر كالاتى

Shell("shutdown -s -t 60")
If Shell("shutdown /s") Then
MsgBox("your computer will shutdown within 20 second")
End If


--------------------

http://www9.0zz0.com/2012/03/08/21/444496312.jpg


----------
http://www10.0zz0.com/2012/03/08/21/226615420.jpg





--------------------
http://www4.0zz0.com/2012/03/08/21/690043925.jpg



----------
http://www10.0zz0.com/2012/03/08/21/551033510.jpg





--------------------
http://www9.0zz0.com/2012/03/08/21/295151811.jpg



----------
بالنسبة لبرمجة عنصر البروجرس بار فى الفورم الاول يمكننا ان نجعل لونة يتغير باستمرار
كلما وصل الى نسبة مئوية معينة
مثلا
اذا وصل الى 33% فلنجعل لونة يتغير الى اللون الاحمر
يمكننا ان نضغط مرتين على البروجرس بار فى الفورم الاول دبل كليك
ونكتب فى الكود
If ProgressBar1.Value = 33 Then
ProgressBar1.ForeColor = Color.Red
EndIf






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

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

برمجة الفورم الاول بهذا الشكل


PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
Timer1.Start()
EndSub
PrivateSub Timer1_Tick(sender AsObject, e AsEventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
login_screen.Show()
EndIf
If ProgressBar1.Value = 33 Then
ProgressBar1.ForeColor = Color.Red
EndIf
EndSub
PrivateSub ProgressBar1_Click(sender AsObject, e AsEventArgs) Handles ProgressBar1.Click
ProgressBar1.ForeColor = Color.Fuchsia
EndSub
EndClass




----------

برمجة الفورم الثانى كاملة بهذا الشكل

PublicClasslogin_screen
PrivateSub login_screen_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
Form1.Hide()
EndSub
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
If TextBox1.Text = "tomjerry741***********"And TextBox2.Text = "121314"Then
MsgBox("Thanx Tom Jerry, Correct Password")
my_project_main.Show()
EndIf
EndSub
EndClass





--------------------
برمجة الفورم الثالث كاملة بهذا الشكل


Public Class my_project_main
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Shell("shutdown -s -t 60")
If Shell("shutdown /s") Then
MsgBox("your computer will shutdown within 20 second")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Shell("shutdown -r")
If Shell("shutdown /r") Then
MsgBox("your computer will restart within 20 second")
End If
MsgBox("your computer will restart within 20 second")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Shell("shutdown -a ")
If Shell("shutdown /a") Then
MsgBox("you are Ignored shutdown")
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
MsgBox("تم تصميم هذا البرنامج من قبل مدرس بالاجر")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Form1.Close()
login_screen.Close()
Me.Close()
End Sub
Private Sub my_project_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
login_screen.Hide()
End Sub
End Class





----------
صورة من ملف التكست الذى كنت اقوم بأعدادة اثناء تصميمى لهذا البرنامج
لو كانت فيه حاجة ناقصة اعتقد ان الصور لا تكذب

form1 properites
autosizemode=grow and shrink
autosizemode=false
icon
background
startposition=centerscreen
text=music background Startup Menu
maxmizebox=false
minimizbox=false
controlbox=false
----------
timer prop
enabled=true
interval=200
-------------
form2 =login screen
والان من صندوق الخصائص -- بعد الضغط اعلى الفورم الثانى الذى انشأناة قم باختيار الخصائص التالية
text=login_screen
startposition=centerscreen
autosizemode=grow and shrink
code
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
login_screen.Show()
End If
--------------
ProgressBar1 code
ProgressBar1.ForeColor = Color.Fuchsia
---------------------
form1 code
timer1.start ()
---------------
فى الفورم الثانى الذى اصطلحنا على تسميتة
login screen
قم بادراج عدد اثنان ليبل lable
وعدد واحد تكست بوكس من صندوق الادوات
وعدد واحد زر يعنى بوتون وغير اسمة الى ما يعجبك
button1 prop
text=****'in LogMe In !!
forecolor اختر اللون الذى تفضله
form2=login screen code
Form1.Hide()

putton1
text=****'in LogMe In !!

button1 code
If TextBox1.Text = "tomjerry741***********" And TextBox2.Text = "121314" Then
MsgBox("Thanx Tom Jerry, Correct Password")
End If
-------------------------------
نقوم الان بأضافة فورم اخر ثالث جديد
وهو المفترض ان يكون اساس مشروعنا او اى مشروع مهم تقوم بتصميمة
قم بالضغط على ثلاثة الازرار الاتية فى وقت واحد
ctrl+shift+A
من التبويب ويندوز اختر نيو فورم
واكتب له اسما مناسبا لبرنامجك
يعنى برنامج الاساسى هيكون اسمه اية
وليكن مثلا
my project main
ضع خلفية مناسبة من خلال الخاصية باك جراوند كلر
واليك بعض الخصائص التى اخترتها للفورم الثالث
form3=my project main - properites
autosizemode=grow and shrink
icon اختر الايقونة التى تعجبك
background اختر الخلفية التى تعجبك
startposition=centerscreen
text=my project main
maxmizebox=true
minimizbox=true
controlbox=true
size=297; 435
اضغط مرتين اعلى الفورم الثالث
واكتب الكود التالى
login_screen.Hide()
الصور توضح كل شئ بالترتيب
والان قم بادراج ثالثة ازرار (بوتون) وغير التكست لكل زر الى الاتى
button1=shutdown
button2=restart
button3=cancel
برمجة الازرار الثالاثة بالترتيب
Shell("shutdown - s -t 20")
MsgBox("your computer will shutdown within 20 second")
Shell("shutdown -r -20")
MsgBox("your computer will restart within 20 second")
Shell("shutdown -a")
MsgBox("you are Ignored shutdown")
-------------
والان
فى الفورم الثالث ايضا
نقوم بادراج عدد 2 زر
نسمى الاول
about me
ونسمى الثانى
exit
يعنى الزرين هيكونو رقم اربعة ورقم خمسة لان لو انت لاحظت ان عندنا فى الفورم ثلاثة ازرار
يعنى المطلوب منك انك تحدد الزر الرابع وتغير قيمة تسكت
button4
text=about me
button5= exit
بالنسبة لبرمجة الزر الرابع
button5 code
MsgBox("اكتب هنا الراسالة التى سوف تظهر للمستخدم وقم بتعريف نفسك مثل اسمك او سنك او اكتب اسم ايميلك الخاص")
button5 code
Form1.Close()
login_screen.Close()
Me.Close()
وهذا الكود خاص خاص باغلاق الفورم الاول
والفورم الاثنى
والفورم الثالث
وكل دا بكبسة زر واحدة
انتهى مشروعى بحمد الله
ارجو ان يكون واضحا

لتحميل المشروع كامل بالشرح والصور وملف تكست يحوى خاصية كل فورم وكل عنصر
اخبط على هذا الرابط وحمل من الميديا فاير (http://www.mediafire.com/?kj1zkeu4cca4ksw)
حجم الملف لا يتجاوز 5 ميجا (http://www.mediafire.com/?kj1zkeu4cca4ksw)
الصورة النهائية للبرنامج بعد الشغط على زر F5 من لوحة المفاتيح
http://www10.0zz0.com/2012/03/08/22/701129425.jpg
ولا تنسى ان تقوم بحفظ مشروعك من خلال save as الموجود فى قائمة فايل فى الفجيوال بايسك
حيث ان مشرروعنا هذا لم ينته بعد
بكرة هنتعلم اكتر فتابعونا ولا تبخلوا بتعليق مناسب
انا تعبت جامد لحد ما خرجت لكم الموضوع دا
http://www.mediafire.com/?kj1zkeu4cca4ksw (http://www.mediafire.com/?kj1zkeu4cca4ksw)
جهاز طفى اكتر من تلات مرات اثناء تصميم وشرحى لهذا البرنامج
وكل مرة برجع اعيد مرة تانى واشرح كل حاجة مرة تانية بالصورة لحد ما زهقت
وفى الاخر ما الاقيش منك ولا تعليق واحد يدل على اهتمامك !!!!
ياللسخرية وعبثية الاقدار
تصبحون على خير










------------



ملاحظة مهمة
يمكنك ان تستخدم الدالة Ask
فى الفورم الثالث فى الزر الخاص بالاغلاق او فى زر رى ستارت او فى زر تجاهل
ويكون الكود مثلا لزر shutdown كالاتى
Dim ask As MsgBoxResult
ask = MsgBox("Are you sure you want to shutdown your computer?", MsgBoxStyle.YesNo)
If ask = MsgBoxResult.Yes Then
Shell("shutdown -s")
End If

----------
ويكون لزر ريستارت الكود التالى
Dim ask As MsgBoxResult
ask = MsgBox("Are you sure you want to restart your computer?", MsgBoxStyle.YesNo)
If ask = MsgBoxResult.Yes Then
Shell("shutdown -r")
End If



-----------
ويكون لزر التجاهل الكود كما هو سابقا
------
لو اردت اضافة زر خاصة بتسجيل خروج المستخدمين log-off
اضف الى الفورم زرا واعطة الاسم log-off
واضغط عليه مرتين وثم بكتابة الكود التالى
Dim ask As MsgBoxResult
ask = MsgBox("Are you sure you want to log off your computer?", MsgBoxStyle.YesNo)
If ask = MsgBoxResult.Yes Then
Shell("shutdown -l")
End If


بانتظار تفاعلكم معنا


















----------------
















--------------------

يعنى برمجة الفورم الثالث ممكن تنفع ايضا تكون بهذا الشكل

public class my_project_main
private sub button1_click(sender as object, e as eventargs) handles button1.click
dim ask as msgboxresult
ask = msgbox("are you sure you want to shutdown your computer?", msgboxstyle.yesno)
if ask = msgboxresult.yes then
shell("shutdown -s")
end if
end sub
private sub button2_click(sender as object, e as eventargs) handles button2.click
dim ask as msgboxresult
ask = msgbox("are you sure you want to restart your computer?", msgboxstyle.yesno)
if ask = msgboxresult.yes then
shell("shutdown -r")
end if
end sub
private sub button3_click(sender as object, e as eventargs) handles button3.click
shell("shutdown -a ")
if shell("shutdown /a") then
msgbox("you are ignored shutdown")
end if
end sub
private sub button5_click(sender as object, e as eventargs) handles button5.click
msgbox("تم تصميم هذا البرنامج من قبل مدرس بالاجر")
end sub
private sub button4_click(sender as object, e as eventargs) handles button4.click
form1.close()
login_screen.close()
me.close()
end sub
private sub my_project_main_load(sender as object, e as eventargs) handles mybase.load
login_screen.hide()
end sub
end class




----------

الجزء الثانى : اضافة خلفية موسيقية الى مشروعك
افتح مشروعك الذى تود ان تجعل لة خلفية موسيقية
لاحظ انه يجب ان تكون بصيغة واف (Wav) يعنى ما تنفعش ملفات ام بى ثرى ولا اى صيغة تانية
الا فى ظروف خاصة لو اردت ان تعرفها ... فسأجعل لها وقت اخر ودرس اخر
المهم يجب الا يزيد حجم المقطع عن دقيقة او دقيقتين حتى لا يكون حجم برنامجك خرافيا
لدى اغنية 3:30 لسيلين ديون وهى اغنية I'am Alive
حجمها لا يزيد عن 3.5ميجا
حين حولتها ببرنامج format factory الى صيغة واف اصبح حجمها حوالى 35ميجا
كل ما فعلته هو اننى استخدمت برنامج لقص مقطع معين MP3 Splitter & Joiner Pro 4.21 فى بداية الاغنية - حوالى 74ثانية
فاصبح حجم الاغنية بعد تحويلها من mp3 الى wav حوالى 16ميجا تقريبا
--------
والان فلنفترض مثلا انك بحثت فى جهاز الكمبيوتر لديك عن اى مقطع بصيغة واف من خلال باحث الكمبيوتر وكتب فى صندوق البحث
*.wav
ووجدت ان لديك مقاطع مهمة تريد اضافتها الى الفورم فكل ما عليك هو ان تفتح برنامج الفجيوال 2008/2010/2012بيتا
نفترض اننا نريد وضع موسيقى او اغنية صوتية تعمل فى خلفية البرنامج بدون تدخل المستعمل لتشغيلها او ايقافها
-داخل مشروعك اضغط على بروجيكت واختر properties
كما بالصورة التالية
http://www8.0zz0.com/2012/03/09/02/216786441.jpg


----------
فى نافذة الخصائص
على ايد اليمين هتلاقى مجموعة من التبويبات
اختر التبويب Resources
ومن ثم اضغط بالسهم الموجود جوار strings
ثم اختر Audio
http://www7.0zz0.com/2012/03/09/03/604534584.jpg

--------------------
سوف تظهر لك نافذة فارغة
كل ما يهمنا ان تضغط على السهم بجوار add recource
واختار العنصر الاول وحدد مكان ملف الواف لديك الذى تريد ان يكون خلفية صوتية لمشروعك

http://www7.0zz0.com/2012/03/09/03/183297521.jpg

----------
بعد ان تضيف الاغنية بتاعتك
كما بالصورة
عد مرة اخرى الى الفورم الاساسى

http://www7.0zz0.com/2012/03/09/03/171261497.jpg

=======
اضغط دبل كليك على الفورم
سوف تظهر لك نافذة الكود قم بكتابة الاتى
يتم كتابة الكود اسفل
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


'plays audio in background.
My.Computer.Audio.Play(My.Resources.Im_Alive_1_4, AudioPlayMode.Background)

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

http://www7.0zz0.com/2012/03/09/03/700050074.jpg

اذا اردت ان تستمر الاغنية بلا انقطاع وبلا توقف يعنى تتكرر مرة ومرة ومرات وبلا نهاية فاستخدام الدالة loop
وليكونن الكود التالى افضل من الكود السابق -- حسبما تختاره انت

'plays audio in background.
My.Computer.Audio.Play(My.Resources.Im_Alive_1_4, AudioPlayMode.BackgroundLoop)

ولاحظن ان الاغنية ستظل تتكرر حتى تقوم باغلاق الفورم نهائيا من خلال الضغط على زر خروج
الموجود فى الفورم الثالث فى مشروعنا هذا
ولن تنتهى لو انك اغلق الفورم الثانى الذى به شاشة تسجيل الدخول وكلمة السر
لو انك تريد ايقاف الاغنية لو كانت مزعجة
فما عليك الا ان تضيف عدد واحد زر button الى الفورم الثانى او الثالث
وتضغط عليه دبل كليك وتكتب الكود التالى لأيقاف صوت الخلفية فى اى وقت
My.Computer.Audio.Stop()

------------

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

الجزء الثالث " قبل الاخير"
سنتكلم اليوم فى كيفية وضع برنامجك فى قائمة بدء التشغيل
بحيث اذا استخدمة اى احد فليس مضطرا لفتحة كل مرة
بل ان البرنامج يعمل اتوماتيك بمجرد فتح الجهاز
مثل الماسينجر ومثل برامج الانتى فيرس وغيرها الكثير
اولا قم بفتح اى مشروع لديك قد قمت - انت - بتصميمة من قبل
فلنفترض مثلا انك تريد لبرنامجنا الحالى ان يعمل فى قائمة ستارت اب startup تلقائيا
فكل ما عليك
اولا : قم بفتح مشروعك السابق
http://www10.0zz0.com/2012/03/09/18/999474339.jpg

--------------
-
قم بالضغط بدل كليك اعلى الفورم الاول الاساسى
فانا انصحك بأن تستعمل هذى الطريقة الاولى
وقم بتنظيم الكود التالى
بالاعلى من Public Class Form1 قم بكتابة الكود التالى
Imports Microsoft.Win32
واسفل سطر Public Class Form1اكتب الكود التالى
Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
End Sub
واسفل لود الفورم اكتب السطر التالى
AddStartup(Me.Text, Application.ExecutablePath)
اخبط اعلى الصورة ولاحظ
لاحظ الصورة جيدا

http://www10.0zz0.com/2012/03/09/18/138923615.jpg


-----------------
اذا لم تعجبك الطريقة السابقة
فانا انصحك بأن تستعمل هذى الطريثة الثانية
وهى كالاتى
اسفل لود الفورم
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
قم بكتابة الكود الاتى كما بالصورة التالية
Dim FileName As String
Dim FilePath As Object
Dim RegistryKey As Object
FileName = "StartupTutorial.exe"
FilePath = Path.GetFullPath(FileName)
RegistryKey = CreateObject("WScript.Shell")
RegistryKey.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersi*on\Run\StartupTutorial", FilePath)

http://www10.0zz0.com/2012/03/09/18/341113910.jpg

تمت تجربة البرنامج وتم ادراجة فى قائمة ستارت اب
اذهب الى ستارت
ثم رن
واكتب الامر
msconfig
كما بالصورة التالية واذهب الى التبويب ستارت اب لتجد برنامجك قد تم تفعيلة
http://www14.0zz0.com/2012/03/09/19/424900939.jpg
او اكتب فى قائمة رن الامر الاتى ايضا
Regedit
واتبع المسار التالى حتى تصل الى فولد رن
Software\Microsoft\Windows\CurrentVersion\Run

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

بارك الله فيك

جزاك الله خيرا ونفع بك