درس تصميم واجهة برمجية تتفاعل مع خرائط نظم المعلومات الجغرافية

[align=center]~*¤ô§ô¤*~السلام عليكم ورحمة وبركاته~*¤ô§ô¤*~[/align]

هذا درس بسيط في تصميم واجهة برمجية تتفاعل مع خرائط نظم المعلومات الجغرافية ولقد استخدمت الفيجوال بيسك التطبيقي VBPالمرفق مع حزمة ArcGIS وذلك حتى اضمن ان معظم الاعضاء لديهم برنامج GIS ومن يريد استخدام الفجوال بيسكVB لا حرج في ذلك فلا يوجد فرق بينهما في هذا التطبيق

[align=center]ولأن نبدأ على بركة الله[/align]

المرحلة الأولى

طريقة الدخول الى الفجوال بيسك التطبيقي المرفق مع حزمة ArcGIS كما في الصورة التالية

http://www.gisclub.net/vb/images/upl...af7a20c05b.JPG


المرحلة الثانية

نضيف الواجهة البرمجية كما في الصورة التالية

http://www.gisclub.net/vb/images/upl...afa85ec36a.JPG


المرحلة الثالثة

نضيف الأدوات المطلوبة في تصميم الواجهة وهي Mapcontrol و Microsoft Common Dialog Control من خلال النافذة التالية ويمكن الوصول إليها من خلال الضغط Ctrl+T]
http://www.gisclub.net/vb/images/upl...afaba18eef.JPG

المرحلة الرابعة

نبدأ بتصميم الواجهة فنرسم Mapcontrol على الواجهة حسب الحجم الذي نريده ثم نضع أداتين من Microsoft Common Dialog Control وكما نضع ست أزرار CommandButton كما في الصورة التالية
http://www.gisclub.net/vb/images/upl...afb13d5cb1.JPG


المرحلة الخامسة

نقوم بتغير صور الايقونات كما في الصورة التالية

http://www.gisclub.net/vb/images/upl...afb4ecfcbe.JPG


المرحلة الخامسة

نقوم بتغير مسمى الايقونات
commandButton1 = cmdopenfile

commandButton2 = cmdExtent

commandButton3 = cmdZoomin

commandButton4 = cmdPan

commandButton5 = cmdMouse

commandButton6 = cmdPrinter

وتتم هذه العملية من خلال خاصية Name كما في الصورة التالية

http://www.gisclub.net/vb/images/upl...afb81f32d0.JPG



المرحلة السادسة

في هذه المرحلة نقوم بكتابة الاكواد البرمجية وتتم كالاتي

دبل كلك علىcmdopenfile
وتكتب الشفرة التالية

كود:

---

CommonDialog1.DialogTitle = "Browse Map Document"
  CommonDialog1.Filter = "Map Documents (*.mxd)|*.mxd"
  CommonDialog1.ShowOpen
 MapControl1.LoadMxFile CommonDialog1.FileName

---

دبل كلك على ايقونة cmdExtent
وتكتب الشفرة التالية

كود:

---

MapControl1.Extent = MapControl1.FullExtent

---

دبل كلك على ايقونة cmdZoomin
وتكتب الشفرة التالية

كود:

---

MapControl1.MousePointer = esriPointerZoomIn

---

دبل كلك على ايقونةcmdPan
ونكتب الشفرة التالية

كود:

---

MapControl1.MousePointer = esriPointerPan
MapControl1.Pan

---

دبل كلك على ايقونةcmdMouse
ونكتب الشفرة التالية

كود:

---

MapControl1.MousePointer = esriPointerDefault

---

دبل كلك على ايقونة cmdPrinter
ونكتب الشفرة التالية

كود:

---

CommonDialog2.ShowPrinter
MapControl1.MousePointer = esriPointerHourglass

---

دبل كلك على Mapcontrol1
ونكتب الشفرة التالية

كود:

---

If button = 1 Then
    MapControl1.Extent = MapControl1.TrackRectangle
  ElseIf button = 2 Then
    MapControl1.Pan
  End If

---

[align=center]والان تمتع ببرنامجك الجديد[/align]

http://www.gisclub.net/vb/images/upl...afbbad7b96.JPG



[align=center]نسعد بانتقاداتكم مع التصويب فلا تبخلوا علينا بها[/align]


[align=center]وأخيراً نسأل الاعضاء الدعاء [/align]

هذه المشكلة التي واجهتني ارجو المساعدة و لك جزيل الشكر

http://www.x66x.com/download/1528484b0b378e423.jpg

http://www.x66x.com/download/3618484b0b37bed41.jpg

هلا اخ محمد الحسن

ليس لديك مشكلة مادام حددت هاتين الاداتين كما وضحت لنا في هذه الصورة

http://www.x66x.com/download/3618484b0b37bed41.jpg

لم يبقى الا ان تضغط على OK وسوف تجدها امامك علىمربع أدوات الرسم

اخي فهد بارك الله فيك
لكن عندما استخدم ok لا يضاف أي شئ الي ادوات الرسم
ارجو ان لا اكون قد اثقلت عليك

هلا باخي محمد الحسن

لم تثقل علي بل أنا سعيد بهذه الاسئلة لانها دليل على انك تريد تطبيق الدرس وهذا هو الهدف الرئيسي من نشره

المهم سوف اعيد شرح إضافة هذه الادوات الى مربع أدوات الرسم

تابع الصورة الاولى


http://www.gisclub.net/vb/images/upl...c2cfc1227a.JPG

وهنا نحدد اداة mapcontrol

http://www.gisclub.net/vb/images/upl...c2cfc18bf0.JPG

سوف تظهر لك في الصندوق

كرر العمليه مع اداة Microsoft Common Dialog

إذا لم تظهر لك الادوات بالتأكيد سوف تظهر لك رسالة نتسخها وعرضها لنا

انتظر ردك

اخي العزيز فهد المطلك المحترم.حقيقة جهود اكثر من رائعة واسلوب جميل ومتقن في طرقة العرض .والله نحن بحاجة ماسة لمثل هذه التقنية الرائعة والابداع العملي كثر الله من امثالك اخي واتوقع منك المزيد من المشاركات ياعضو ياجديد يا اصيل

هلا باخي محمد الحسن

لم تثقل علي بل أنا سعيد بهذه الاسئلة لانها دليل على انك تريد تطبيق الدرس وهذا هو الهدف الرئيسي من نشره

المهم سوف اعيد شرح إضافة هذه الادوات الى مربع أدوات الرسم

تابع الصورة الاولى


http://www.gisclub.net/vb/images/upl...c2cfc1227a.JPG

وهنا نحدد اداة mapcontrol

http://www.gisclub.net/vb/images/upl...c4f7f8b426.JPG

سوف تظهر لك في الصندوق

كرر العمليه مع اداة Microsoft Common Dialog

إذا لم تظهر لك الادوات بالتأكيد سوف تظهر لك رسالة نتسخها وعرضها لنا

نأسف لتكرار الرد وذلك لوجود خطأ في تكرار الصورة حاولة تعديل الرد لاصلي لكن لم استطع

اخي العزيز بارك الله فيك لقد حملت نسخة خاصة من فيجوال بيسك و لقد طبقة عليها الخطوات السابقة إلا ان إخراج البرنامج في صورته النهائية لم اعرف كيف - طبعا السبب عائد الي مستوي المتدني في فيجوال بيسك - و ايضا الكودات التي وضعتها حاولت ان اجعلها تندمج مع الايقونات الظاهرة فلم انجح و لم استطع ان اظهر رموز الايقونات مع اني فتح محتوي الرموز الذي يكون تابع للبرنامج .
ارجو من الادارة ان تأخذ اقتراح الاخ ابراهيم ابو مريم وهو انشاء ملتقي يعني بالبرامج التي لا يستغني عنها في نظم المعلومات الجغرافية لإحداث التكامل بين برامج نظم المعلومات و البرامج التي تزيد من جودة المخرجات
و بارك الله فيك ياخ فهد المطلق

هلا اخوي محمد الحسن

اقتباس:

---

إلا ان إخراج البرنامج في صورته النهائية لم اعرف كيف

---

اذا انتهيت من العمل يمكنك تشغيل البرنامج وتجريبه من خلال هذه الايقونه

http://www.gisclub.net/vb/images/upl...d4c20dcc3e.JPG

اقتباس:

---

ايضا الكودات التي وضعتها حاولت ان اجعلها تندمج مع الايقونات الظاهرة فلم انجح و لم استطع ان اظهر رموز الايقونات مع اني فتح محتوي الرموز الذي يكون تابع للبرنامج

---

بخصوص وضع الرموز على الايقونات فهذي العمليه تجميلية وليس لها دخل في عمل البرنامج ولكن ضروريه لتسهيل التعامل مع الواجهة

ولكن انصحك في البداية تعامل مع ايقونة فتح ملف وجرب برنامجك ثم استمر على عمل كل ايقونه

اما طريقة وضع الاكواد ماعليك الا نسخ الكود الذي وضعته لكل ايقونه ثم تعمل دبل كلك على الايقونه المراده ولصق الكود فيها

بتوفيق لك

بسم الله الرحمن الرحيم
و الصلاة و السلام علي اشرف المرسلين سيدنا محمد وآله وصحبه و من تبعهم بإحسان الي يوم الدين

اخي براك الله فيك علي هذا التعاون , اخي العزيز كيف يمكن إضافة عدة امتدادات اخري و بارك الله فيك واليك صورة البرنامج

http://www.x66x.com/download/279484dac2a83bc8.jpg

اخي بارك الله فيك لم عرفت طريقة اخراج البرنامج بصورته النهائية و هي
MyFirstProgram.EXE من قائمة File
و بارك الله فيك علي هذا الدرس

بخصوص تغير صورة الايقونه

اولا تضغط على الزر ( الايقونه ) المراد تغير صورتها ضغطه واحده ثم تذهب الى خاصية Picture ( كما هو موضح في الصورة) وتضغط عليها تفتحلك نافذه حدد مسار مكان صور الايقونات ( كما هو موضح في الصورة) ثم ابحث عن الصورة المرادة وحددها واختر OK سوف تظهر لك الصوره على الايقونه

http://www.gisclub.net/vb/images/upl...afb4ecfcbe.JPG

ملاحظه هامه من الممكن اذا حددت مسار مكان الصورة المستهدفه لا تظهر كصور بل تظهر كتابه فعليك بهذه الحاله من أعلى النافذه اختار ( تابع الصورة)

http://www.gisclub.net/vb/images/upl...e971d45b82.JPG


اما بخصوص عمل ملف تنفيذي exe. فهذا يتم بالطريقة التالية

http://www.gisclub.net/vb/images/upl...e977139bd0.JPG


اما بخضوض تغير الامتدادات فهذا يتم من خلال الكود الاول الذي وضعته وهو فتح ملف

ماعليك الا تغير الامتداد mxl. بالامتداد الذي تريده

إن شاء الله تنهي مشروعك بكل جوده

وانا انتظر المنتج النهائي

بالتوفيق

السلام عليكم
والله الف شكر على هدا الدرس الرائع
استفدت منه كتير
الان بدى اربط vb بال geodatabase
كيف الطريقة
وشكرا

هلا اخت سلمى

لم افهم قصدك بهذا الربط

هل تريدين الاستعلام عن قاعدة البيانات الجغرافية من برنامجك

او تريدين تصميم هذه الواجهة من خلال برنامجك

لابد ان افهم قصدك حتى أرى كيف اقدر على مساعدتك

السلام عليكم
انا صممت الواجهة بالفجوال يسك واريد ان اربطها بالاتربيوت تيبل فى الارك ماب
يعنى اربط الجداول فى الفجوال بيسك مع الجيو داتا بيز
وشكرا

السلام عليكم
ايه يا جماعة مافى اى رد

على رسلك اخت سلمى

انتظري قليلا سوف اعمل لك مثال

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

أسف اخت سلمى على التأخر
بسبب ظروف weekend

الما بخصوص سألك عن الكود الخاض باحضار قاعدة البيانات هو

كود:

---

' Get the ITable from the geodatabase
  Dim pFact As IWorkspaceFactory
  Dim pWorkspace As IWorkspace
  Dim pFeatws As IFeatureWorkspace
  Dim pTable As ITable
  Set pFact = New ShapefileWorkspaceFactory
  Set pWorkspace = pFact.OpenFromFile("d:\tables81\testing", 0)
  Set pFeatws = pWorkspace
  Set pTable = pFeatws.OpenTable("demog")
 
  ' add the table
  Add_Table_TOC pTable

---

ولكن يتوجب عليك تغير مسار الملف ووضع المسار الموجود فيه قاعدتك وكذلك تغير اسم demog ووضع اسم الظاهرة المراد الاستعلام عنها
والهم من هذا وذك يجب عليك البحث عن ملف النظام من خلال References

وهذا رابط مثال عن الاستعلام عن قواعد البيانات

http://www.4shared.com/file/51236395...d/_online.html


وبالله التوفيق

هلا اخي محمد الحسن

المهم انك طبق هذا الدرس واستفدت

وانا موجود اذا احتجت إلي

السلام عليكم
والله الف شكر ليك اخى
وربنا يجعله فى ميزان حسناتك

وشكراااااااااااااااااااااااااااااااااا

اخي فهد المطلق لك مني كل الشكر والتقدير على شرحك ومجهودك الكريم

واتمنى ان تخبري كيف بامكاني ان اقوم باضافة اللير باختيارها واضاءتها باشارة صح عليها وكيف يمكن الاستعلام بالضغط على الموقع الموجود على الخريطة

كل ذلك على الفيجوال بيزك واذا كان لديك المزيد من الشروحات ارجو ان توافينا فيها

جزاك الله كل خير

هلا اخت سلمى

لم اعمل شي هذا واجبي اتجاه اخواني اعضاء نادي نظم المعلومات الجغرافية

فياما قدموا لي الكثير

بالتوفيق للجميع

هلا اخوي خميس الاحمد

هذا مثال عملته لك لعله يصيب الهدف الذي تقصده
وهو مفتوح السورس ( المصدر) حتى تستفيد من الاكود المكتوبه

http://www.4shared.com/file/51428556...load_Data.html
واذا لم يعمل معك هذا المثال فيجب عليك البحث عن ملف النظام من خلال خاصية References اذا لم تعرف اضافة هذه الملفات أخبرني حتى اكتبها لك


أما بخصوص الشروحات

فأرشدك الى هذا الموقع المتخصص في برمجة ArcGIS

http://edndoc.esri.com/arcobjects/8....erySamples.asp

وهذا كتاب صغير سوف تستفيد منه إن شاء الله

http://edndoc.esri.com/arcobjects/8....MapControl.pdf

شكرا جزيلا لك اخي فهد المطلق بصدق تشكر على ردك وملفاتك

بالنسبة للمثال اشتغل عندي ولكن عندما اضيف لير فان الجداول الخاصة به في خانة الفيلد لا تظهر


واكرر شكري لك على الكتاب والمثال والموقع

ولى عودة ان شاء الله

مرحبا اخوي خميس

لا شكر على واجب

حمل الملف مره أخرى تم تعديل الخطأ

http://www.4shared.com/file/51552790...load_Data.html

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

هلا اخوي اشرف عزت

حسب علمي ليس هناك فرق بين برنامج ArcOpject و Visual Basic ولكن البرنامج الاول الذي تمتلكه هو أقوى في برمجة ArcGIS ويمكنك استخدام ادوات نظم المعلومات الجغرافية بكل فاعليه

وأنا استخدم الفيجوال بيسك 6 في البرمجة ولم استخدم ArcObject لاني لا أمتلك هذا البرنامج

وأتمنى منك رفع لي هذا البرنامج (ArcObject) حتى أرى كيف أعمل لكم درس تطبيقي عليه مثل هذا الدرس.

أما بخصوص

اقتباس:

---

اتمنى ان تزودنا مما علمك الله

---

أنا الان في مرحلة التعلم ولم أصل الى مرحلة خبير ونحن نكمل بعضنا ولقد رفعت كتاب و ارفقت موقع اكتروني للاخ خميس الاحمد في الأعلى ممكن تستفيد منها

وإذا عندك سؤال معين أو طلب معين ويكون في حدود علمي سوف أقدمه إليك بصدراً رحب

الى لقاء

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

مع السلامة

أخي فهد المطلق
ArcObject ليس برنامج، بل هو Component ,انت تستخدمه فعلا عندما تستخدم الـ MapControl :) وهذا ما استخدمته أنت نفسك في المثال الذي قدمته :)

هلا اخي مختار

لالالا ترفع الملف فيقوم بحضرك لا سمح الله وانت غالي علينا

واذا لابد من ذلك فيوجد اختراع اسمه البريد الاكتروني ههههههههههههه

هلا اخي د. وسام محمد

أسعدتني مشاركتك

اقتباس:

---

ArcObject ليس برنامج،

---

هذه معلومه جيده وستفدته منها


لكن اقول اذا لم يكن برنامج فهو رخصة تمكنك من استخدام الأدوات البرمجه الموجوده داخل ArcGIS لان هناك ادوات لا استطيع استخدامها فبمجرد اضافتها على الواجهة البرمجية تظهر لي رسالة تحذيرية واذا تجاهلت هذه الرسالة ينطفئ البرنامج فجأه

أنا اعلم ان هناك مكونات هدفية داخل برنامج نظم المعلومات الجغرافية ولكن هذه المكونات ليست متاحة كلها امام المبرمج بل تحتاج رخصة .

هذا تصوري عن ( برنامج) أو (مكون) ArcObject

والله اعلم

واكون لك شاكرا اذا صوبت تصوري اذا كان خاطئ

اقتباس:

---

المشاركة الأصلية كتبت بواسطة فهد المطلق

مرحبا اخوي خميس

لا شكر على واجب

حمل الملف مره أخرى تم تعديل الخطأ

http://www.4shared.com/file/51552790...load_Data.html

---

السلام عليكم
الرابط ما بيعمل
بليز ارفعه من تانى



وشكرااااااااااااااااااااااااااااااا

الأخت سلمى العزيزة

لا أدرى ان اختلطت لدى الأمور أم لا

لو تقصدين عدم قدرتك على تحميل الملف

رفعت لحضرتك الملف مرة أخرى برابط مباشر على ميلى الشخصى

فط save target as

http://arabgeographers.googlepages.com/2loadData.zip

ربنا يكرمك

وبالتوفيق

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

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

آآآآآسفة للاطالة
وشكررااا

شكرا اخوي مختار على هذا التعاون

هلا اخت سلمى

بخصوص الطلب الاول جربي هذا الكود

كود:

---

Dim point As IPoint
point = MapControl1.ToMapPoint(x, y)
Label1Caption = "X:  " & Format(x, "#0.0000")
Label2.Caption = "Y:  " & Format(y, "#0.0000")

---

اما بخصوص الطلب الثاني

هل جربتي المثال الذي عملته ورفعه لك اخوي مختار مره اخر ربما يفي بالغرض

تعيش الأيادي يا فهد،
المرخصة ليست في رخصة ArcObject، المشكلة أنك تحتاج رخصة ArcGIS Develper :) وهي بالمناسبة رخصية السعر نحو ستة وعشرين ألف دولار للنسخة الكاملة التي تقبل الـ .NET والجافا :)

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

وبارك الله فيكم جميعا

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

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


اولا انا قمت بعمل تلك الخطوات التى قمت بشرحها وفى الحقيقة حضرتك حلتلى بعض المشاكل التى التى كانت تواجهنى عندما كنت اقوم بعمل مماثل
وايضا وجدت انة فى مفتاح pan و بيعمل pan فى الاول بس وبعد ذالك يتحول الى مفتاح zoom
وكذالك مفتاح السهم ولم اجد حل فيهم

واردت ان اسال على arc object وكيفية الحصول علية وتسطيبة مع الارك لكى يساعدنى فى تنفيذ بعض المهمات فى البرنامج وايضا يوجد بعض الادوات التى اريد استخدامها ولكن تظهر لى رسالة تطلب منى ان احصل على رخصة من شركة ازرى licence رغم انى مسطب الارك جى اى اس 9 والرخصة الخاصة بية licence
ايضا احتاج الى مكتبة فى الفيجوال بيسك تسمى esri object library وهى المفروض ان توجد فى refranceداخل الفيجوال بيسك ولم اجدها وكل هذا المشاكل تقف فى مشروعى ولم اسطتيع حلها واهمها هى arc object لا اعرف كيفية الحصول علية او كيفية تسطيبة مع ArcGis

وانا اسف جدا للاطالة والله يكون فى العون
والسلام عليكم ورحمة الله وبركاتة فى انتظار ردك وهذا ايميلى للتعاون باذن الله kaber_gamal@yahoo.com