01.
02.
03.
04.Public Sub Clear()
05. For i As Integer = 0 To _max - 1
06. _buffer(i) = " "
07. Next
08. Write(_buffer, 0, _buffer.Length)
09.End Sub
10.
11.
12.Public Sub SendMessage(ByVal pLine As Integer, ByVal pText As String)
13.
14.
15. Try
16. If _serial.IsOpen = False Then
17. _serial.Open()
18. End If
19.
20. Dim ch() As Char = pText.ToCharArray()
21.
22. pLine = pLine Mod 2
23.
24. For i As Integer = 0 To (_max / 2) - 1
25. If i < ch.Length Then
26. _buffer(((_max / 2) * pLine) + i) = ch(i)
27. Else
28. _buffer(((_max / 2) * pLine) + i) = " "
29. End If
30. Next
31.
32. Write(_buffer, 0, _buffer.Length)
33.
34. If _serial.IsOpen Then
35. _serial.Close()
36. End
37. Catch
38. End Try
39.End Sub
40.
41.Private Function Write(ByVal pBuffer() As Char, ByVal pOffset As Integer, ByVal pCount As Integer) As Boolean
42. Try
43. _serial.Write(pBuffer, pOffset, pCount)
44.
45. Return True
46. Catch
47. End Try
48. Return False
49.End Function
