как использовать ocx
Здравствуйте ,эксперты!
кто может помочь,я никогда не использовал ocx
нажал нужные кнопки для работы с ком портом
мне система сделала новый файл
в примерах вычитал,текст ,который надо ввести ,ввожу в этот новый файл и сразу же компилятор сообщает о
C:\Program Files\DevStudio\MyProjects\rs\mscomm.cpp(397) : error C2065: 'CommPort' : undeclared identifier
то есть надо что-ли хидер -файл или что-то,чтобы компилятор распознавал эту структуру или класс?
в помощи на этот компонент я взял такой текст и он не работает совсем,компиляцию не проходит
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 = "AT" + Chr$(13)
' Wait for data to come back to the serial port.
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
' Read the "OK" response data in the serial port.
Instring = MSComm1.Input
' Close the serial port.
MSComm1.PortOpen = False
End Sub
кстати,я его попытался во вновь образованный файл вставить,может в другие файлы надо было его размещать?
кто может помочь,я никогда не использовал ocx
нажал нужные кнопки для работы с ком портом
мне система сделала новый файл
в примерах вычитал,текст ,который надо ввести ,ввожу в этот новый файл и сразу же компилятор сообщает о
C:\Program Files\DevStudio\MyProjects\rs\mscomm.cpp(397) : error C2065: 'CommPort' : undeclared identifier
то есть надо что-ли хидер -файл или что-то,чтобы компилятор распознавал эту структуру или класс?
в помощи на этот компонент я взял такой текст и он не работает совсем,компиляцию не проходит
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 = "AT" + Chr$(13)
' Wait for data to come back to the serial port.
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
' Read the "OK" response data in the serial port.
Instring = MSComm1.Input
' Close the serial port.
MSComm1.PortOpen = False
End Sub
кстати,я его попытался во вновь образованный файл вставить,может в другие файлы надо было его размещать?