วิธีหนึ่งที่เราจะหาพิกัดในแผนที่ สามารถทำได้โดยเปิด Browser แล้วเข้าไปที่เว็บไซต์
http://maps.google.co.th/
จากนั้นทำการซูมแผนที่จนได้ตำแหน่งที่ต้องการ แล้วทำดังนี้
1. คลิกเมาส์ปุ่มขวา ณ. ตำแหน่งที่ต้องการทราบพิกัด แล้ว เลือกรายการนี่คืออะไร
2. จะปรากฏเลขพิกัด ลองติจูด, ละติจูด ปรากฏขึ้นตามภาพด้านล่าง
สร้างฟอร์มแสดงแผนที่ ด้วย VB.Net
1. เปิดโปรแกรม Visual Studio 2010 แล้วสร้างโปรเจกต์ใหม่ โดย
- คลิกเลือกเมนู File เลือกรายการ New Project...
- ที่หน้าต่าง New Project เลือก Windows Form Application จาก Visual Basic -> Windows
- ที่ช่อง New ในหน้าต่าง New Project ให้ตั้งชื่อตามต้องการ
2. ให้สร้างฟอร์มดังภาพ
กำหนด Property ของคอนโทรลต่างๆ ดังนี้
Label1 : Text = Latitude
Label2 : Text = Longitude
Textbox1 : (Name) = txtLatidude
Textbox2 : (Name) = txtLongitude
Button1(Name) = btnSearch
Text = Search
WebBrowser1 : (Name) = WebBrowser1
ดับเบิ้ลคลิกที่ปุ่ม btnSearch แล้วเข้าไปเขียนโค้ดคำสั่ง ดังนี้
Imports System.Text
Public Class Form1
Private Sub btnSearch_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnSearch.Click
Try
Dim latitude As String = ""
Dim longitude As String = ""
Dim AddrToSearch As New StringBuilder()
AddrToSearch.Append("http://maps.google.com/maps?output=embed&hl=th&q=")
' if there is latitude
If txtLatitude.Text <> "" Then
latitude = txtLatitude.Text
AddrToSearch.Append(latitude & "%2C")
End If
' if there is longitude
If txtLongitude.Text <> "" Then
longitude = txtLongitude.Text
AddrToSearch.Append(longitude)
End If
' pass the AddrToSearch value to web browser control
WebBrowser1.Navigate(AddrToSearch.ToString())
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), _
"Problem encountered while retrieving google map")
End Try
End Sub
End Class
ทำการเรียกฟอร์มที่เขียนไว้ให้ทำงาน โดยกดปุ่ม F5 จะปรากฎหน้าต่างของโปรแกรมให้ทำการป้อนค่าของพิกัด โดยใส่ ลองติจูดและ ละติจูด ที่ได้จากการหาตำแหน่งในตอนแรก แล้วคลิกปุ่ม Search จะปรากฏแผนที่แสดงตำแหน่งดังภาพ
เราสามารถนำไปประยุกต์ใช้งานได้หลากหลาย สามารถนำไปใช้กับเว็บ นำไปใช้กับอุปกรณ์ GPS และอื่นๆ อีกมากมาย
3 กุมภาพันธ์ วันทหารผ่านศึก
