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

[hozso_001 at freemail.hu]

   Most próbáltam ki: ez sem segít. :-/ Vagy valamit
nagyon rosszul csinálok. Pedig ez a port bizony
nyitva van.
   Az If-hez tettem egy breakpointot. Simán "átmegy"
rajta. Mármint lefut az If, de nem jelenik meg az üzenetablak.


    Horváth Zsolt


Ezt csináltam:


'*******************************************************************
             '* Soros port beállítása
'*******************************************************************
             With SMSSerialPort
                 .PortName = "COM" + Convert.ToString(IntSMSCOM)
                 .BaudRate = 115200
                 .DataBits = 8
                 .Parity = Parity.None
                 .StopBits = StopBits.One
                 .Handshake = Handshake.None
             End With


             If SMSSerialPort.IsOpen Then
                 TxtBoxStatus.AppendText("Hiba! => a kiválasztott soros 
port már nyitva van!" + vbCrLf)
                 SysStatePtr = 50
                 MsgBox("Már nyitva van!")
             End If



             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




2013.11.05. 15:02 keltezéssel, Karoly Kovacs írta:
>>      Hm... most gondolkodok... először vizsgáljam
>> az ..IsOpen -t? Mármint mielőtt megpróbálom
>> megnyitni?
> Nem ismerem tuzetesen a VB-t, de ez mindenkeppen
> egy logikus megoldasnak latszik.
>
> Karoly
>
> -----------------------------------------
>            elektro[-flame|-etc]