Changeset 10 for trunk/desktop/mainWindow.rbfrm

Timestamp:

04/07/10 15:26:04 (15 years ago)

Author:

pinwc4

Message:

Begun adding checksum and database logic

File:

• trunk/desktop/mainWindow.rbfrm (modified) (4 diffs)

trunk/desktop/mainWindow.rbfrm

@@ -2630 +2630 @@
 
 #tag WindowCode
-        #tag Method, Flags = &h0
-                Sub disableControls()
+        #tag Method, Flags = &h21
+                Private Sub disableControls()
                   select case ICSSerialPort1.carType
                     
@@ -2678 +2678 @@
         #tag EndMethod
 
-        #tag Method, Flags = &h0
-                Sub updateCarScreen()
+        #tag Method, Flags = &h21
+                Private Sub updateCarScreen()
                   //Use this method to update the car screen
                   
@@ -2857 +2857 @@
         #tag EndMethod
 
-        #tag Method, Flags = &h0
-                Sub updateAdvancedScreen()
+        #tag Method, Flags = &h21
+                Private Sub updateAdvancedScreen()
                   //Update the fields on the advanced screen to match current values
                   EditField_Byte1.Text = str(asc(ICSSerialPort1.byte01))
@@ -2880 +2880 @@
                 End Sub
         #tag EndMethod
+
+        #tag Method, Flags = &h21
+                Private Sub readPreferences()
+                  dim filePreference as FolderItem = GetFolderItem("icspref.xml")
+                  dim xdoc as XmlDocument
+                  dim root as XmlNode
+                  dim i as Integer
+                  dim count as integer
+                  dim item as string
+                  
+                  //Read the settings from the preferences file
+                  if filePreference <> Nil then
+                    xdoc = New XmlDocument(filePreference)
+                    
+                    count = xdoc.DocumentElement.ChildCount
+                    
+                    for i = 0 to count - 1
+                      root = xdoc.DocumentElement.Child(i)
+                      
+                      item = root.FirstChild.Value
+                      
+                      select case root.Name
+                      case "comPort"
+                        comPort = item
+                      end select
+                    next
+                    
+                  else
+                    //Do nothing
+                    
+                  end if
+                End Sub
+        #tag EndMethod
+
+        #tag Method, Flags = &h21
+                Private Sub savePreferences()
+                  dim xml as XmlDocument
+                  dim root as XMLNode
+                  dim comPortXML as XmlNode
+                  dim f as FolderItem
+                  
+                  //Save the preferences
+                  
+                  f = GetFolderItem("icspref.xml")
+                  
+                  if f <> Nil then
+                    //Create a new XML document
+                    xml = New XmlDocument
+                    root = xml.AppendChild(xml.CreateElement("icspref"))
+                    
+                    //Add elements
+                    comPortXML = root.AppendChild(xml.CreateElement("comPort"))
+                    comPortXML.AppendChild(xml.CreateTextNode(comPort))
+                    
+                    //Save the output
+                    xml.SaveXml(f)
+                  end if
+                  
+                End Sub
+        #tag EndMethod
+
+
+        #tag Property, Flags = &h0
+                comPort As string
+        #tag EndProperty