Tescom MTP200B, Operating Manual

Page: 100 / 172

84
Sample Source Code
14.3 Sample Source Code
Imports System.IO.Ports
Public Class Main
Private index As Integer
Private buff As String
Private commands() As String = { _
"CONF:ANL:SG:MODE WLAN_11ag", _
"CONF:ANL:SG:CH_NUM 36", _
"CONF:ANL:SG:NUM_FRAME 10", _
"CONF:ANL:SG:RUN ON" _
}
' Open serial port
Private Sub bt_portOpen_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles bt_portOpen.Click
serial.BaudRate = 115200
serial.PortName = "COM3"
serial.Open()
End Sub
Private Sub Main_Disposed(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Disposed
serial.Close()
serial.Dispose()
End Sub
Private Sub serial_DataReceived(ByVal sender As Object, ByVal e As
System.IO.Ports.SerialDataReceivedEventArgs) Handles serial.DataReceived
If Me.InvokeRequired Then
Dim d As New SerialDataReceivedEventHandler(AddressOf serial_DataReceived)
Me.Invoke(d, New System.Object() {sender, e})
Exit Sub
End If
Dim rd As String = ""
If serial.IsOpen = True Then
If serial.BytesToRead > 0 Then
rd = serial.ReadLine()