VFD2002Uで桁落ちがする場合

PCがVFD2002Uへ文字列を全て送信する前にシリアルポートをクローズすることで、桁落ちが発生している可能性があります。

以下の通り、シリアルポートクローズの前にSleepを入れて、全データ送信後にシリアルポートをクローズするようお試しください

-------------------------------
' VBサンプルプログラム
Private Sub SendVfd(ByVal mesTxt As String)
　Try
　　'シリアルポートオープン
　　serPort.Open()

　　'データ送信
　　serPort.Write(mesTxt)

　Catch ex As Exception
　　MsgBox("シリアル通信エラー", MsgBoxStyle.Critical)
　　End Try
　　' 100msスリープ（お客様環境に応じて値を適宜変更して下さい）
　　Threading.Thread.Sleep(100)

　　While serPort.BytesToWrite > 0
　　End While

　　'シリアルポートクローズ
　　serPort.Close()

End Sub
-------------------------------