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

[فهد المطلق]

~*¤ô§ô¤*~السلام عليكم ورحمة وبركاته~*¤ô§ô¤*~

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

ولأن نبدأ على بركة الله

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

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

http://www.gisclub.net/vb/images/uploads/3079_31516484af7a20c05b.JPG


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

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

http://www.gisclub.net/vb/images/uploads/3079_21842484afa85ec36a.JPG


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

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

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

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


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

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

http://www.gisclub.net/vb/images/uploads/3079_16086484afb4ecfcbe.JPG


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

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

commandButton2 = cmdExtent

commandButton3 = cmdZoomin

commandButton4 = cmdPan

commandButton5 = cmdMouse

commandButton6 = cmdPrinter

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

http://www.gisclub.net/vb/images/uploads/3079_16333484afb81f32d0.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


والان تمتع ببرنامجك الجديد

http://www.gisclub.net/vb/images/uploads/3079_16333484afbbad7b96.JPG



نسعد بانتقاداتكم مع التصويب فلا تبخلوا علينا بها


وأخيراً نسأل الاعضاء الدعاء

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

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

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

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

[فهد المطلق]

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

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

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

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

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

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

[فهد المطلق]

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

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

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

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


http://www.gisclub.net/vb/images/uploads/3079_15454484c2cfc1227a.JPG

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

http://www.gisclub.net/vb/images/uploads/3079_15454484c2cfc18bf0.JPG

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

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

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

انتظر ردك

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

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

[فهد المطلق]

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

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

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

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


http://www.gisclub.net/vb/images/uploads/3079_15454484c2cfc1227a.JPG

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

http://www.gisclub.net/vb/images/uploads/3079_19627484c4f7f8b426.JPG

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

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

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

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

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

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

[فهد المطلق]

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


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

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

http://www.gisclub.net/vb/images/uploads/3079_4360484d4c20dcc3e.JPG


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

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

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

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

بتوفيق لك

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

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

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

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

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

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

[فهد المطلق]

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

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

http://www.gisclub.net/vb/images/uploads/3079_16086484afb4ecfcbe.JPG

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

http://www.gisclub.net/vb/images/uploads/3079_4671484e971d45b82.JPG


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

http://www.gisclub.net/vb/images/uploads/3079_19311484e977139bd0.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/3380f23d/_online.html


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

[فهد المطلق]

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

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

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

[سلمى الحسين]

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

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

[خميس الاحمدي]

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

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

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

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

[فهد المطلق]

هلا اخت سلمى

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

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

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

[فهد المطلق]

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

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

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


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

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

http://edndoc.esri.com/arcobjects/8.3/default.asp?url=/arcobjects/8.3/Samples/QuerySamples.asp

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

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

[خميس الاحمدي]

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

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


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

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

[فهد المطلق]

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

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

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

http://www.4shared.com/file/51552790/59c4fc21/_2__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/59c4fc21/_2__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

[محمد جمال]

السلام عليكم ورحمة الله وبركاتة
اخى العزيز من الواضح ان المشكلات التى واجهتك هى نفسها التى واجهتنى اثناء عملى كالرخصة
وايضا arcobject
انا لم اجد الحل
اذا كان لاحد الاعضاء اى حل يكون قد ساعدنا كثيرا
اخى فهد: ارجوا من حضرتك اضافة ايميلى لانى اريد ان استفسر عن بعض الاشياء والمشاكل وهو kaber_gamal@yahoo.com
وشكرا مرة ثانية على مجهوداتك وفتح مجال البرمجة فى نظم المعلومات الجغرافية
والسلام عليكم ورحمة الله

[سلمى الحسين]

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



السلام عليكم
والله مشكور كتييييييييييييير اخى فهد
طبعا انا حملت الملف
بس لنا ما فهمت شئ فى الكود
ولما عمل تنفيذ يعطينى
User-defind type not defind
والمشكله هى فى الجزء
As IAoInitialize



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

[محمد جمال]

السلام عليكم ورحمة الله وبركاتة
هلا اختى سلمى
عندى بعض الاسئلة اليك وهى كيف قمتى بالتغلب على المشاكل تلك التى واجهتنا مثلا زى الرخصة وايضا ادوات arcobject
هل قمتى باستخدام اداة toolbar ام استخدمتى commant (مفاتيح)
انا قمت بتصميم برنامج مماثل وعندما قمت بعمل run للبرنامج لا يعمل ولا ادرى لماذا
ارجو من الاخوة التعليق وابداء الراى لماذا لم يعمل البرنامج وهو على الرابط التالى
http://d01.megashares.com/?d01=8ed5135
وهذا برنامج اخر ولم يعمل ايضا وهو على الرابط التالى
http://d01.megashares.com/?d01=e364b58
ارجو الرد
والسلام عليكم ورحمة الله وبركاتة

[فهد المطلق]

شكر وتقدير لك من شاركنا في هذا الدرس وخاصة الدكتور علي الغامدي و الدكتور وسام

أخت سلمى
اعملي كبل كلك على mapcontrol1 تم غير الحدث من OnMouseDown الى onMouseMove
ثم أضبفب الكود

ملاحظة لابد ان تضيفي على الواجهة Label1 و Label2


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


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

[محمد جمال]

الملفين مرة ثانية على موقع اخر ارجو الرد
وشكرا
http://file9.9q9q.net/Download/98896759/Arc_show.rar.html
والملف الثانى على
http://file9.9q9q.net/delete/19518774/Arc_show.rar.html
وشكرا لك يا اخى

[محمد جمال]

ايضا تلك المكتبة لم اجدها عندى ارجو منك ارسالها وشكرا لحضرتك
اضغط على الصورة للتكبير
http://file7.9q9q.net/img/78647726/1.JPG (http://file7.9q9q.net/preview/78647726/1.JPG.html)
وشكرا

[محمد جمال]

شكرا للاخت ام هتان
وهذا هو الملف وهو مفتوح السورس مرة ثالثة
http://www.zshare.net/download/13873540c2bbb95c/
او هذا الرابط
http://www.zshare.net/download/13873540c2bbb95c/
والملف الاخر على هذا الرابط
http://www.zshare.net/download/13873783b9f1cd32/
او هذا الرابط
http://www.zshare.net/download/13873783b9f1cd32/

مع العلم يا اخ فهد ان الكود المكتوب فى الماب كنترول يختص بمفتاح الموس الايمن والايسر وانا لم ارد عملها كذالك ولكن بدى ان يكون كل مفتاح فى toolbar خاص فقط بالدور الذى يقوم بة
وهذا يعنى انة عندما استخدم زر الموس الايسر فى مفتاح zoom واطبق على الماب كنترول اجد انة يقوم بعملة وكذالك بنفس مفتاح الايسر للماوس على المفاتيح الخاصة pan.zoom out .fullextentاى يكون المفتاح الايسر هو الرئيسى
وليس ان احجم اختيارين فقط وهما zoom.pan للنفتاح الايمن والمفتاح الايسر
وشكرا لك ويارب تكون فهمتنى

[محمد جمال]

اقصد ان يكون لكل مفتاح فى toolbar الكود الخاص به
وما هو الكود الخاص بال zoom out
فى الzoom in بيكون
MapControl1.Extent = MapControl1.TrackRectangle
وماذا يكون فى الzoom out?

[خميس الاحمدي]

اخواني الكرام ـ اريد مساعدة

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

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

وزي ما بنعرف الجيو داتا بيز هي عبارة عن مجموعة جداول في الاكسس ، كيف بدي اخلى على سبيل المثال الخانة

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

يعني يقرا من الجدول الاولى ولمن ينتهى الجدول الاولى يبدا يقرا من الجدول التاني وهكذا

شكرا لكم اخوتي

[صبرى شعبان]

السلام عليكم
اخى فهد اشكرك على حسن تعاونك وجزاك الله كل خير
انا اخى اريد اكواد الازار الاتية :----
1- كود زر " Identify" يعنى بمجرد كليك على اى معلم على الخريطة يظهر البيانات الخاصة بهذا المعلم
2- كود زر " find " يعنى عندى تكست بوكس بمجرد انا اكتب فية اسم اى معلم يتم تحديد هذا المعلم ويتم عمل زوم علية
3- كود استعلام " query " يعنى يمكن ان استعلام عن معلم بشرط معين سواء بالبيانات الوصفية او الهندسية
واتمنى ان اكون وضحت مااريد
واتمنى الاجابة فى اقرب وقت لان مناقشة المشروع قربت جدا
واخير ا
اشكرك واشكرك كل الاخوة المتعاونين
" فخير الناس انفعهم للناس "
صبرى

[خميس الاحمدي]

يا اخواني اللى عندو فكرة عن الموضوع يرد

شكرا لكم مسبقا اخوتي

[فهد المطلق]

أهلاً باخواني الاعزاء أعضاء منتدى نادي نظم المعلومات الجغرافية

بإذن الله سوف انزل درس جديد يجيب على موعظم تساؤلاتكم

لكن انتظروا قليلا

[محمد جمال]

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

[سلمى الحسين]

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

مع خاااااالص شكرى وتقديرى

[ياسر نورالدين]

السلام عليكم جميعا

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

ولي تعليق بسيط:

تعتبر البرمجة في مجال نظم المعلومات الجغرافية من الاتجاهات الحديثة والتي بدأت تحظى بمكانة كبيرة لدى المؤسسات والشركات العاملة في قطاع نظم المعلومات الجغرافية. ما أود الإشارة اليه هو أن البعض يميل إلى إنشاء أنظمة وتطبيقات مستقلة عن بيئة بعض البرامج كـ ArcGIS أو MapInfo أو Geomedia الخ...، وذلك بميوله إلى أنشاء برامج تطبيقية تخدم أغراض معينة داخل مؤسسته أو شركته فتراه على سبيل المثال يستخدم أداة ماب أوبجكت MapObjects مع فيجوال بيسك VB و فيجوال بيسك دوت نت VB.NET بالتالي أنشاء برامج سهلة ذات أهداف معينة غير معقدة كالأدوات البرمجية التي تبنى داخل ArcGIS مثلا.

سأقوم خلال الأيام القادمة بوضع مجموعة من الدروس توضح بناء أنظمة معلومات جغرافية مستقلة باستخدام أداة ماب أوبجكت وفيجوال بيسك.

كل التحايا

[فهد المطلق]

الاخ جمال

لملفات التي رفعتها يوجد لديك مشكلة في بعض الاكواد وكذلك مشكلة في كتابة أسم Command لانك تقوم بنسخ الاكواد ويكون الحرف الاول فيها كبتل وانت تكتبه بالصمول مثل Zoom

انا لا اعلم هل تظيف الملفات المطلوبه الى برنامجك يعني هل اذا ضغط على زر Zoom يظهر لك شكل اشارة الزائد ام لا اذا لم تظهر فأنت لم تظف الملفات والعكس صحبح

ولكن اقولك انتظر الدرس القادم

الاخت سلمى

أكيد انتي محتاجه إضافة الملفات المطلومه من المكتبة الحيويه

[سلمى الحسين]

السلام عليكم
ايه . وينك اخى فهد
انا فى انتظار الرد


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

[فهد المطلق]

أهلا بك أخوي ياسر نور الدين

لقد سعدت بمشاركتك وأنا وجميع أعضاء منتدى نظم المعلومات الجغرافية وننتظر دروسك بفارغ الصبر

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

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

هذا مالدي

ونحنو نستفيد منك اخوي ياسر فلا تتأخر علينا

[سلمى الحسين]

الاخت سلمى

أكيد انتي محتاجه إضافة الملفات المطلومه من المكتبة الحيويه



السلام عليكم
مشكووووور كتير اخى
بس لو ممكن توضحلى اكثر ، كيف اتحصل على هدى الملفات ؟

.........
ونحن فى انتظار الجديد

تحياتى

[محمد جمال]

السلام عليكم ورحمة الله وبركاتة
اخى العزيز فهد
شكرا لك يا اخ فهم
ولكن فى الحقيقة مشكلتى تدور حول اننى اريد ان اجعل جميع المفاتيح الموجودة فى toolbar تقوم بعمله عن الضغط عليها
وان يكون لكل مفتاح كود مستقل
وليس كما هو موجود بالنسبة لمفتاح zoom ,pan ويختصان بزر الملوس الايمن والايسر فمثلا اذا اردت ان اقوم باى عمل اخر بالموس غيرzoom,pan فيقوم البرنامج بتنفيز الzoom ,pan وحاولت ان استخدة جملة select case ولكنها فشلت
ولم اجد الحل الذى يعطينى انه عند الضغط على zoom in يكبر وzoom out يصغر وpan للتحريك وايضا باقى المفاتيح
وارجو ان اكون اسطتعت ان اوصل اليك استفسارى
والسلام عليكم
فى رعاية الله

[سلمى الحسين]

السلام عليكم
يا خوانى فين الرد
انا بحاجة شديدة الى الماب اوبجكت وباسرع فرصة



وشكرا

[هيثم شوقي]

اشكرك شكرا جزيلا اخي فهد على هذه المبادرة الطيبة....
لقد قمت بتجربة واتباع خطواتك في عمل البرنامج علما ان نسختي 9,1 ولقد واجهت بعض المشاكل اهمها ان زر open file لا يعمل وياتي لي برسالة erorr كالتالي[http://www5.0zz0.com/2008/06/23/21/214324644.jpg (http://www.0zz0.com) وثاني مشكلة هي ان من قائمة file لا يوجد امر تحويل البرنامج الى exe كما بالصورة http://www6.0zz0.com/2008/06/23/21/223921887.jpg (http://www.0zz0.com)

[سلمى الحسين]

السلام عليكم
يا جماعة انا بحاجة الى ال Arc objec
والله انا عاوزاه ضرورى وباسررع فرصة



وشكرا



ــــــــــــــــــــــــــــــــــــــ
ادارة النادي : نآمل عدم تكرار الحروف في كتابة المواضيع مستقبلاً.

[سلمى الحسين]

السلام عليكم
والله انا آسفة جدا ، وان شاء الله مش حيتكرر منى هدا العمل
بس والله يا اخوانى انا بحاجة وبشدة الى Arcobjects

وشكرا

[محمد جمال]

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

[فهد المطلق]

أولا اقدم اعتذاري لأخواني لتأخر عرص الدرس الجديد الذي وعدتكم به وذلك لضروف خاصة وإن شاء الله خلال الايام القليله القادمة


أخي هيثم هل إضفت أداة Microsoft common Dialog Contrl 6.0 لواجهة البرنامج لانها ضرورية لفتح مربعات الحوار مثل ( فتح ملف - حفظ ملف - طباعة .... الى اخره )
ثم تأكد من وضع استخدام الكود الصحيح لان هذه الرسالة تعطيني انطباع انك وضعت الكود في مكانه الخاطئ .


أخت سلمى
ماتريدينه لا يوجد لدي وانا استخدم نفس النسخة التي لديك ArcGIS 9.1
ولكن انصحك بأن تضيفي جميع الملفات الحيويه الخاصة بشركة إسري حتى تخرجي من دوامت هل هذا الملف الذي أريده ام لا

[محمد جمال]

شكرا لك اخى فهد والله يكون فى العون
ونحن فى انتظار الدرس باذن الله

[فهد المطلق]

اخوي هيثم

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

[سلمى الحسين]

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

مع خالص شكرى

[فهد المطلق]

هلا اخت سلمى

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

[سلمى الحسين]

السلام عليكم
اخى فهد شكرا للرد
بس انا ما اضفت اى شئ غير الماب كنترول
وزى ما قلتلك انى بتلاقينى المشكة فى نوع المتغيرات زى ما اوضحت فى مشاركة سابقة


وشكرا

[فهد المطلق]

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

[سلمى الحسين]

احنا فى انتظار الدرس


شكرا










ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــ
سبحان الله وبحمده
سبحان الله العظيم

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

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

[ممدوح سالم]

السلام عليكم
عندى تنفيذ البرنامج تظهر لى هذه الرساله عند استخدام اداه Microsoft Common Dialog Control

نص الرساله
The control could not be created because it is not properly licenesd

فا ارجوا المساعده

و شكرا على هذا الدرس الرائع و اود ان انفذه


وشكرا

[نهادشيخه]

Salam a7"e Fahed allah ya3teek el 3afya... fe majal etsa3edne keef ajeeb CD ta3 el GIS 3ashan at3allam 3aleh beshakel afdal ..... o allah ya3teek el se7a

[م عماد الرفاعي]

مشكورين جميعا على المجهود الرائع وشكر خاص للأخ فهد على هذه المشاركة الرائعة
اتبعت الخطوات كما في المثال وعند تنفيذ البرنامج والضغط على أيقونة الفتح تظهر رسالة خطأ Object required
وعند الضغط على Debug يشير الى السطر الاول
CommonDialog1.DialogTitle = "Browse Map Document"
ما سبب هذا الخطا جزاك الله خيرا

[م عماد الرفاعي]

علما اني لم اتمكن من اضافة Microsoft Common Dialog Control

فعند اضافة الاداة تظهر رسالة

The control could not be created because it is not properly licenesd

فا ارجوا المساعده

و شكرا جزيلا

[ممدوح سالم]

السلام عليكم
انا نفس الرساله تظهر لى و ارجوا الحل لانى بجد اريد ان انفذ هذا الدرس
The control could not be created because it is not properly licenesd

وشكرا

[علي لوحو]

الأخ فهد والأخوة الأعضاء في النادي
أنا حاولت تنفيذ هذه البرامج من خلال الفجول أو الـ gis ولكن أود أن أسأل هل جربتم برنامج Arc reader وفيه العديد من الميزات التي يمكن الاستفادة منها وهو برنامج لعرض الخرائط والمشاريع التي يتم عملها على ArcGIS وأنا الآن أعمل على ميزاته وسأذودكم بما يمكن الستفادة منه قريبا . ولكن بالتأكيد ما تقومون به رائع للغاية وأتمنى لكم التوفيق

[مهندس مدنى جلال صبرى]

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

[شروق عبدالناصر]

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