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

[فهد المطلق]

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

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

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

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

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




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

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




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

نضيف الأدوات المطلوبة في تصميم الواجهة وهي Mapcontrol و Microsoft Common Dialog Control من خلال النافذة التالية ويمكن الوصول إليها من خلال الضغط Ctrl+T]


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

نبدأ بتصميم الواجهة فنرسم Mapcontrol على الواجهة حسب الحجم الذي نريده ثم نضع أداتين من Microsoft Common Dialog Control وكما نضع ست أزرار CommandButton كما في الصورة التالية



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

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




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

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

commandButton2 = cmdExtent

commandButton3 = cmdZoomin

commandButton4 = cmdPan

commandButton5 = cmdMouse

commandButton6 = cmdPrinter

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





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

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

دبل كلك على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]





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


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

[محمد الحسن الطيب]

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

[فهد المطلق]

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

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



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

[محمد الحسن الطيب]

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

[فهد المطلق]

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

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

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

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




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



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

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

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

انتظر ردك

[فهد المطلق]

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

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

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

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




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



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

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

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

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

[علي عبد عباس العزاوي]

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

[محمد الحسن الطيب]

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

[فهد المطلق]

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

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

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

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

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

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

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

بتوفيق لك

[محمد الحسن الطيب]

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

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