المفضل
04-06-07, 12:35 AM
السلام عليكم
لقد تم التحدث في الدرس الاول عن برنامج الفيجول بيسك وأهم خصائصة ويمكنك الذهاب للدرس الاومن http://www.vb4arab.com/vb/showthread.php?t=138
اليوم بصدد شرح البرمجة الاساسية للفيجول بيسك
بسم الله نبداء
أن طريقة العمل في برنامج فيجول بيسك أشبة ما تكون بالعمل على برنامج الرسام, و الذي قمت بشرحة سابقا , فمربع الأدوات في فيجول بيسك قريب من أدوات الرسام في برنامج الرسام , وأطار النموذج في فيجول بيسك قريب من منطقة الرسم , وهكذا نجد أن البرمجة بأستخدام فيجول بيسك ممتعة وشيقة ,فهي عبارة عن ربط تلك النماذج المصممة بعضها ببعض .
لكي تصل الفكرة على أحسن فهم نقوم بأنشاء برنامج يحسب مساحة المستطيل
نقوم بأنشاء زر أم واحد أو مايعرف command من أجعل بداء العملية الحسابية و وثلات أدوات نص أو ما يعرف text من أجل أدخال الارقام و الثلاثة لاظهار النتيجةو ثلاث أدوات من العنوان أو ما يعرف بي Label
و الان نريد إنشاء واجهة كما في الرسم
http://www.ss-ksa.com/vb02.gif
ملاحظة:
لكي ليتم تغيير خصائص الادوات يتم حسب الطريقة التالية
لكي نغير عنوان الزر أو Command ننقر علية نقرة واحدة و من ثم نذهب الى أطار الخصائص المعنون
بي Properties ثم نبحث عن خاصية Caption ونغيرها الى أحسب
و من ثم نغير لكل من أدة text1 و text2 و text3 من خاصية text و نغير خاصية لكل من Label1 و Label2 و Label3 من خاصية Caption.
http://www.ss-ksa.com/vb03.gif
الان نذهب الى كاتية الكود البرمج ننقر على command1 فيظهر لنا شاشة الكود ويكون مكتوب فب الشاشة كما يلي
Private Sub Command1_Click()
End Sub
فكرة البرنامج
هو أن نضع رقم الطول في text1.text أي أداة النص الاولى خاصية النص
و أن نضع العرض في text2.text أي أدة النص الثانية خاصية النص
ويكون الناتج في text3.text أي أدة النص الثالثة خاصية النص
الطول*العرض= الناتج
يتم بداء تنفيذ البرنامج عند النقر على command1
text1.text*text2.text=text3.text
نكتب بي الكودين أي تحت السطر الاول على طول هذا الكود
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
والان مع شرح الكود البرمجي
كما قلنا يكون الناتج في text3.text
val= أثناء تعملنا مع الارقام يجب أستخدام هذة الخاصية
أما علامة * في للضرب وعلامة الجمع هي + وعلامة الطرح - وعلامة القسمة هي \ وعلامة الاصغر <وعلامة الاكبر> والاس أو القوة هي ^
الان بعد كتابة البرنامج ننقر على run ثم ننقر على star أو F5
مبروك أنشأة برنامج الاول
أرجو منك أن تتعرف على الادوات الاخرى في فيجول بيسك و خصائصها بنفسك مع طريق الرسم
و سوف نتحدث عن كل واحدة أنشاء الله بالتفصيل ببالرنامج خاص لكل واحدة
[line]
تعريف المتغيرات
المتغيرات هي عبارة عن قيمة أو قيم يتم تخزينها في الذاكرة و أتخذ قيمة معينة
و للمتغيرات تعربفات كثير
ولفهم المتغيرات أكثر يكون التالي
dim star as string
يقوم هنا بتعريف المتغير star لكي يكون متغير نصي أي لا يأخذ أي قيمه ما عدا النصي
وليس لانها نصي لا يأخذ الارقام لا بل يأخذ ما هو موجود على هيئة نصية أي لايمكن جمعها وأطرحها أو غيرها من العمليات الحسابية, وبأن ياخذ القيمة النصية يجب أن يكون حول علامتي تنصيص مثل
star="ss-ksa.com"
و هناك تعريفات كثيرة أنظر الصورة
http://www.ss-ksa.com/vb01.gif
من الافضل لك حفظ الجدول السابق
integar مثل 34
عدد صحيح اي لوضع ارقام داخل المتغير من نوع integar
long مثل 15200000
عدد صحيح طوبل اي لوضع أرقام كبيرة دخال المتغير
single
عدد عشري مثل 13.44
double مثل 3.14123344
عدد عشري مضاعف للرقام العشرية الكبيرة
Currency مثل 34
العملة لاخذ قيمة عملة معينة
boolean
منطقي وهذا التعريف يتضمن نوعين من المتغيرات فقط وهما true أو False أي تحقق أو لم يتحقق
حيث True = تحقق و False =لم يتحقق
date
وهو للتعريف عن متغير يحتوي على تاريخ مثل 3-5-99
قد يكون ما في الاعلى مبهم بعض الشي لاكن مع الامثلة بأذن الله كل شي يكون معلوم
مثال للتوضيح
سوف أشرح في هذا المثال تعريف Integar
أنشاء كما في الصورة
http://www.ss-ksa.com/vb02.gif
وأنقر على command للذهاب الى شاشة الكود
ملاحظة : يمكنك الذاهب الى شاشة الكود عن طريق view ثم أنقر على code
ثم أكتب الكود التالي:
Private Sub Command1_Click()
Dim star As Integer
Dim star2 As Integer
star = Text1.Text
star2 = Text2.Text
Text3.Text = star * star2
End Sub
[line]
التحكم في سير البرنامج
أستخدام شرط if
جملة if لا يستغني عنها أي مبرمج ليس في فيجول بيسك فقط بل في جميع اللغات علية المستوى أمثال
c أو ++c او php أو asp او java وغيرها الكثير
و if تعتبر أكثر العبارات أستخدام في البرامج وهي تكتب في سطر أو عدة أسطر مثل
في سطر
If X > 0 Then Y = 0
If X > 0 Then Y = 0 Else Y = X
و في عدة أسطر
If X > 0 Then
Y = 0
End If
If M > 0 Then
T = 1
Else
T = -1
End If
و للتوضيح أكثر نكون هذا المثال أصنع كما في الشكل
http://ww.ss-ksa.com/vb04.gif
أذهب الى شاشة الكود وأكتب هذا الكود
صيغة أذا كان(if-then-endif)
Private Sub Command1_Click()
Dim x As Integer
x = Text1.Text
If x > 60 Then
text2.text="أنت كبير السن"
End If
End Sub
جرب البرنامج و تعرف أكثر ضع في المرة الاول رقم أضغر من الستين و في المرة الثاني ستين
وهناك طريقة أخرى أذاكان الشرط غير صحيح يقوم بتنفيذ أمر أخر وهو
صيغة أذا كان أو (if-then-else)
Private Sub Command1_Click()
Dim x As Integer
x = Text1.Text
If x > 60 Then
Text2.Text = "انت كبير السن"
Else
Text2.Text = "أنت لازلت في مقتبل العمر"
End If
End Sub
جرب البرنامج ضع في المرة الاول أصغر من ستين و في المرة الثانية أكبر من ستين .
صيغة أذا كان وإلا إذ (if-then-elseif)
Private Sub Command1_Click()
Dim x As Integer
x = Text1.Text
If x > 60 Then
Text2.Text = "انت كبير السن"
ElseIf x > 40 Then
Text2.Text = "لازلت في مقتبل العمر"
Else 'أذا لم يتحقق أي شرط من الشروط السابقة
Text2.Text = "لازلت شاب"
End If
End Sub
وانا تحت أي أستفسر أو تعليق ومشكورين والسلام
أخوكم المفضل
skaka@skaka.gawab.com
http://www.ss-ksa.com
لقد تم التحدث في الدرس الاول عن برنامج الفيجول بيسك وأهم خصائصة ويمكنك الذهاب للدرس الاومن http://www.vb4arab.com/vb/showthread.php?t=138
اليوم بصدد شرح البرمجة الاساسية للفيجول بيسك
بسم الله نبداء
أن طريقة العمل في برنامج فيجول بيسك أشبة ما تكون بالعمل على برنامج الرسام, و الذي قمت بشرحة سابقا , فمربع الأدوات في فيجول بيسك قريب من أدوات الرسام في برنامج الرسام , وأطار النموذج في فيجول بيسك قريب من منطقة الرسم , وهكذا نجد أن البرمجة بأستخدام فيجول بيسك ممتعة وشيقة ,فهي عبارة عن ربط تلك النماذج المصممة بعضها ببعض .
لكي تصل الفكرة على أحسن فهم نقوم بأنشاء برنامج يحسب مساحة المستطيل
نقوم بأنشاء زر أم واحد أو مايعرف command من أجعل بداء العملية الحسابية و وثلات أدوات نص أو ما يعرف text من أجل أدخال الارقام و الثلاثة لاظهار النتيجةو ثلاث أدوات من العنوان أو ما يعرف بي Label
و الان نريد إنشاء واجهة كما في الرسم
http://www.ss-ksa.com/vb02.gif
ملاحظة:
لكي ليتم تغيير خصائص الادوات يتم حسب الطريقة التالية
لكي نغير عنوان الزر أو Command ننقر علية نقرة واحدة و من ثم نذهب الى أطار الخصائص المعنون
بي Properties ثم نبحث عن خاصية Caption ونغيرها الى أحسب
و من ثم نغير لكل من أدة text1 و text2 و text3 من خاصية text و نغير خاصية لكل من Label1 و Label2 و Label3 من خاصية Caption.
http://www.ss-ksa.com/vb03.gif
الان نذهب الى كاتية الكود البرمج ننقر على command1 فيظهر لنا شاشة الكود ويكون مكتوب فب الشاشة كما يلي
Private Sub Command1_Click()
End Sub
فكرة البرنامج
هو أن نضع رقم الطول في text1.text أي أداة النص الاولى خاصية النص
و أن نضع العرض في text2.text أي أدة النص الثانية خاصية النص
ويكون الناتج في text3.text أي أدة النص الثالثة خاصية النص
الطول*العرض= الناتج
يتم بداء تنفيذ البرنامج عند النقر على command1
text1.text*text2.text=text3.text
نكتب بي الكودين أي تحت السطر الاول على طول هذا الكود
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
والان مع شرح الكود البرمجي
كما قلنا يكون الناتج في text3.text
val= أثناء تعملنا مع الارقام يجب أستخدام هذة الخاصية
أما علامة * في للضرب وعلامة الجمع هي + وعلامة الطرح - وعلامة القسمة هي \ وعلامة الاصغر <وعلامة الاكبر> والاس أو القوة هي ^
الان بعد كتابة البرنامج ننقر على run ثم ننقر على star أو F5
مبروك أنشأة برنامج الاول
أرجو منك أن تتعرف على الادوات الاخرى في فيجول بيسك و خصائصها بنفسك مع طريق الرسم
و سوف نتحدث عن كل واحدة أنشاء الله بالتفصيل ببالرنامج خاص لكل واحدة
[line]
تعريف المتغيرات
المتغيرات هي عبارة عن قيمة أو قيم يتم تخزينها في الذاكرة و أتخذ قيمة معينة
و للمتغيرات تعربفات كثير
ولفهم المتغيرات أكثر يكون التالي
dim star as string
يقوم هنا بتعريف المتغير star لكي يكون متغير نصي أي لا يأخذ أي قيمه ما عدا النصي
وليس لانها نصي لا يأخذ الارقام لا بل يأخذ ما هو موجود على هيئة نصية أي لايمكن جمعها وأطرحها أو غيرها من العمليات الحسابية, وبأن ياخذ القيمة النصية يجب أن يكون حول علامتي تنصيص مثل
star="ss-ksa.com"
و هناك تعريفات كثيرة أنظر الصورة
http://www.ss-ksa.com/vb01.gif
من الافضل لك حفظ الجدول السابق
integar مثل 34
عدد صحيح اي لوضع ارقام داخل المتغير من نوع integar
long مثل 15200000
عدد صحيح طوبل اي لوضع أرقام كبيرة دخال المتغير
single
عدد عشري مثل 13.44
double مثل 3.14123344
عدد عشري مضاعف للرقام العشرية الكبيرة
Currency مثل 34
العملة لاخذ قيمة عملة معينة
boolean
منطقي وهذا التعريف يتضمن نوعين من المتغيرات فقط وهما true أو False أي تحقق أو لم يتحقق
حيث True = تحقق و False =لم يتحقق
date
وهو للتعريف عن متغير يحتوي على تاريخ مثل 3-5-99
قد يكون ما في الاعلى مبهم بعض الشي لاكن مع الامثلة بأذن الله كل شي يكون معلوم
مثال للتوضيح
سوف أشرح في هذا المثال تعريف Integar
أنشاء كما في الصورة
http://www.ss-ksa.com/vb02.gif
وأنقر على command للذهاب الى شاشة الكود
ملاحظة : يمكنك الذاهب الى شاشة الكود عن طريق view ثم أنقر على code
ثم أكتب الكود التالي:
Private Sub Command1_Click()
Dim star As Integer
Dim star2 As Integer
star = Text1.Text
star2 = Text2.Text
Text3.Text = star * star2
End Sub
[line]
التحكم في سير البرنامج
أستخدام شرط if
جملة if لا يستغني عنها أي مبرمج ليس في فيجول بيسك فقط بل في جميع اللغات علية المستوى أمثال
c أو ++c او php أو asp او java وغيرها الكثير
و if تعتبر أكثر العبارات أستخدام في البرامج وهي تكتب في سطر أو عدة أسطر مثل
في سطر
If X > 0 Then Y = 0
If X > 0 Then Y = 0 Else Y = X
و في عدة أسطر
If X > 0 Then
Y = 0
End If
If M > 0 Then
T = 1
Else
T = -1
End If
و للتوضيح أكثر نكون هذا المثال أصنع كما في الشكل
http://ww.ss-ksa.com/vb04.gif
أذهب الى شاشة الكود وأكتب هذا الكود
صيغة أذا كان(if-then-endif)
Private Sub Command1_Click()
Dim x As Integer
x = Text1.Text
If x > 60 Then
text2.text="أنت كبير السن"
End If
End Sub
جرب البرنامج و تعرف أكثر ضع في المرة الاول رقم أضغر من الستين و في المرة الثاني ستين
وهناك طريقة أخرى أذاكان الشرط غير صحيح يقوم بتنفيذ أمر أخر وهو
صيغة أذا كان أو (if-then-else)
Private Sub Command1_Click()
Dim x As Integer
x = Text1.Text
If x > 60 Then
Text2.Text = "انت كبير السن"
Else
Text2.Text = "أنت لازلت في مقتبل العمر"
End If
End Sub
جرب البرنامج ضع في المرة الاول أصغر من ستين و في المرة الثانية أكبر من ستين .
صيغة أذا كان وإلا إذ (if-then-elseif)
Private Sub Command1_Click()
Dim x As Integer
x = Text1.Text
If x > 60 Then
Text2.Text = "انت كبير السن"
ElseIf x > 40 Then
Text2.Text = "لازلت في مقتبل العمر"
Else 'أذا لم يتحقق أي شرط من الشروط السابقة
Text2.Text = "لازلت شاب"
End If
End Sub
وانا تحت أي أستفسر أو تعليق ومشكورين والسلام
أخوكم المفضل
skaka@skaka.gawab.com
http://www.ss-ksa.com