close 
      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
arrow
arrow
    全站熱搜
    創作者介紹
    創作者 dwanue 的頭像
    dwanue

    dwanue IT Life

    dwanue 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄