پورت سریال
باسلام
اقایخزامامقالهشمارو مطالعه کردم منبهجای وصل کردنمداربهپورت سریال یک ماوس وصل کردم برنامهام رو هم به صورتزیرتغییردادم ولي بازهم جواب نگرفتم نظر شما در آین باره چیه (در حال حاضر می خوآم فقط يک بايت بخونم )
Private Sub cancel_Click()
End
End Sub
Private Sub Form_Load()
serial_port.CommPort = 1
serial_port.Settings = "9600,n,8,1"
serial_port.InputLen = 1
serial_port.PortOpen = True
End Sub
Private Sub Form_Unload(cancel As Integer)
serial_port.PortOpen = False
End Sub
Private Sub read_Click()
serial_port.InputMode = comInputModeBinary
show_read.Text = serial_port.Input
End Sub
Private Sub serial_port_oncomm()
If serial_port.CommEvent = 2 Then
read_from_port = serial_port.Input
show_read.Text = read_from_port
End
End Sub
|
