tajmh.all-forum.net
أهلا وسهلا بزائرتنا الكريمة , وبزائرنا الكريم في منتدى التجمع من اجل الديمقراطية والوحدة في سوريا

نرجو التسجيل في المنتدى لغير المسجلين والدخول والمشاركة المفيدة البناءة ..وشكرا

إدارة المنتدى
المواضيع الأخيرة
» هم اذكياء بالفطرة
29/7/2017, 11:29 am من طرف جبران جمول

» متى ستصحو وزارتي التربية والتعليم العالي
8/7/2017, 5:33 pm من طرف جبران جمول

»  قليلا من الصدق يا محللين
2/7/2017, 7:29 pm من طرف جبران جمول

» امريكا وطبيعة المفاهيم والعقائد السائدة
28/6/2017, 7:59 am من طرف جبران جمول

» فلم خيالي من الواقع
7/6/2017, 4:02 pm من طرف جبران جمول

» مناهجنا
5/6/2017, 8:30 pm من طرف جبران جمول

» اللعب عالمكشوف ... لمن يملك الطرنيب
7/10/2016, 11:43 am من طرف الأمين العام

» خبير أمريكي: "الرواية الرسمية لعمليات سبتمبر الإرهابية مزيفة
13/9/2016, 9:33 am من طرف جبران جمول

» ماذا عن الاله بعل بعض المعلومات
6/8/2016, 12:20 pm من طرف جبران جمول

» سلمية تحارب بالكهرباء بالمياه
12/7/2016, 7:27 pm من طرف جبران جمول

» أسئلة برسم الفقهاء والعلماء فهل من مجيب
12/7/2016, 7:13 pm من طرف جبران جمول

» متى نبتعد عن السلفية في افكارنا .؟
8/7/2016, 11:12 am من طرف جبران جمول

» مبروك لقطر مبروك للخليج
5/8/2015, 6:58 pm من طرف الأمين العام

» ممثل الرئيس في سلمية لحل الأزمة
16/7/2015, 11:07 pm من طرف الأمين العام

» عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
12/7/2015, 8:24 pm من طرف الأمين العام

اللعب عالمكشوف ... لمن يملك الطرنيب

7/10/2016, 11:43 am من طرف الأمين العام

اللعب عالمكشوف ... لمن يملك الطرنيب


بعد ست سنوات من الحرب الطاحنة و التخفي لكل دولة وراء الدعم المقدم لقوى تدعي الحرية اتخذت من الدين سبيلا و أبعدت كل ذي حق كان عن حقه و ذهبت به إلى حيث الإهمال و …

تعاليق: 0

مبروك لقطر مبروك للخليج

5/8/2015, 6:58 pm من طرف الأمين العام

مبروك لقطر مبروك للخليج ....

من كأس النخوة التفخيخية و الهيجان العاهر اشربوا ....
من كأس الحقد و السقاطة و التآمر العربانـي انهلـوا ....

الجيش الحر القطري يعلن عن عزمه لاسقاط الحكم الدكتاتوري …

تعاليق: 0

ممثل الرئيس في سلمية لحل الأزمة

16/7/2015, 11:07 pm من طرف الأمين العام



تعاليق: 0

عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .

12/7/2015, 8:24 pm من طرف الأمين العام

عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
سلمية الأمان سلمية المحبة هناك من يحاول إثارة فتيل الفتنة و الخراب لهذه المدينة نرجو الحذر الشديد ..
عدة نقاط الرجاء الانتباه إليها بدقة واهتمام شديد و …

تعاليق: 0

ماذا بعد يا صاحب القرار

9/7/2015, 9:41 pm من طرف الأمين العام

ماذا بعد يا صاحب القرار .....
هاهو التلفزيون السوري الرسمي  يفصحُ بما عجزَ عنه الناس  .. ويفضحُ بما لا يقبل الشك عمليات الخطف و القتل والإرهاب الممهنج التي تقوم به أطرافٌ محسوبةٌ على الدولة  همّها …

تعاليق: 0

الشعب يتساءل ......

7/7/2015, 9:54 pm من طرف الأمين العام

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

تعاليق: 0


المجموعةالثالثة فيجوال

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

المجموعةالثالثة فيجوال

مُساهمة  Admin في 7/4/2007, 6:31 pm

إن جميع الأمثلة التي مرت معنا سابقاً تحتوي على متحولات محدودة البعد سواءً في المطيات أو النتائج.
ولكن ماذا لو كانت المعطيات متعددة: مجموعة من الموظفين أو الطلاب أو إحداثيات نقاط أو..... وكانت العدد الكلي لهذه المجموعة يساوي n, وماذا لو كان المطلوب راتب كل موظف، معدل كل طالب أو بعد كل قرية عن مركز المدينة أو.....
في هذه الأحوال لابد من استخدام الشبكات (جداول )،(مصفوفات).
إن الأداة التي نحتاجها هي MSFlextGrid، وهذه الأداة غير موجودة ضمن نافذة الأدوات إنما يتم استحضارها من المخزن الأساسي للمكونات.
يتم فتح هذا المخزن (components) بعدة طرق:
- Ctrl + T.
- من زر الماوس الأيمن فوق نافذة الأدوات واختيار .components
- من القائمة Project.
نختار من الصندوق الناتج Microsoft flexGrid Control 5.0 كما في الشكل التالي:

وبهذه الطريقة يتم تحميل الأداة Grid ضمن نافذة الأدوات




بعض خواص الأداة Grid :
- تتميز كل مصفوفة بعدد من الأسطر وعدد من الأعمدة، ومن البديهي فإن عدد الخلايا المشكلة مساوياً لجداء عدد الأعمدة بعدد الأسطر.
- تعرف كل خلية برقم سطرها و عمودها حيث أن الأرقام تبدأ من الصفر.
- لكل مصفوفة سطر وعمود ثابتين يتميزان عن باقي الأعمدة و الأسطر وتفيد في كتابة عناوين للأعمدة والأسطر الباقية، ومن الممكن حذف السطر الثابت أو العمود أو الاثنين معاً عند عدم الحاجة أو الرغبة في وجودهما.
- إن إمكانية تغيير عدد الأعمدة والأسطر أثناء تنفيذ البرنامج تدعى الملائمة، وتتم من خلال برنامج جزئي(كما سنرى في الأمثلة القادمة).
- من المفضل تغيير الاسم البرمجي للأداة من الخاصية Name.
- لا يمكن إدخال القيم إلى المصفوفة بشكل مباشر (كما في الأداة text) وإنما نحتاج لبرنامج جزئي من أجل تنفيذ عملية الإدخال، ويوجد عدد أساليب لوضع هذا البرنامج(سنراها في الأمثلة القادمة).
حلقة for:
الشكل النظري:
For I=n1 To n2 Step n3
……
Next I
أي أن القيمة I تزداد من n1 وحتى n2 بخطوة مقدارها n3، وكلما وصلنا إلى السطر الأخير نعود إلى السطر الأول حتى تصبح قيمة I مساوية للقيمة n2 فيتم الخروج من الحلقة.
مثال:
لو أردنا حساب مجموعة أعداد متسلسلة عددها n نكتب الحلقة كما يلي:
For I=1 to n step 1
S=S+I
Next I
ملاحظة: إن القيمة الافتراضية لــ n3 هي (1) ولذلك لا حاجة لكتابة Step 1
وفي المثال التالي سنرى كيفية استخدام هذه الحلق في ترقيم عمود.


مثال8:
ليكن لدينا n طالب ولدينا على سبيل المثال ثلاث مواد( تصميم , رياضيات, رسم) والمطلوب وضع برنامج بلغة V.B لتنفيذ ما يلي:
1- بتحميل البرنامج يتم كتابة عناوين الخلايا.
2- برنامج جزئي لملاءمة عدد الطلاب.
3- بالنقر على المصفوفة يتم إصدار صندوق إدخال لملء عناصر المصفوفة.
4- بالنقر على زر خروج يتم إغلاق البرنامج

Private Sub Form_Load()
grid1.TextMatrix(0, 0) = "الرقم"
grid1.TextMatrix(0, 1) = "الاسم"
grid1.TextMatrix(0, 2) = "رياضيات"
grid1.TextMatrix(0, 3) = "تصميم"
grid1.TextMatrix(0, 4) = "رسم"
End Sub

Private Sub grid1_Click()
grid1.Text = InputBox("input box", "صندوق إدخال")
End Sub

Private Sub txtn_Change()
n = Val(txtn.Text)
grid1.Rows = n + 1
For i = 1 To n
grid1.TextMatrix(i, 0) = i
Next i
End Sub
Private Sub Command1_Click()
End
End Sub

الأشعة
الشعاع: هو عبارة عن مصفوفة وحيدة البعد، ويتميز الشعاع بعدد عناصره، فمثلاً X(n) يعني أن الشعاع X عدد عناصره n، وكل عنصر من هذا الشعاع يتميز برقم بين (1-n)، فمثلاً X(1)، X(3)....
حجز الأشعة
استخدمنا في حجز الخلايا العبارة Dim أما في حجز الأشعة فنستخدم العبارة Redim ونستخدم الفاصلة للفصل بين الأشعة.
مثال9: لنأخذ تمرين على كيفية قراءة شعاع من مصفوفة.

Private Sub Command1_Click()
n = Val(Text1.Text)
ReDim x(n), y(n)
For i = 1 To n
x(i) = g1.TextMatrix(i, 1)
y(i) = Val(g1.TextMatrix(i, 2))
Next i
End Sub

Private Sub Form_Load()
g1.TextMatrix(0, 0) = "الرقم"
g1.TextMatrix(0, 1) = "الاسم"
g1.TextMatrix(0, 2) = "العلامة"
End Sub

Private Sub g1_Click()
g1.Text = ""
End Sub

Private Sub g1_KeyPress(KeyAscii As Integer)
g1.Text = g1.Text + Chr(KeyAscii)
End Sub

Private Sub Text1_Change()
n = Val(Text1.Text)
g1.Rows = n + 1
For i = 1 To n
g1.TextMatrix(i, 0) = i
Next i
End Sub

ملاحظات:
1- من النظر للرقمين 1،2 نلاحظ أن لحجز سلسلة حرفية لا نستخدم التعبير Val أما في حال السلاسل الرقمية فيجب استخدامه.
2- نلاحظ من الرقم 3 أسلوب ثاني لعملية ملء المصفوفة( حيث يتم استخدام لوحة المفاتيح للكتابة واستخدام الأسهم (حصرياً) للتنقل بين الخلايا (أي لا يمكن استخدام مفتاح (Enter))، ومن أجل مسح محتوى خلية نستخدم زر الماوس الأيسر (ولا يمكن استخدام زري Delete، ).
3- أصبح لدينا شعاعين (X(n),y(n)) يمكن أن نجري عليهما جميع العمليات اللازمة.
4- إن عملية ملء المصفوفة وقراءة الأشعة وعملية الملاءمة هي عمليات لازمة في كل مسألة حتى ولو لم يذكر ذلك صراحة.
5- انظر للسطر الأول في كل برنامج جزئي ولاحظ الكلمة بعد الواصلة السفلية (_): هذه الكلمة تدعى الحدث(Event): وهو القائد العام للبرنامج الجزئي يقوم بتوجيه الأوامر الموجودة ضمن البرنامج من أجل تنفيذها، ولكل أداة مجموعة من الأحداث يمكن أن نحصل عليها في نافذة الكود من القائمة المسدلة أعلى النافذة. وفيما يلي شرح مبسط مجموعة من الأحداث:
الحدث Event معنــــــــــــــــــــــــــــاه
Click نقر الفارة مرة واحدة على سطح العنصر
Dclick نقر الفارة مرتين على سطح العنصر
Change تغير قيمة النص الذي يحمله صندوق النص
MouseDown ضغط أحد أزرار الفارة للأسفل (يمكن التمييز أيضاً بين الزر اليساري أو اليميني)
MouseMove تحريك مؤشر الفارة على سطح العنصر
MouseUp تحرير أحد أزرار الفارة بعد أن كان مضغوطاً
KeyDown ضغط أحد مفاتيح لوحة المفاتيح عندما يكون الصندوق مهيأ لاستقبال الإدخال
Keypress عملية ضغط أحد المفاتيح في لوحة المفاتيح أثناء إدخال البيانات داخل الصندوق
KeyUP تحرير أحد مفاتيح لوحة المفاتيح بعد أن كان مخفوضاً

Admin
Admin

عدد الرسائل : 34
تاريخ التسجيل : 26/03/2007

http://tajmh.all-forum.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى