AJUDA VB6 MSCOMM PORTA SERIAL

KRUSTYTT 19/04/2012 14:44:50
#400252
Olá ,

Estou fazendo um programa de controle de acesso em um laboratório, já tenho toda parte da programação, quando o última pessoa sair do lugar acionaria o alarme pela porta serial. Como fazer isso pelo MSCOMM?
AJSO 19/04/2012 18:41:34
#400290
Caro KRUSTYTT

Esse alarme tem conexão com PC....
é possivel enviar dados pela porta por objeto MSCOM32.oxc (Send, out).

Exemplo

Dim Offset As Long
Dim FileData As Byte
Dim FileName As String

Private Sub Form_Load()
MSComm1.Settings = [Ô]28800,N,8,1[Ô]
MSComm1.InputLen = 1
MSComm1.CommPort = 2
MSComm1.PortOpen = True

FileName = [Ô]d:\sample.hlp[Ô]

Offset = 1
Open FileName For Binary Access Read As #1
End Sub


Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = 2 Then
temp = MSComm1.Input
If Offset <= FileLen(FileName) Then
Get #1, Offset, FileData
q = FileData
MSComm1.Output = Format(q, [Ô]000[Ô])
Offset = Offset + 1
End If
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub

Para testar modificar esta propriedades


RThreshold = 1
SThreshold = 3

este exemplo envia dados pela serial


Boa sorte.
Tópico encerrado , respostas não são mais permitidas
Voltar