Portas COM1 / COM2

[welltom]

Oi pessoal,
Para habilitar a porta serial COM1, eu faço:

Private Sub Option1_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
MSComm1.CommPort = 1
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 0
MSComm1.SThreshold = 1
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
ext1:
End Sub

Pergunto, e para habilitar outra porta, basta mudar
linhas que tem o comando MSComm1 para MSComm2,
é isso mesmo?
Att. Wellington

[Jorge_Francisco]

Oi pessoal,
Para habilitar a porta serial COM1, eu faço:

Private Sub Option1_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
MSComm1.CommPort = 1
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 0
MSComm1.SThreshold = 1
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
ext1:
End Sub

Pergunto, e para habilitar outra porta, basta mudar
linhas que tem o comando MSComm1 para MSComm2,
é isso mesmo?
Att. Wellington

Nunca usei este código, até pq não uso basic, mas este código funciona? o Correto não seria "MSComm1.CommPort = COMM1"? Se for somente aquele "1" ali, então para COM2 seria apenas um "2", MSComm1 é um objeto, poderia ter qualquer nome.

[Wagner de Queiroz]

MSComm1 é o nome do componente.

Nao uso VisualBASIC mas até onde sei vc deverá usar:

MSComm1.CommPort = 2 # Para COM2


Veja só este link:

http://www.developerfusion.co.uk/show/194/

Eu uso o Delphi e estou comecando a brincar com as bibliotecas Synaser mas nao consigo receber dados direito.

Tente encontrar o livro Serial Port Complete do Jan Axelson. Eu li este livro e só fala de VisualBASIC. Para voce terá utilidade.

http://www.lvr.com/spc.htm