رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


parviz

کاربر عادی
  • تعداد ارسال ها

    11
  • تاریخ عضویت

  • آخرین بازدید

اعتبار در سایت

1 متوسط

درباره parviz

  • درجه
    کاربر
  • تاریخ تولد تعیین نشده
  1. با سلام و عرض ادب خدمت تمامي دوستان و مهندسان گرانقدر لطفا اگر در صورت امكان بفرماييد كه چطوري ميتونم مختصاتي را كه از ديتا بيس ميگيريم رو در ماركر گوگل قرار دهم خيلي ممنون ميشم اين سورس برنامم 'Activity module Sub Process_Globals Dim GPS1 As GPS Dim ht2 As HttpJob End Sub Sub Globals Dim mFragment As MapFragment Dim gmap As GoogleMap Dim MapPanel As Panel Dim LM As LocationManagerEx Dim GpsEnable As Button Dim PolygonDraw As Button Dim label1 As Label Dim parviz As Double Dim a As Byte Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) a=a+1 label1.Text=a Activity.LoadLayout("test1") ht2.Initialize("read",Me) ht2.PostString("http://www.sim808.com/gps/readdata.php","") MapPanel.Initialize("") Activity.AddView(MapPanel, 0, 0, 100%x, 90%y) If mFragment.IsGooglePlayServicesAvailable = False Then Dim a As Int = Msgbox2("گوگل پلی را نصب می کنید؟", "", "بله", "خیر", "", Null) If a = DialogResponse.POSITIVE Then Dim PI As PhoneIntents StartActivity(PI.OpenBrowser("http://cafebazaar.ir/app/?id=com.google.android.gms")) Else ExitApplication End If Else mFragment.Initialize("Map", MapPanel) End If LM.Initialize("LM") GPS1.Initialize("GPS") GpsEnable.Initialize("GpsEnable") PolygonDraw.Initialize("PolygonDraw") Activity.AddView(GpsEnable, 10%x, 2%y, 20%x, 10%y) GpsEnable.Text = "GpsEnable" Activity.AddView(PolygonDraw, 60%x, 2%y, 20%x, 10%y) PolygonDraw.Text = "PolygonDraw" End Sub Sub Map_Ready gmap = mFragment.GetMap If gmap.IsInitialized = False Then ToastMessageShow("Error initializing map", True) Else ' gmap.AddMarker(39.054925, 46.2650,15) 'parviz=ht2.GetString gmap.AddMarker(parviz,parviz,15) gmap.AddMarker2(38.054920,46.2650, parviz, gmap.HUE_ROSE) Dim cp As CameraPosition cp.Initialize(38.054920, 46.2650, 15) gmap.AnimateCamera(cp) gmap.MapType = gmap.MAP_TYPE_NORMAL gmap.MyLocationEnabled = True gmap.TrafficEnabled = True gmap.GetUiSettings.AllGesturesEnabled = True End If End Sub Sub GpsEnable_Click If GPS1.GPSEnabled = False Then StartActivity(GPS1.LocationSettingsIntent) Else LM.requestGPSLocation End If End Sub Sub b_Click End Sub Sub PolygonDraw_Click Dim a(5) As LatLng a(0).Initialize(35.69726412, 51.42567158) a(1).Initialize(35.69541694, 51.42766714) a(2).Initialize(35.69313405, 51.42786026) a(3).Initialize(35.69121706, 51.42382622) a(4).Initialize(35.69167017, 51.42987728) Dim l As List l.Initialize For i = 0 To 3 l.Clear l.Add(a(i)) l.Add(a(i+1)) Dim PL As PolygonOptions PL.Initialize PL.AddPoints(l) PL.StrokeColor = Colors.Red gmap.AddMarker(a(i).Latitude, a(i).Longitude, i) Dim GME As GoogleMapsExtras GME.AddPolygon(gmap, PL) Next End Sub Sub LM_locationchanged(locArg As Location) Dim cp As CameraPosition cp.Initialize(locArg.Latitude, locArg.Longitude, 14) gmap.AnimateCamera(cp) LM.stopGPSListening End Sub Sub JobDone (job As HttpJob) If job.Success=True Then If job.JobName="read" Then ProgressDialogHide label1.Text=ht2.GetString End If Else ToastMessageShow("خطا در برقرای اتصال",False) End If End Sub دريافت سورس
  2. سلام مشكل من حل شد فقط ميخوام به جاي اين اعداد از متغير استفاده كنم هموني كه از ديتابيس ميگيرم gmap.AddMarker2(38.054920, 46.2650, "", gmap.HUE_ROSE) متغير رو ميزارم ولي مقدار صفر نشون ميده اينم كدهاي برنامه Sub Process_Globals Dim GPS1 As GPS Dim ht2 As HttpJob End Sub Sub Globals Dim mFragment As MapFragment Dim gmap As GoogleMap Dim MapPanel As Panel Dim LM As LocationManagerEx Dim GpsEnable As Button Dim PolygonDraw As Button Dim b As Button Dim label1 As Label Dim parviz As Double End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("test1") ht2.Initialize("read",Me) ht2.PostString("http://www.sim808.com/gps/readdata.php","") MapPanel.Initialize("") Activity.AddView(MapPanel, 0, 0, 100%x, 90%y) If mFragment.IsGooglePlayServicesAvailable = False Then Dim a As Int = Msgbox2("گوگل پلی را نصب می کنید؟", "", "بله", "خیر", "", Null) If a = DialogResponse.POSITIVE Then Dim PI As PhoneIntents StartActivity(PI.OpenBrowser("http://cafebazaar.ir/app/?id=com.google.android.gms")) Else ExitApplication End If Else mFragment.Initialize("Map", MapPanel) End If LM.Initialize("LM") GPS1.Initialize("GPS") GpsEnable.Initialize("GpsEnable") PolygonDraw.Initialize("PolygonDraw") Activity.AddView(GpsEnable, 10%x, 2%y, 20%x, 10%y) GpsEnable.Text = "GpsEnable" Activity.AddView(PolygonDraw, 80%x, 30%y, 20%x, 35%y) PolygonDraw.Text = "PolygonDraw" End Sub Sub Map_Ready gmap = mFragment.GetMap If gmap.IsInitialized = False Then ToastMessageShow("Error initializing map", True) Else ' gmap.AddMarker(39.054925, 46.2650,15) gmap.AddMarker2(38.054920, 46.2650, parviz, gmap.HUE_ROSE) Dim cp As CameraPosition cp.Initialize(38.054920, 46.2650, 15) gmap.AnimateCamera(cp) gmap.MapType = gmap.MAP_TYPE_NORMAL gmap.MyLocationEnabled = True gmap.TrafficEnabled = True gmap.GetUiSettings.AllGesturesEnabled = True End If End Sub Sub GpsEnable_Click If GPS1.GPSEnabled = False Then StartActivity(GPS1.LocationSettingsIntent) Else LM.requestGPSLocation End If End Sub Sub b_Click End Sub Sub PolygonDraw_Click Dim a(5) As LatLng a(0).Initialize(35.69726412, 51.42567158) a(1).Initialize(35.69541694, 51.42766714) a(2).Initialize(35.69313405, 51.42786026) a(3).Initialize(35.69121706, 51.42382622) a(4).Initialize(35.69167017, 51.42987728) Dim l As List l.Initialize For i = 0 To 3 l.Clear l.Add(a(i)) l.Add(a(i+1)) Dim PL As PolygonOptions PL.Initialize PL.AddPoints(l) PL.StrokeColor = Colors.Red gmap.AddMarker(a(i).Latitude, a(i).Longitude, i) Dim GME As GoogleMapsExtras GME.AddPolygon(gmap, PL) Next End Sub Sub LM_locationchanged(locArg As Location) Dim cp As CameraPosition cp.Initialize(locArg.Latitude, locArg.Longitude, 14) gmap.AnimateCamera(cp) LM.stopGPSListening End Sub Sub JobDone (job As HttpJob) If job.Success=True Then If job.JobName="read" Then ProgressDialogHide label1.Text=ht2.GetString End If Else ToastMessageShow("خطا در برقرای اتصال",False) End If End Sub
  3. با عرض سلام خدمت دوستان گرامي ميخواستم به ديتابيسم وصل شم و خونه اي از جدول رو بخونم از دوستان تقاضاي كمك دارم لطفا
  4. سلام مهندس

    من  ميخوام تو برنامم گوگل مپ رو داشته باشم

    api رو هم از گوگل گرفتم

    ولي هر كاري ميكنم نقشه لود نميشه

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

    1. محمدرضا شاهپیری

      محمدرضا شاهپیری

      تاپیک بزنید دوست عزیز.

  5. سلام مهندس

    من برنامه گوگل مپ شما روكامپايل ميكنم با ارور زير روبروميشم 1_817c6.jpg

  6. در ضمن ميشه بفرمايين كتابخونه google map extra رو از كدوم سايت دريافت كنم
  7. سلام مهندس جان ميشه بگي b4a و تمام متعلقات اونو چجوري و از كجا ميتونم آپديت كنم
  8. سلام مهندس جان مي بخشيد كه خيلي دردسر ميدم من فايل دوست عزيزمون آقاي خليلي رو دانلود و نصب ميكنم ولي متاسفانه نقشه اي لود نميشه اينم فايل من http://up.iranblog.com/uploads/parviz.rar
  9. با عرض سلام خدمت تمامي مهندسان عزيز و گرامي دوستان اگه لطف كنن و بفرمايين كه چجوري api رو از گوگل ميگيريم ممنون ميشم
  10. سلام مهندس جان وقت بخير

    كتابخونه goolemap تو b4a نشون داده نميشه چيكار كنم

     

    1. kmohazzab

      kmohazzab

      سلام خرید کردم چیزی نیست ؟

      سفارش #4506

      ممنون

×
×
  • جدید...