المصفوفات في Visual Fox Pro

بدأه رافد22 في 11 أبريل 2014 · 8 رد · 1,113 مشاهدة · في قواعد بيانات Visual FoxPro

#111 أبريل 2014 في 11:11 صاحب الموضوع

المصفوفات

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

(LOCAL ARRAY arAnyName(3,4

(DIMENSION arAnyName(3,4

(DECLARE arAnyName(3,4

(PUBLIC ARRAY arAnyName(3,4

ايعاز تعريف المصفوفة

لتعريف مصفوفة نستخدم الايعاز التالي

Declare array_name (exp)

اذا كانت ذات بعد واحد

Declare array_name exp1,exp2

اذا كانت ذات بعدين

Declare array_name1 exp1, array_name2 exp2

اذا كانت لدينا اكثر من مصفوفة

Declare arra1(12), arra2 (5,2)

هنا تم تعريف مصفوفتين الاولى ذات بعد واحد والثانية ذات بعدين

ملاحظة/ هنا من الممكن كل موقع من مواقع المصفوفة ممكن ان يحتوي على نوع مختلف مثلا

Ex:

DIMENSION Arr(20)

Arr1(1)=14

?Arr(1)

Arr(2)="abcd"

?Arr(2)

بعض الكتابات منقولة لاعضاء المنتدى المحترم أتمنى المساعدة لاجابة على الاسئلة أدناه

مع شرح بسيط لكل ايعاز (امر ) لغرض استفادة الجميع .......

تقديري وأحترامي لكل المشاركين

1- اكتب برنامج باستخدام (FOR) لطباعة القطر الرئيسي (i==j) لمصفوفة ثنائية الابعاد (3،3) ؟

2- اكتب برنامج باستخدام (FOR) لطباعة القطر الثانوي( i+j=4 ) لمصفوفة ثنائية الابعاد (3،3) ؟

A₁₁ A₁₂ A₁₃

A₂₁ A₂₂ A₂₃

A₃₁ A₃₂ A₃₃

3- ما هو الامر لغرض مسح جميع كتابات نافذة الاوامر (Command Wondows) ؟

ولكم مني الكل الشكر والتقدير .

أسئلة في المصفوفات.pdf

تم تعديل هذه المشاركة بواسطة رافد22 في 11 أبريل 2014 في 11:20

#211 أبريل 2014 في 12:08

موضوع جميل جداً

عـــــــراقيٌ أنا

تجمع مبرمجي فيجوال فوكس برو الساحر

مواضيعي

مشاركاتي

#312 أبريل 2014 في 18:58

السلام عليكم

جميل جدا َ ان لانرى من المشاهدين الاعضاء الكرام اية مساهمة ولو بشيء بسيط والفائدة

عامة لكل ....

اكتب برنامج يقوم بطباعة عناصر مصفوفة ذات بعد واحد وتتألف من ثلاثة عناصر ؟

الطريقة الاولى :

clea

i=0

(declare a1(4

a1(1)=3

"a1(2)="abc

()a1(3)=date

for i=1 to 3

(a1(i?

Endfor

الطريقة الثانية

clear

(dimension a1(3

a1[1]=3

"a1[2]="ABC

()a1[3]=date

for each a1var in a1

a1var?

endfor

تم تعديل هذه المشاركة بواسطة رافد22 في 12 أبريل 2014 في 19:02

#412 أبريل 2014 في 19:06

lion iraq كتب:
موضوع جميل جداً

شكرا َ لكم كتابتكم لنا فخر تحياتي لكم ولكل الاعضاء

#512 أبريل 2014 في 19:23

اخي العزيز

في سوالك طباعه القطر الرئيسي والثانوي

هل تريد الاجابه من الاعضاء

وهل لديك الجواب او الحل ام لا

ان انتظر وحل السؤال قمت بحله بعد ان رايت مشاركتك الاخيرة

واعلم ان لا احد اصبح يعمل غي المصفوفات في لغة البرمجة

وهذا من رائي

تحياتي لك

عـــــــراقيٌ أنا

تجمع مبرمجي فيجوال فوكس برو الساحر

مواضيعي

مشاركاتي

#613 أبريل 2014 في 17:43

نعم استاذي العزيز

lion iraq

اريد الحل للسؤالين وأذا لديكم اية أفكار في عرض القيود ( الرقم - الاسم - العمر - ايشيء آخر )داخل المصفوفة ( للخلية الواحدة )

اكن شاكرا َ لكم

تحياتي لكم

استاذي الفاضل

#713 أبريل 2014 في 23:55

اخي العزيز

اليك فكرة بسيطة وان شاء الله مفهومة وحسب سوالك وشرطة

لاضهار او طباعة القطب الرئيسي والثانوي لمصفوفه 3×3

CLEAR
FOR I=1 TO 3
FOR J=1 TO 3
DIMENSION LION(I,J)
IF I=J
STORE ALLT("A"+ALLTRIM(STR(I))+ALLTRIM(STR(J))) TO LION(I,J)
?LION(I,J)
ENDIF
ENDFOR
ENDFOR 
?"***************"
FOR I=1 TO 3
FOR J=1 TO 3
DIMENSION LION(I,J)
IF I+J=4
STORE ALLT("A"+ALLTRIM(STR(I))+ALLTRIM(STR(J))) TO LION(I,J)
?LION(I,J)
ENDIF
ENDFOR
ENDFOR

واعلم ان مثل هذة الامور تكون اغلب الاحيان في لغات البرمجة مثل ++C

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

تحياتي لك وللجميع

program1.zip

عـــــــراقيٌ أنا

تجمع مبرمجي فيجوال فوكس برو الساحر

مواضيعي

مشاركاتي