[elektro] OT: VB2008 soros vonal nyitottságának ellenőrzése

[Bánhidi István]

Szia,

esetleg így:
http://www.ontrak.net/serialport.htm
http://social.msdn.microsoft.com/Forums/en-US/c7012655-9729-4523-86d6-dbd25fd59b09/serial-port-in-vb2008-express


üdv.
Steve

2013.11.05. 14:46 keltezéssel, hozso_001 at freemail.hu írta:
>     Készül az SMS küldő programom. A nyűgöm most éppen az,
> hogy ha már meg van nyitva a soros port egy másik program
> által, akkor hiába használom a Try-Catch módszerrrel
> megnyitni, nem ad hibajelet! Viszont természetesen amikor
> írni próbálok a portra, akkor kiáll hibára.
>     (Úgy vettem észre, hogy a terminál emulátorral megnyitva
> hagytam a soros vonalat.)
>     Én azt hittem, hogy ha egyszer már meg van nyitva,valaki
> más által, akkor a megnyitáskor hibaüzenetet ad. Ezekszerint
> mégsem így van? Vagy én csinálok valamit rosszul?
>
>
>      Üdv.: Horváth Zsolt
>
>
>
>
> A programrészlet:
>
>          With SMSSerialPort
>               .PortName = "COM" + Convert.ToString(IntSMSCOM)
>               .BaudRate = 115200
>               .DataBits = 8
>               .Parity = Parity.None
>               .StopBits = StopBits.One
>               .Handshake = Handshake.None
>           End With
>
>
>           Try
>               SMSSerialPort.Open()    'megpróbáljuk megnyitni a portot!
>           Catch ex As Exception
>               TxtBoxStatus.AppendText("Hiba! => a kiválasztott soros
> portot nem lehet megnyitni!" + vbCrLf)
>               SysStatePtr = 50
>           End Try
>
>           'bekapcsoljuk a modemet
>           SMSSerialPort.RtsEnable = True
>           IntGSMWaitTmr = IntGSMBootUpWaitDelay
>           BitGSMWaitEnabled = True
>           SMS_Kuldo_OMRON.My.Application.Tmr300msEnabled = True
>
> WaitForModemStart:
>           Application.DoEvents()
>           If IntGSMWaitTmr <> 0 Then GoTo WaitForModemStart
>
>
>           StrTmp0 = "AT+CMGS=+36304912925" + vbCr
>           SMSSerialPort.Write(StrTmp0)
>           IntGSMWaitTmr = 3
>
>
>
>
> -----------------------------------------
>            elektro[-flame|-etc]
> .
>