Problémy se sériovým portem – Visual Basic – Fórum – Programujte.com

Dobrý den,
mám problém se sériovým portem, během minuty až dvou se uzavře a dál nereaguje, zatím to řeším znovu otevřením portu, ale problém nastane když budu komunikovat s procesorem a uprostřed přenosu se mi zavře, tak tam bude ztráta dat. Nevíte jak ho přinutit, aby zůstl neustále otevřený?

Declare Function OPENCOM Lib "Port" (ByVal A$) As Integer

Declare Sub CLOSECOM Lib "Port" ()

Declare Sub SENDBYTE Lib "Port" (ByVal b%)

Declare Function READBYTE Lib "Port" () As Integer

Declare Sub DTR Lib "Port" (ByVal b%)

Declare Sub RTS Lib "Port" (ByVal b%)

Declare Sub TXD Lib "Port" (ByVal b%)

Declare Function CTS Lib "Port" () As Integer

Declare Function DSR Lib "Port" () As Integer

Declare Function RI Lib "Port" () As Integer

Declare Function DCD Lib "Port" () As Integer

Declare Sub DELAY Lib "Port" (ByVal b%)

Declare Sub TIMEINIT Lib "Port" ()

Declare Sub TIMEINITUS Lib "Port" ()

Declare Function TIMEREAD Lib "Port" () As Long

Declare Function TIMEREADUS Lib "Port" () As Long

Declare Sub DELAYUS Lib "Port" (ByVal l As Long)

Declare Sub REALTIME Lib "Port" (ByVal i As Boolean)



Private Sub Form_Load()

 i = OPENCOM("COM2,1200,N,8,1")

 If i = 0 Then

    i = OPENCOM("COM1,1200,N,8,1")

 End If

 If i = 0 Then MsgBox ("Chyba při pokusu otevřít port")

 TXD 0

 RTS 0

 DTR 0

 End Sub

Tak to netuším se sériovým portem sem si zatím moc nehrál.

skus pri otvarani pouzit namiesto 1200 hodnotu 9600, mne to po tejto zmene uz nevypina

Binary Ranger píše:#
# skus pri otvarani pouzit namiesto 1200 hodnotu 9600, mne to po tejto zmene uz nevypina#
#

díky zkusím to, jinak jsem to vyřešil použitím knihovny rscom s kterou nejsou žádné problémy

To xp:Ja zas nemam vobec problemy s port.dll