شرح ببرنامج فيجول بيسك6

[shabb_shabb]

السلام عليكم
اقدم لكم القليل من الشرح ببرنامج فيجول بيسك6

نبدأ ببرنامج الترحيب
بسم الله

افتح برنامج فيجول بيسك 6
بعد فتح البرنامج بختار الامر standart
وثم بقوم باضافة الادواة التالية:-
1) 2 كومند (command)
2) 2لابل (LABEL)

والان نقوم بتغير اعدادات الادوات:-
1) كومند 1
من الخاصيه (caption) نسميه خروج

2) كومند 2
من الخاصيه (caption) نسميه السلام عليكم

3) لابل 1
من الخاصيه (caption) نسميه اهلا وسهلا

4) لابل 2
من الخاصيه (caption) نحذف المكتوب داخلها ونتركها فارغه


الان نقوم بترتيب الادوات على النافذه
نضع الابل 1 اعلى النافذه
نضع الابل 2 تحت الابل 1 مباشرة
نضع الكومند 2 بجانب الابل 2 من اي اتجاه نريد
ضع الكومند 1 اين تريد

والان بعد الانتهاء من التردتيب على النافذه نبدأ بالكود
نضغط على الكومند 1 نقرا مزدوجا يفتح لنا نافذة الكود
نكتب بها الامر التالي
Private Sub Command1_Click()
End
End Sub
وبعد كتابة الكود للكومند 1
نكتب الكود للكومند 2
Private Sub Command2_Click()
Label2.Caption = "عليكم السلام"
End Sub
وثم بقوم بتشغيل البرنامج او نضغط على زر f5 على لوحة التحم لتشغيل البرنامج
هكذا انتهينا من الدرس الاول

انشاء الله بعد مشاهدة الرد سوف نضيف الدرس الثاني بصراحه لا اريد ان اكلم نفسي :)
وشكرا لكم اخواني في الاسلام
انشاء حاسبة و ساعة + تعليم كود منع الاخطاء بالبرنامج

[shabb_shabb]

سوف نبدا ببرنامج الة الحاسبة والساعة الان

بسم الله

[shabb_shabb]

اول شيء سوف نقوم بتعليم انشاء ساعة

نقوم باضافة عداد (timer)
ونقوم بانشاء اداة عنوان (label)

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

الان سوف نقوم بكتابة الكود للبرنامج
ننقر نقرا نزدوجا على النافذة لكي تفتح لنا نافذة الكود
ونكتب الكود التالي
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = Time
End Sub

ملاحظة الرقم 1000 يساوي ثانيه
لقد كتبة بهذا الكود Label1.Caption = Time لسبب واحد وهو
عندما نقوم بتشغيل البرنامج سوف يضهر لنا Label1 وليس الرقم وبعد ثانيه تضهر الساعه
ولك نحن امرنا البرنامج ان يكتوب الساعه بدل العنوان.
والان نقوم بكتابة الكود للعداد

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

والان نشغل البرنامج

انشاءالله الشرح مفهوم
شكرا لكم اخواني بالاسلام
الرجاء ان تدعولي

[shabb_shabb]

ولكم الان الالة الحاسبة
اولن نقوم باضافة الادوات التالية:-
1) ادوات نص2
2) ازرار5
3) اداة عنوان

الان سوف نقوم بترتيب الادواة على النافذة كما نريد ان تكون ونقوم باعدادها :-
1) ادواة النص سوف نغير المكتوب داخلها من caption بالخصائص
ونكتب داخلها 0
يعني سوف يكون مكتوب داخل ادوات النص 0

2) الازرار الـ 5 سوف نكون بكتابة التالي داخلها :-
1) ضرب عن طريق caption
2) قسمة عن طريق caption
3) جمع عن طريق caption
4) طرح عن طريق caption
5) نقوم بكتابة خروج عن طريق caption.

3) اداة العنوان سوف نقوم بحذف المكتوب دخل الـ caption من الخصائص
لكي تكون فارغة

الان نبدا بكتابة الاوامر للبرنامج (الكود).

الكود الاول للبدء بالضرب
Private Sub Command1_Click()
If IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) = True Then
Label1.Caption = CDbl(Text1.Text) * CDbl(Text2.Text)
Else
MsgBox "القيمة المدخلة ليسة رقم"
End If
End Sub

الكود الثاني للبدء بالقسمة
Private Sub Command2_Click()
If IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) = True Then
Label1.Caption = CDbl(Text1.Text) / CDbl(Text2.Text)
Else
MsgBox "القيمة المدخلة ليسة رقم"
End If
End Sub

الكود الثالث للبدء بالجمع
Private Sub Command3_Click()
If IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) = True Then
Label1.Caption = CDbl(Text1.Text) + CDbl(Text2.Text)
Else
MsgBox "القيمة المدخلة ليسة رقم"
End If
End Sub

الكود الرابع للبدء بالطرح
Private Sub Command4_Click()
If IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) = True Then
Label1.Caption = CDbl(Text1.Text) - CDbl(Text2.Text)
Else
MsgBox "القيمة المدخلة ليسة رقم"
End If
End Sub


الكود الخامس للخروج من البرنامج
ملاحظة سوف اضع اكثر من كود للخروج من البرنامج لسبب واحد وهو:-
لكي اوضح لكم عدة طرق للخروج من البرنامج من اريح كود لاصعب كود(لاتخافو ليس صعب كثيرا)
هذا اصغر كود
Private Sub Command5_Click()
End
End Sub

الان نسوف نكتب كود يسئلنا اذا نريد الخروج حقا من البرنامج

Private Sub Command5_Click()
ans = MsgBox("هل تريد حقا الخروج؟", vbYesNo + vbCritical, "خروج")
If ans = vbYes Then
End
Else
MsgBox "اهلا بعودتك"
End If
End Sub
ملاحظ سوف اشرح العديد من هذه الامثل في الدروس القادمة
والان ممكن ان نقوم بفحص البرنامج
انشاء الله الشرح وافي ومفهوم
ومفيد
انشاء الله
مع السلامة اخوتي في الاسلام
الرجاء ان تدعولي على الشرح وشكرا

[shabb_shabb]

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

Private Sub Form_Load()
MsgBox "اهلا بك في برنامجنا"
End Sub

لكم الكود الثاني
لاضهار رسالة نعم,لا عند الخطأ او عند الخرج من البرنامج
هذا الكود عند الخروج

Private Sub Command1_Click()
ans = MsgBox("هل تريد الخروج من البرنامج", vbYesNo + vbCritical, "خروج")
If ans = vbYes Then
End
Else
MsgBox "اهلا بعودتك"
End If


الكود الثالث
لاضهار رسالة موافق,الغاء الامر عند الخطأ

Private Sub Command1_Click()
ans = MsgBox("هل تريد الخروج من البرنامج", vbOKCancel+ vbCritical, "خروج")
If ans = vbYes Then
End
Else
MsgBox "اهلا بعودتك"
End If

والان لكم الكود لارابع
لاضهار رسالة موافق,الغاء الامر عندما تريد ان تسئل المستخدم


Private Sub Command1_Click()
ans = MsgBox("مثال", vbOKCancel + vbQuestion, "مثال")
If ans = vbYes Then
End
Else
MsgBox "الغاء الامر"
End If
End Sub

الكود الخامس
لاضهار رسالة موافق عند السئال

Private Sub Command1_Click()
ans = MsgBox("مع السلامه", vbOKOnly + vbQuestion, "خروج")
End
End Sub

الكود السادس
لاضهار رسالة نعم,لا,الغاء الامر
Private Sub Command1_Click()
ans = MsgBox("هل تريد...", vbYesNoCancel, "سئال")
If ans = vbYes Then
MsgBox "نعم"
Else
If ans = vbNo Then
MsgBox "لا"
Else
If ans = vbCancel Then
MsgBox "الغاء الامر"
End If
End If
End If
End Sub

الكود السابع
لاضهار رسالة اعادة المحاولة,الغاء الامر
Private Sub Command1_Click()
ans = MsgBox("انقر اين تريد", vbRetryCancel, "مثال")
If ans = vbRetry Then
MsgBox "اعادة المحاولة"
Else
If ans = vbCancel Then
MsgBox "الغاء الامر"
End If
End If
End Sub

انشاء الله الشرح مفهوم
لمزيد من المعلومات ولا تتدرددو يا اخواني في الاسلام
على اميلي
a7mad_m7md@hotmail.com
مع السلامه سوف نلتقي انشاء الله

[shabb_shabb]

ملاحظه :- بدون تعليق او رد منكم مش رايح اكمل شرح

[بنتـ errorالحوت]

السلام عليكم ورحمة الله وبركاته
اخي العزيزshabb_shabb
صراحه موضوعك اجبرني على التسجيل بهذا المنتدى..
شرح رائع .. وياليت تستمر بطرح الدروس..
وسأكون اول المتابعين لك...
دمت بخير

[dark man_101]

مشكووووووووووووور أخوي وأتمنى أن تكمل ما بدأت به

[shabb_shabb]

السلام عليكم dark man_101 و بنتـ errorالحوت
انشاء الله رايح اكمل شرح
وشكرا الك بنت الحوت مع انه الشرح مش قد المقام
وشكرا لكم
الدرس القادم
انشاء متصفح صور
ومشغل فيديو وصوت

[shabb_shabb]

السلام عليكم
نبدأ الان ببناء برنامج لتشغيل الفيديو
بسم الله الرحمن الرحيم

اول شيء نقوم بعمله
نختار من القائمة
project
العنصر
component

ومن ثم نختار الامر
microsoft multimedia control 6.0

بعد اختيار الامر
انقر فوق
apply
ومن ثم
close
والان نختار الاداة الخاصه الذي ضفناها
من قائمة الاداواة الى النافذة
ونضيف زر
هكذا انهينا من اضافة الادواة على النافذة
ونبدأ بتغير الخصائص
نختار الزر ونسميه تشغيل من caption
والان نبدأ بكتابة الكود

Private Sub Command1_Click()
With MMControl1
.DeviceType = "avivideo"
.FileName = "c:\1.avi"
.Command = "prev"
.Command = "open"
.Command = "play"
End With
End Sub

والان نقوم بتشغيل البرنامج وننقر على الزر تشغيل
سوف يبدء الفلم
انشاء الله الشرح مفهوم ومفيد
مع السلامه

[shabb_shabb]

السلام عليكم
نبدأ الان ببناء برنامج لتشغيل الصوت
بسم الله الرحمن الرحيم

اول شيء نقوم بعمله
نختار من القائمة
project
العنصر
component

ومن ثم نختار الامر
microsoft multimedia control 6.0

بعد اختيار الامر
انقر فوق
apply
ومن ثم
close
والان نختار الاداة الخاصه الذي ضفناها
من قائمة الاداواة الى النافذة
ونضيف زر
هكذا انهينا من اضافة الادواة على النافذة
ونبدأ بتغير الخصائص
نختار الزر ونسميه تشغيل من caption
والان نبدأ بكتابة الكود

Private Sub Command1_Click()
With MMControl1
.DeviceType = "waveaudio"
.FileName = "c:\1.wav"
.Command = "prev"
.Command = "open"
.Command = "play"
End With
End Sub

ومن ثم الكود التالي
Private Sub Form_Load()
MMControl1.Visible = False
End Sub

والان نقوم بتشغيل البرنامج وسماع الصوت


انشاء الله الشرح مفهوم ومفيد
مع السلامه

[shabb_shabb]

السلام عليكم
نبدأ الان ببناء برنامج متصفح ملفات الصور
بسم الله الرحمن الرحيم

اولا سوف نضع الادوات على النافذة
الادوات هي :-
1) اداة Drive
2)اداة Dir
3) File
4)Image
5)Check
6) Label
والان نقوم بترتيب الادوات على النافذة

الان نقوم بتعديل اسم الـ Check ونسميه اضهار الصوره

والان نقوم بكتابة الكود

الكود الاول
خانة الاختيار

Private Sub Check1_Click()
If Check1.Value = 1 Then
"لاضهار الصورة" Image1.Visible = True
Else
"لاخفاء الصورة" Image1.Visible = False
End If
End Sub

الكود الثاني
ادات dir لاضهار الملفات الموجوده داخل الجهاز

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

الكود الثالث
ادات Drive لاختيار القرص المرن

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err Then
ans = MsgBox("اكتب رسالة الذي تريد ضهورها عند الخطا", vbOKOnly + vbCritical, "اكتب العنوان")
If ans = vbOK Then Err.Clear
End If
End Sub
ملاحظه قم بنسخ الكود من هنا لبرنامجك

الكود الرابع
لاختيار الصورة

Private Sub File1_Click()
On Error Resume Next
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.List(File1.ListIndex))
End Sub

الكود الخامس والاخير
للنافذة

Private Sub Form_Load()
Drive1.Drive = "c:\"
File1.ReadOnly = True
File1.Hidden = True
Image1.Stretch = True
File1.Pattern = "*.jpg;*gif"
End Sub

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

[رنجوجيت]

أخى يوجد عندى سؤال هل الأداه Microsoft Multimedia 6.0 يمكنها تسجيل ما على شاشه الكمبيوتر وإن كانت الأجابه لا فما هى الأداه التى تستطيع التسجيل وليس العرض ومشكووووور على الدروس !!!

[shabb_shabb]

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

[بنتـ errorالحوت]

ولو اخوي لا زم البداية تكون هيكــ

بنسبة لشرح ماعليه كلام

بس ياليت يطول الشرح مع الدرس

وبكون طالبة متابعه

ولاهنت يااستاذ ومنكـ نستفيد:09:

[shabb_shabb]

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

[shabb_shabb]

سلام عليكم
اخواني بالاسلام لكم الان درس
اشرطة التمرير
والان نبدأ الشرح

نقوم باضافة التالي :-

1) Frame

2) 3 HScroll
3) 3 Label
4) Picture
الرجاء اضافة كل شيء بالترتيب كما في الصوره

http://shabb7.jeeran.com/0.JPG

بعد تعديل اسماء الادواة
وترتيبها نقوم بكتابة الكود

الكود الاول
الكود لـ Form

Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 255
HScroll1.SmallChange = 30
HScroll1.LargeChange = 50
HScroll2.Min = 0
HScroll2.Max = 255
HScroll2.SmallChange = 30
HScroll2.LargeChange = 50
HScroll3.Min = 0
HScroll3.Max = 255
HScroll3.SmallChange = 30
HScroll3.LargeChange = 50
End Sub

الكود الثاني
لشريط التمرير الاول HScroll1

Private Sub HScroll1_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

الكود الثالث
لشريط التمرير الثاني HScroll2

Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

الكود الرابع
لشريط التمرير الثالث HScroll3

Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

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

http://shabb7.jeeran.com/1.JPG

http://shabb7.jeeran.com/2.JPG

http://shabb7.jeeran.com/3.JPG

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

[Argonaut]

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

السلام عليكم ورحمة الله تعالى وبركاته

حسن فعلت ...

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

وشكرا.اخوك

[shabb_shabb]

السلام عليكم
اهلا بك اخي Argonaut (http://www.montada.com/member.php?u=118659) انشاء الله نفيد الشباب واذا ممكن عندي طلب صغير منك
اذا ممكن تقولنا عن الاداة الي تعرض الي على الشاشة مع الكود مشكووووووووور
وشكرا لكم

[شيختهم]

السلام عليكم
انا ابغي برنامج الفيجول بيسك تعبت وانا ادور عليه و ما حصلته لو سمحتو ممكن تعطوني اياه ؟؟؟؟؟:08:

[shabb_shabb]

اهلا شيختهم نعم ممكن بس المشكله البرنامج كبير وما بنزل على المنتدا

[Argonaut]

حسن سوف ارفق ماتريد يازميلي

[Argonaut]

هذا الذي طلبته

[بنتـ errorالحوت]

شرح رائع...
وتعاون اروع..
دمتم على هذا الجهد..
ودمنا متابعين ...
تحياتووووو....:fing02:

[shabb_shabb]

السلام عليكم
مشكورين جميعا على الردود وشكرا على البرامج اخي Argonaut

[Argonaut]

السلام عليكم
مشكورين جميعا على الردود وشكرا على البرامج اخي Argonaut
لا شكر على وجب

[shabb_shabb]

مشكور اخي على مرورك
جزاك الله كل خير انشاء الله
سلامي