Учебник по Visual Basic 5.0


Пример использования элемента управления коммуникациями.



Пример использования элемента управления коммуникациями.

    В качестве простейшего примера использования элемента управления коммуникациями приведем программу принимающую информацию через один из коммуникационных портов (в данном примере используется порт СОМ 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




- Начало -  - Назад -  - Вперед -



Книжный магазин