dwanue IT Life

      If Not SerialPort1.IsOpen Then
         Dim big5 = System.Text.Encoding.GetEncoding("big5")
         Dim Chidata As Byte() = big5.GetBytes("測試我的程式123" & vbCrLf)
         SerialPort1.Open()
         SerialPort1.WriteLine("Test my program!!")
         SerialPort1.Write(Chidata, 0, Chidata.Length)
         SerialPort1.Close()
      End If