|
注冊(cè)用戶,可享有更多通行權(quán)利及信息
新用戶注冊(cè)
|
 |
☆ 如有技術(shù)問題,請(qǐng)?jiān)诰�
或Mail至：fa@lggz.com,我們將盡快回覆您！ |
|
: |
Private Sub CmdSend_Click()
Dim Command As String
Rem 打開串口
If MSComm1.PortOpen = False Then MsgBox "串口２false open!"
If MSComm1.PortOpen = True Then
MSComm1.Settings = "9600,e,7,2"
Rem 校驗(yàn)碼
StrIn = "000000503" & Chr(3)
Dim ii As Integer, temp As Integer
temp = Asc(Left$(StrIn, 1))
For ii = 2 To Len(StrIn)
temp = Asc(Mid$(StrIn, ii, 1)) Xor temp
Next ii
BccResult = Chr$(temp)
Command = Chr(2) & "000000503" & Chr(3) & BccResult
MSComm1.Output = Command
Text1.Text = Command
Rem 接受響應(yīng)幀
receiveframe.Text = MSComm1.Input
Label1.Caption = CStr(MSComm1.InBufferCount)
End If
End Sub
請(qǐng)批閱，附例子程序，謝謝！
email:shh175@sohu.com
|
|
ALAN :
|
發(fā)送程序沒有問題,接收程序前要加約50ms延時(shí),不然數(shù)據(jù)還未發(fā)送回來(lái)無(wú)法顯示,最好采用事件驅(qū)動(dòng)接收.
重點(diǎn)要檢查RS232/RS485轉(zhuǎn)換器及接線是否正確,上述發(fā)送程序經(jīng)測(cè)試可以使用. |
地址：廣州市體育東路３３號(hào)天盛大廈南梯７０７室
電話：020-85267788(20條線) 傳真:020-85267077
網(wǎng) 址:http://www.export-japan.com.cn
Mail：fa@lggz.com
|
