Ahmadusb

دوستان من یه کتابخانه جامع برای جسنجو کردن بر حسب نام یا موقعیت جغرافیای نوشتم ,هرکس خواست بگه تا براش بفرستم البته به دلیل محدودیت در api گوگل خودتون باید api بگیرید

ممنونم که پاسخ ندادین ودلیل خطا کتابخانه httputils2 بود وبا تغییر اون به okhttputils2 مشکل برطرف شد ممنونم که پاسخ ندادین ودلیل خطا کتابخانه httputils2 بود وبا تغییر اون به okhttputils2 مشکل برطرف شد

با عرض سلام خدمت تمام دوستان عریر من در یکی از اپ هام از کتابخانه جی کدر geocoder ([جستجوی یک آدرس بر اساس نام یا موقعیت اعشاری در sdk گوگل) استفاده کردم که این کتابخانه رو از سایت b4a دانلود کردم ومشکلی نداشت تا اینکه چند وقت پیش که دیگه کار نمیکنه وبا جستجو کردن فهمیدم که مشکل در api گوگل خود کتابخانه است که سازندشم متاسفانه انگاری یادش رفته چه api بوده که ریستش کنه و در سایت این کد و جایگزین دادن ومن بعد از گرفتن api جدید و گذاشتن اون در کد متاسفانه جواب نگرفتم و job ساکسس نمیشه ودر لاگ error نمایان میشه اینو هم بگم که از طریق کروم درخواست دادم و جواب گرفتم ولی تو بیسیک نه Sub btnGetLatLong_Click Wait For(PlaceToLatLon(txtAddress.Text.trim)) Complete (ll() As Double) If ll(0) <> 9999 Then Msgbox("Location: " & ll(0) & ", " & ll(1),"") Else Msgbox("","Failed to geocode.") End If End Sub Sub PlaceToLatLon(Place As String) As ResumableSub Dim res() As Double = Array As Double(9999, 9999) Dim j As HttpJob j.Initialize("", Me) j.Download2("https://maps.googleapis.com/maps/api/geocode/json", Array As String("key","my api", "address", Place)) Wait For (j) JobDone(j As HttpJob) If j.Success Then Dim jp As JSONParser jp.Initialize(j.GetString) Dim m As Map = jp.NextObject If m.Get("status") = "OK" Then Dim results As List = m.Get("results") If results.Size > 0 Then Dim first As Map = results.Get(0) Dim geometry As Map = first.Get("geometry") Dim location As Map = geometry.Get("location") res(0) = location.Get("lat") res(1) = location.Get("lng") End If End If Else Log("Error!") End If j.Release Return res End Sub

جریب - یک نرم افزار محاسباتی بسیار دقیق وهوشمند می باشد که با استفاده از آن می توانید اندازه گیری های مختلفی مانند محاسبه فاصله ۲ یا چند نقطه از هم محاسبه فاصله بین شهری محاسبه مساحت زمین به دو روش دستی وبا استفاده از جی پی اس مختصات جغرافیای بر اساس درجه اعشاری و UTM سرعت سنج و … را در نقشه محاسبه نمایید. این نرم افزار دقیقا بر اساس نقشه های هوایی است که با استفاده از آن می توانید اطلاعات بسیار مفیدی را در در فیلدهای کاری مختلفی مانند باغ ها و مزارع زمین گلف، تور دوچرخه سواری سطح مراتع زمینه های کشاورزی پنل های خورشیدی مساحت سقف، تاسیسات زیرزمینی مهندسی عمران وسایر شاخهای مرتبط کارشناسی جهاد کشاورزی وقوه قضایی و … استفاده کرد. بر همین اساس شما می توانید واحد های اندازه گیری میزان مساحت را تغییر دهید. - برخی از مهم ترین ویژگی های نرم افزار محاسبه مساحت زمین به روش دستی وبا استفاده از نقشه هوای در مواقعی که دسترسی به زمین ندارید. محاسبه مسا حت زمین با استفاده از جی پی اس دستگاه تلفن در مواقعی که دسترسی به زمین دارید محاسبه مسافت بین شهری یا فاصله بین دو یا چند نقطه از هم محاسبه سرعت حرکت به همراه میانگین و حداکثر سرعت در زمان رانندگی یا پیاده روی یا کوهنوردی و همچنین نمایش مسیر حرکت بر روی نقشه به همراه فاصله طی شده بدست آوردن مختصات جغرافیای مکان دلخواه به همراه نام مکان با کلیک کردن بر روی آن یا جستجو کردن نام آن ردیابی وهدایت افراد در مواقعی که گم شده اند امکان ذخیره پیمایش مساحت ودسترسی آسان به آن در هر زمان امکان جستجو نام مکان دلخواه برای دسترسی سریعتر... امکان تغییر واحد های اندازه گیری میزان مساحت(متر مربع ,کیلومتر مربع ,هکتار ,مایل مربع) امکان تغییر حالت نمایش نقشه طراحی فوق العاده هوشمند امکان استفاده از نرم افزار در فیلدهای کاری مختلف دارای ردیاب جهت محاسبه میزان پیاده روی و رانندگی تغییر تم یا پوسته نرم افزار به رنگ دلخواه استفاده بسیار آسان و .... دانلود از کافه بازار http://cafebazaar.ir/app/com.mohasebe.iran کانال نرم افزار در تلگرام Telegram: Join Group Chat ارتباط با برنامه نویس در تلگرام ahmad_bakhtiyare@ ممنون میشم دانلود کنید و نطر بدید دوستان

منم این مشکل و داشتم با این کد برطرفش کردم تغییر زنگ خط اول Dim l As Label l = ListView.TwoLinesAndBitmap.Label l.TextColor=Colors.White تغییر زنگ خط دوم Dim Label1 As Label Label1 =ListView.TwoLinesAndBitmap.SecondLabel Label1.TextColor = Starter.primary

با سلام خدمت اساتید گرامی ،بنده در نرم افزارم از جي پی اس استفاده میکنم ولی همون طور که می دونيد جي پی اس خطا داره ،آیا الگوریتمی هست که خطای جي پی اس رو بگیره یا زیر نیم متر برسونه ،ممنون میشم کمکم کنید

با سلام خدمت اساتید گرامی من می خوام محدوده ای از نقشه رو که انتخاب کردم و دور تا دورشم خط کشیدم رو با رنگ مورد نظرم پر کنم،ممنون میشم کمکم کنید

با سلام آموزش های آقای خلیلی رو دنبال کردم ولی بازم با این مشکل برخورد میکنم این مشکل اصلا از چی هستش

با سلام وعرض ادب خدمت تمام اساتید گرامی بنده یک برنامه دارم که در اون از نقشه گوگل مپ استفاده میکنم اما متاسفانه هنگام لود شدن نقشه بجای صفحه شطرنجی صفحه سفید بالا میاد وهیچ کاری صورت نمیگیره .ممنون میشم کمکم کنید

با سلام خدمت اساتید عزیز اگر ممکنه نحوه ساختن ساید بار در برنامه را تصویری آموزش بدید ممنون میشم

سلام میشه کاری کرد که دیگه به تنظیمات اون بخش نریم و بجاش با کلیک کردن کار همون قسمت تنظیمات رو انجام بدیم به فرض با کلیک روی دکمه ای در برنامه فلش یا رم رو unmount کنیم دیگه اينتنت نزاریم که ذره به تنظیمات گوشی . ممنون میشم کمکم کنی

با سلام میشه کاری کرد که دیگه به تنظیمات اون بخش نریم و بجاش با کلیک کردن کار همون قسمت تنظیمات رو انجام بدیم به فرض با کلیک روی دکمه ای در برنامه فلش یا رم رو unmount کنیم دیگه اينتنت نزاریم که ذره به تنظیمات گوشی . ممنون میشم کمکم کنید

با سلام خواستم دکمه ای ایجاد کنم که با زدن اون یه بخش خاص تنظیمات گوشی اجرا بشه منظورم اجرا بشه نه ببرم به تنظیمات اون بخش مثل اينتنت نمی خوام

با سلام خدمت اساتید بزرگوار بنده می خوام از رو نقشه مساحت و محیط رو در بیارم یعنی نقاطی رو مشخص کنم وبعد از اتصال نقاط به هم هم محیط وهم مساحت اون زمین رو بهم بگه ممنون میشم کمکم کنید