المساعد الشخصي الرقمي

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



فهد المطلق
06-27-2008, 05:00 PM
~*¤ô§ô¤*~*¤ô§ô¤*~الدرس الثاني~*¤ô§ô¤*~*¤ô§ô¤*~


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

ونقول بالبداية][][§¤°^°¤§][][ ( بسم الله مجريها ومرساها)][][§¤°^°¤§][][


الخطوة الأولى

الأدوات المطلوبة في تصميم الواجهة

1- Mapcontrol
2- Microsoft Common Dialog Control
3 Toolbar
4- ImageList
5- Label

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

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

الخطوة الثانية

نرسم هذه الأدوات على الواجهة البرمجية

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

الخطوة الثالثة

نأخذ Right Click على اداة ImageList ثم ناختار Propreties كما هو موضح في الصورة السابقة تظهر لنا النافذه التالية

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

من خلال ايقونة Insert Picture نستطيع إضافة صور الأيقونات ( وأكيد تعرفون مسار مكان صور الايقونات ) راجع الدرس السابق
وهنا يجب علينا الدقة بمانكتبه هل لاحرف كبتل او اصمول وحفظ ترتيب مكان الايقونات ويستحسن احضار ورقة وقلم


Key . Index . Image

صورة فتح ملف . 1 . Open
صورة اضافة طبفة . 2 . LoadData
صورة مؤشر السهم . 3 . Pointer
صورة الزووم . 4 . Zoom
صورة الوضع الطبيعي . 5 . FullExtent
صورة الاستعلام . 6 . Identify
صورة تحديد الظاهرات . 7 . Trackevents

بعد لانتهاء نضغط على OK

الخطوة الرابعة

نأخذ Right Click على اداة Toolbar ثم ناختار Propreties كما هو موضح في الصورة تظهر لك النافذة التالية وقوم بتغير ماهو موضح في رقم ( 2 )
http://www.gisclub.net/vb/images/uploads/3079_190304864d26f5a19a.JPG

بعد ذلك انتقل الى التبويب Button تظهر لك النافذة التالية

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

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

في رقم ( 1 ) يمثل رقم ال Index وتفقنا ان رقم واحد هو فتح ملف والان ماعليك الا كتابة Open في خانة رقم ( 4 , 5 , 6 ) وبعد ذلك تضيف الايقونه الثانية من خلال الضغط على رقم ( 7 ) Insert Button وتفقنا انها تكون إضافة بيانات وتكتب LoadData في خانة رقم ( 4 , 5 , 6 ) وهكذا كرر العملية مع كل الايقونات

حتى يخرج شكلها النهائي بهذا الشكل

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


الخطوة الخامسة

نقوم بإضافة الأكواد الى الواجهة البرمجية

اعمل دبل كلك على Toolbar وكتب الكود التالي
Private Sub Toolbar1_ButtonClick(ByVal button As MSComctlLib.button)
'ÝåÏ ÇáãØáÞ
With MapControl1

Select Case button.Key

Case "Open"
CommonDialog1.DialogTitle = "Browse Map Document"
CommonDialog1.Filter = "Map Documents (*.mxd)|*.mxd"
CommonDialog1.ShowOpen
MapControl1.LoadMxFile CommonDialog1.FileName
Case "LoadData"
'Get IGxDialog interface
Dim pGxDialog As IGxDialog
Set pGxDialog = New GxDialog
'Get IGxObjectFilter interface
Dim pGxObjectFilter As IGxObjectFilter
Set pGxObjectFilter = New GxFilterFeatureClasses
'Set GxDialog properties
Set pGxDialog.ObjectFilter = pGxObjectFilter
pGxDialog.AllowMultiSelect = True
pGxDialog.Title = "Add Feature Data"

'Get IEnumGxObject
Dim pEnumGxObject As IEnumGxObject
'Display the GxDialog and set the EnumGxObject. Exit if user cancel the dialog
If pGxDialog.DoModalOpen(MapControl1.hWnd, pEnumGxObject) = False Then Exit Sub
Dim pFeatureLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
Dim pGxDataset As IGxDataset

'Get IGxObject interface
Dim pGxObject As IGxObject
pEnumGxObject.Reset
Set pGxObject = pEnumGxObject.Next
'Loop through the GxObjects
Do While Not pGxObject Is Nothing
'Query interface for IGxDataset interface
Set pGxDataset = pGxObject
'Get IFeatureClass interface
Set pFeatureClass = pGxDataset.Dataset
'Get IFeatureLayer interface
Set pFeatureLayer = New FeatureLayer
'Set layer properties
Set pFeatureLayer.FeatureClass = pFeatureClass
pFeatureLayer.Name = pFeatureClass.AliasName
'Add the layer to the MapControl
MapControl1.AddLayer pFeatureLayer, 0
'Add the layer name to the control

Set pGxObject = pEnumGxObject.Next
Loop

Case "Zoom"
.MousePointer = esriPointerZoomIn
Case "Pointer"
MapControl1.MousePointer = esriPointerDefault
Case "Pan"
MapControl1.MousePointer = esriPointerPan
MapControl1.Pan
Case "Fullextent"
MapControl1.Extent = MapControl1.FullExtent
Case "Trackevents"
MapControl1.MousePointer = esriPointerHotLink
Case "query"
.MousePointer = esriPointerCrosshair
Case "Identify"
MapControl1.MousePointer = esriPointerDefault
Dim pIdentifyDialog As IIdentifyDialog
Dim pIdentifyDialogProps As IIdentifyDialogProps
Dim pEnumLayer As IEnumLayer
Dim pLayer As ILayer
Dim pActiveView As IActiveView
' Set pMxDoc = Application.Document
Set pActiveView = Me.MapControl1.ActiveView.FocusMap


'Create a new IdentifyDialog and associate it
'with the focus map and the map's display
Set pIdentifyDialog = New IdentifyDialog
Set pIdentifyDialogProps = pIdentifyDialog 'QI
Set pIdentifyDialog.Map = Me.MapControl1.ActiveView.FocusMap
Set pIdentifyDialog.display = pActiveView.ScreenDisplay

'Clear the dialog on each mouse click
pIdentifyDialog.ClearLayers

'Perform an identify on all of the layers the dialog
'says are searchable
Set pEnumLayer = pIdentifyDialogProps.Layers
pEnumLayer.Reset
Set pLayer = pEnumLayer.Next
Do While Not pLayer Is Nothing
pIdentifyDialog.AddLayerIdentifyPoint pLayer, x, y
Set pLayer = pEnumLayer.Next
Loop

pIdentifyDialog.Show

End Select
End With
End Sub

نضيف الكود التالي الى Mapcontrol عن الحدثOnMouseDown


If button = vbLeftButton Then
MapControl1.Extent = MapControl1.TrackRectangle
End If
With Toolbar1.Buttons
If .Item("Zoom").Value = tbrPressed Then
MapControl1.Extent = MapControl1.TrackRectangle
ElseIf .Item("Pan").Value = tbrPressed Then
MapControl1.Pan
ElseIf .Item("Trackevents").Value = tbrPressed Then
AddGeoEvent mapX, mapY
ElseIf .Item("query").Value = tbrPressed Then
SearchShape
End If
End With

نضيف الكود التالي الى Mapcontrol عن الحدثOnMouseMove


Label1.Caption = "1:" & MapControl1.MapScale 'ÝåÏ ÇáãØáÞ

الخطوة السادسة

والآن نضيف ملفات النظام المطلوبة من References حتى لا تظهر لكم الرسائل المزعجة وتخبركم بوجود خطأ

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

والملفات المطوبة هي ( أنظر الصورة)

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


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

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


«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»وأخيراً نسألكم الدعاء لي و لي والدي«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»

محمد جميل
06-27-2008, 06:20 PM
سلمت يداك يا أخ فهد وبارك الله فيك ولك

علي فكرة تم حذف الموضوع المكرر

بالتوفيق

ندى صالح
06-27-2008, 07:55 PM
بارك الله فيك وفيما تقدم جزاك الله عنا خيرا
دمت في امان

مختار الحسانين
06-27-2008, 08:14 PM
أخى فهد رغم انه مش اهتمامى البرمجة لكن ما تقدمه من دروس تشجع على الدخول فى هذا المجال

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

ابراهيم عبد الفتاح ابومريم
06-27-2008, 10:04 PM
بارك الله فيك اخى فهد المطلق ونرجوا الاستمرار

جمعة داود
06-27-2008, 10:10 PM
غفر الله لك و لوالدك وجزاكما خير الجزاء

د. علي الغامدي
06-27-2008, 11:35 PM
بارك الله فيك وفي جهودك يا فهد
وأقول لمختار نعم ثم نعم فأنت والجميع لها

محمد جمال
06-27-2008, 11:59 PM
اخى العزيز فهد المطلق
شكرا كثيرا لك فقد قمت بحل الكثير من المشاكل التى واجهاتنى
والحمد لله بفضل الله ثم لك قد تمكنت فى التغلب عليها
ونتمنى عدم التوقف عن هذا الابداع ومحاولة التقدم الى الوصول الى مرحلة الاحتراف باذن الله
ولى استفسار صغير ماهو الكود الخاص بعمل zoom out
وارجو من حضرتك التواصل معنا وايضا من الاخوة الاعضاء ونتمنى ايضا طرح الاسئلة والمناقشات للاستفادة
وغفر الله لك ولواالدك
فى امن الله

خميس الاحمدي
06-28-2008, 12:51 PM
شكرا لك اخي فهد ما قصرت

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

يا طيب انا جربت الدرس التاني طلعلعى غلط وخصوصا في كود toolbar وخصوصا المتغيرا x ,y

بتعمل معرف اذا بتحمل المشروع اللى عملتو مفتوح المصدر

شكرا مسبقا

سلمى الحسين
06-28-2008, 04:17 PM
السلام عليكم
مشكور كتير اخى فهد على هدا المجهود
وجارى التنفيذ
كان لدى استفسار فى مشاركة ماضية عن الاستعلام ، وقد تكرمت ورفعت بروقرام
بس لقيته ما الشئ اللى انا طالبته ، انا بدى اعمل تكست بوكس وكوماند ،
فى التكست يكتب اليوزر اسم المنطقة مثلا ، ويضغط ع الكوماند ويعطيه تقرير عن هدى المنطقة فقط



وشكرا
انا فى انتظار الرد

فهد المطلق
06-28-2008, 04:52 PM
أولا احب اشكر الجميع
محمد جمال

وندى صالح

مختار الحسانين

ابراهيم ابو مريم

د جمعة داود

د على الغامدي

خميس الاحمد

على كلامهم الطيب

ثانيا أقول

للاخ محمد جمال iهذا الكود الذي تحتاجه إن شاء الله


Case "ZoomOut"
.MousePointer = esriPointerZoomOut
.Extent = MapControl1.FullExtent


الأخ خميس الاحمد

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

بخصوص مشكلتك

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

فهد المطلق
06-28-2008, 04:55 PM
الاخت سلمى

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

انتظري قليلا

سلمى الحسين
06-28-2008, 05:23 PM
هلا اخوى فهد
مشكور كتير وانا بانتظارك



وشكرا

محمد جمال
06-28-2008, 09:20 PM
اخى العزيز فهد لقد قمت بتجربة ذالك الكود
ولكنة لم يعمل انا اقصد ان zoom in خاص بالتكبير
اما zoomout خاص بالتصغير
فكيف يكون فية الدالة fullextent
وشكرا لك

فهد المطلق
06-29-2008, 12:35 AM
سف اخ جمال

أعمل الآتي



Case "ZoomOut"
.MousePointer = esriPointerZoomOut



وهذا الكود تضعه في Mapcontrol1


ElseIf .Item("ZoomOut").Value = tbrUnpressed Then
Dim pEnv As IEnvelope
Set pEnv = MapControl1.Extent
pEnv.Expand 1.5, 1.5, True
MapControl1.Extent = pEnv

لاحط الكلمة الي بالون الاحمر لابد تغير الكود السابق من tbrPressed إلى tbrUnpressed

واذا لم تنجح هذه العمليه اخبرني علماً انها ناجحه عندي

فهد المطلق
06-29-2008, 12:55 AM
الاخت سلمى


انا بدى اعمل تكست بوكس وكوماند ،
فى التكست يكتب اليوزر اسم المنطقة مثلا ، ويضغط ع الكوماند ويعطيه تقرير عن هدى المنطقة فقط


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

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

أسمع ردك

سلمى الحسين
06-29-2008, 11:56 AM
السلام عليكم
مشكور كتير اخوى فهد
انا كنت عاوزة اعمل الطريقة اللى انا قلتها
بس اقتنعت بكلامك وح اعمل بطريقتك





وشكرا

انا فى انتظار ردك

سلمى الحسين
06-29-2008, 12:03 PM
السلام عليكم
اخوى فهد كنت سألتك فى مشاركة سابقة انه اريد لما احرك الماوس فى الخرطة يعطينى احداثيات النقطة (x,y ) وانت كتبت كود بس هدا الكود ما بيشتغل معى ، مع انى اضفت الملفات الحيوية
ممكن تقللى مشكلتى فين



وشكرا

علي طلبه
06-29-2008, 02:52 PM
بارك الله فيك وفيما تقدم جزاك الله عنا خيرا
فعلا أنا مع أخي مختار في انك يا اخ فهد قد أعدت الروح للمنتدى بهذه الدروس المتخصصة جدا والتى تنطلق بالمنتدى إلى أفاق جديدة لم يتطرق إليها أى موقع أخر ونحن في انتظار المزيد منك كما نرجو من الاخوة الأعضاء التفاعل ونريد ان نقراء اقتراح علي الاقل من كل واحد مني ونطرح الأفكار حتى يكون هناك تعاون وتكامل بين افراد وأعضاء المنتدى الحبيب وانا مثلا عندي اقتراح عن كود يربط بين الجوجل ايرث وبين الارك جي أي اس وذلك لما في فائد خصوص في المخططات العامة لمدن او للقري
او خرائط استخدمات الاراضي .
واخير بارك الله فيك اخى فهد المطلق ونرجوا الاستمرار والاستمرار والاستمرار

رافع خضير
06-29-2008, 04:52 PM
درس مفيد جدا وبالفعل يدخل الحافز في هذا المجال للتعلم والاستفادة من الخبرات لموجودة في نادينا المختص وشكرا لك اخ فهد

فهد المطلق
06-30-2008, 01:41 AM
السلام عليكم جميع

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

رابط المثال

http://www.zshare.net/download/144200806ea91874/

فهد المطلق
06-30-2008, 02:08 AM
اهلاً بك اخي علي طلبه وشكرك على هذا الكلام الجميل

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

وهدف من هذه الدروس هو رمي حجر صغير في هذا النهر الكبير لعله يغير مجراه

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


تحياتي

سلمى الحسين
06-30-2008, 11:28 AM
السلام عليكم
مشكور كتير اخى فهد
راح احاول واعطيك الرد



وشكرا

محمد جمال
06-30-2008, 10:46 PM
اخى العزيز فهد
السلام عليكم ورحمة الله وبركاتة
شكرا لك اخى العزيز على هذا الدرس وعلى اهتمامك وشكرا ايضا الى اعضاء المنتدى على المشاركة
ولكن اخى العزيز واجهتنى مجموعه من المشاكل وهى كالتالى
اولا زر zoomout
الكود الخاص بة الذى قمت بكتابتة لى فانة يجعل الماوس عند عمل كليك واحدة سواء من الزر الايمن او الايسر او ايضا من اى مفتاح فى toolbar عند الضغط كليك واحد فقط بزر الماوس الايمن او الايسر يقوم بالتصغر حتى ولو قمت بعمل zoom in وقمت بعمل كليك واحدة باى من الايمن او الايسر دون ادراج مربع التكبير يقوم ايضا بالتصغير ولكنى اريد انة عن الضغط على الزر الايسر للماوس واقوم بادراج مربع للتصغير يقوم بالتصغير ويكون هذا العمل قاصرا على زر zoomout فقط

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

ثالثا زر query ,trackevents
لا يعملان لدى ووجدت انة الكود الخاص بهما ينقصة procedure وهما يوضعان فى منطقة التصريحات العمة general
وهما SearchShape و AddGeoEvent وقمت بكتابتهم وارجوا منك ان تقوم بتصحيحهم لى لان البرنامج مازال لا يعمل فى هذين الزرين والاكواد كانت كالاتى

[Private Sub SearchShape()
Dim PSearchShape As IPolygon
'create the search shape
Set PSearchShape = MapControl1.TrackPolygon
'do the actual selection
With MapControl1
.Map.ClearSelection
.Refresh esriViewGeoSelection
.Map.SelectByShape PSearchShape, Nothing, False
'and refresh the map
.Refresh esriViewGeoSelection
End With
End Sub
والاخر كالتالى

Private Sub AddGeoEvent(mapX As Double, mapY As Double)
'make the point
Dim pPoint As IPoint
Set pPoint = New Point
pPoint.PutCoords mapX.mapY
'mak the element
Dim pElement As IElement
Set pElement = New MarkerElement
pElement.Geometry = pPoint
'add the element to the collection
m_pElementCollection.Add pElement
'and finally redraw the map
MapControl1.Refresh esriViewForeground
End Sub

ملحوظة ليست لدى الاداة الحيوية esri maplexui وارجو منك رفعهالنا

محمد جمال
06-30-2008, 10:47 PM
وشكرا لك

فهد المطلق
06-30-2008, 11:52 PM
هذه الملفات التي تريدها

http://www.zshare.net/download/14472908321f6195/

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

محمد جمال
07-01-2008, 05:33 PM
شكرا لك اخى فهد
وانا فى انتظار ردك

سلمى الحسين
07-02-2008, 11:05 AM
السلام عليكم
مشكور كتير اخى فهد
بس عندى استفسار فى الاكواد



وشكرا

عبير الركابي
07-02-2008, 02:07 PM
بسم الله الرحمن الرحيم

جزاك الله خيرا أخي فهد جهد طيب وموضوع جديد ومهم

غفر الله لك به ولوالديك

سلمى الحسين
07-03-2008, 06:18 PM
السلام عليكم
وينك اخى فهد

سلمى الحسين
07-03-2008, 06:29 PM
السلام عليكم
خوانى انا بدى ايقونات لبرنامجى ( لعمل الزوم ان وآوت ، واضافة ، وفتح ملف، ..........واخريات )
اللى عندو يبعتهملى .
ثانيا : اخى فهد بحاول اضيف ايقونات للبروقرام بس بتظهر ليا الازرار من غير الصور ، طبعا طبقت الطريقة اللى
انت شرحتها لنا فى مشاركة


وشكرا
انا فى انتظار الرد

فهد المطلق
07-03-2008, 09:20 PM
هلا اخت عبير

مشكوره على هذا الكلام الطيب


الاخت سلمى

جميع ماتطلبينه من اكواد موجوده في شرح الدرس

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

سلمى الحسين
07-13-2008, 03:46 PM
السلام عليكم
وينك اخى فهد
شنو هدى الغيبة الطويلة ام شاء الله تكون بخير
نحن فى انتظار شروحاتك
انا لدى بعض الاستفسارات وابغى الرد منك بسرعة
لو ممكن انا ح ابعت لك مسج فى ايميلك اللى فى الهوتميل





وشكرا
انا فى انتظار ردك

ابراهيم عبد الفتاح ابومريم
07-13-2008, 04:39 PM
نور حياتك بالهدى.... واسلك طريق التائبين... وأعمر فؤادك بالتقى ....فالعمر محدود السنين.. وارضِ الإله بطاعة.... تسعدك في دنيا ودين.... واحمل بصدرك مصحفاً.... يشرح فؤادك كل حين.. ودع الغواية إنها.... لشقاوة للغافلين.... الدين مشكاة الحياة.... يضئ درب الحائرين عد للكريم بتوبة.... واركب جناح العائدين.... تلقى السعادة كلها.... فلنعم درب الصالحين

عصام مصطفي عبدالله
09-23-2008, 01:35 PM
انا من المهتمين بالبرمجة يا اخ فهدارجو منك ان تساعدنا في هذا المجال شاكرين لك ذلك وارجو ان اجدة الدرس الاول

رضوان السكاك
09-30-2008, 04:40 PM
شكرا جزيلا استاذنا الجليل وجعل الله كل هذا في ميزان حسناتك.

محمد الأمين
10-01-2008, 10:02 PM
شكرا على الدرس القيم , أستخدم arcgis 9.2 و vb6 و لم أجد ال Mapcontrol ضمن ال components عندما أستدعيها لتوقيعها على ال Form , أرجو المساعدة .

ممدوح سالم
10-30-2008, 02:38 PM
شكرا على الدرس الممتاز و جزاك الله خيرا

لكن عندما انفذ الدررس فى بعض الادوات تتطلب منى ترخيص اخر لاستخدام هذه الاداه
مثل Esri Map Control
لا تعمل فااريد المساعده لو سمح
وشكرا

فهد المطلق
10-31-2008, 02:15 AM
شكرا على الدرس القيم , أستخدم arcgis 9.2 و vb6 و لم أجد ال Mapcontrol ضمن ال components عندما أستدعيها لتوقيعها على ال Form , أرجو المساعدة


لكن عندما انفذ الدررس فى بعض الادوات تتطلب منى ترخيص اخر لاستخدام هذه الاداه
مثل Esri Map Control
لا تعمل فااريد المساعده لو سمح

غريبة تحدث معكم هذه الاشياء انا عملت على اصدار 9.1 و 9.2 ولم تحدث معي مشاكل لكن اصدار 9.3 لم اعمل عليه

ممدوح سالم
11-02-2008, 03:52 PM
وايضا عند استخدام اداه Microsoft Common Dialog Control

تظهر رسالة فى ما معناه ان الاداه غير مرخصه للاستخدام

فهد المطلق
11-02-2008, 08:20 PM
وايضا عند استخدام اداه Microsoft Common Dialog Control

تظهر رسالة فى ما معناه ان الاداه غير مرخصه للاستخدام


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

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

المهم خذ برنت سكرين على المشكلة وعرضها مع شرح دقيق للمشكلة .......... ربما نجد حل لمشكلتك

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

ممدوح سالم
12-03-2008, 10:08 AM
عذرا للتاخير بسبب العمل
اما بالنسبه Microsoft Common Dialog Control
انا اخذت برنت اسكرين
http://rapidshare.com/files/169751193/Erorr.JPG.html

بالنسبة للجهاز لا يوجد اى مشكله من ناحية الفايروس لكن ماذا تقصد ان النسخه نازله كامله ياريت اذا كان فى اى ادوات ممكن انزلها مع النسخه ياريت التوضيح
لى سؤال لماذا لا نطبق تطوير الارك عن طريق الدوت نت اكيد احسن و ممكن يكون اسهل لانى كنت على اليوتيب و شاهدت هذا الفديو من شركه ازرى نفسها ارجوا ان تشاركونى و تشاهدو هذا الفديو لتطوير ارك 9.3
الجزء الاول
http://www.youtube.com/watch?v=vfFicXv9kEc

الجزء الثانى
http://www.youtube.com/watch?v=OlCE2Q4QHow

و ارجوا ايضا ان تشاهد هذ العرض ايضا
http://www.youtube.com/watch?v=LyVQqaZIEPk

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

أدهم أحمد
01-11-2009, 12:36 PM
الأخ العزيز / فهد المطلق

لم أتمكن من إضافة الخارطة إلى esri map control

>>> لو سمحت يا الأخ فهد . كيف ممكن اضيف الخارطة ؟

أدهم أحمد
01-11-2009, 12:45 PM
هذه الخاصية متاحة في برنامج الفيجوال بيسك وتسمح لك باستدعاء مكونات البرامج الاخرى المنصبه على جهازك

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

المهم خذ برنت سكرين على المشكلة وعرضها مع شرح دقيق للمشكلة .......... ربما نجد حل لمشكلتك

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


رد سريع هنا ....

أول شئ السلام عليكم ...

بالنسبة للرسالة ... كانت تظهر معي لما استخدمت VBA الخاص ب ــ ARCGIS وهذه الرسالة كانت تظهر قبل تثبيت البرنامج الأساسي أقصد فيجول بيسك .6 ومن ثم الرسالة لم تظهر معي ..


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

جبرائيل محمود ابو عرام
08-05-2009, 12:40 PM
اولا اشركم جميعا على هذا المجهود الطيب،
ثانيا ارجو التوضيح كيف يتم استخدام esri map control في فيجوال بيسك 2008، لانها تتطلب ترخيص علما ان برنامج arcgis موجود و منزل على الجهاز و شغال 100%، و اوات ازري موجود و لكن لماذا تتطلب الترخيص و كيف حل المشكلة
و شكر لكم مسبق

فهد المطلق
08-06-2009, 12:31 AM
السلام عليكم ورحمة وبركاته

جميع الاستفسارات السابقة كلها تدور حول الرسالة عند استخدام إداة esri map control

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

وكذلك تم التجريب على نسخة 9.2 وظهرت رسالة وقتها تطالب بالرخصة ولكن تجاهلتها واكملت التصميم
ولكن نسخة 9.3 لم اجرب عليها شي وربما كانت أكثر حماية من سابقاتها

عموما اذا كانت هذه المشكلة عائق أمام إتمام مشاريعكم استخدموا إداة MapObject لكن مع تغير بعض الاكواد

هذه نسخة تجريبية لي MapObjects LT 2.0a

http://www.softpedia.com/get/Program...jects-LT.shtml

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

أو حاولو الحصول على رخصة لاستخدام هذه الاداة


وشكرا للجميع

منار عبد
11-06-2010, 12:31 AM
مرحبا
الف الف شكرا اخي فهد وجزاك الله كل خير
لكن الموضوع الصور مش ظاهرات ممكن ترفعهم كمان مرة؟؟

أحمد الأحمدي
11-06-2010, 05:22 PM
أخت منار تفضلي الدروس في ملفات PDF من الاخ فهد المطلق على صفحته

الرابط http://faculty.ksu.edu.sa/falmutlaq/DocLib/Forms/AllItems.aspx

تلاقي ثلاث ملفات اخناري

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


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

لما تفتحي اي ملف PDF اضغط فوق حفظ بأسم واختاري مكانه حفظ الملف وان شاء الله وصلت لك المعلومه