久久久99精品免费观看精品-久久久99精品免费观看-久久久99精品久久久久久-久久久99精品久久久-久久久99精品-久久久9999久久精品小说

　　首　頁　::　總經理致辭　::　資質證書　::

注冊用戶,可享有更多通行權利及信息

	☆ 如有技術問題,請在線或Mail至：[email protected],我們將盡快回覆您！
:	您好：首先，非常感謝您能如此快的給我回音！！！我衷心的感謝你們對我的熱情幫助！！希望您能抽空批閱一下我的程序：(E5EN設置：9600，e,7,2設備號為1；另一臺設備號為2） Private Sub Form_Load()初始化 mscomm1.settings="9600,e,7,2" mscomm1.commport=2 End Sub Private Sub Cmdsend_Click()發送 Dim command As String StrIn = "000000503" & Chr(3) //命令 temp = Asc(Left$(StrIn, 1)) For ii = 2 To Len(StrIn) temp = Asc(Mid(StrIn, ii, 1)) Xor temp Next ii BccResult = Chr(temp)//CHR(53) Print temp //是53 If MSComm1.PortOpen = False Then Exit Sub MSComm1.Output = Chr(2) & StrIn & BccResult 發送命令幀 command = Chr(2) & StrIn & BccResult txtsend.Text = command Label1.Caption = "延遲1500毫秒" \\延遲 timeDelay 1500 Label2.Caption = "1500毫秒延遲結束" If MSComm1.PortOpen = False Then Exit Sub txtreceive.Text = MSComm1.Input \\顯示輸入緩沖區的內容,結果為空，why??? Label3.Caption = MSComm1.InBufferCount\\結果為0，WHY? Exit Sub End Sub
ALAN :	你現在的命令幀是發給0號溫控器的，設備號為1或2 的E5EN肯定不會響應。

地址：廣州市體育東路３３號天盛大廈南梯７０７室
電話：020-85267788(20條線) 　傳真:020-85267077
網　　址:http://ywxdg.cn
Mail：[email protected]