| iMido |
04-05-2012 04:57 AM |
كيفيه تضمين خدمه جوجل مابس لبرنامجك
بسمـ اللهـ الرحمنـ الرحيمـ
" ' كيفيهـ تضمينـ خدمهـ جوجلـ مابسـ لبرنامجكـ ' "
حطـ فى الفورمـ 4 تكيستـ بوكسـ و غير الخاصيهـ name فى كلـ واحد الى
Textbox1=> TStreet
Textbox2 => TZIP
Textbox3 => TCity
Textbox4 => TState
و حطـ 1 بوتونـ و 1 web browser
و استدعى System.Text
و الكود اهو معـ الشرحـ منـ خلالـ كومنتاتـ الكود
كود PHP:
'جميع المتغيرات هنا فى غايه الاهميه لانها ستحمل الاشياء والاماكن التى سنبحث فيها
Dim State As String = String.Empty
Dim City As String = String.Empty
Dim Street As String = String.Empty
Dim ZIP As String = String.Empty
Dim Link As New StringBuilder
' هذا هو دور السترينج بيلدر
' تكوين لينك البحث
' (الموجود فيها بالفعل ) Q و الوظيفه ابيند تدخل اليها نص بتنسيق معين دون انا تحذف النص الحالى
Link.Append("http://maps.google.com/maps?q=")
Try
'هنا نخبر المترجم اذا كان التكست بوكس يحتوى على نصوص انتقل للسظر التالى
If TState.Text <> String.Empty Then
'هنا نعدل النص المدخل بحذف الفواصل والمسافات و التعويض عنها بعلامه + لتناسب نسق البحث فى جوجل
State = TState.Text.Replace(" ", "+")
'هنا ندخل النص بعد التعديل عليه الى السترينج بيلدر
Link.Append(State + "," & "+")
End If
'نفس السابق لكن بتغير اسم التكيست بوكس والمتغير
If TCity.Text <> String.Empty Then
City = TCity.Text.Replace(" ", "+")
Link.Append(City + "," & "+")
End If
If TStreet.Text <> String.Empty Then
Street = TStreet.Text.Replace(" ", "+")
Link.Append(Street + "," & "+")
End If
If TZIP.Text <> String.Empty Then
ZIP = TZIP.Text.Replace(" ", "+")
Link.Append(ZIP + "," & "+")
End If
' هنا نكون قد انتهينا من اعداد جمله او لينك البحث
' باقى فقط ان نجعل ال ويب بروسر يعرضه
WebBrowser1.Navigate(Link.ToString)
' استخدمنا داله التحويل تو سترينح لتحويل الاشياء الموجوده ب المتغير لينك الى نصوص ليتم عرضها
Catch ex As Exception
' وظيفه الحمله التاليه فى حاله اقتناص خطا تقوم بعرض رساله فيها سبب الخطا و وصفه
MessageBox.Show(ex.Message, Err.Description.ToString())
End Try
اى خدمهـ انا موجود
كلمهـ شكر واحدهـ كفايهـ تفرحنى وترفعـ منـ روحى المعنويهـ
مع تحيات : ى
سمو عليكو |
