BRNE.narod.ru

 
Главная | Проекты | Download | РазноеE-mail    
Работа с ком портом из Visual Basic (VB6)

Port OpenPrivate Sub Form_Load()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.Settings = "38400,n,8,1"

MSComm1.CommPort = 8

MSComm1.RThreshold = 1 ' Length paket for CommEvent (OnComm)
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
MSComm1.PortOpen = Not MSComm1.PortOpen
If MSComm1.PortOpen Then ' Text1.Text = "PORT OPEN"
Else
Text1.Text = "ERROR OPEN PORT"
End If
End Sub
OUTPrivate Sub Command8_Click()
TextI = ""
Text1.Text = "ATA"
MSComm1.Output = Text1.Text + Chr$(13)
End Sub
INPrivate Sub MSComm1_OnComm()
TextI = TextI + MSComm1.Input
Text2.Text = TextI
End Sub
RTSPrivate Sub Command7_Click()
MSComm1.RTSEnable = True
Sleep (3000)
MSComm1.RTSEnable = False
End Sub
OUT from Text1Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TextI = ""
MSComm1.Output = Text1.Text + Chr$(13)
End If
End Sub
PORT CLOSEPrivate Sub Command1_Click()
Text1.Text = "PORT CLOSE"
If MSComm1.PortOpen Then
MSComm1.PortOpen = False
End If
End
Stop
End Sub
Работа с ком портом из Visual Basic (VB6)
AT+CSQ
+CSQ: 21,0
OK

AT+CREG?
+CREG: 0,1
OK

AT+CGATT?
+CGATT: 1
OK

AT+SAPBR=1,1
OK

AT+SAPBR=2,1
+SAPBR: 1,1,"10.235.25.246"
OK

AT+HTTPINIT
OK

AT+HTTPPARA = "CID",1
OK

AT+HTTPPARA="URL","brne.narod.ru/test.txt"
OK

AT+HTTPACTION=0
OK
+HTTPACTION:0,200,21

AT+HTTPREAD
+HTTPREAD:21
Test GPRS
Проверка

OK

AT+HTTPTERM
OK

AT+SAPBR =0,1
OK

 

COM9
com9

1 DCD Data Carrier Detect Вход Установленный сигнал в стандарте для rs232 показывает , что модемом или другим устройством обнаружена несущая частота. Сигнал DCD# является сигналом состояния модема, и центральный процессор может определить его состояние путем чтения бита DCD из регистра MSR для соответствующего последовательного порта. Бит DDCD в регистре MSR показывает, изменился ли сигнал DCD# со времени последнего чтения регистра MSR.
2 RxD Receive Data (I SERIAL INPUT) Вход Последовательные входы данных.
3 TxD Transmit Data (I SERIAL OUTPUT) Выход При обычных условиях последовательные выходы данных. Во время аппаратной конфигурации (сигнал RSTDRV установлен и некоторое время спустя) эти выводы работают только как входы.
4 DTR Data Terminal Ready Выход Установленный сигнал показывает модему или другому устройству, что модуль последовательного порта готов установить соединение. Сигнал DTR# может быть установлен через регистр управления модемом (Modem Control Register (MCR)). Сигнал reset сбрасывает этот сигнал. Во время аппаратной конфигурации (сигнал RSTDRV установлен и некоторое время спустя) эти выводы работают только как входы.
5 GND Ground - Общий
6 DSR Data Set Ready Вход Установленный сигнал показывает, что модем или другое устройство готовы установить соединение с модулем последовательного порта. Сигнал DSR# является сигналом состояния модема, и центральный процессор может определить его состояние путем чтения бита DSR из регистра MSR для соответствующего последовательного канала. Бит DDSR в регистре MSR показывает, изменился ли сигнал DSR# со времени последнего чтения регистра MSR.
7 RTS Request To Send Выход Установленный сигнал информирует модем или другое устройство о том, что модуль последовательного порта готов к обмену данными. Сигнал RTS# может быть установлен через бит RTS регистра MCR. Сигнал reset сбрасывает этот сигнал. Во время аппаратной конфигурации (сигнал RSTDRV установлен и некоторое время спустя) эти выводы работают только как входы.
8 CTS Clear To Send Вход Установленный сигнал показывает, что модем или другое устройство готовы к обмену данными. Сигнал CTS# является входом состояния модема, и центральный процессор может определить его состояние путем чтения бита CTS из регистра статуса модема (Modem Status Register (MSR)) соответствующего последовательного порта. Бит DCTS в MSR показывает, изменился ли сигнал CTS# со времени последнего чтения MSR.
9 RI Ring Indicator Вход Установленный сигнал в стандарте для rs232 показывает, что модемом или другим устройством принят телефонный звонок. Сигнал RI# является сигналом состояния модема, и центральный процессор может определить его состояние путем чтения бита RI из регистра MSR для соответствующего последовательного канала. Бит TERI в регистре MSR показывает, менялся ли уровень сигнала RI# с низкого на высокий со времени последнего чтения регистра MSR.

 

 

Hosted by uCoz