Denso RC5 Especificaciones Pagina 73

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 692
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 72
Chapter 2 Program Flow
2-11
PDQComm1.PortOpen = True
End Sub
'
' Closes the communication port.
'
'
Private Sub CommClose()
'----------------------------------------
' Closes a port.
'----------------------------------------
PDQComm1.PortOpen = False
End Sub
'
' Encloses the character string designated to the communication port
' in double Quotations. The system then adds a carriage return to
' the end of the line and sends this.
' SendText$: character string to send
'
Private Sub CommWrite(SendText$)
'----------------------------------------
' When character string and control code ich (CR+LF) are sent.
'----------------------------------------
PDQComm1.Output = Chr(&H22) &SendText$ & Chr(&H22) & Chr(13)
& Chr(10)
'----------------------------------------
' Waits until the output buffer becomes vacant.
'----------------------------------------
Do
DoEvents
Loop Until PDQComm1.OutBufferCount = 0
End Sub
'
' Obtains the character string received from the communication port
' until the carriage return appears, and then returns the character
' string.
'
Private Function CommRead()
'----------------------------------------
' Data reading process
'----------------------------------------
InString$ =““
Do While 1
DoEvents
Continued on the following page.
Vista de pagina 72
1 2 ... 68 69 70 71 72 73 74 75 76 77 78 ... 691 692

Comentarios a estos manuales

Sin comentarios