ربط اداه الماب كنترول بقاعده بيانات اكسس و عمل flash و zoom in

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

السلام عليكم ايها الاخوه
ما في اي رد عن سوالي ؟
لاني مستعجله. رجاءاً من الاخ فهد المطلق مساعدتي.

المقصود ب اكسس هل هي
spatial database or non-spatial database

-

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

http://sendinto.com/zx5x70fhdckq/mapobject.pdf.html


هذا الكود للربط مع mdb

Private Sub Command9_Click()

Dim tbl As New MapObjects2.Table
tbl.Database = "D:\Foremanv.foremanv dcidocuments\My Documents\MapObjects\SensorReplacement.mdb"
tbl.Database = "SensorReplacement.mdb"
tbl.Name = "Sensor Replacement"
Dim recs As MapObjects2.Recordset
Set recs = tbl.Records

كود Point

Dim currentPoint As Point3d
currentPoint = vertices(n)
Set pt = New MapObjects2.Point
/*currentPoint is a point of a element of microstation */
/* this part not work*/
pt.X = currentPoint.X
pt.Y = currentPoint.Y
poligono.Parts.Add (pt)
Next n


كود draw points on a map which will have the illusion of movement using VB in MapObject


code shown below:

'start of module level variable
Global lola00001(3, 1)
Global intCountingTimer As Integer
'end of module level variable

Private Sub Form_Load()
lola00001(0, 0) = 50.46197
lola00001(1, 0) = 61.597
lola00001(2, 0) = 41.66
lola00001(3, 0) = 52.557
lola00001(0, 1) = -104.5667
lola00001(1, 1) = -91.697
lola00001(2, 1) = -87.557
lola00001(3, 1) = -81.77
intCountingTimer = 0
End Sub

Private Sub Timer1_Timer()
Dim dblLatitude As Double
Dim dblLongitude As Double
Dim pt As New Point

intCountingTimer = intCountingTimer + 1
If intCountingTimer <= 4 Then
dblLatitude = lola00001((intCountingTimer - 1), 0)
dblLongitude = lola00001((intCountingTimer - 1), 1)
With Map1.TrackingLayer.Symbol(0)
.SymbolType = moPointSymbol
.Size = 4
.Style = mosquaresymbolmarker
.Color = moRed
End With
Dim p As MapObjects2.Point
pt.X = dblLongitude
pt.Y = dblLatitude
With Me.Map1.TrackingLayer
.AddEvent pt, 0
.Refresh False, Me.Map1.Extent
End With
Else
End If
End Sub



C#

/ Offset all of the events by a random amount

//

CMoRectangle extent(m_map.GetExtent());

double maxDist = extent.GetWidth() / 20.0;

CMoTrackingLayer tLayer(m_map.GetTrackingLayer());

int eventCount = tLayer.GetEventCount();

CMoGeoEvent event;

for (int i = 0; i < eventCount; i++)

{

event = tLayer.GetEvent(i);

double xOffset = maxDist * ((double)rand()/(double)RAND_MAX - 0.5);

double yOffset = maxDist * ((double)rand()/(double)RAND_MAX - 0.5);

event.Move(xOffset, yOffset);

}

you can also use event.MoveTo(x, y).



كود Drawing points on the map
dim iIndex as integer
dim pt as new point

do while not recset.eof
pt.x = recset.field("long").value
pt.y = recset.field("lat").value

iIndex = 0
with frmMain.trackinglayer (or whatever form called)
.addevent pt, 0 (or other MO symbol)
.event(iIndex).tag = unique field from table
end with
loop
then, on updates you can either:
1)trackinglayer.clear and re-read events into it
2)pt.MoveTo pt.x, pt.y (reset pt with new values)


وهذا كود للشكل بلغة C#


http://sendinto.com/28kpu7b4or7j/14081.zip.html

جزاك الله خير الجزاء اخي نجد جمال و لكن ظهرت لي اخطاء في سطران global . انا ابرمج باستخدام الاداه ماب كنترول فهل كود الربط اداه الماب كنترول هو نفسه كود الربط للاداه ماب اوبجيكت , لاني اريد ان اربط اداه الماب كنترول بقاعده بيانات اكسس 2003 و من ثم اخذ الاحداثي السيني و الصادي من قاعده البيانات و تلوين النقطه على اداه الماب كنترول بلون معين و عمل فلاش و زوم للمنقطه حول النقطه باستخدام الفيجول بيسك 6.

شاكره لك تعاونك و إنشاء الله في ميزان حسناتك

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

سوال :هل انت متمكنة وتستطعين البرمجة باستخام

Microsoft Visual Studio 2005

vb.net

الاخت الكريمة انت اظاهر انك تريدين عمل

tracking system

وذلك باستخدام mdb as database and zoom to point and flash marker


انا كنت افضل من البداية ان تعطي ىالفكرة العامة من المشروع ليتسنى لنا المساعدة اذا امكن


هذا رابط ل

MapControl

http://www.pelagis.net/gis_con/paper...tartedinVB.pdf

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

الاخت الكريمة

في البداية عملية ربط الاكسس سهلة عبارة عن ربطها وكانه لم نستخدم ماب كنترول

Imports System
Imports System.Data
Imports System.Data.OleDb

public class MainClass
Shared Sub Main()
Dim connString As String = "provider= microsoft.jet.oledb.4.0; " & _
"data source=Employee.mdb;"

Dim conn As New OleDbConnection(connString)

Try
conn.Open()
Console.WriteLine("Connection Opened")

' Display connection properties
Console.WriteLine("Connection Properties")
Console.WriteLine("- ConnectionString : {0}", conn.ConnectionString)
Console.WriteLine("- Database : {0}",conn.Database)
Console.WriteLine("- DataSource : {0}",conn.DataSource)
Console.WriteLine("- ServerVersion : {0}",conn.ServerVersion)
Console.WriteLine("- State : {0}", conn.State)
Catch ex As OleDbException
' Display error
Console.WriteLine("Error: " & ex.ToString())
Finally
' Close Connection
conn.Close()
Console.WriteLine("Connection Closed")

End Try
End Sub
End Class



ولرسم النقاط:

Drawing a point in a MapControl object using VB 6

Private Sub ObtainPoint()

Dim pApp As IMxApplication
Dim pDisplay As IDisplay

Set pApp = Application
Set pDisplay = pApp.Display

' Generate a point at selected coordinates
Set pPoint = New Point
pPoint.PutCoords x, y
Call Point(pPoint) ' Create a point

End Sub

Private Sub Point(pGeometry As IGeometry)

On Error GoTo Error_Desc 'If there is an error, go to error subroutine

If (Not TypeOf ThisDocument.Parent Is IMxApplication) Then Exit Sub

Set pMxDocument = ThisDocument
Set pDocumentDefaultSymbols = pMxDocument
Set pMarkerElement = New MarkerElement

Dim pSSym As ISimpleMarkerSymbol
Dim pColor As IRgbColor

Set pColor = New RgbColor
pColor.RGB = vbRed
Set pSSym = New SimpleMarkerSymbol
pSSym.Color = pColor
pSSym.Style = esriSMSCircle
pSSym.Size = 10
pSSym.Outline = True
pSSym.OutlineSize = 1.15
pMarkerElement.Symbol = pSSym

'Set pElement = pMarkerElement
Set pElement = pMarkerElement
pElement.Geometry = pGeometry

Set pActiveView = pMxDocument.ActiveView
Set pGraphicsContainer = pActiveView.GraphicsContainer
pGraphicsContainer.DeleteAllElements
pGraphicsContainer.AddElement pElement, 0

pMxDocument.ActiveView.Extent = pElement.Geometry.Envelope
pActiveView.PartialRefresh esriViewGraphics, Nothing, pActiveView.Extent

'********************** Zoom In Info ***********************
Set pMxDocument = Application.Document
Set pActiveView = pMxDocument.FocusMap
Set pDisplayTransform = pActiveView.ScreenDisplay.DisplayTransformation
Set pEnvelope = pDisplayTransform.VisibleBounds
Set pCenterPoint = New Point

Exit Sub ' Exit Subroutine
Error_Desc: ' Error Routine.
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical
End If

End Sub


كيفية الربط هو عمل

for Loop

واخذ قيمة x,y

from Access Database

وادخالها محل x,y

التي في ماب كنترول.



وهذا موقع مفيد:

http://support2.dundas.com/OnlineDoc...lElements.html

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

السلام عليكم ورحمه الله و بركاته
لو امكن برنامج فيه برمجه ادوات الجي اى اس بالغه السي شارب.
فانا مزنوقه و قررت التحويل من لغه الفيجول بيسك للغه السي شارب .
اقصد ببرمجه ادوات الجي اى اس التالي
zoom in , zoom out,fixed zoom in , fixed zoom out ,full extent,select feature,clear selected feature,,select element,measure,find ,identify,go to xy,go to next extent,go back to previous extent,pan

الاكواد المطلوبه بالغه السي شارب2005 و باستخدام اداه الماب كنترول
لو سمحتم بسرعه لاني مزوووووووووووووووقه .

من فرج عن مؤمن كربه فرج الله عليه كربه من كرب يوم القيامه.
و جزاكم الله خير الجزاء على تعاونكم معي و اخص بالشكر الاخ نجد جمال و انا ادري اني ثقلت عليك .

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

vb.net and
c#.net


اسمها

actual map

وفيها عملية سحب نفاط من txt file

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


وان استخدمت هذه المكتبة وتعاملت معها بكل سهولة ويسر.


وهذا رابط لتحمبل المكتبة:


[align=center]http://www.vdstech.com/download/actualmap.exe[/align]

و عناصر المتوفرة به:

[grade="00008B FF6347 008000 4B0082"][B] *

Multiple map layers.
*




Dynamic map layers.
*

Pan and zoom through map layers.
*

Scale dependent layer display.
*

Automated relates from map data to databases.
*

Translucency support.
*

Map rotation.
*

Map data encryption.
*

Draw points, lines, ellipses, rectangles, polygons, labels and text strings directly onto maps.
*

Two Windows Forms controls included: Map control and Legend control. [/B[/grade]]



[align=center]م.نجد جمال الحناحنه[/align]


وهذا صورة للبرنامج


[align=center]http://www.gisclub.net/vb/images/upl...a6f9b3e211.gif[/align][IMG]http://www.gisclub.net/vb/images/upl...a703f6308e.gif

السلام عليكم و رحمه الله و بركاته
اشكر الاخ نجد جمال على هذا البرنامج الرائع و ااسف على التاخير في الرد بسبب انشغالي في تسليم مشاريع المعامل و بدايه الامتحانات النهائيه و ايضا بسبب انقطاع الانترنت في البيت لمده ، حيث تم تاجيل تسليم مشروع التخرج لبعد الامتحانات أى بعد 3 اسابيع و هذا الموعد نهائي.
بالنسبه لبرنامج الاكشول ماب فانه برنامج رائع فانه برنامج رائع و سهل البرمجه و لكن صعبت علىً بعض النقاط فارجو مساعدتي و لكم مني جزيل الشكر.
اولا: كيف اضيف صوره جويه بامتداد rrd
ثانيا : عند عمل full extent للشيب فايل التي على الخريطه تصغر اصغر من اللازم في منطقه صغيره جدا على الاداه map حيث سالت و قالو لي انه يجب ان اضبط بعض الاشياء في برنامج الجي اى اس لكي تكون digital فكيف اعمل .
ثالثا:كيف اصل لاسماء الحقول في جدول داخل الجي اى اس مثلا في مشروعي لدى جدول للمنازل حيث اسماء الحقول فيه كالتالي
Home Id , Home address, Home phone حيث اريد الوصول لجدول المنزل و ملى اداه ال combo box في البرنامج حيث يكون داخلها
Home id , Home address, home phone

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

اولا البرنامج يقبل الصور بامتداد ecw

or GeoTiff

يتم الحصول عليها من خلال تحويل الفورمات باستخدام Erdas Or ArcGIS

ويتم ادخالها وتكون صحيحه %%% وهذه الطريقة مجربة...............


اما بانسبة لعمل Fullextent

اولا قمي بتجربة

one layer

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

projection for layer is true for all layer (same projection)


الاخت الكريمة يوجد عمليا امثلة مرفقة تساعد في الحل ويجب قراءتها بتمعن ...وقمت بتجربة ذلك %%%

شكرا جزيلا على الرد.
كيف يمكن ان احول الصوره الجويه التي بامتداد rrd الي Geo Tiff في ARC GIS اي ماهي الخطوات. و بعد ذلك كيف اضيفها في الActual map .
اما بالنسبه لل full extent فلم افهم قصدك بتجربه one layer. و ماذا قصدت بالامثله المرفقه هل قصدت امثله برنامج الactual map .

الاخت الكريمه

rrd

هوليس فورمات للصورة وانما يتم تخزين المعلومات في الصورة في .rrd

للتسهيل في عمليات فتح الصور وفي عملية التكبير والتصغير

ويتم انشاءه عند عمل build pyramids

وقد تكون الصورة بامتداد img

وعادة تكون الصورة معها خمس ملفات:

.img

or
.jpg

and

aux

rrd

jgwx




وتعريفه:

When you choose to build pyramids, this information is stored in a reduced resolution dataset (RRD) file

من خلال

arcgis _______right click on image_______export______choose formate u need ___(._chose .img,.jpg.tiff

اما الامثلة فهي الموجودة في actual map

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




م.نجد الحناحنه

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

اداه الماب كنترول هي عباره عن اداه يتم عرض الخارطه الجويه عليها و يتم التعامل معها برمجيا بحيث يتم كتابه كود لتكبير و تصغير الخارطه و عمل فلاش و غيرها من العمليات .

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

لقد ظهرت الخارطه الجويه التي بامتداد tiff في برنامج ال actual map و لكن تجمعت كل الشيب فايل في نقطه صغيره و الصوره الجويه في المنتصف اي لم يتم الربط بين الشيب فايل و الصوره الجويه فهل المشكله في الاحداثيات ام ماذا و كيف استطيع حل هذه المشكله .
رجاءا رد سريع عن الموضوع .

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

ويجب وضع كود تعريف الاحداثيات في load page

example:



Me.Map1.CoordinateSystem.Code = CoordSystemCode.PCS_WGS84UTM_37N

شكرا جزيلا لك اخي
تقريبا كانت المشكله في ان بعض النقاط كانت خارج المشروع و تقريبا كانت المشكله في احداثيات الخريطه حيث الان و الحمد لله ظهرت الخريطه و الشيب فايل فوقها .
و لكن تواجهني مشكله حيث لدى طبقه اسمها house و في جدول البيانات الخاصه بهذه الطبقه يوجد لدى عده حقول منها telephone , block number حيث يتم قراءه رقم الهاتف المتصل و اريد من خلال رقم telephoneالوارد الحصول على لblock numberالذي هو في طبقه ال house فما هي الصيغه.

ايضا لدى مشكله اخرى حيث في برنامج الاكشول ماب يوجد الكود التالي و الذي هو لمقارنه القيمه المختاره من ال list مع حقل ال mobile الذي في طبقه ال house
field = map1["House"].SearchExpression("Mobile = \"" + FieldValuesList.SelectedItem + "\"");
و لكني اريد مقارنه القيمه المختاره من ال list مع قيمه متغير يتم تحديده مسبقا
مثلا المتغير f يتم تحديد قيمته حيث مثلا تساوي mobile و الذي هو اسم حقل و من ثم اريد صيغه المقارنه و لكن لا يكون الحقل او الطبقه المراد البحث فيها تابتين حيث اني كتبت الصيغه التاليه و لكن بها خطا
field = map1[(L)].SearchExpression(f= ""+FieldValuesList.SelectedItem+"");
حيث ال L يتم اعطائها اسم الطبقه
و ال f يتم اعطائها اسم الحقل

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

الحمد لله لقد حليت المشكله الاولى و لكن بقى لدى المشكله الثانيه فما هي الصيغه الصحيحه

في برنامج الاكشول ماب يوجد الكود التالي و الذي هو لمقارنه القيمه المختاره من ال list مع حقل ال mobile الذي في طبقه ال house
field = map1["House"].SearchExpression("Mobile = \"" + FieldValuesList.SelectedItem + "\"");
و لكني اريد مقارنه القيمه المختاره من ال list مع قيمه متغير يتم تحديده مسبقا
مثلا المتغير f يتم تحديد قيمته حيث مثلا تساوي mobile و الذي هو اسم حقل و من ثم اريد صيغه المقارنه و لكن لا يكون الحقل او الطبقه المراد البحث فيها تابتين حيث اني كتبت الصيغه التاليه و لكن بها خطا
field = map1[(L)].SearchExpression(f= ""+FieldValuesList.SelectedItem+"");
حيث ال L يتم اعطائها اسم الطبقه
و ال f يتم اعطائها اسم الحقل

الرجاء الرد سريعا و شكرا.

الحمد لله حلت المشكله
لكن لو ممكن طريقه للتحكم في التكبير حيث مثلا اريد تكبير block معين احيانا اذا كان حجم ال block صغير يتم تكبيره اكثر من اللازم بحيث تصبح الصوره غير واضحه فكيف يمكنني ان اتحكم في التكبير . حيث اني استخدم الكود التالي في التكبير
map1.Extent = field.RecordExtent;
map1.MapShapes.Clear();
MapShape shape = map1.MapShapes.Add(field.Shape);
Symbol s = new Symbol();
s.FillStyle = FillStyle.Invisible;
s.FillColor = Color.Yellow;
s.LineColor = Color.Red;
s.Size = 5;
shape.Symbol = s;
map1.Refresh();

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

المشكلة غير واضحة ارجو من الاخت الكريمة ان تبعث صور عن المشكلة ليتسنى لنا الاجابة

حيث قمت بقراءة الكود ولم اجد له علاقة بالمشكلة

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