شرح ببرنامج فيجول بيسك6 للمبتدئين
السلام عليكم
اقدم لكم القليل من الشرح ببرنامج فيجول بيسك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 على لوحة التحم لتشغيل البرنامج
هكذا انتهينا من الدرس الاول
انشاء الله بعد مشاهدة الرد سوف نضيف الدرس الثاني بصراحه لا اريد ان اكلم نفسي :)
وشكرا لكم اخواني في الاسلام
انشاء حاسبة و ساعة + تعليم كود منع الاخطاء بالبرنامج
مشاركة: شرح ببرنامج فيجول بيسك6 للمبتدئين
سوف نبدا ببرنامج الة الحاسبة والساعة الان
بسم الله
مشاركة: شرح ببرنامج فيجول بيسك6
اول شيء سوف نقوم بتعليم انشاء ساعة
نقوم باضافة عداد (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
والان نشغل البرنامج
انشاءالله الشرح مفهوم
شكرا لكم اخواني بالاسلام
الرجاء ان تدعولي
مشاركة: شرح ببرنامج فيجول بيسك6
ولكم الان الالة الحاسبة
اولن نقوم باضافة الادوات التالية:-
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
ملاحظ سوف اشرح العديد من هذه الامثل في الدروس القادمة
والان ممكن ان نقوم بفحص البرنامج
انشاء الله الشرح وافي ومفهوم
ومفيد
انشاء الله
مع السلامة اخوتي في الاسلام
الرجاء ان تدعولي على الشرح وشكرا
مشاركة: شرح ببرنامج فيجول بيسك6
السلام عليكم
الان لكم شرح صندوق الحوار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
مع السلامه سوف نلتقي انشاء الله
مشاركة: شرح ببرنامج فيجول بيسك6
ملاحظه :- بدون تعليق او رد منكم مش رايح اكمل شرح
مشاركة: شرح ببرنامج فيجول بيسك6
السلام عليكم ورحمة الله وبركاته
اخي العزيزshabb_shabb
صراحه موضوعك اجبرني على التسجيل بهذا المنتدى..
شرح رائع .. وياليت تستمر بطرح الدروس..
وسأكون اول المتابعين لك...
دمت بخير
مشاركة: شرح ببرنامج فيجول بيسك6
مشكووووووووووووور أخوي وأتمنى أن تكمل ما بدأت به
مشاركة: شرح ببرنامج فيجول بيسك6
السلام عليكم dark man_101 و بنتـ errorالحوت
انشاء الله رايح اكمل شرح
وشكرا الك بنت الحوت مع انه الشرح مش قد المقام
وشكرا لكم
الدرس القادم
انشاء متصفح صور
ومشغل فيديو وصوت
مشاركة: شرح ببرنامج فيجول بيسك6
السلام عليكم
نبدأ الان ببناء برنامج لتشغيل الفيديو
بسم الله الرحمن الرحيم
اول شيء نقوم بعمله
نختار من القائمة
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
والان نقوم بتشغيل البرنامج وننقر على الزر تشغيل
سوف يبدء الفلم
انشاء الله الشرح مفهوم ومفيد
مع السلامه
مشاركة: شرح ببرنامج فيجول بيسك6
السلام عليكم
نبدأ الان ببناء برنامج لتشغيل الصوت
بسم الله الرحمن الرحيم
اول شيء نقوم بعمله
نختار من القائمة
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
والان نقوم بتشغيل البرنامج وسماع الصوت
انشاء الله الشرح مفهوم ومفيد
مع السلامه
مشاركة: شرح ببرنامج فيجول بيسك6
السلام عليكم
نبدأ الان ببناء برنامج متصفح ملفات الصور
بسم الله الرحمن الرحيم
اولا سوف نضع الادوات على النافذة
الادوات هي :-
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
الان نقوم بتشغيل البرنامج واختيار اي صوره بجهازنا لعرضها
مشكورين
انشاء الله الشرح مفهوم ومفيد
مع السلامه
مشاركة: شرح ببرنامج فيجول بيسك6
أخى يوجد عندى سؤال هل الأداه Microsoft Multimedia 6.0 يمكنها تسجيل ما على شاشه الكمبيوتر وإن كانت الأجابه لا فما هى الأداه التى تستطيع التسجيل وليس العرض ومشكووووور على الدروس !!!
مشاركة: شرح ببرنامج فيجول بيسك6
سلام عليكم
اخي رنجوجيت سئالك جميل
بس لو سمحت اعطيني مهل يوم واحد لكي افحص لك
بصراحه لم افكر بهذا الشيء من قبل الان ابدأ الاختبارات لفحص على كل حال اعتقد بانه يمكن من هذه الاداة ان تسجل كل شيء على الشاشه وانشاء الله بنشوف
وشكرا لك على السئال الجميل
مع السلامه
مشاركة: شرح ببرنامج فيجول بيسك6
ولو اخوي لا زم البداية تكون هيكــ
بنسبة لشرح ماعليه كلام
بس ياليت يطول الشرح مع الدرس
وبكون طالبة متابعه
ولاهنت يااستاذ ومنكـ نستفيد:09: