frmfindportgps.vb

Chuong trinh tren PDA cho phep ket noi ve server va cap nhat du lieu ve PDA

Imports System.IO.Ports
Public Class FrmFindPortGPS

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kq As SerialPort
        Dim gps As New ClassGPS()
        kq = gps.FindPort()

        MessageBox.Show(kq.PortName.ToString())
        MessageBox.Show(kq.ReadTimeout.ToString())
        Me.Refresh()

    End Sub
End Class