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

[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