-
في هذا المثال سوف نتعلم كيفية إدخال البيانات
لعدد من المشتركين بإدخال اسماءهم وهواتفهم
وقيمة الفاتورة وإخراج المجموع الكلي والمتوسط
مع استخدام حلقةFOR.
الخطوات:
1-شغل VB
2-نوع المشروع stantard.exe
3-من قائمة الادواتTools سنستخدم الاتي:
*خمسة Label
*ثلاثةPicture
*اثنانComannd
*اثنانText
------------
4-سيكون وضعها على Form كالتالي:
Comaan1
Label3-----Label2-----Label1
Pictuer3--Picture2--Picture1
text1--Label3
Text2--Label5
Comannd2
-----------------------------------------
--------------داخلCaption:
C1 ادخال البيانات
L1 اسم المشترك
L2 رقم هاتف المشترك
L3 قيمة فاتورة المشترك
P1,2,3 عبارة مستطيل فارغ منسدل للأسفل
L4 المجموع
L5 المتوسط
T1,2 مربع نص فارغ
C2 إغلاق البرنامج
-----أنظر الشكل التالي:
ادخال البيانات
----------اسم المشترك---رقم هاتف المشترك---قيمة فاتورة المشترك
----------مربع فارغ منسدل للأسفل--كالسابق--------كالسابق
المجموع---نص فارغ
المتوسط---نص فارغ
اغلاق البرنامج
-------------------
5-كتابة الشفرة:
سيكون كتابة الشفرة من نصيب Comannd1 ادخال البيانات
وC2 إغلاق البرنامج.
%Dim_ n%,nam$(100),tel(100),num(100),t,m!,i
("ادخل عدد المشتركين")n%=inputbox
For_i= 1_to_n
("ادخل اسم المشترك")nam$(i)=inputbox
(picture1.print_nam$(i
("ادخل رقم هاتف المشترك")tel(i)=inputbox
(picture2.print_tel(i
("ادخل قيمة الفاتورة")num(i)=inputbox
(picture3.print_num(i
(t=t+num(i
Next_i
Text1=t
m!=t/n
!Text2=m
------------------------------
شفرة الإغلاقC2
End
------------------------------
*ملاحظة (_) عبارة عن فراغ
وارجو لي ولكم التوفيق إن شاء الله؛؛؛
-
أخوي مجتهد تبغاني أسوي الدرس على صفحة ومدعوم بالصور وإلا لا
------------------
أن التقنيات ليس ثابتة أو منتهية والتلميذ الذي يتعلم مجموعة من المهارات الميكانيكية فقط سرعان مايجد نفسه متخلفا في عالم متغير أما الشخص الذي يتعلم الأساسيات وطرق الإبداع الفكري فإنه يستطيع أن ينمو ويساير الزمن
-
درس حلو وممتع
-
أخوي حمود ومحيميد سوي ولاتشاور
وشكرا لك HOME
-
أخوي مجتهد أشكر جهودك ، بس أعتقد إنك نسيت تكتب t=0 قبل ال for و إلا كانت نتيجة المجموع و المتوسط خاطئة..
-
أخوي نيسان البرنامج خطواته صحيحه لكن المشكلة في أمكانياته
وهي ادخال الارقام في مربعى رقم الهاتف وقيمة الفاتورة
فأنصحك بعدم إدخال أكثر من ثلاثة أرقام في كلا المربعين
وستجد النتيجة ممتازه،
وإن شاء الله سأقوم بمعالجته في المستفبل
وياليت توضح ماذا تقصد t=0 فبل Form
-
أخوي مجتهد أعتقد أن في البرنامج خطا وهو picture لا يوجد له caption
------------------
أن التقنيات ليس ثابتة أو منتهية والتلميذ الذي يتعلم مجموعة من المهارات الميكانيكية فقط سرعان مايجد نفسه متخلفا في عالم متغير أما الشخص الذي يتعلم الأساسيات وطرق الإبداع الفكري فإنه يستطيع أن ينمو ويساير الزمن
-
كلام نيسان صحيح لا بد من تصفير (Initialize) أي متغير . تخيل ماذا سيحتوي المتغير t قبل جمع أول عدد (قبل بدايه الدوره Loop ) . يمكن أن يحتوي أي عدد ، وبالتالي سيبدأ البرنامج جمع الأعداد على القيمة الموجودة أصلا .
أنا لا أعمل على VB وربما تقوم هذه اللغة بتصفير المتغيرات أوتوماتيكيا ، ولكن هذه العادة البرمجية غير صحيحه ، يجب تصفير المتغيرات قبل إستخدامها (ولو إحتياطا) .
ضوابط المشاركة
- لا تستطيع إضافة مواضيع جديدة
- لا تستطيع الرد على المواضيع
- لا تستطيع إرفاق ملفات
- لا تستطيع تعديل مشاركاتك
-
قوانين المنتدى
أضف موقعك هنا |
اضافة محتوى فريد لموقعك
