Changeset 48 for trunk/desktop/ICSSerialPort.rbbas

Timestamp:

06/12/10 09:41:34 (15 years ago)

Author:

pinwc4

Message:

Fixed bug with new method for reopening COM port every time the program reads or writes. This will allow people to unplug the cable from the computer and plug it back in while the program is running.

File:

• trunk/desktop/ICSSerialPort.rbbas (modified) (2 diffs)

trunk/desktop/ICSSerialPort.rbbas

@@ -583 +583 @@
         #tag EndMethod
 
+        #tag Method, Flags = &h21
+                Private Function reOpenPort() As Boolean
+                  dim status as boolean
+                  //Set the return code to false unless the port successfully opens
+                  status = false
+                  
+                  //First close the port just in case
+                  me.Close
+                  
+                  if not me.Open then
+                    //Could not open
+                    MsgBox "Error opening defined com port"
+                  else
+                    status = true
+                  end if
+                  
+                  return status
+                End Function
+        #tag EndMethod
+
         #tag Method, Flags = &h0
                 Sub resetCar()
@@ -752 +772 @@
                   end if
                 End Sub
-        #tag EndMethod
-
-        #tag Method, Flags = &h21
-                Private Function reOpenPort() As Boolean
-                  dim status as boolean
-                  //Set the return code to false unless the port successfully opens
-                  status = false
-                  
-                  //First close the port just in case
-                  me.Close
-                  
-                  if not me.Open then
-                    //Could not open
-                    MsgBox "Error opening defined com port"
-                  else
-                    status = true
-                  end if
-                End Function
         #tag EndMethod