Fins det noe lignede OUT i Visual Basic ?

[Jaffe]

Fins det noe lignende OUT funksjonen man finner i Qbasic, i Visual Basic eller er alt API-kontrollert?

[aadnk]

Nei, det gjør dessverre ikke det. Men API er derimot ikke påkrevd, man kan faktisk bruke ActiveX-kontroller for å utføre det samme. Legg til Microsoft Comm Control 6.0 fra Components (CTRL+T) og følgende kode vil fungere utmerket:

 

Private Sub Form_Load ()

  ' Buffer to hold input string

  Dim Instring As String

  ' Use COM1.

  MSComm1.CommPort = 1

  ' 9600 baud, no parity, 8 data, and 1 stop bit.

  MSComm1.Settings = "9600,N,8,1"

  ' Tell the control to read entire buffer when Input

  ' is used.

  MSComm1.InputLen = 0

  ' Open the port.

  MSComm1.PortOpen = True

  ' Send the attention command to the modem.

  MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that

  ' the modem responds with "OK".

  ' Wait for data to come back to the serial port.

  Do

      DoEvents

  Buffer$ = Buffer$ & MSComm1.Input

  Loop Until InStr(Buffer$, "OK" & vbCRLF)

  ' Read the "OK" response data in the serial port.

  ' Close the serial port.

  MSComm1.PortOpen = False

End Sub