M
maddiker
Guest
hey guys ... thx for din tid ...
Jeg har et projekt med en anden hardware enhed til enhed kommunikere med computeren ved hjælp af seriel port.
første, hvis jeg forsøger at forbinde det med HyperTerminal programmet fra Windows ...den ikke har problemet. (min hardware ok ..)
men hvis forsøge at oprette forbindelse til VB programmere karakter, at jeg viser med label1.caption altid "?"
men hvis du prøve at bruge min vb program og kort RX dan tx pin (sin springer selv),
karakter jeg sende og modtage, og derefter vises i label1.caption er inde ...
Character 'A' og 'B' vises ...her er min kode ...
Kode:
Koderivate Sub cmdM_Click ()
UartCom.InBufferCount = 0
UartCom.Output = Chr (65) 'display A
UartCom.InputLen = 1
S = ""
On Error Resume Next
Gøre
dummy = DoEvents ()
»Hvis der er data i bufferen, så læs den.
Hvis UartCom.InBufferCount Derefter
S = S UartCom.Input
Exit Do
End If
Loop Label1.Caption = S
End Sub
Private Sub cmdM_Click ()
UartCom.InBufferCount = 0
UartCom.Output = Chr (66) 'display B
UartCom.InputLen = 1
S = ""
On Error Resume Next
Gøre
dummy = DoEvents ()
»Hvis der er data i bufferen, så læs den.
Hvis UartCom.InBufferCount Derefter
S = S UartCom.Input
Exit Do
End If
Loop Label1.Caption = S
End Sub
Private Sub Form_Load ()
'indstilling seriel
UartCom.CommPort = 1
UartCom.Settings = "9600" & "M" & ", 8,1"
UartCom.PortOpen = True
End Sub
Jeg har et projekt med en anden hardware enhed til enhed kommunikere med computeren ved hjælp af seriel port.
første, hvis jeg forsøger at forbinde det med HyperTerminal programmet fra Windows ...den ikke har problemet. (min hardware ok ..)
men hvis forsøge at oprette forbindelse til VB programmere karakter, at jeg viser med label1.caption altid "?"
men hvis du prøve at bruge min vb program og kort RX dan tx pin (sin springer selv),
karakter jeg sende og modtage, og derefter vises i label1.caption er inde ...
Character 'A' og 'B' vises ...her er min kode ...
Kode:
Koderivate Sub cmdM_Click ()
UartCom.InBufferCount = 0
UartCom.Output = Chr (65) 'display A
UartCom.InputLen = 1
S = ""
On Error Resume Next
Gøre
dummy = DoEvents ()
»Hvis der er data i bufferen, så læs den.
Hvis UartCom.InBufferCount Derefter
S = S UartCom.Input
Exit Do
End If
Loop Label1.Caption = S
End Sub
Private Sub cmdM_Click ()
UartCom.InBufferCount = 0
UartCom.Output = Chr (66) 'display B
UartCom.InputLen = 1
S = ""
On Error Resume Next
Gøre
dummy = DoEvents ()
»Hvis der er data i bufferen, så læs den.
Hvis UartCom.InBufferCount Derefter
S = S UartCom.Input
Exit Do
End If
Loop Label1.Caption = S
End Sub
Private Sub Form_Load ()
'indstilling seriel
UartCom.CommPort = 1
UartCom.Settings = "9600" & "M" & ", 8,1"
UartCom.PortOpen = True
End Sub