06-11-2011, 07:24
|
|
|
חבר מתאריך: 08.05.10
הודעות: 65
|
|
זה אכן VB 2008 EXPRESS אני מצטער שלא ציינתי קודם.
אני אנסה להסביר, אני מנסה לקבל פקודה מהסריאל פורט שבנויה מ 9 בייטים. זו פקודה אחת.
כשחיפשתי באינטרנט זו השיטה שמצאתי.
חשוב לציין שכאשר אני שולח את המידע זה עובד מצוין הבעיה היא בלקבל אותו.
זה הקוד של שליחת המידע שממש עובד ושולט במכשיר שמחובר סריאלית:
קוד:
Imports System.IO.Ports
Public Class Test1
Dim ComPort As New SerialPort("COM3", 9600, Parity.None, 8, 1)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComPort.Open()
End Sub
Private Sub Button1_KeyDown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseDown
Dim stopArray(9) As Byte
stopArray(1) = &H81
stopArray(2) = &H1
stopArray(3) = &H6
stopArray(4) = &H1
stopArray(5) = &HF
stopArray(6) = &H12
stopArray(7) = &H3
stopArray(8) = &H1
stopArray(9) = &HFF
ComPort.Write(stopArray, 1, 9)
End Sub
לחיצה על הלחצן מבצעת את השליחה של תשעת הבייטים.
איך אני עושה ההפך, שכאשר תשעת הבייטים האלה מתקבלים בסריאל אני מקבל חיווי בתוכנה?
תודה
|