[求助]VB實(shí)現(xiàn)單片機(jī)與PC機(jī)通信,這程序?qū)?

作者：yybye　欄目：單片機(jī)

我是在做測溫的然后在PC機(jī)上接收.本來測出來的溫度為23H(00100011),但是在PC機(jī)上只是顯示81 81 91 91 81 ...... 我們是每隔一定時(shí)間接收 1 次

在VB上的程序是這樣的:     在MSCOMM1設(shè)置如下
  MSComm1.CommPort = 1
  MSComm1.Settings = "9600 ,n ,8 ,1"
  MSComm1.InputMode = comInputModeBinary
   MSComm1.InputLen = 0

MSComm1.RThreshold = 1

Private Sub MSComm1_OnComm()
     Dim instring As String
      SELECT Case MSComm1.CommEvent
      Case comEvReceive
     If MSComm1.InputMode = comInputModeText Then
      instring = MSComm1.Input
     Text2.Text = Text2.Text + instring + Chr(13) + Chr(10)
       End If
     If MSComm1.InputMode = comInputModeBinary Then
       Dim R() As Byte
      Dim Buff As Variant
      MSComm1.InputLen = MSComm1.InBufferCount
       Buff = MSComm1.Input
      R = Buff
       For i = LBound(R) To UBound(R)
       Text2.Text = Text2.Text + CStr(Hex(R(i))) + " "
  Next
End If
End SELECT
End Sub

如果大家有程序的發(fā)一個(gè)給我好嗎?謝謝

YYBYE@163.COM

2樓：

>>參與討論

作者：恒于 2007/1/23 18:57:08 發(fā)布：

可能是 R=Buff有問題，我明天幫你試試。

你可以先在PC機(jī)上試，把串口線引出來(比如可以買個(gè)9針母頭插座），把二腳和三腳連上，然后就可以只用一臺(tái)PC機(jī)進(jìn)行自發(fā)自收了，這樣可以先驗(yàn)證一下程序?qū)Σ粚Α?/P>

「該帖子被恒在 2007-1-23 19:08:10 編輯過」

3樓：	>>參與討論
作者： yybye 于 2007/1/24 17:31:16 發(fā)布：怎么樣能使PC機(jī)發(fā)送出來的是二進(jìn)制碼而不被PC機(jī)認(rèn)為是字符串

4樓：

>>參與討論

作者：恒于 2007/1/24 18:57:09 發(fā)布：

那個(gè)接受操作,你可以先試試改成下面的程序，然后看看對不對

Private Sub MSComm1_OnComm()

      SELECT Case MSComm1.CommEvent
      Case comEvReceive
      InByte = MSComm1.Input
      For i = LBound(InByte) To UBound(InByte)
      Buff = Buff + Str(InByte(i)) + Chr(32)
      Next
      End SELECT
      Print Buff

End Sub

那個(gè)InByte變量不用定義它的類型，Buff也是

另：怎么樣能使PC機(jī)發(fā)送出來的是二進(jìn)制碼而不被PC機(jī)認(rèn)為是字符串？

MSComm1.InputMode = comInputModeBinary
這樣就行，你已經(jīng)做了

「該帖子被恒在 2007-1-24 19:01:00 編輯過」

5樓：

>>參與討論

作者：剛來地于 2007/1/25 12:01:51 發(fā)布：

我機(jī)器在學(xué)校，幫不了你~！

多看看mscomm控件說明，很容易的~！

6樓：

>>參與討論