использования элемента управления коммуникациями.
Пример использования элемента управления коммуникациями.
В качестве простейшего примера использования элемента управления коммуникациями приведем программу принимающую информацию через один из коммуникационных портов (в данном примере используется порт СОМ I):
Private Sub cmdGetData Click ()
Dim Foo As Integer, TheData As String MsCornml. CommPort = 1 ' COM1
'28800 baud, no parity, 8 data, and 1 stop bit.
'the Communications control can't go faster than 28800 baud
MsCornml.Settings = "28800,N,8,1"
MsCornml.InputLen = 0 ' Clear the comm buffer
MsCornml.PortOpen = True
'Send the usual wake up signal to the modem.
MsCornml.Output = "AT" + Chr$(13)
Do
Foo = DoEvents ()
MsCornml.InputLen = 0 'clear buffer
TheData = TheData + ComiTil .Input "TheData will contain the data
Loop Until Commi.CommEvent = comEvEOF
MsCornml. PortOpen = False 'close the port
End Sub
