[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
وتكتب الشفرة التالية
دبل كلك على ايقونة cmdExtentكود:CommonDialog1.DialogTitle = "Browse Map Document" CommonDialog1.Filter = "Map Documents (*.mxd)|*.mxd" CommonDialog1.ShowOpen MapControl1.LoadMxFile CommonDialog1.FileName
وتكتب الشفرة التالية
دبل كلك على ايقونة cmdZoominكود:MapControl1.Extent = MapControl1.FullExtent
وتكتب الشفرة التالية
دبل كلك على ايقونةcmdPanكود:MapControl1.MousePointer = esriPointerZoomIn
ونكتب الشفرة التالية
دبل كلك على ايقونةcmdMouseكود:MapControl1.MousePointer = esriPointerPan MapControl1.Pan
ونكتب الشفرة التالية
دبل كلك على ايقونة cmdPrinterكود:MapControl1.MousePointer = esriPointerDefault
ونكتب الشفرة التالية
دبل كلك على Mapcontrol1كود:CommonDialog2.ShowPrinter MapControl1.MousePointer = esriPointerHourglass
ونكتب الشفرة التالية
كود: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
إذا لم تظهر لك الادوات بالتأكيد سوف تظهر لك رسالة نتسخها وعرضها لنا
نأسف لتكرار الرد وذلك لوجود خطأ في تكرار الصورة حاولة تعديل الرد لاصلي لكن لم استطع
اخي العزيز بارك الله فيك لقد حملت نسخة خاصة من فيجوال بيسك و لقد طبقة عليها الخطوات السابقة إلا ان إخراج البرنامج في صورته النهائية لم اعرف كيف - طبعا السبب عائد الي مستوي المتدني في فيجوال بيسك - و ايضا الكودات التي وضعتها حاولت ان اجعلها تندمج مع الايقونات الظاهرة فلم انجح و لم استطع ان اظهر رموز الايقونات مع اني فتح محتوي الرموز الذي يكون تابع للبرنامج .
ارجو من الادارة ان تأخذ اقتراح الاخ ابراهيم ابو مريم وهو انشاء ملتقي يعني بالبرامج التي لا يستغني عنها في نظم المعلومات الجغرافية لإحداث التكامل بين برامج نظم المعلومات و البرامج التي تزيد من جودة المخرجات
و بارك الله فيك ياخ فهد المطلق
هلا اخوي محمد الحسن
اذا انتهيت من العمل يمكنك تشغيل البرنامج وتجريبه من خلال هذه الايقونهإلا ان إخراج البرنامج في صورته النهائية لم اعرف كيف
بخصوص وضع الرموز على الايقونات فهذي العمليه تجميلية وليس لها دخل في عمل البرنامج ولكن ضروريه لتسهيل التعامل مع الواجهةايضا الكودات التي وضعتها حاولت ان اجعلها تندمج مع الايقونات الظاهرة فلم انجح و لم استطع ان اظهر رموز الايقونات مع اني فتح محتوي الرموز الذي يكون تابع للبرنامج
ولكن انصحك في البداية تعامل مع ايقونة فتح ملف وجرب برنامجك ثم استمر على عمل كل ايقونه
اما طريقة وضع الاكواد ماعليك الا نسخ الكود الذي وضعته لكل ايقونه ثم تعمل دبل كلك على الايقونه المراده ولصق الكود فيها
بتوفيق لك