Mesmo modems foram substituídos com acesso à Internet de alta velocidade, alguns computadores ainda usá-los para a comunicação. Se você está programando um aplicativo que usa um modem , verificando que existe e funciona é importante para a interface do usuário. Microsoft. NET inclui um espaço de nome e classe para se comunicar com portas seriais. Coisas que você precisa
Visual Studio. NET
Show Mais instruções
Abra um novo projeto
1

Criar um novo aplicativo de console. A partir do menu Visual Studio, clique em "Novo " e selecione " projeto".
2

Selecione " Visual Basic" , no lado esquerdo da janela. No lado direito são diferentes modelos de projeto . Selecione " Console Application ". Clique no botão " OK" . Um novo aplicativo está configurado na área de trabalho do Visual Studio.
3

botão direito do mouse no nome do projeto na caixa de canto superior direito na área de trabalho . Selecione "Add Reference ".
4

Clique na aba " COM" . Selecione "Microsoft Comm Control 6.0 " a partir da caixa de listagem e clique em "Select ". Clique em " OK" para fechar a janela de referência.
Configuração da Porta Serial
5

Crie uma nova variável COM. Você precisa alocar memória e declarar uma nova variável. O texto abaixo chama a classe COM para utilização no resto do módulo . A variável buffer é utilizado para manter o texto de resposta a partir da série port.Dim MYPORT Como MSCommmyPort = Novo MSCommDim mybuffer As String
6

Defina a porta para 1. A maioria dos computadores vêm com duas portas seriais. O código a seguir define a comunicação para 1.myPort.CommPort port = 1
7

Criar configurações comuns . Definir a taxa de transmissão e parar de informações necessárias para o controle de modem bit . Este setsmyPort.Settings = " 9600, N, 8,1 "
8

Leia todo o buffer. Este código faz com que o modem usar todo o buffer de informações quando enviado para a série port.myPort.InputLen = 0
comunicar com a porta
9

Abra a porta serial . A porta serial precisa ser aberta e buffer de entrada limpo antes de o aplicativo pode se comunicar com ele . A terceira linha de código informa a porta serial para retornar ao texto application.myPort.PortOpen = TruemyPort.InBufferCount () = 0myPort.InputMode () = InputModeConstants.comInputModeText
10

enviar um comando para o porta serial. Este comando testa a resposta do modem.myPort.Output = " ATV1Q0 " & Chr (13 )
11

Leia a resposta da porta serial. Este loop lê o texto retornado até que um "OK" é reached.DomyBuffer = mybuffer & myPort.InputLoop Até InStr ( mybuffer , "OK" & vbCrLf )
12

Feche a porta . Depois de usar a porta serial, que é importante para fechá-lo para outro applications.myPort.PortOpen = False