Serial-Port Handler - Kann timer nicht starten

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Serial-Port Handler - Kann timer nicht starten

    Hallo,

    ich habe eine Sub, die jedes mal aufgerufen wird wenn über die Serielle Schnittstelle Daten reinkommen.
    Dort starte ich ein Timer. Jedoch wird der Timer nicht gestartet und es passiert nicht das was ich möchte.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    2. Imports System.IO.Ports
    3. Imports System ' BitConverter-Klasse
    4. Imports System.Collections ' BitArray-Klasse
    5. Imports System.Runtime.CompilerServices ' Extension-Attribut
    6. Imports System.Net.NetworkInformation
    8. Public Class Form1
    9. Dim i As Integer
    10. Dim y As Integer
    12. Dim pen1 As New System.Drawing.Pen(Color.Black, 1)
    13. Dim fnt As Font = New Font("Courier New", 8)
    14. Dim DIGIT As Font = New Font("Quartz MS", 20)
    16. Dim _sp As New SerialPort()
    17. Public COMPORT As String
    18. Public Baudrate As Integer
    20. Dim bmp As New Bitmap(128, 64, Imaging.PixelFormat.Format24bppRgb)
    22. Dim g As System.Drawing.Graphics
    23. Dim cdrive As System.IO.DriveInfo
    24. Dim length As Integer = 65
    25. Dim spos As Integer = 28
    26. Dim NUM As Integer = 0
    27. Dim selected As Integer = 1
    30. Function MENU(ByVal Control As PictureBox, ByVal num As Integer)
    31. ' Grafikbereich bereitstellen
    32. g = Graphics.FromImage(bmp)
    33. ' Textrenderer herunterschrauben (Keine Graustufen)
    34. g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
    35. ' Grafikbereich löschen (mit "Weiss" übermalen)
    36. Dim clearall As New Rectangle(0, 0, 128, 64)
    37. Dim clearallbrush As New LinearGradientBrush(clearall, Color.White, Color.White, LinearGradientMode.Horizontal)
    38. g.FillRectangle(clearallbrush, clearall)
    39. ' Menü-Bereich Zeichnen
    40. Dim menubl As New Rectangle(0, 0, 128, 14)
    41. Dim menublbrush As New LinearGradientBrush(menubl, Color.Black, Color.Black, LinearGradientMode.Horizontal)
    42. g.FillRectangle(menublbrush, menubl)
    43. g.DrawString("MENU", fnt, Brushes.White, 50, 0)
    44. ' Verfügbare Funktionen anzeigen
    45. g.DrawString("PC-INFO", fnt, Brushes.Black, 40, 15)
    46. g.DrawString("DIGI-CLOCK", fnt, Brushes.Black, 30, 30)
    47. ' "Ausgewählt"-Feld anzeigen
    48. g.DrawString("->", fnt, Brushes.Black, 5, (15 * num))
    49. g.DrawRectangle(pen1, 0, 15 * num, 127, 14)
    50. 'Grafik "konvertieren" und senden
    51. BitmapToBLCD(bmp)
    52. Return bmp
    53. End Function
    55. Function Digital_Clock(ByVal Control As PictureBox)
    56. ' Grafikbereich bereitstellen
    57. g = Graphics.FromImage(bmp)
    58. ' Textrenderer herunterschrauben (Keine Graustufen)
    59. g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
    60. ' Grafikbereich löschen (mit "Weiss" übermalen)
    61. Dim clearall As New Rectangle(0, 0, 128, 64)
    62. Dim clearallbrush As New LinearGradientBrush(clearall, Color.White, Color.White, LinearGradientMode.Horizontal)
    63. g.FillRectangle(clearallbrush, clearall)
    64. ' Ein "Weisses Rechteck" definieren
    65. Dim cleararea As New Rectangle(1, 29, 126, 34)
    66. Dim _cleararea As New LinearGradientBrush(cleararea, Color.White, Color.White, LinearGradientMode.Horizontal)
    67. ' Ein "Schwarzes Rechteck" definieren
    68. Dim filled As New Rectangle(0, 28, 128, 36)
    69. Dim _filled As New LinearGradientBrush(filled, Color.Black, Color.Black, LinearGradientMode.Horizontal)
    70. ' Datum usw auslesen
    71. Dim Jahr As Integer = Date.Now.Year
    72. Dim _Monat As Integer = Date.Now.Month
    73. Dim _Tag As Integer = Date.Now.DayOfWeek
    74. ' Monats-Tabelle
    75. Dim Monat_Liste() As String = {"Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"}
    76. ' Tag-Tabelle
    77. Dim Tag_Liste() As String = {"Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag"}
    78. ' Tag in der Tabelle auslesen und in einer Variable abspeichern
    79. Dim Monat As String = Monat_Liste(_Monat - 1)
    80. Dim Tag As String = Tag_Liste(_Tag - 1)
    81. ' Schwarzer Rand zeichnen
    82. g.FillRectangle(_filled, filled)
    83. g.FillRectangle(_cleararea, cleararea)
    84. 'Datum und Uhr zeichnen
    85. g.DrawString(Tag & ", den " & Date.Now.Day.ToString & ".", fnt, Brushes.Black, 1, 1)
    86. g.DrawString(Monat & " " & Jahr.ToString, fnt, Brushes.Black, 1, 12)
    87. g.DrawString(Date.Now.ToString("HH:mm:ss"), DIGIT, Brushes.Black, 1, 27)
    88. 'Grafik "konvertieren" und senden
    89. BitmapToBLCD(bmp)
    90. Return bmp
    91. End Function
    93. Function PCInfo(ByVal Control As PictureBox)
    94. ' Zeilen definieren
    95. Dim zeile1 As Integer = 4
    96. Dim zeile2 As Integer = 16
    97. Dim zeile3 As Integer = 28
    98. Dim zeile4 As Integer = 40
    99. ' Grafikbereich bereitstellen
    100. g = Graphics.FromImage(bmp)
    101. ' Textrenderer herunterschrauben (Keine Graustufen)
    102. g.TextRenderingHint = Drawing.Text.TextRenderingHint.SingleBitPerPixelGridFit
    103. ' Grafikbereich löschen (mit "Weiss" übermalen)
    104. Dim clearall As New Rectangle(0, 0, 128, 64)
    105. Dim clearallbrush As New LinearGradientBrush(clearall, Color.White, Color.White, LinearGradientMode.Horizontal)
    106. g.FillRectangle(clearallbrush, clearall)
    108. ' Kategorieren und Leere Ladebalken zeichen
    109. g.DrawString("CPU", fnt, Brushes.Black, 0, zeile1 - 1)
    110. g.DrawRectangle(pen1, spos, zeile1, length, 10)
    112. g.DrawString("RAM", fnt, Brushes.Black, 0, zeile2 - 1)
    113. g.DrawRectangle(pen1, spos, zeile2, length, 10)
    115. g.DrawString("DSK", fnt, Brushes.Black, 0, zeile3 - 1)
    116. g.DrawRectangle(pen1, spos, zeile3, length, 10)
    118. g.DrawString("NET", fnt, Brushes.Black, 0, zeile4 - 1)
    120. ' -CPU-
    121. ' CPU-Infos auslesen
    122. i = PerformanceCounter1.NextValue
    123. y = (length * i) / 100
    124. If y = 0 Then y = 1
    126. Dim rect As New Rectangle(spos, zeile1, y, 10)
    127. g.DrawString(i.ToString + "%", fnt, Brushes.Black, 95, zeile1 - 1)
    128. Dim gradientBrush As New LinearGradientBrush(rect, Color.Black, Color.Black, LinearGradientMode.Horizontal)
    129. g.FillRectangle(gradientBrush, rect)
    131. ' -RAM-
    132. ' RAM-Infos auslesen
    133. i = PerformanceCounter2.NextValue
    134. y = (length * i) / 100
    135. If y = 0 Then y = 1
    136. rect = New Rectangle(spos, zeile2, y, 10)
    138. g.DrawString(i.ToString + "%", fnt, Brushes.Black, 95, zeile2 - 1)
    139. gradientBrush = New LinearGradientBrush(rect, Color.Black, Color.Black, LinearGradientMode.Horizontal)
    140. g.FillRectangle(gradientBrush, rect)
    142. ' -DISK C:\-
    143. ' DSK-Infos auslesen
    144. cdrive = My.Computer.FileSystem.GetDriveInfo("C:\")
    145. i = (100 * (cdrive.TotalSize - cdrive.AvailableFreeSpace) / cdrive.TotalSize)
    146. y = (length * i) / 100
    147. If y = 0 Then y = 1
    148. rect = New Rectangle(spos, zeile3, y, 10)
    149. g.DrawString(i.ToString + "%", fnt, Brushes.Black, 95, zeile3 - 1)
    150. gradientBrush = New LinearGradientBrush(rect, Color.Black, Color.Black, LinearGradientMode.Horizontal)
    151. g.FillRectangle(gradientBrush, rect)
    153. 'Netzwerk Up- & Download lesen
    154. Dim up As Integer = Math.Round(PerformanceCounter3.NextValue / 1024)
    155. Dim dn As Integer = Math.Round(PerformanceCounter4.NextValue / 1024)
    156. Dim speed As String = " kB/s"
    157. 'Überprüfung, ob die Variable "Zu gross" ist und entsprechend umrechnen...
    158. If up > 9999 Then
    159. up = Math.Round(up / 1024)
    160. speed = " MB/s"
    161. End If
    162. If dn > 9999 Then
    163. dn = Math.Round(dn / 1024)
    164. speed = " MB/s"
    165. End If
    167. g.DrawString("UP " + up.ToString + speed, fnt, Brushes.Black, 25, zeile4 - 1)
    168. g.DrawString("DN " + dn.ToString + speed, fnt, Brushes.Black, 25, zeile4 + 9)
    170. 'Grafik "konvertieren" und senden
    171. BitmapToBLCD(bmp)
    172. Return bmp
    173. End Function
    175. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    176. If NUM = 1 Then PictureBox1.Image = PCInfo(PictureBox1)
    177. If NUM = 2 Then PictureBox1.Image = Digital_Clock(PictureBox1)
    178. End Sub
    180. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    181. Call _UP()
    182. End Sub
    184. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    185. Call _Enter()
    186. End Sub
    188. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    189. Call DOWN()
    190. End Sub
    192. Public Sub _UP()
    193. If NUM = 0 Then
    194. ' Menü "Hoch"
    195. If selected = 1 Then Exit Sub
    196. selected = selected - 1
    197. Debug.Print(selected.ToString)
    198. PictureBox1.Image = MENU(PictureBox1, selected)
    199. ElseIf NUM = 2 Then
    200. 'Analog- /Digitaluhr switcher
    201. End If
    202. End Sub
    204. Public Sub _Enter()
    205. If NUM = 0 Then
    206. ' Im Menü die "LCD-App" öffnen & anzeigen
    207. NUM = selected
    208. Timer1.Start()
    209. Else
    210. ' Timer stoppen und zum Menü zurückkehren
    211. Timer1.Stop()
    212. NUM = 0
    213. PictureBox1.Image = MENU(PictureBox1, selected)
    214. End If
    215. End Sub
    217. Public Sub DOWN()
    218. If NUM = 0 Then
    219. ' Menü "Runter"
    220. If selected = 2 Then Exit Sub
    221. selected = selected + 1
    222. Debug.Print(selected.ToString)
    223. PictureBox1.Image = MENU(PictureBox1, selected)
    224. ElseIf NUM = 2 Then
    225. 'Analog- /Digitaluhr switcher
    226. End If
    227. End Sub
    229. Public Sub BitmapToBLCD(ByVal _bmp As Bitmap)
    230. ' Bitmap-Konvertierer
    231. ' Konvertiert ein 128x64 Bitmap in das richtige
    232. ' Format für das LCD-Display um.
    233. Dim x As Integer = 0
    234. Dim y As Integer = 0
    235. Dim page As Integer = 0
    236. Dim result As Integer = 0
    237. Dim col As Color
    238. Dim r, g, b, gem As Integer
    239. _sp.Write("S")
    240. Do While (Not page = 8)
    241. ' Pixel einlesen
    242. col = _bmp.GetPixel(x, y + (8 * page))
    243. ' Pixel in die Grundfarben aufteilen
    244. r = col.R
    245. g = col.G
    246. b = col.B
    247. ' Diese Zusammenrechnen und Teilen
    248. gem = (r + g + b) / 3
    249. ' Vergleichen, ob das Pixel "Hell" oder "dunkel" ist
    250. If Not gem > 128 Then result = result + (2 ^ y) 'Schwarz
    251. y += 1
    252. If y = 8 Then
    253. x += 1
    254. y = 0
    255. 'Hier wird die Sache gesendet
    256. Dim tbyte As Byte() = BitConverter.GetBytes(result)
    257. _sp.Write(tbyte, 0, 1)
    258. 'result clearen
    259. result = 0
    260. End If
    261. ' Überprüfen, ob die aktuelle Page voll ist (Zeilenende)
    262. If x = 128 Then
    263. page += 1
    264. x = 0
    265. End If
    266. Loop
    267. X:
    268. End Sub
    270. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    271. ' SerialPort schliessen
    272. _sp.Close()
    273. End Sub
    275. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    276. ' Setup-Form Anzeigen
    277. Me.Hide()
    278. Form2.ShowDialog()
    280. ' Zeichnungsbereich beschreiben
    281. Dim xyz As Boolean = True
    282. Dim xc As Integer = 0
    283. Dim yc As Integer = 0
    284. While (xyz)
    285. bmp.SetPixel(xc, yc, Color.White)
    286. xc += 1
    287. If xc = 128 Then
    288. xc = 0
    289. yc += 1
    290. End If
    291. If yc = 64 Then
    292. xyz = False
    293. End If
    294. End While
    296. ' SerialPort-Setup
    297. _sp.PortName = COMPORT
    298. _sp.BaudRate = Baudrate
    299. _sp.Parity = Parity.None
    300. _sp.DataBits = 8
    301. _sp.StopBits = StopBits.One
    302. _sp.Handshake = Handshake.XOnXOff
    303. _sp.Open()
    304. ' "Interrupt" für SerialPort_DataReceived
    305. AddHandler _sp.DataReceived, AddressOf DataReceivedHandler
    307. PictureBox1.Image = bmp
    308. PictureBox1.Image = MENU(PictureBox1, selected)
    309. End Sub
    311. Private Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedEventArgs)
    312. Dim sp As SerialPort = CType(sender, SerialPort)
    313. 'Daten lesen
    314. Dim indata As String = sp.ReadExisting()
    315. Debug.Print(indata.ToString() + "-" + indata.Length.ToString)
    316. ' Empfangene Daten durchgehen
    317. Select Case indata.ToLower.Trim
    318. Case "`"
    319. Call _UP()
    320. Exit Sub
    321. Case "b"
    322. Call _Enter()
    323. Exit Sub
    324. Case "d"
    325. Call DOWN()
    326. Exit Sub
    327. End Select
    328. End Sub
    330. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    331. Call BitmapToBLCD(bmp)
    332. End Sub
    333. End Class

    (Vollständigkeitshalber habe ich den ganzen Code drauf)

    Es geht um die Sub DataReceivedHandler (Zeile 311) und um die Sub _Enter (Zeile 204).
    Wenn ich die Buttons benutze, funktioniert es einwandfrei, halt per SerialPort wills nicht. Es kommen keine Fehler, nix. Aber der Timer reagiert nicht, wenn dieser über die Sub _Enter von der Sub DataReceivedHandler 'gestartet' wird.

    Kennt jemand die Lösung bitte?

    mfg

    gfc

    Habe mir den Code jetzt nicht angesehen. Aber DataReceived wird nicht gleich beim ersten Byte erhöht. Das ist abhängig vom Threshold Parameter. Entweder diesen auf 1 setzen (dann wird aber bei jedem Byte das Ereignis ausgelöst) oder so, wie ich es mache. Ich prüfe per Timer die Daten im Puffer und wenn diese größer 0 ist, dann sind Daten eingetroffen.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Das ist nicht das Problem, das funktioniert RushDen.

    @peterfido
    Er empfängt die Daten. Nur wenn ich von diesem Thread aus den Timer starten will, passiert nix.
    Edit://
    Habs nun so eingerichtet, das der Timer immer läuft. Jedoch kann es passieren, das z.B. die Menu-Sub in das Bitmap eingreifen will, obwohl es noch von der Bitmap-Konverterklasse bearbeitet wird und so entsteht wieder ein neuer Fehler :/

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gfcwfzkm“ ()

    gfcwfzkm schrieb:

    Nur wenn ich von diesem Thread aus den Timer starten will, passiert nix.

    Hast doch die Lösung schon selbst gesagt. ;) Du musst es über Invoke() machen, weil SerialPort-Handler in einem anderen Thread läuft als die GUI.

    Trotzdem solltest du den Tipp von @RushDen: berücksichtigen, "Form2" ist eine Klasse und kein Objekt der Form.

    :) Danke, genau das ist es, jetzt funzt es.
    Und habe den Tipp um eine neue Frm zu öffnen berücksichtigt.

    mfg

    gfc

Facebook
Telefonspende