Jump to content

kerosan

Learning
 View Profile  See their activity

  • Content Count

    7

  • Joined

  • Last visited

Posts posted by kerosan

  1. Posted · Report reply

    assalamualaikum warga putera..

     

    skang ni ak dh pening kepala buat bnda ni..

    nk tanya..mcm mana nk convert data gps yg gprmc ke decimal dalam vb.net

     

    sbb kalau amik sebiji data gprmc dan terus masuk ke google map..memang coordinate tak brape betul..

    ak try google..jmpe satu cara..ak kena convert data gprmc ke decimal..

     

    mcm cnth:

     

    Latitude = 2 degrees 8.6038 minutes
                   = 2 + (8.6038/60) degrees
                   = 2.1433967 degrees

     

    tapi yang menjadi masalah kat aku..

    ak dh buat mcm2 tapi still tak jadi..

    balik2 keluar data gprmc..memang coordinate dia akan lari jauh..

     

    ni coding vb.net ak..

     

     

    Imports System
    Imports System.IO.Ports
    Public Class Form1
     
        '1. Define (create) the delegate type we want to use. It will be
        '   a SUB with one argument (a string)
     
        Delegate Sub SetReceivedText(ByVal ReceivedData As String)
        '2. Declare a variable of the correct type
        Dim d As SetReceivedText
        'define a string
        Dim data_received As String
     
        Private Sub get_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles get_btn.Click
     
            'if port is open
            If SerialPort1.IsOpen Then
     
                SerialPort1.RtsEnable = False
                SerialPort1.DtrEnable = False
                SerialPort1.Close()
     
                Application.DoEvents()
     
            End If
     
            'set port setting
            SerialPort1.PortName = "COM16"
            SerialPort1.BaudRate = 9600
            SerialPort1.DataBits = 8
            SerialPort1.Parity = 0
            SerialPort1.StopBits = IO.Ports.StopBits.One
            SerialPort1.WriteTimeout = 2000
     
            Try
     
                'open port
                SerialPort1.Open()
     
            Catch ex As Exception
     
                'give alert any problem
                MsgBox(ex.Message)
     
            End Try
     
            If SerialPort1.IsOpen Then
                SerialPort1.RtsEnable = True
     
            End If
     
            lblStatus.Text = "GPS connected"
     
        End Sub
     
     
        Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
     
     
     
            'get data from serial port
            data_received = SerialPort1.ReadLine
     
     
            'give an alert when data received
            'MsgBox(data_received)
            Me.Invoke(New EventHandler(AddressOf DoUpdate))
     
        End Sub
     
        Public Sub DoUpdate(ByVal sender As Object, ByVal e As System.EventArgs)
     
            Dim str As String
            Dim strArr() As String
            Dim position, Lposition As Integer
            Dim nPosition, LnPosition As Double
            Dim myString, LmyString As String
            Dim ldString, LldString
            Dim minutestr, degreestr As String
            Dim minutes, degree As Double
     
                'Dim count As Integer
                str = data_received
                strArr = str.Split(",")
                'For count = 0 To strArr.Length - 1
                'MsgBox(strArr(count))
                'Next
     
                If strArr(0) = "$GPRMC" Then
     
                ListBox1.Items.Add(data_received)
                txtReceived.Text = data_received
     
                position = strArr(3).IndexOf(".")
                nPosition = degree
                myString = strArr(3).Replace(".", "")
     
                minutestr = myString.Substring(position - 2)
                minutes = Double.Parse(minutestr, New System.Globalization.CultureInfo("en-US"))
                degreestr = myString.Substring(0, position - 2)
                degree = Convert.ToDouble(degreestr) + minutes / 60
     
                ldString = myString.Insert(nPosition, ".")
                txtLadtitute.Text = ldString
     
                Lposition = strArr(5).IndexOf(".")
                LnPosition = Lposition - 2
                LmyString = strArr(5).Replace(".", "")
                LldString = LmyString.Insert(LnPosition, ".")
                txtLongitude.Text = LldString
     
                WebBrowser1.Navigate("http://maps.google.com/?q=" & txtLadtitute.Text & "," & txtLongitude.Text)
     
            End If
     
        End Sub
     
    harap sgt otai2 putera dapat beri bantuan..

  2. Posted · Report reply

    [quote name='M3ntary™' timestamp='1340766116' post='1082996']
    Kalau ko buat client pc pun ok jugak. Guna 1 pc boleh guna 10 orang. Masa ku belajar dulu member ku ada buat project tu. Dapat excellent lagi. Benda tu sekarang baru nak start jual. Tapi kira boleh lagi kalau ko nak buat.
    [/quote]

    mcm mana client pc tu berfungsi?

  5. Posted · Edited by cracker_mode · Report reply

    assalamualaikum semua..

    sy semester depan akn amik fyp..
    puas sy fikir tajuk yang sesuai utk fyp sy ni..
    naik pening pk ape yg ptut sy buat utk fyp degree ni..
    sy student degree in networking..
    skill programming tak berape kukuh..
    jadi sy fikir nk buat project berkaitan:

    i) wireless sensor
    ii) security

    jadi nak mintak bantuan kat otai2..
    utk berikan sedikit idea tentang fyp ni..
    ataupun otai2 ada idea yg lebih menarik utk fyp sy ni..
    terima kasih..

  7. Posted · Report reply

    sy ader ken wat 1 final project...

    n sy plih utk wat system tempahan tiket flight...

    dlm form design yg sy wat secara roug....

    sy ader letak utk penggunaan dwi bahasa....

    cam ner nak jdkn form tue...

    ble kt klik at button radio bahasa melayu...so form 2 tukar dlm bahasa melayu...n seterusnya.

    ader coding yg perlu digunakan atau pun sy kne wat dua form dlm 2 bahasa yg berlainan..

    then link kn forum ....

    tlg sy...

×
×
  • Create New...