Denso RC5 Specifikace Strana 74

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 692
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 73
2-12
'----------------------------------------
'Reading received data.
'----------------------------------------
If PDQComm1.InBufferCount > 0 Then
InString$ = InString$ +PDQComm1.Input
If InStr(1, InString$,vbCr,
vbBinaryCompare) <> 0 Then Exit Do
End If
Loop
CommRead = InString$
End Function
Using sample
Private Sub mnuCh1_Click()
' Uses port 1 and sets the baud rate to 19200.
CommOpen 1,”19200,N,8,1”
' Receives moving count number from the controller.
ReadBuf$ = CommRead
' Closes the used port.
CommClose
End Sub
Fig. 2-9 Program on the Personal Computer Side
Zobrazit stránku 73
1 2 ... 69 70 71 72 73 74 75 76 77 78 79 ... 691 692

Komentáře k této Příručce

Žádné komentáře