Changeset 48
- Timestamp:
- 06/12/10 09:41:34 (14 years ago)
- Location:
- trunk/desktop
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/desktop/FlipSideICS.rbvcp
r39 r48 1 1 Type=Desktop 2 RBProjectVersion=20 09.012 RBProjectVersion=2010.01 3 3 Class=FlipSideICS;FlipSideICS.rbbas;&h321864E;&h0;false 4 4 Window=mainWindow;mainWindow.rbfrm;&hDF8AE23;&h0;false … … 12 12 MinorVersion=1 13 13 SubVersion=0 14 NonRelease=2 714 NonRelease=28 15 15 Release=2 16 16 InfoVersion= … … 21 21 WinProductName= 22 22 AutoIncrementVersionInformation=True 23 BuildFlags=&h40 1023 BuildFlags=&h4000 24 24 BuildLanguage=&h0 25 25 DebugLanguage=&h0 … … 35 35 OSXBundleID= 36 36 DebuggerCommandLine= 37 UseGDIPlus=False 38 UseBuildsFolder=True -
trunk/desktop/ICSSerialPort.rbbas
r42 r48 583 583 #tag EndMethod 584 584 585 #tag Method, Flags = &h21 586 Private Function reOpenPort() As Boolean 587 dim status as boolean 588 //Set the return code to false unless the port successfully opens 589 status = false 590 591 //First close the port just in case 592 me.Close 593 594 if not me.Open then 595 //Could not open 596 MsgBox "Error opening defined com port" 597 else 598 status = true 599 end if 600 601 return status 602 End Function 603 #tag EndMethod 604 585 605 #tag Method, Flags = &h0 586 606 Sub resetCar() … … 752 772 end if 753 773 End Sub 754 #tag EndMethod755 756 #tag Method, Flags = &h21757 Private Function reOpenPort() As Boolean758 dim status as boolean759 //Set the return code to false unless the port successfully opens760 status = false761 762 //First close the port just in case763 me.Close764 765 if not me.Open then766 //Could not open767 MsgBox "Error opening defined com port"768 else769 status = true770 end if771 End Function772 774 #tag EndMethod 773 775
Note: See TracChangeset
for help on using the changeset viewer.