- Location:
- /trunk/desktop
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
/trunk/desktop/FlipSideICS.rbvcp
r29 r13 1 1 Type=Desktop 2 RBProjectVersion=20 10.012 RBProjectVersion=2009.01 3 3 Class=FlipSideICS;FlipSideICS.rbbas;&h321864E;&h0;false 4 4 Window=mainWindow;mainWindow.rbfrm;&hDF8AE23;&h0;false 5 5 MenuBar=mainMenuBar;mainMenuBar.rbmnu;&h4170C4A5;&h0;false 6 Picture=background;background.jpg;&h527E8FD9;&h0;false;0;&h0 6 7 Class=ICSSerialPort;ICSSerialPort.rbbas;&h73165B84;&h0;false 7 8 Window=createProfile;createProfile.rbfrm;&h565C380D;&h0;false 8 Picture=background;background.jpg;&h527E8FD9;&h0;false;0;&h09 9 DefaultWindow=mainWindow 10 10 AppMenuBar=mainMenuBar … … 12 12 MinorVersion=1 13 13 SubVersion=0 14 NonRelease= 1814 NonRelease=9 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=False38 UseBuildsFolder=True -
/trunk/desktop/ICSSerialPort.rbbas
r30 r20 2 2 Protected Class ICSSerialPort 3 3 Inherits serial 4 #tag Event 5 Sub DataAvailable() 6 //Add to the buffer first 7 8 buffer = buffer + me.ReadAll 9 10 //Figure out if we need to do anything 11 12 select case mode 13 14 case "read" 15 dim flagstart as integer 16 dim datastart as integer 17 18 //We need to decode the packet to figure out the values 19 20 //First we need to make sure we have enough data 21 //If not we need to wait for more 22 23 flagstart = InStrb(buffer, ChrB(&h5A)) 24 25 if flagstart = 0 then 26 //We did not find a match so we can discard the data and wait for more 27 buffer = "" 28 return 29 ElseIf lenb(buffer) < 17 + flagStart - 1 then 30 // we do not have a complete packet return and wait 31 return 32 end if 33 34 datastart = flagstart + 1 35 36 byte03 = midb(buffer, datastart, 1) 37 byte04 = midb(buffer, datastart+1, 1) 38 byte05 = midb(buffer, datastart+2, 1) 39 byte06 = midb(buffer, datastart+3, 1) 40 byte07 = midb(buffer, datastart+4, 1) 41 byte08 = midb(buffer, datastart+5, 1) 42 byte09 = midb(buffer, datastart+6, 1) 43 byte10 = midb(buffer, datastart+7, 1) 44 byte11 = midb(buffer, datastart+8, 1) 45 byte12 = midb(buffer, datastart+9, 1) 46 byte13 = midb(buffer, datastart+10, 1) 47 byte14 = midb(buffer, datastart+11, 1) 48 byte15 = midb(buffer, datastart+12, 1) 49 byte16 = midb(buffer, datastart+13, 1) 50 byte17 = midb(buffer, datastart+14, 1) 51 52 valuesChanged() 4 #tag Method, Flags = &h0 5 Sub resetCar() 6 //This sends the command to reset the car back to a default configuration 7 //Defaults are different for each car type 8 setDefaultValues 9 10 //Send the default values to the car 11 writeCar 12 End Sub 13 #tag EndMethod 14 15 #tag Method, Flags = &h0 16 Sub setDefaultValues() 17 //Set the defaults for the bytes sent to a car 18 19 select case carType 20 21 case "MR-03" 22 byte01 = chrb(&hD5) 23 byte02 = chrb(&h5A) 24 byte03 = chrb(&h64) 25 byte04 = chrb(&hFF) 26 byte05 = chrb(&h02) 27 byte06 = chrb(&h02) 28 byte07 = chrb(&h01) 29 byte08 = chrb(&hFF) 30 byte09 = chrb(&hBC) 31 byte10 = chrb(&h44) 32 byte11 = chrb(&h88) 33 byte12 = chrb(&h78) 34 byte13 = chrb(&hFF) 35 byte14 = chrb(&h2C) 36 byte15 = chrb(&h05) 37 byte16 = chrb(&h5A) 38 byte17 = chrb(&h3C) 39 byte18 = chrb(&h87) 40 41 case "dNaNo" 42 byte01 = chrb(&hD5) 43 byte02 = chrb(&h5A) 44 byte03 = chrb(&hFF) 45 byte04 = chrb(&hFF) 46 byte05 = chrb(&h0A) 47 byte06 = chrb(&h03) 48 byte07 = chrb(&h01) 49 byte08 = chrb(&h40) 50 byte09 = chrb(&hBC) 51 byte10 = chrb(&h44) 52 byte11 = chrb(&h88) 53 byte12 = chrb(&h78) 54 byte13 = chrb(&h03) 55 byte14 = chrb(&hFF) 56 byte15 = chrb(&hFF) 57 byte16 = chrb(&h80) 58 byte17 = chrb(&h80) 59 byte18 = chrb(&hA7) 60 61 case "ASF" 62 byte01 = chrb(&hD5) 63 byte02 = chrb(&h5A) 64 byte03 = chrb(&hFF) 65 byte04 = chrb(&hFF) 66 byte05 = chrb(&h0A) 67 byte06 = chrb(&h03) 68 byte07 = chrb(&h01) 69 byte08 = chrb(&h78) 70 byte09 = chrb(&hBC) 71 byte10 = chrb(&h44) 72 byte11 = chrb(&h88) 73 byte12 = chrb(&h78) 74 byte13 = chrb(&h03) 75 byte14 = chrb(&hFF) 76 byte15 = chrb(&hFF) 77 byte16 = chrb(&hFF) 78 byte17 = chrb(&hFF) 79 byte18 = chrb(&hDD) 53 80 54 81 else 55 56 //We do not care about the data, discard it 57 buffer = "" 58 82 //default thing to do 83 MsgBox "Error invalid car type" 84 return 59 85 end select 60 End Sub 61 #tag EndEvent 62 86 87 //trigger the event definition so main program knows the values changed 88 valuesChanged() 89 End Sub 90 #tag EndMethod 91 92 #tag Method, Flags = &h0 93 Sub setCarType(value as string) 94 //When setting car type we must reconfigure the serial port 95 //Some car types have a different baud rate 96 97 select case value 98 99 case "MR-03" 100 carType = value 101 byte15 = chrb(&h05) 102 byte16 = chrb(&h5A) 103 byte17 = chrb(&h3C) 104 case "dNaNo" 105 carType = value 106 byte15 = chrb(&hFF) 107 byte16 = chrb(&h80) 108 byte17 = chrb(&h80) 109 case "ASF" 110 carType = value 111 byte15 = chrb(&hFF) 112 byte16 = chrb(&hFF) 113 byte17 = chrb(&hFF) 114 115 else 116 MsgBox "Error setting Car Type" 117 end select 118 119 valuesChanged() 120 End Sub 121 #tag EndMethod 122 123 #tag Method, Flags = &h0 124 Sub writeCar() 125 //Send set bytes to the car 126 mode = "write" 127 128 dim sendstring as string 129 130 calculateChecksum() 131 132 sendstring = byte01 + byte02 + byte03 + byte04 + byte05 + byte06 + byte07 + byte08 + byte09 + byte10 + byte11 + byte12 + byte13 + byte14 + byte15 + byte16 + byte17 + byte18 133 134 me.Write(sendstring) 135 End Sub 136 #tag EndMethod 63 137 64 138 #tag Method, Flags = &h0 … … 86 160 87 161 byte18 = chrb(i) 162 End Sub 163 #tag EndMethod 164 165 #tag Method, Flags = &h0 166 Sub readCar() 167 //Read values from the currently attached car 168 169 mode = "read" 88 170 End Sub 89 171 #tag EndMethod … … 127 209 carType = "MR-03" 128 210 End Sub 211 #tag EndMethod 212 213 #tag Method, Flags = &h21 214 Private Function prepareDB() As Boolean 215 //Open the database file 216 fsicsdb = new REALSQLDatabase 217 dim f as FolderItem = GetFolderItem("fsicsdb") 218 fsicsdb.DatabaseFile = f 219 220 return f.Exists 221 End Function 129 222 #tag EndMethod 130 223 … … 234 327 235 328 #tag Method, Flags = &h0 236 Sub exportProfile(theName as string) 237 dim xml as XmlDocument 238 dim root as XmlNode 239 dim rootchild as XmlNode 329 Sub saveProfile(theName as String) 240 330 dim rs as RecordSet 241 dim i as integer 242 dim dlg as SaveAsDialog 243 dim f as FolderItem 244 245 dlg = New SaveAsDialog 246 dlg.Title = "Export your profile" 247 #if TargetLinux 248 dlg.InitialDirectory = SpecialFolder.Home 249 #else 250 dlg.InitialDirectory = SpecialFolder.Documents 251 #endif 252 253 dlg.SuggestedFileName = "ics_"+theName+".xml" 254 f = dlg.ShowModal() 255 256 if f <> Nil then 257 //Nothing to see here, move along 258 else 259 MsgBox "You must choose a file" 260 Return 331 dim status as Boolean 332 333 //Find a record 334 rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'") 335 336 //Make sure we got a record 337 if rs <> nil then 338 //delete the record before saving 339 deleteProfile(theName) 261 340 end if 262 341 263 //Find the record 264 rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'") 265 266 if rs <> Nil then 267 //We have a record, so do something 268 269 //Create the root element of the XML file 270 xml = New XmlDocument 271 root = xml.AppendChild(xml.CreateElement("icsprofile")) 272 273 //Itterate all available fields and write them to the xml document 274 for i = 1 to rs.FieldCount 275 if rs.IdxField(i).Name <> "" and rs.IdxField(i).StringValue<> "" then 276 277 rootchild = root.AppendChild(xml.CreateElement(rs.IdxField(i).Name)) 278 rootchild.AppendChild(xml.CreateTextNode(rs.IdxField(i).StringValue)) 279 end if 280 next 281 282 //Write the document to a file 283 xml.SaveXml(f) 284 else 285 MsgBox "No profile to export" 286 Return 287 end if 288 289 End Sub 290 #tag EndMethod 291 292 #tag Method, Flags = &h0 293 Function importProfile() As Boolean 294 dim success as boolean 295 dim dlg as OpenDialog 296 dim f as FolderItem 297 dim xdoc as XmlDocument 298 dim root as XmlNode 299 dim i as integer 300 dim count as Integer 301 dim item as string 302 dim rec as DatabaseRecord 303 dim theName as string 304 305 rec = New DatabaseRecord 306 success = False 307 308 309 //Get the user to select a file 310 dlg = New OpenDialog 311 dlg.Title = "Select a profile to import" 312 #if TargetLinux 313 dlg.InitialDirectory = SpecialFolder.Home 314 #else 315 dlg.InitialDirectory = SpecialFolder.Documents 316 #endif 317 f = dlg.ShowModal() 318 319 //If we have a valid file we need to read it as an xml file to process it 320 //Items are individually specified to prevent the program from trying to insert columns that do not exist 321 //All column names should match the database table 322 323 if f <> nil then 324 325 //Read the XML file 326 xdoc = New XmlDocument(f) 327 328 count = xdoc.DocumentElement.ChildCount 329 330 for i = 0 to count - 1 331 root = xdoc.DocumentElement.Child(i) 332 333 item = root.FirstChild.Value 334 335 select case root.Name 336 337 case "name" 338 theName = item 339 case "cartype" 340 carType = item 341 case "byte01" 342 byte01 = chrb(val(item)) 343 case "byte02" 344 byte02 = chrb(val(item)) 345 case "byte03" 346 byte03 = chrb(val(item)) 347 case "byte04" 348 byte04 = chrb(val(item)) 349 case "byte05" 350 byte05 = chrb(val(item)) 351 case "byte06" 352 byte06 = chrb(val(item)) 353 case "byte07" 354 byte07 = chrb(val(item)) 355 case "byte08" 356 byte08 = chrb(val(item)) 357 case "byte09" 358 byte09 = chrb(val(item)) 359 case "byte10" 360 byte10 = chrb(val(item)) 361 case "byte11" 362 byte11 = chrb(val(item)) 363 case "byte12" 364 byte12 = chrb(val(item)) 365 case "byte13" 366 byte13 = chrb(val(item)) 367 case "byte14" 368 byte14 = chrb(val(item)) 369 case "byte15" 370 byte15 = chrb(val(item)) 371 case "byte16" 372 byte16 = chrb(val(item)) 373 case "byte17" 374 byte17 = chrb(val(item)) 375 case "byte18" 376 byte18 = chrb(val(item)) 377 378 end select 379 380 next 381 382 else 383 //File not select we can stop 384 success = False 385 return success 386 end if 387 388 //Now check to make sure their is not an existing profile with this name 389 dim rs as RecordSet 390 391 rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'") 392 393 if rs <> Nil then 394 395 if rs.RecordCount > 0 then 396 //we have a duplicate record 397 //we need to prompt the user about what to do 398 dim d as New MessageDialog 399 dim b as MessageDialogButton 400 d.Icon = MessageDialog.GraphicCaution 401 d.ActionButton.Caption = "Yes" 402 d.CancelButton.Visible = True 403 d.CancelButton.Caption = "No" 404 d.Message = "A profile exists with this name, do you want to overwrite the existing profile?" 405 b = d.ShowModal 406 407 //Now determine what the user chose 408 Select Case b 409 case d.ActionButton 410 //The user wants to overwrite the record so we can just save what we have 411 saveProfile(theName) 412 success = True 413 //Values changed because of the overwrite 414 valuesChanged() 415 case d.CancelButton 416 //The user chose not to overwrite the record, we need to come up with a new name 417 //We will increment the number until we find a name not used or we hit 32 just in case an infinite loop would occur 418 dim tempString as string 419 dim tempName as string 420 i = 0 421 while rs.RecordCount > 0 422 i = i + 1 423 tempString = str(i) 424 tempName = theName + tempString 425 //Check to make sure we are not in an infinite looooooooop 426 //If we are something went wrong 427 if i > 31 then 428 exit While 429 end if 430 rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name = '"+tempName+"'") 431 432 wend 433 //OK we have a unique name at this point 434 theName = theName + tempString 435 saveProfile(theName) 436 success = True 437 //new profile was imported 438 profileImported(theName) 439 end select 440 441 else 442 //No duplicate exists so we can just insert the record 443 saveProfile(theName) 444 success = True 445 //new profile was imported 446 profileImported(theName) 447 end if 448 //Close our record 449 rs.Close 450 451 end if 452 453 Return success 454 455 End Function 342 rs.Close 343 344 status = createProfile(theName) 345 End Sub 456 346 #tag EndMethod 457 347 … … 552 442 #tag EndMethod 553 443 554 #tag Method, Flags = &h21555 Private Function prepareDB() As Boolean556 //Open the database file557 fsicsdb = new REALSQLDatabase558 dim f as FolderItem = GetFolderItem("fsicsdb")559 fsicsdb.DatabaseFile = f560 561 return f.Exists562 End Function563 #tag EndMethod564 565 #tag Method, Flags = &h0566 Sub readCar()567 //Read values from the currently attached car568 dim sendstring as string569 570 mode = "read"571 572 sendstring = chrb(&hC5)573 574 me.Write(sendstring)575 End Sub576 #tag EndMethod577 578 #tag Method, Flags = &h0579 Sub resetCar()580 //This sends the command to reset the car back to a default configuration581 //Defaults are different for each car type582 setDefaultValues583 584 //Send the default values to the car585 writeCar586 End Sub587 #tag EndMethod588 589 #tag Method, Flags = &h0590 Sub saveProfile(theName as String)591 if theName <> "" then592 593 dim rs as RecordSet594 dim status as Boolean595 596 //Find a record597 rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'")598 599 //Make sure we got a record600 if rs <> nil then601 //delete the record before saving602 deleteProfile(theName)603 end if604 605 rs.Close606 607 status = createProfile(theName)608 609 else610 611 MsgBox "Please select a profile to modify"612 613 end if614 End Sub615 #tag EndMethod616 617 #tag Method, Flags = &h0618 Sub setCarType(value as string)619 //When setting car type we must reconfigure the serial port620 //Some car types have a different baud rate621 622 select case value623 624 case "MR-03"625 carType = value626 byte15 = chrb(&h05)627 byte16 = chrb(&h5A)628 byte17 = chrb(&h3C)629 case "dNaNo"630 carType = value631 byte15 = chrb(&hFF)632 byte16 = chrb(&h80)633 byte17 = chrb(&h80)634 case "ASF"635 carType = value636 byte15 = chrb(&hFF)637 byte16 = chrb(&hFF)638 byte17 = chrb(&hFF)639 640 else641 MsgBox "Error setting Car Type"642 end select643 644 valuesChanged()645 End Sub646 #tag EndMethod647 648 #tag Method, Flags = &h0649 Sub setDefaultValues()650 //Set the defaults for the bytes sent to a car651 652 select case carType653 654 case "MR-03"655 byte01 = chrb(&hD5)656 byte02 = chrb(&h5A)657 byte03 = chrb(&h64)658 byte04 = chrb(&hFF)659 byte05 = chrb(&h02)660 byte06 = chrb(&h02)661 byte07 = chrb(&h01)662 byte08 = chrb(&hFF)663 byte09 = chrb(&hBC)664 byte10 = chrb(&h44)665 byte11 = chrb(&h88)666 byte12 = chrb(&h78)667 byte13 = chrb(&hFF)668 byte14 = chrb(&h2C)669 byte15 = chrb(&h05)670 byte16 = chrb(&h5A)671 byte17 = chrb(&h3C)672 byte18 = chrb(&h87)673 674 case "dNaNo"675 byte01 = chrb(&hD5)676 byte02 = chrb(&h5A)677 byte03 = chrb(&hFF)678 byte04 = chrb(&hFF)679 byte05 = chrb(&h0A)680 byte06 = chrb(&h03)681 byte07 = chrb(&h01)682 byte08 = chrb(&h40)683 byte09 = chrb(&hBC)684 byte10 = chrb(&h44)685 byte11 = chrb(&h88)686 byte12 = chrb(&h78)687 byte13 = chrb(&h03)688 byte14 = chrb(&hFF)689 byte15 = chrb(&hFF)690 byte16 = chrb(&h80)691 byte17 = chrb(&h80)692 byte18 = chrb(&hA7)693 694 case "ASF"695 byte01 = chrb(&hD5)696 byte02 = chrb(&h5A)697 byte03 = chrb(&hFF)698 byte04 = chrb(&hFF)699 byte05 = chrb(&h0A)700 byte06 = chrb(&h03)701 byte07 = chrb(&h01)702 byte08 = chrb(&h78)703 byte09 = chrb(&hBC)704 byte10 = chrb(&h44)705 byte11 = chrb(&h88)706 byte12 = chrb(&h78)707 byte13 = chrb(&h03)708 byte14 = chrb(&hFF)709 byte15 = chrb(&hFF)710 byte16 = chrb(&hFF)711 byte17 = chrb(&hFF)712 byte18 = chrb(&hDD)713 714 else715 //default thing to do716 MsgBox "Error invalid car type"717 return718 end select719 720 //trigger the event definition so main program knows the values changed721 valuesChanged()722 End Sub723 #tag EndMethod724 725 #tag Method, Flags = &h0726 Sub writeCar()727 //Send set bytes to the car728 mode = "write"729 730 dim sendstring as string731 732 calculateChecksum()733 734 sendstring = byte01 + byte02 + byte03 + byte04 + byte05 + byte06 + byte07 + byte08 + byte09 + byte10 + byte11 + byte12 + byte13 + byte14 + byte15 + byte16 + byte17 + byte18735 736 me.Write(sendstring)737 End Sub738 #tag EndMethod739 740 741 #tag Hook, Flags = &h0742 Event profileImported(profileName as string)743 #tag EndHook744 444 745 445 #tag Hook, Flags = &h0 … … 756 456 #tag EndNote 757 457 758 #tag Note, Name = License759 Copyright 2010 Jeremy Auten760 761 This file is part of Flip Side ICS Software.762 763 Flip Side ICS Software is free software: you can redistribute it and/or modify764 it under the terms of the GNU General Public License as published by765 the Free Software Foundation, either version 3 of the License, or766 (at your option) any later version.767 768 Flip Side ICS Software is distributed in the hope that it will be useful,769 but WITHOUT ANY WARRANTY; without even the implied warranty of770 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the771 GNU General Public License for more details.772 773 You should have received a copy of the GNU General Public License774 along with Flip Side ICS Software. If not, see <http://www.gnu.org/licenses/>.775 #tag EndNote776 777 778 #tag Property, Flags = &h21779 Private buffer As String780 #tag EndProperty781 458 782 459 #tag Property, Flags = &h0 … … 785 462 786 463 #tag Property, Flags = &h0 464 byte11 As String 465 #tag EndProperty 466 467 #tag Property, Flags = &h0 468 byte12 As String 469 #tag EndProperty 470 471 #tag Property, Flags = &h0 472 byte13 As String 473 #tag EndProperty 474 475 #tag Property, Flags = &h0 476 byte14 As String 477 #tag EndProperty 478 479 #tag Property, Flags = &h0 480 byte15 As String 481 #tag EndProperty 482 483 #tag Property, Flags = &h0 484 byte16 As String 485 #tag EndProperty 486 487 #tag Property, Flags = &h0 488 byte17 As String 489 #tag EndProperty 490 491 #tag Property, Flags = &h0 492 byte18 As String 493 #tag EndProperty 494 495 #tag Property, Flags = &h0 787 496 byte02 As String 788 497 #tag EndProperty … … 821 530 822 531 #tag Property, Flags = &h0 823 byte11 As String 824 #tag EndProperty 825 826 #tag Property, Flags = &h0 827 byte12 As String 828 #tag EndProperty 829 830 #tag Property, Flags = &h0 831 byte13 As String 832 #tag EndProperty 833 834 #tag Property, Flags = &h0 835 byte14 As String 836 #tag EndProperty 837 838 #tag Property, Flags = &h0 839 byte15 As String 840 #tag EndProperty 841 842 #tag Property, Flags = &h0 843 byte16 As String 844 #tag EndProperty 845 846 #tag Property, Flags = &h0 847 byte17 As String 848 #tag EndProperty 849 850 #tag Property, Flags = &h0 851 byte18 As String 852 #tag EndProperty 853 854 #tag Property, Flags = &h21 855 Private carType As String = "MR-03" 532 carType As String = "MR-03" 856 533 #tag EndProperty 857 534 … … 860 537 #tag EndProperty 861 538 862 #tag Property, Flags = &h 21863 Private mode As String = "none"539 #tag Property, Flags = &h0 540 mode As String = "read" 864 541 #tag EndProperty 865 542 866 543 867 544 #tag ViewBehavior 545 #tag ViewProperty 546 Name="Name" 547 Visible=true 548 Group="ID" 549 InheritedFrom="serial" 550 #tag EndViewProperty 551 #tag ViewProperty 552 Name="Index" 553 Visible=true 554 Group="ID" 555 Type="Integer" 556 InheritedFrom="serial" 557 #tag EndViewProperty 558 #tag ViewProperty 559 Name="Super" 560 Visible=true 561 Group="ID" 562 InheritedFrom="serial" 563 #tag EndViewProperty 564 #tag ViewProperty 565 Name="Left" 566 Visible=true 567 Group="Position" 568 InheritedFrom="serial" 569 #tag EndViewProperty 570 #tag ViewProperty 571 Name="Top" 572 Visible=true 573 Group="Position" 574 InheritedFrom="serial" 575 #tag EndViewProperty 868 576 #tag ViewProperty 869 577 Name="Baud" … … 909 617 #tag EndViewProperty 910 618 #tag ViewProperty 911 Name="byte01"912 Group="Behavior"913 InitialValue="&hFF"914 Type="String"915 EditorType="MultiLineEditor"916 #tag EndViewProperty917 #tag ViewProperty918 Name="byte02"919 Group="Behavior"920 Type="String"921 EditorType="MultiLineEditor"922 #tag EndViewProperty923 #tag ViewProperty924 Name="byte03"925 Group="Behavior"926 Type="String"927 EditorType="MultiLineEditor"928 #tag EndViewProperty929 #tag ViewProperty930 Name="byte04"931 Group="Behavior"932 Type="String"933 EditorType="MultiLineEditor"934 #tag EndViewProperty935 #tag ViewProperty936 Name="byte05"937 Group="Behavior"938 Type="String"939 EditorType="MultiLineEditor"940 #tag EndViewProperty941 #tag ViewProperty942 Name="byte06"943 Group="Behavior"944 Type="String"945 EditorType="MultiLineEditor"946 #tag EndViewProperty947 #tag ViewProperty948 Name="byte07"949 Group="Behavior"950 Type="String"951 EditorType="MultiLineEditor"952 #tag EndViewProperty953 #tag ViewProperty954 Name="byte08"955 Group="Behavior"956 Type="String"957 EditorType="MultiLineEditor"958 #tag EndViewProperty959 #tag ViewProperty960 Name="byte09"961 Group="Behavior"962 Type="String"963 EditorType="MultiLineEditor"964 #tag EndViewProperty965 #tag ViewProperty966 Name="byte10"967 Group="Behavior"968 Type="String"969 EditorType="MultiLineEditor"970 #tag EndViewProperty971 #tag ViewProperty972 Name="byte11"973 Group="Behavior"974 Type="String"975 EditorType="MultiLineEditor"976 #tag EndViewProperty977 #tag ViewProperty978 Name="byte12"979 Group="Behavior"980 Type="String"981 EditorType="MultiLineEditor"982 #tag EndViewProperty983 #tag ViewProperty984 Name="byte13"985 Group="Behavior"986 Type="String"987 EditorType="MultiLineEditor"988 #tag EndViewProperty989 #tag ViewProperty990 Name="byte14"991 Group="Behavior"992 Type="String"993 EditorType="MultiLineEditor"994 #tag EndViewProperty995 #tag ViewProperty996 Name="byte15"997 Group="Behavior"998 Type="String"999 EditorType="MultiLineEditor"1000 #tag EndViewProperty1001 #tag ViewProperty1002 Name="byte16"1003 Group="Behavior"1004 Type="String"1005 EditorType="MultiLineEditor"1006 #tag EndViewProperty1007 #tag ViewProperty1008 Name="byte17"1009 Group="Behavior"1010 Type="String"1011 EditorType="MultiLineEditor"1012 #tag EndViewProperty1013 #tag ViewProperty1014 Name="byte18"1015 Group="Behavior"1016 Type="String"1017 EditorType="MultiLineEditor"1018 #tag EndViewProperty1019 #tag ViewProperty1020 Name="carType"1021 Group="Behavior"1022 InitialValue="MR-03"1023 Type="String"1024 EditorType="MultiLineEditor"1025 #tag EndViewProperty1026 #tag ViewProperty1027 Name="CTS"1028 Visible=true1029 Group="Behavior"1030 Type="Boolean"1031 InheritedFrom="serial"1032 #tag EndViewProperty1033 #tag ViewProperty1034 Name="DTR"1035 Visible=true1036 Group="Behavior"1037 Type="Boolean"1038 InheritedFrom="serial"1039 #tag EndViewProperty1040 #tag ViewProperty1041 Name="Index"1042 Visible=true1043 Group="ID"1044 Type="Integer"1045 InheritedFrom="serial"1046 #tag EndViewProperty1047 #tag ViewProperty1048 Name="Left"1049 Visible=true1050 Group="Position"1051 InheritedFrom="serial"1052 #tag EndViewProperty1053 #tag ViewProperty1054 Name="mode"1055 Group="Behavior"1056 InitialValue="read"1057 Type="String"1058 EditorType="MultiLineEditor"1059 #tag EndViewProperty1060 #tag ViewProperty1061 Name="Name"1062 Visible=true1063 Group="ID"1064 InheritedFrom="serial"1065 #tag EndViewProperty1066 #tag ViewProperty1067 619 Name="Parity" 1068 620 Visible=true … … 1093 645 #tag EndViewProperty 1094 646 #tag ViewProperty 1095 Name="Super"1096 Visible=true1097 Group="ID"1098 InheritedFrom="serial"1099 #tag EndViewProperty1100 #tag ViewProperty1101 Name="Top"1102 Visible=true1103 Group="Position"1104 InheritedFrom="serial"1105 #tag EndViewProperty1106 #tag ViewProperty1107 647 Name="XON" 1108 648 Visible=true … … 1110 650 Type="Boolean" 1111 651 InheritedFrom="serial" 652 #tag EndViewProperty 653 #tag ViewProperty 654 Name="CTS" 655 Visible=true 656 Group="Behavior" 657 Type="Boolean" 658 InheritedFrom="serial" 659 #tag EndViewProperty 660 #tag ViewProperty 661 Name="DTR" 662 Visible=true 663 Group="Behavior" 664 Type="Boolean" 665 InheritedFrom="serial" 666 #tag EndViewProperty 667 #tag ViewProperty 668 Name="byte01" 669 Group="Behavior" 670 InitialValue="&hFF" 671 Type="String" 672 EditorType="MultiLineEditor" 673 #tag EndViewProperty 674 #tag ViewProperty 675 Name="byte11" 676 Group="Behavior" 677 Type="String" 678 EditorType="MultiLineEditor" 679 #tag EndViewProperty 680 #tag ViewProperty 681 Name="byte12" 682 Group="Behavior" 683 Type="String" 684 EditorType="MultiLineEditor" 685 #tag EndViewProperty 686 #tag ViewProperty 687 Name="byte13" 688 Group="Behavior" 689 Type="String" 690 EditorType="MultiLineEditor" 691 #tag EndViewProperty 692 #tag ViewProperty 693 Name="byte14" 694 Group="Behavior" 695 Type="String" 696 EditorType="MultiLineEditor" 697 #tag EndViewProperty 698 #tag ViewProperty 699 Name="byte15" 700 Group="Behavior" 701 Type="String" 702 EditorType="MultiLineEditor" 703 #tag EndViewProperty 704 #tag ViewProperty 705 Name="byte16" 706 Group="Behavior" 707 Type="String" 708 EditorType="MultiLineEditor" 709 #tag EndViewProperty 710 #tag ViewProperty 711 Name="byte17" 712 Group="Behavior" 713 Type="String" 714 EditorType="MultiLineEditor" 715 #tag EndViewProperty 716 #tag ViewProperty 717 Name="byte18" 718 Group="Behavior" 719 Type="String" 720 EditorType="MultiLineEditor" 721 #tag EndViewProperty 722 #tag ViewProperty 723 Name="byte02" 724 Group="Behavior" 725 Type="String" 726 EditorType="MultiLineEditor" 727 #tag EndViewProperty 728 #tag ViewProperty 729 Name="byte03" 730 Group="Behavior" 731 Type="String" 732 EditorType="MultiLineEditor" 733 #tag EndViewProperty 734 #tag ViewProperty 735 Name="byte04" 736 Group="Behavior" 737 Type="String" 738 EditorType="MultiLineEditor" 739 #tag EndViewProperty 740 #tag ViewProperty 741 Name="byte05" 742 Group="Behavior" 743 Type="String" 744 EditorType="MultiLineEditor" 745 #tag EndViewProperty 746 #tag ViewProperty 747 Name="byte06" 748 Group="Behavior" 749 Type="String" 750 EditorType="MultiLineEditor" 751 #tag EndViewProperty 752 #tag ViewProperty 753 Name="byte07" 754 Group="Behavior" 755 Type="String" 756 EditorType="MultiLineEditor" 757 #tag EndViewProperty 758 #tag ViewProperty 759 Name="byte08" 760 Group="Behavior" 761 Type="String" 762 EditorType="MultiLineEditor" 763 #tag EndViewProperty 764 #tag ViewProperty 765 Name="byte09" 766 Group="Behavior" 767 Type="String" 768 EditorType="MultiLineEditor" 769 #tag EndViewProperty 770 #tag ViewProperty 771 Name="byte10" 772 Group="Behavior" 773 Type="String" 774 EditorType="MultiLineEditor" 775 #tag EndViewProperty 776 #tag ViewProperty 777 Name="carType" 778 Group="Behavior" 779 InitialValue="MR-03" 780 Type="String" 781 #tag EndViewProperty 782 #tag ViewProperty 783 Name="mode" 784 Group="Behavior" 785 InitialValue="read" 786 Type="String" 1112 787 #tag EndViewProperty 1113 788 #tag EndViewBehavior -
/trunk/desktop/mainWindow.rbfrm
r30 r19 8 8 FullScreen = False 9 9 HasBackColor = False 10 Height = 42810 Height = 352 11 11 ImplicitInstance= True 12 12 LiveResize = True … … 21 21 MinWidth = 64 22 22 Placement = 0 23 Resizeable = False23 Resizeable = True 24 24 Title = "Flip Side ICS" 25 25 Visible = True 26 Width = 72026 Width = 640 27 27 Begin PushButton PushButton_Read 28 28 AutoDeactivate = True … … 31 31 Caption = "Read" 32 32 Default = "" 33 Enabled = False33 Enabled = True 34 34 Height = 20 35 35 HelpTag = "" … … 37 37 InitialParent = "" 38 38 Italic = "" 39 Left = 41340 LockBottom = True39 Left = 26 40 LockBottom = "" 41 41 LockedInPosition= False 42 42 LockLeft = "" … … 49 49 TextFont = "System" 50 50 TextSize = 0 51 TextUnit = 0 52 Top = 388 51 Top = 312 53 52 Underline = "" 54 53 Visible = True … … 61 60 Caption = "Write" 62 61 Default = False 63 Enabled = False62 Enabled = True 64 63 Height = 20 65 64 HelpTag = "" … … 67 66 InitialParent = "" 68 67 Italic = "" 69 Left = 51270 LockBottom = True68 Left = 126 69 LockBottom = "" 71 70 LockedInPosition= False 72 71 LockLeft = "" … … 79 78 TextFont = "System" 80 79 TextSize = 0 81 TextUnit = 0 82 Top = 388 80 Top = 312 81 Underline = "" 82 Visible = True 83 Width = 88 84 End 85 Begin PushButton PushButton_Reset 86 AutoDeactivate = True 87 Bold = "" 88 Cancel = "" 89 Caption = "Reset" 90 Default = "" 91 Enabled = True 92 Height = 20 93 HelpTag = "" 94 Index = -2147483648 95 InitialParent = "" 96 Italic = "" 97 Left = 226 98 LockBottom = "" 99 LockedInPosition= False 100 LockLeft = "" 101 LockRight = "" 102 LockTop = "" 103 Scope = 0 104 TabIndex = 6 105 TabPanelIndex = 0 106 TabStop = True 107 TextFont = "System" 108 TextSize = 0 109 Top = 312 83 110 Underline = "" 84 111 Visible = True … … 89 116 Bold = "" 90 117 Enabled = True 91 Height = 366118 Height = 264 92 119 HelpTag = "" 93 120 Index = -2147483648 94 121 InitialParent = "" 95 122 Italic = "" 96 Left = 195123 Left = 0 97 124 LockBottom = "" 98 125 LockedInPosition= False … … 103 130 Scope = 0 104 131 SmallTabs = False 105 TabDefinition = " Car\rCustom"132 TabDefinition = "Settings\rProfiles\rCar\rCustom" 106 133 TabIndex = 43 107 134 TabPanelIndex = 0 … … 109 136 TextFont = "System" 110 137 TextSize = 0 111 TextUnit = 0 112 Top = 0 138 Top = 32 113 139 Underline = "" 114 Value = 1140 Value = 3 115 141 Visible = True 116 Width = 525 142 Width = 637 143 Begin StaticText StaticText_SerialPort 144 AutoDeactivate = True 145 Bold = "" 146 DataField = "" 147 DataSource = "" 148 Enabled = True 149 Height = 20 150 HelpTag = "" 151 Index = -2147483648 152 InitialParent = "TabPanel1" 153 Italic = "" 154 Left = 214 155 LockBottom = "" 156 LockedInPosition= False 157 LockLeft = "" 158 LockRight = "" 159 LockTop = "" 160 Multiline = "" 161 Scope = 0 162 TabIndex = 0 163 TabPanelIndex = 1 164 Text = "COM Port" 165 TextAlign = 0 166 TextColor = "&cB8B8B8" 167 TextFont = "System" 168 TextSize = 0 169 Top = 106 170 Underline = "" 171 Visible = True 172 Width = 100 173 End 174 Begin PopupMenu PopupMenu_SerialPort 175 AutoDeactivate = True 176 Bold = "" 177 DataField = "" 178 DataSource = "" 179 Enabled = True 180 Height = 20 181 HelpTag = "" 182 Index = -2147483648 183 InitialParent = "TabPanel1" 184 InitialValue = "" 185 Italic = "" 186 Left = 26 187 ListIndex = 0 188 LockBottom = "" 189 LockedInPosition= False 190 LockLeft = "" 191 LockRight = "" 192 LockTop = "" 193 Scope = 0 194 TabIndex = 1 195 TabPanelIndex = 1 196 TabStop = True 197 TextFont = "System" 198 TextSize = 0 199 Top = 106 200 Underline = "" 201 Visible = True 202 Width = 176 203 End 204 Begin GroupBox GroupBox1 205 AutoDeactivate = True 206 Bold = "" 207 Caption = "" 208 Enabled = True 209 Height = 89 210 HelpTag = "" 211 Index = -2147483648 212 InitialParent = "TabPanel1" 213 Italic = "" 214 Left = 14 215 LockBottom = "" 216 LockedInPosition= False 217 LockLeft = "" 218 LockRight = "" 219 LockTop = "" 220 Scope = 0 221 TabIndex = 0 222 TabPanelIndex = 2 223 TextFont = "System" 224 TextSize = 0 225 Top = 94 226 Underline = "" 227 Visible = True 228 Width = 358 229 Begin PopupMenu PopupMenu_Profile 230 AutoDeactivate = True 231 Bold = "" 232 DataField = "" 233 DataSource = "" 234 Enabled = True 235 Height = 20 236 HelpTag = "" 237 Index = -2147483648 238 InitialParent = "GroupBox1" 239 InitialValue = "" 240 Italic = "" 241 Left = 26 242 ListIndex = 0 243 LockBottom = "" 244 LockedInPosition= False 245 LockLeft = "" 246 LockRight = "" 247 LockTop = "" 248 Scope = 0 249 TabIndex = 0 250 TabPanelIndex = 2 251 TabStop = True 252 TextFont = "System" 253 TextSize = 0 254 Top = 106 255 Underline = "" 256 Visible = True 257 Width = 176 258 End 259 Begin PushButton PushButton_Create 260 AutoDeactivate = True 261 Bold = "" 262 Cancel = "" 263 Caption = "Create" 264 Default = "" 265 Enabled = True 266 Height = 20 267 HelpTag = "" 268 Index = -2147483648 269 InitialParent = "GroupBox1" 270 Italic = "" 271 Left = 26 272 LockBottom = "" 273 LockedInPosition= False 274 LockLeft = "" 275 LockRight = "" 276 LockTop = "" 277 Scope = 0 278 TabIndex = 1 279 TabPanelIndex = 2 280 TabStop = True 281 TextFont = "System" 282 TextSize = 0 283 Top = 142 284 Underline = "" 285 Visible = True 286 Width = 88 287 End 288 Begin PushButton PushButton_Delete 289 AutoDeactivate = True 290 Bold = "" 291 Cancel = "" 292 Caption = "Delete" 293 Default = "" 294 Enabled = True 295 Height = 20 296 HelpTag = "" 297 Index = -2147483648 298 InitialParent = "GroupBox1" 299 Italic = "" 300 Left = 126 301 LockBottom = "" 302 LockedInPosition= False 303 LockLeft = "" 304 LockRight = "" 305 LockTop = "" 306 Scope = 0 307 TabIndex = 2 308 TabPanelIndex = 2 309 TabStop = True 310 TextFont = "System" 311 TextSize = 0 312 Top = 142 313 Underline = "" 314 Visible = False 315 Width = 88 316 End 317 Begin StaticText StaticText_Profiles 318 AutoDeactivate = True 319 Bold = "" 320 DataField = "" 321 DataSource = "" 322 Enabled = True 323 Height = 20 324 HelpTag = "" 325 Index = -2147483648 326 InitialParent = "GroupBox1" 327 Italic = "" 328 Left = 214 329 LockBottom = "" 330 LockedInPosition= False 331 LockLeft = "" 332 LockRight = "" 333 LockTop = "" 334 Multiline = "" 335 Scope = 0 336 TabIndex = 4 337 TabPanelIndex = 2 338 Text = "Profiles" 339 TextAlign = 0 340 TextColor = "&cB8B8B8" 341 TextFont = "System" 342 TextSize = 0 343 Top = 106 344 Underline = "" 345 Visible = True 346 Width = 100 347 End 348 End 349 Begin GroupBox GroupBox2 350 AutoDeactivate = True 351 Bold = "" 352 Caption = "" 353 Enabled = True 354 Height = 202 355 HelpTag = "" 356 Index = -2147483648 357 InitialParent = "TabPanel1" 358 Italic = "" 359 Left = 14 360 LockBottom = "" 361 LockedInPosition= False 362 LockLeft = "" 363 LockRight = "" 364 LockTop = "" 365 Scope = 0 366 TabIndex = 0 367 TabPanelIndex = 3 368 TextFont = "System" 369 TextSize = 0 370 Top = 94 371 Underline = "" 372 Visible = True 373 Width = 608 374 Begin Slider Slider_THGain 375 AutoDeactivate = True 376 Enabled = True 377 Height = 16 378 HelpTag = "" 379 Index = -2147483648 380 InitialParent = "GroupBox2" 381 Left = 322 382 LineStep = 1 383 LiveScroll = "" 384 LockBottom = "" 385 LockedInPosition= False 386 LockLeft = "" 387 LockRight = "" 388 LockTop = "" 389 Maximum = 255 390 Minimum = 1 391 PageStep = 20 392 Scope = 0 393 TabIndex = 0 394 TabPanelIndex = 3 395 TabStop = True 396 Top = 268 397 Value = 0 398 Visible = True 399 Width = 128 400 End 401 Begin EditField EditField_THGain 402 AcceptTabs = "" 403 Alignment = 0 404 AutoDeactivate = True 405 BackColor = &hFFFFFF 406 Bold = "" 407 Border = True 408 DataField = "" 409 DataSource = "" 410 Enabled = True 411 Format = "" 412 Height = 22 413 HelpTag = "" 414 Index = -2147483648 415 InitialParent = "GroupBox2" 416 Italic = "" 417 Left = 462 418 LimitText = 0 419 LockBottom = "" 420 LockedInPosition= False 421 LockLeft = "" 422 LockRight = "" 423 LockTop = "" 424 Mask = "###" 425 Multiline = "" 426 Password = "" 427 ReadOnly = "" 428 Scope = 0 429 ScrollbarHorizontal= "" 430 ScrollbarVertical= True 431 Styled = "" 432 TabIndex = 1 433 TabPanelIndex = 3 434 TabStop = True 435 Text = "" 436 TextColor = &h000000 437 TextFont = "System" 438 TextSize = 0 439 Top = 268 440 Underline = "" 441 UseFocusRing = True 442 Visible = True 443 Width = 32 444 End 445 Begin StaticText StaticText_THGain 446 AutoDeactivate = True 447 Bold = "" 448 DataField = "" 449 DataSource = "" 450 Enabled = True 451 Height = 20 452 HelpTag = "" 453 Index = -2147483648 454 InitialParent = "GroupBox2" 455 Italic = "" 456 Left = 506 457 LockBottom = "" 458 LockedInPosition= False 459 LockLeft = "" 460 LockRight = "" 461 LockTop = "" 462 Multiline = "" 463 Scope = 0 464 TabIndex = 2 465 TabPanelIndex = 3 466 Text = "Throttle Gain" 467 TextAlign = 0 468 TextColor = "&cB8B8B8" 469 TextFont = "System" 470 TextSize = 0 471 Top = 268 472 Underline = "" 473 Visible = True 474 Width = 128 475 End 476 Begin Slider Slider_STGain 477 AutoDeactivate = True 478 Enabled = True 479 Height = 16 480 HelpTag = "" 481 Index = -2147483648 482 InitialParent = "GroupBox2" 483 Left = 322 484 LineStep = 1 485 LiveScroll = "" 486 LockBottom = "" 487 LockedInPosition= False 488 LockLeft = "" 489 LockRight = "" 490 LockTop = "" 491 Maximum = 255 492 Minimum = 1 493 PageStep = 20 494 Scope = 0 495 TabIndex = 3 496 TabPanelIndex = 3 497 TabStop = True 498 Top = 234 499 Value = 0 500 Visible = True 501 Width = 128 502 End 503 Begin EditField EditField_STGain 504 AcceptTabs = "" 505 Alignment = 0 506 AutoDeactivate = True 507 BackColor = &hFFFFFF 508 Bold = "" 509 Border = True 510 DataField = "" 511 DataSource = "" 512 Enabled = True 513 Format = "" 514 Height = 22 515 HelpTag = "" 516 Index = -2147483648 517 InitialParent = "GroupBox2" 518 Italic = "" 519 Left = 462 520 LimitText = 0 521 LockBottom = "" 522 LockedInPosition= False 523 LockLeft = "" 524 LockRight = "" 525 LockTop = "" 526 Mask = "###" 527 Multiline = "" 528 Password = "" 529 ReadOnly = "" 530 Scope = 0 531 ScrollbarHorizontal= "" 532 ScrollbarVertical= True 533 Styled = "" 534 TabIndex = 4 535 TabPanelIndex = 3 536 TabStop = True 537 Text = "" 538 TextColor = &h000000 539 TextFont = "System" 540 TextSize = 0 541 Top = 234 542 Underline = "" 543 UseFocusRing = True 544 Visible = True 545 Width = 32 546 End 547 Begin StaticText StaticText_STGain 548 AutoDeactivate = True 549 Bold = "" 550 DataField = "" 551 DataSource = "" 552 Enabled = True 553 Height = 20 554 HelpTag = "" 555 Index = -2147483648 556 InitialParent = "GroupBox2" 557 Italic = "" 558 Left = 506 559 LockBottom = "" 560 LockedInPosition= False 561 LockLeft = "" 562 LockRight = "" 563 LockTop = "" 564 Multiline = "" 565 Scope = 0 566 TabIndex = 5 567 TabPanelIndex = 3 568 Text = "Steering Gain" 569 TextAlign = 0 570 TextColor = "&cB8B8B8" 571 TextFont = "System" 572 TextSize = 0 573 Top = 234 574 Underline = "" 575 Visible = True 576 Width = 128 577 End 578 Begin PopupMenu PopupMenu_BackTiming 579 AutoDeactivate = True 580 Bold = "" 581 DataField = "" 582 DataSource = "" 583 Enabled = True 584 Height = 20 585 HelpTag = "" 586 Index = -2147483648 587 InitialParent = "GroupBox2" 588 InitialValue = "1\r2\r3\r4\r5\rCustom" 589 Italic = "" 590 Left = 322 591 ListIndex = 0 592 LockBottom = "" 593 LockedInPosition= False 594 LockLeft = "" 595 LockRight = "" 596 LockTop = "" 597 Scope = 0 598 TabIndex = 6 599 TabPanelIndex = 3 600 TabStop = True 601 TextFont = "System" 602 TextSize = 0 603 Top = 202 604 Underline = "" 605 Visible = True 606 Width = 172 607 End 608 Begin StaticText StaticText_BackTiming 609 AutoDeactivate = True 610 Bold = "" 611 DataField = "" 612 DataSource = "" 613 Enabled = True 614 Height = 20 615 HelpTag = "" 616 Index = -2147483648 617 InitialParent = "GroupBox2" 618 Italic = "" 619 Left = 506 620 LockBottom = "" 621 LockedInPosition= False 622 LockLeft = "" 623 LockRight = "" 624 LockTop = "" 625 Multiline = "" 626 Scope = 0 627 TabIndex = 7 628 TabPanelIndex = 3 629 Text = "Back Timing" 630 TextAlign = 0 631 TextColor = "&cB8B8B8" 632 TextFont = "System" 633 TextSize = 0 634 Top = 202 635 Underline = "" 636 Visible = True 637 Width = 128 638 End 639 Begin PopupMenu PopupMenu_VerticalInteria 640 AutoDeactivate = True 641 Bold = "" 642 DataField = "" 643 DataSource = "" 644 Enabled = True 645 Height = 20 646 HelpTag = "" 647 Index = -2147483648 648 InitialParent = "GroupBox2" 649 InitialValue = "Strong\r2\r3\r4\rOff\rCustom" 650 Italic = "" 651 Left = 322 652 ListIndex = 0 653 LockBottom = "" 654 LockedInPosition= False 655 LockLeft = "" 656 LockRight = "" 657 LockTop = "" 658 Scope = 0 659 TabIndex = 8 660 TabPanelIndex = 3 661 TabStop = True 662 TextFont = "System" 663 TextSize = 0 664 Top = 171 665 Underline = "" 666 Visible = True 667 Width = 172 668 End 669 Begin StaticText StaticText_VerticalIntertia 670 AutoDeactivate = True 671 Bold = "" 672 DataField = "" 673 DataSource = "" 674 Enabled = True 675 Height = 20 676 HelpTag = "" 677 Index = -2147483648 678 InitialParent = "GroupBox2" 679 Italic = "" 680 Left = 506 681 LockBottom = "" 682 LockedInPosition= False 683 LockLeft = "" 684 LockRight = "" 685 LockTop = "" 686 Multiline = "" 687 Scope = 0 688 TabIndex = 9 689 TabPanelIndex = 3 690 Text = "Vertical Intertia" 691 TextAlign = 0 692 TextColor = "&cB8B8B8" 693 TextFont = "System" 694 TextSize = 0 695 Top = 171 696 Underline = "" 697 Visible = True 698 Width = 128 699 End 700 Begin PopupMenu PopupMenu_Nuetral 701 AutoDeactivate = True 702 Bold = "" 703 DataField = "" 704 DataSource = "" 705 Enabled = True 706 Height = 20 707 HelpTag = "" 708 Index = -2147483648 709 InitialParent = "GroupBox2" 710 InitialValue = "Narrow\rMid\rWide\rCustom" 711 Italic = "" 712 Left = 322 713 ListIndex = 0 714 LockBottom = "" 715 LockedInPosition= False 716 LockLeft = "" 717 LockRight = "" 718 LockTop = "" 719 Scope = 0 720 TabIndex = 10 721 TabPanelIndex = 3 722 TabStop = True 723 TextFont = "System" 724 TextSize = 0 725 Top = 139 726 Underline = "" 727 Visible = True 728 Width = 172 729 End 730 Begin StaticText StaticText_Nuetral 731 AutoDeactivate = True 732 Bold = "" 733 DataField = "" 734 DataSource = "" 735 Enabled = True 736 Height = 20 737 HelpTag = "" 738 Index = -2147483648 739 InitialParent = "GroupBox2" 740 Italic = "" 741 Left = 506 742 LockBottom = "" 743 LockedInPosition= False 744 LockLeft = "" 745 LockRight = "" 746 LockTop = "" 747 Multiline = "" 748 Scope = 0 749 TabIndex = 11 750 TabPanelIndex = 3 751 Text = "Nuetral" 752 TextAlign = 0 753 TextColor = "&cB8B8B8" 754 TextFont = "System" 755 TextSize = 0 756 Top = 139 757 Underline = "" 758 Visible = True 759 Width = 128 760 End 761 Begin PopupMenu PopupMenu_DFreq 762 AutoDeactivate = True 763 Bold = "" 764 DataField = "" 765 DataSource = "" 766 Enabled = True 767 Height = 20 768 HelpTag = "" 769 Index = -2147483648 770 InitialParent = "GroupBox2" 771 InitialValue = "High\rMedium\rLow\rCustom" 772 Italic = "" 773 Left = 322 774 ListIndex = 0 775 LockBottom = "" 776 LockedInPosition= False 777 LockLeft = "" 778 LockRight = "" 779 LockTop = "" 780 Scope = 0 781 TabIndex = 12 782 TabPanelIndex = 3 783 TabStop = True 784 TextFont = "System" 785 TextSize = 0 786 Top = 107 787 Underline = "" 788 Visible = True 789 Width = 172 790 End 791 Begin StaticText StaticText_DFreq 792 AutoDeactivate = True 793 Bold = "" 794 DataField = "" 795 DataSource = "" 796 Enabled = True 797 Height = 20 798 HelpTag = "" 799 Index = -2147483648 800 InitialParent = "GroupBox2" 801 Italic = "" 802 Left = 506 803 LockBottom = "" 804 LockedInPosition= False 805 LockLeft = "" 806 LockRight = "" 807 LockTop = "" 808 Multiline = "" 809 Scope = 0 810 TabIndex = 13 811 TabPanelIndex = 3 812 Text = "Drive Frequency" 813 TextAlign = 0 814 TextColor = "&cB8B8B8" 815 TextFont = "System" 816 TextSize = 0 817 Top = 106 818 Underline = "" 819 Visible = True 820 Width = 106 821 End 822 Begin PopupMenu PopupMenu_Dump 823 AutoDeactivate = True 824 Bold = "" 825 DataField = "" 826 DataSource = "" 827 Enabled = True 828 Height = 20 829 HelpTag = "" 830 Index = -2147483648 831 InitialParent = "GroupBox2" 832 InitialValue = "Over\rSmooth\rCustom" 833 Italic = "" 834 Left = 26 835 ListIndex = 0 836 LockBottom = "" 837 LockedInPosition= False 838 LockLeft = "" 839 LockRight = "" 840 LockTop = "" 841 Scope = 0 842 TabIndex = 14 843 TabPanelIndex = 3 844 TabStop = True 845 TextFont = "System" 846 TextSize = 0 847 Top = 262 848 Underline = "" 849 Visible = True 850 Width = 172 851 End 852 Begin StaticText StaticText_Dump 853 AutoDeactivate = True 854 Bold = "" 855 DataField = "" 856 DataSource = "" 857 Enabled = True 858 Height = 20 859 HelpTag = "" 860 Index = -2147483648 861 InitialParent = "GroupBox2" 862 Italic = "" 863 Left = 210 864 LockBottom = "" 865 LockedInPosition= False 866 LockLeft = "" 867 LockRight = "" 868 LockTop = "" 869 Multiline = "" 870 Scope = 0 871 TabIndex = 15 872 TabPanelIndex = 3 873 Text = "Dump" 874 TextAlign = 0 875 TextColor = "&cB8B8B8" 876 TextFont = "System" 877 TextSize = 0 878 Top = 262 879 Underline = "" 880 Visible = True 881 Width = 128 882 End 883 Begin PopupMenu PopupMenu_DBand 884 AutoDeactivate = True 885 Bold = "" 886 DataField = "" 887 DataSource = "" 888 Enabled = True 889 Height = 20 890 HelpTag = "" 891 Index = -2147483648 892 InitialParent = "GroupBox2" 893 InitialValue = "Narrow\rMid\rWide\rCustom" 894 Italic = "" 895 Left = 26 896 ListIndex = 0 897 LockBottom = "" 898 LockedInPosition= False 899 LockLeft = "" 900 LockRight = "" 901 LockTop = "" 902 Scope = 0 903 TabIndex = 16 904 TabPanelIndex = 3 905 TabStop = True 906 TextFont = "System" 907 TextSize = 0 908 Top = 230 909 Underline = "" 910 Visible = True 911 Width = 172 912 End 913 Begin StaticText StaticText_DBand 914 AutoDeactivate = True 915 Bold = "" 916 DataField = "" 917 DataSource = "" 918 Enabled = True 919 Height = 20 920 HelpTag = "" 921 Index = -2147483648 922 InitialParent = "GroupBox2" 923 Italic = "" 924 Left = 210 925 LockBottom = "" 926 LockedInPosition= False 927 LockLeft = "" 928 LockRight = "" 929 LockTop = "" 930 Multiline = "" 931 Scope = 0 932 TabIndex = 17 933 TabPanelIndex = 3 934 Text = "Drive Band" 935 TextAlign = 0 936 TextColor = "&cB8B8B8" 937 TextFont = "System" 938 TextSize = 0 939 Top = 230 940 Underline = "" 941 Visible = True 942 Width = 128 943 End 944 Begin Slider Slider_Punch 945 AutoDeactivate = True 946 Enabled = True 947 Height = 16 948 HelpTag = "" 949 Index = -2147483648 950 InitialParent = "GroupBox2" 951 Left = 26 952 LineStep = 1 953 LiveScroll = "" 954 LockBottom = "" 955 LockedInPosition= False 956 LockLeft = "" 957 LockRight = "" 958 LockTop = "" 959 Maximum = 10 960 Minimum = 1 961 PageStep = 20 962 Scope = 0 963 TabIndex = 18 964 TabPanelIndex = 3 965 TabStop = True 966 Top = 202 967 Value = 0 968 Visible = True 969 Width = 128 970 End 971 Begin EditField EditField_Punch 972 AcceptTabs = "" 973 Alignment = 0 974 AutoDeactivate = True 975 BackColor = &hFFFFFF 976 Bold = "" 977 Border = True 978 DataField = "" 979 DataSource = "" 980 Enabled = True 981 Format = "" 982 Height = 22 983 HelpTag = "" 984 Index = -2147483648 985 InitialParent = "GroupBox2" 986 Italic = "" 987 Left = 166 988 LimitText = 0 989 LockBottom = "" 990 LockedInPosition= False 991 LockLeft = "" 992 LockRight = "" 993 LockTop = "" 994 Mask = "###" 995 Multiline = "" 996 Password = "" 997 ReadOnly = "" 998 Scope = 0 999 ScrollbarHorizontal= "" 1000 ScrollbarVertical= True 1001 Styled = "" 1002 TabIndex = 19 1003 TabPanelIndex = 3 1004 TabStop = True 1005 Text = "" 1006 TextColor = &h000000 1007 TextFont = "System" 1008 TextSize = 0 1009 Top = 202 1010 Underline = "" 1011 UseFocusRing = True 1012 Visible = True 1013 Width = 32 1014 End 1015 Begin StaticText StaticText_Punch 1016 AutoDeactivate = True 1017 Bold = "" 1018 DataField = "" 1019 DataSource = "" 1020 Enabled = True 1021 Height = 20 1022 HelpTag = "" 1023 Index = -2147483648 1024 InitialParent = "GroupBox2" 1025 Italic = "" 1026 Left = 210 1027 LockBottom = "" 1028 LockedInPosition= False 1029 LockLeft = "" 1030 LockRight = "" 1031 LockTop = "" 1032 Multiline = "" 1033 Scope = 0 1034 TabIndex = 20 1035 TabPanelIndex = 3 1036 Text = "Punch" 1037 TextAlign = 0 1038 TextColor = "&cB8B8B8" 1039 TextFont = "System" 1040 TextSize = 0 1041 Top = 202 1042 Underline = "" 1043 Visible = True 1044 Width = 128 1045 End 1046 Begin PopupMenu PopupMenu_Speed 1047 AutoDeactivate = True 1048 Bold = "" 1049 DataField = "" 1050 DataSource = "" 1051 Enabled = True 1052 Height = 20 1053 HelpTag = "" 1054 Index = -2147483648 1055 InitialParent = "GroupBox2" 1056 InitialValue = "Slow\r2\r3\r4\rFast\rCustom" 1057 Italic = "" 1058 Left = 26 1059 ListIndex = 0 1060 LockBottom = "" 1061 LockedInPosition= False 1062 LockLeft = "" 1063 LockRight = "" 1064 LockTop = "" 1065 Scope = 0 1066 TabIndex = 21 1067 TabPanelIndex = 3 1068 TabStop = True 1069 TextFont = "System" 1070 TextSize = 0 1071 Top = 170 1072 Underline = "" 1073 Visible = True 1074 Width = 172 1075 End 1076 Begin StaticText StaticText_Speed 1077 AutoDeactivate = True 1078 Bold = "" 1079 DataField = "" 1080 DataSource = "" 1081 Enabled = True 1082 Height = 20 1083 HelpTag = "" 1084 Index = -2147483648 1085 InitialParent = "GroupBox2" 1086 Italic = "" 1087 Left = 210 1088 LockBottom = "" 1089 LockedInPosition= False 1090 LockLeft = "" 1091 LockRight = "" 1092 LockTop = "" 1093 Multiline = "" 1094 Scope = 0 1095 TabIndex = 22 1096 TabPanelIndex = 3 1097 Text = "Speed" 1098 TextAlign = 0 1099 TextColor = "&cB8B8B8" 1100 TextFont = "System" 1101 TextSize = 0 1102 Top = 170 1103 Underline = "" 1104 Visible = True 1105 Width = 100 1106 End 1107 Begin PopupMenu PopupMenu_Gain 1108 AutoDeactivate = True 1109 Bold = "" 1110 DataField = "" 1111 DataSource = "" 1112 Enabled = True 1113 Height = 20 1114 HelpTag = "" 1115 Index = -2147483648 1116 InitialParent = "GroupBox2" 1117 InitialValue = "Min\rMid\rStrong\rCustom" 1118 Italic = "" 1119 Left = 26 1120 ListIndex = 0 1121 LockBottom = "" 1122 LockedInPosition= False 1123 LockLeft = "" 1124 LockRight = "" 1125 LockTop = "" 1126 Scope = 0 1127 TabIndex = 23 1128 TabPanelIndex = 3 1129 TabStop = True 1130 TextFont = "System" 1131 TextSize = 0 1132 Top = 138 1133 Underline = "" 1134 Visible = True 1135 Width = 172 1136 End 1137 Begin StaticText StaticText_Gain 1138 AutoDeactivate = True 1139 Bold = "" 1140 DataField = "" 1141 DataSource = "" 1142 Enabled = True 1143 Height = 20 1144 HelpTag = "" 1145 Index = -2147483648 1146 InitialParent = "GroupBox2" 1147 Italic = "" 1148 Left = 210 1149 LockBottom = "" 1150 LockedInPosition= False 1151 LockLeft = "" 1152 LockRight = "" 1153 LockTop = "" 1154 Multiline = "" 1155 Scope = 0 1156 TabIndex = 24 1157 TabPanelIndex = 3 1158 Text = "Gain" 1159 TextAlign = 0 1160 TextColor = "&cB8B8B8" 1161 TextFont = "System" 1162 TextSize = 0 1163 Top = 139 1164 Underline = "" 1165 Visible = True 1166 Width = 100 1167 End 1168 Begin StaticText StaticText_CarType 1169 AutoDeactivate = True 1170 Bold = "" 1171 DataField = "" 1172 DataSource = "" 1173 Enabled = True 1174 Height = 20 1175 HelpTag = "" 1176 Index = -2147483648 1177 InitialParent = "GroupBox2" 1178 Italic = "" 1179 Left = 210 1180 LockBottom = "" 1181 LockedInPosition= False 1182 LockLeft = "" 1183 LockRight = "" 1184 LockTop = "" 1185 Multiline = "" 1186 Scope = 0 1187 TabIndex = 25 1188 TabPanelIndex = 3 1189 Text = "Car Type" 1190 TextAlign = 0 1191 TextColor = "&cB8B8B8" 1192 TextFont = "System" 1193 TextSize = 0 1194 Top = 106 1195 Underline = "" 1196 Visible = True 1197 Width = 100 1198 End 1199 Begin PopupMenu PopupMenu_CarType 1200 AutoDeactivate = True 1201 Bold = "" 1202 DataField = "" 1203 DataSource = "" 1204 Enabled = True 1205 Height = 20 1206 HelpTag = "" 1207 Index = -2147483648 1208 InitialParent = "GroupBox2" 1209 InitialValue = "MR-03\rdNaNo\rASF" 1210 Italic = "" 1211 Left = 26 1212 ListIndex = 0 1213 LockBottom = "" 1214 LockedInPosition= False 1215 LockLeft = "" 1216 LockRight = "" 1217 LockTop = "" 1218 Scope = 0 1219 TabIndex = 26 1220 TabPanelIndex = 3 1221 TabStop = True 1222 TextFont = "System" 1223 TextSize = 0 1224 Top = 106 1225 Underline = "" 1226 Visible = True 1227 Width = 172 1228 End 1229 End 117 1230 Begin EditField EditField_Byte1 118 1231 AcceptTabs = "" … … 131 1244 InitialParent = "TabPanel1" 132 1245 Italic = "" 133 Left = 2 211246 Left = 26 134 1247 LimitText = 0 135 1248 LockBottom = "" … … 147 1260 Styled = "" 148 1261 TabIndex = 2 149 TabPanelIndex = 21262 TabPanelIndex = 4 150 1263 TabStop = True 151 1264 Text = "" … … 153 1266 TextFont = "System" 154 1267 TextSize = 0 155 TextUnit = 0 156 Top = 58 1268 Top = 96 157 1269 Underline = "" 158 1270 UseFocusRing = True … … 160 1272 Width = 32 161 1273 End 162 Begin EditField EditField_Byte 91274 Begin EditField EditField_Byte18 163 1275 AcceptTabs = "" 164 1276 Alignment = 0 … … 169 1281 DataField = "" 170 1282 DataSource = "" 171 Enabled = True1283 Enabled = False 172 1284 Format = "" 173 1285 Height = 22 … … 176 1288 InitialParent = "TabPanel1" 177 1289 Italic = "" 178 Left = 2211290 Left = 316 179 1291 LimitText = 0 180 1292 LockBottom = "" … … 191 1303 ScrollbarVertical= True 192 1304 Styled = "" 193 TabIndex = 12194 TabPanelIndex = 21305 TabIndex = 3 1306 TabPanelIndex = 4 195 1307 TabStop = True 196 1308 Text = "" … … 198 1310 TextFont = "System" 199 1311 TextSize = 0 200 TextUnit = 0 201 Top = 331 1312 Top = 266 202 1313 Underline = "" 203 1314 UseFocusRing = True 204 Visible = True1315 Visible = False 205 1316 Width = 32 206 1317 End 207 Begin EditField EditField_Byte 81318 Begin EditField EditField_Byte17 208 1319 AcceptTabs = "" 209 1320 Alignment = 0 … … 221 1332 InitialParent = "TabPanel1" 222 1333 Italic = "" 223 Left = 2211334 Left = 316 224 1335 LimitText = 0 225 1336 LockBottom = "" … … 236 1347 ScrollbarVertical= True 237 1348 Styled = "" 238 TabIndex = 13239 TabPanelIndex = 21349 TabIndex = 4 1350 TabPanelIndex = 4 240 1351 TabStop = True 241 1352 Text = "" … … 243 1354 TextFont = "System" 244 1355 TextSize = 0 245 TextUnit = 0 246 Top = 296 1356 Top = 232 247 1357 Underline = "" 248 1358 UseFocusRing = True … … 250 1360 Width = 32 251 1361 End 252 Begin EditField EditField_Byte 71362 Begin EditField EditField_Byte16 253 1363 AcceptTabs = "" 254 1364 Alignment = 0 … … 266 1376 InitialParent = "TabPanel1" 267 1377 Italic = "" 268 Left = 2211378 Left = 316 269 1379 LimitText = 0 270 1380 LockBottom = "" … … 281 1391 ScrollbarVertical= True 282 1392 Styled = "" 283 TabIndex = 14284 TabPanelIndex = 21393 TabIndex = 5 1394 TabPanelIndex = 4 285 1395 TabStop = True 286 1396 Text = "" … … 288 1398 TextFont = "System" 289 1399 TextSize = 0 290 TextUnit = 0 291 Top = 262 1400 Top = 198 292 1401 Underline = "" 293 1402 UseFocusRing = True … … 295 1404 Width = 32 296 1405 End 297 Begin EditField EditField_Byte 61406 Begin EditField EditField_Byte15 298 1407 AcceptTabs = "" 299 1408 Alignment = 0 … … 311 1420 InitialParent = "TabPanel1" 312 1421 Italic = "" 313 Left = 2211422 Left = 316 314 1423 LimitText = 0 315 1424 LockBottom = "" … … 326 1435 ScrollbarVertical= True 327 1436 Styled = "" 328 TabIndex = 15329 TabPanelIndex = 21437 TabIndex = 6 1438 TabPanelIndex = 4 330 1439 TabStop = True 331 1440 Text = "" … … 333 1442 TextFont = "System" 334 1443 TextSize = 0 335 TextUnit = 0 336 Top = 228 1444 Top = 164 337 1445 Underline = "" 338 1446 UseFocusRing = True … … 340 1448 Width = 32 341 1449 End 342 Begin EditField EditField_Byte 51450 Begin EditField EditField_Byte14 343 1451 AcceptTabs = "" 344 1452 Alignment = 0 … … 356 1464 InitialParent = "TabPanel1" 357 1465 Italic = "" 358 Left = 2211466 Left = 316 359 1467 LimitText = 0 360 1468 LockBottom = "" … … 371 1479 ScrollbarVertical= True 372 1480 Styled = "" 373 TabIndex = 16374 TabPanelIndex = 21481 TabIndex = 7 1482 TabPanelIndex = 4 375 1483 TabStop = True 376 1484 Text = "" … … 378 1486 TextFont = "System" 379 1487 TextSize = 0 380 TextUnit = 0 381 Top = 195 1488 Top = 130 382 1489 Underline = "" 383 1490 UseFocusRing = True … … 385 1492 Width = 32 386 1493 End 387 Begin EditField EditField_Byte 41494 Begin EditField EditField_Byte13 388 1495 AcceptTabs = "" 389 1496 Alignment = 0 … … 401 1508 InitialParent = "TabPanel1" 402 1509 Italic = "" 403 Left = 2211510 Left = 316 404 1511 LimitText = 0 405 1512 LockBottom = "" … … 416 1523 ScrollbarVertical= True 417 1524 Styled = "" 418 TabIndex = 17419 TabPanelIndex = 21525 TabIndex = 8 1526 TabPanelIndex = 4 420 1527 TabStop = True 421 1528 Text = "" … … 423 1530 TextFont = "System" 424 1531 TextSize = 0 425 TextUnit = 0 426 Top = 161 1532 Top = 95 427 1533 Underline = "" 428 1534 UseFocusRing = True … … 430 1536 Width = 32 431 1537 End 432 Begin EditField EditField_Byte 31538 Begin EditField EditField_Byte12 433 1539 AcceptTabs = "" 434 1540 Alignment = 0 … … 446 1552 InitialParent = "TabPanel1" 447 1553 Italic = "" 448 Left = 2211554 Left = 154 449 1555 LimitText = 0 450 1556 LockBottom = "" … … 461 1567 ScrollbarVertical= True 462 1568 Styled = "" 463 TabIndex = 18464 TabPanelIndex = 21569 TabIndex = 9 1570 TabPanelIndex = 4 465 1571 TabStop = True 466 1572 Text = "" … … 468 1574 TextFont = "System" 469 1575 TextSize = 0 470 TextUnit = 0 471 Top = 126 1576 Top = 266 472 1577 Underline = "" 473 1578 UseFocusRing = True … … 475 1580 Width = 32 476 1581 End 477 Begin EditField EditField_Byte 21582 Begin EditField EditField_Byte11 478 1583 AcceptTabs = "" 479 1584 Alignment = 0 … … 484 1589 DataField = "" 485 1590 DataSource = "" 486 Enabled = False1591 Enabled = True 487 1592 Format = "" 488 1593 Height = 22 … … 491 1596 InitialParent = "TabPanel1" 492 1597 Italic = "" 493 Left = 2211598 Left = 154 494 1599 LimitText = 0 495 1600 LockBottom = "" … … 506 1611 ScrollbarVertical= True 507 1612 Styled = "" 508 TabIndex = 1 9509 TabPanelIndex = 21613 TabIndex = 10 1614 TabPanelIndex = 4 510 1615 TabStop = True 511 1616 Text = "" … … 513 1618 TextFont = "System" 514 1619 TextSize = 0 515 TextUnit = 0 516 Top = 92 1620 Top = 232 517 1621 Underline = "" 518 1622 UseFocusRing = True … … 520 1624 Width = 32 521 1625 End 522 Begin StaticText StaticText_Byte1 523 AutoDeactivate = True 524 Bold = "" 525 DataField = "" 526 DataSource = "" 527 Enabled = True 528 Height = 20 529 HelpTag = "" 530 Index = -2147483648 531 InitialParent = "TabPanel1" 532 Italic = "" 533 Left = 265 534 LockBottom = "" 535 LockedInPosition= False 536 LockLeft = "" 537 LockRight = "" 538 LockTop = "" 539 Multiline = "" 540 Scope = 0 541 TabIndex = 21 542 TabPanelIndex = 2 543 Text = "Header" 544 TextAlign = 0 545 TextColor = "&cB8B8B8" 546 TextFont = "System" 547 TextSize = 0 548 TextUnit = 0 549 Top = 58 550 Underline = "" 551 Visible = True 552 Width = 106 553 End 554 Begin StaticText StaticText_Byte6 555 AutoDeactivate = True 556 Bold = "" 557 DataField = "" 558 DataSource = "" 559 Enabled = True 560 Height = 20 561 HelpTag = "" 562 Index = -2147483648 563 InitialParent = "TabPanel1" 564 Italic = "" 565 Left = 265 566 LockBottom = "" 567 LockedInPosition= False 568 LockLeft = "" 569 LockRight = "" 570 LockTop = "" 571 Multiline = "" 572 Scope = 0 573 TabIndex = 22 574 TabPanelIndex = 2 575 Text = "Drive Band" 576 TextAlign = 0 577 TextColor = "&cB8B8B8" 578 TextFont = "System" 579 TextSize = 0 580 TextUnit = 0 581 Top = 228 582 Underline = "" 583 Visible = True 584 Width = 106 585 End 586 Begin StaticText StaticText_Byte5 587 AutoDeactivate = True 588 Bold = "" 589 DataField = "" 590 DataSource = "" 591 Enabled = True 592 Height = 20 593 HelpTag = "" 594 Index = -2147483648 595 InitialParent = "TabPanel1" 596 Italic = "" 597 Left = 265 598 LockBottom = "" 599 LockedInPosition= False 600 LockLeft = "" 601 LockRight = "" 602 LockTop = "" 603 Multiline = "" 604 Scope = 0 605 TabIndex = 23 606 TabPanelIndex = 2 607 Text = "Punch" 608 TextAlign = 0 609 TextColor = "&cB8B8B8" 610 TextFont = "System" 611 TextSize = 0 612 TextUnit = 0 613 Top = 194 614 Underline = "" 615 Visible = True 616 Width = 106 617 End 618 Begin StaticText StaticText_Byte4 619 AutoDeactivate = True 620 Bold = "" 621 DataField = "" 622 DataSource = "" 623 Enabled = True 624 Height = 20 625 HelpTag = "" 626 Index = -2147483648 627 InitialParent = "TabPanel1" 628 Italic = "" 629 Left = 265 630 LockBottom = "" 631 LockedInPosition= False 632 LockLeft = "" 633 LockRight = "" 634 LockTop = "" 635 Multiline = "" 636 Scope = 0 637 TabIndex = 24 638 TabPanelIndex = 2 639 Text = "Speed" 640 TextAlign = 0 641 TextColor = "&cB8B8B8" 642 TextFont = "System" 643 TextSize = 0 644 TextUnit = 0 645 Top = 162 646 Underline = "" 647 Visible = True 648 Width = 106 649 End 650 Begin StaticText StaticText_Byte3 651 AutoDeactivate = True 652 Bold = "" 653 DataField = "" 654 DataSource = "" 655 Enabled = True 656 Height = 20 657 HelpTag = "" 658 Index = -2147483648 659 InitialParent = "TabPanel1" 660 Italic = "" 661 Left = 265 662 LockBottom = "" 663 LockedInPosition= False 664 LockLeft = "" 665 LockRight = "" 666 LockTop = "" 667 Multiline = "" 668 Scope = 0 669 TabIndex = 25 670 TabPanelIndex = 2 671 Text = "Gain" 672 TextAlign = 0 673 TextColor = "&cB8B8B8" 674 TextFont = "System" 675 TextSize = 0 676 TextUnit = 0 677 Top = 126 678 Underline = "" 679 Visible = True 680 Width = 106 681 End 682 Begin StaticText StaticText_Byte2 683 AutoDeactivate = True 684 Bold = "" 685 DataField = "" 686 DataSource = "" 687 Enabled = True 688 Height = 20 689 HelpTag = "" 690 Index = -2147483648 691 InitialParent = "TabPanel1" 692 Italic = "" 693 Left = 265 694 LockBottom = "" 695 LockedInPosition= False 696 LockLeft = "" 697 LockRight = "" 698 LockTop = "" 699 Multiline = "" 700 Scope = 0 701 TabIndex = 26 702 TabPanelIndex = 2 703 Text = "Header" 704 TextAlign = 0 705 TextColor = "&cB8B8B8" 706 TextFont = "System" 707 TextSize = 0 708 TextUnit = 0 709 Top = 92 710 Underline = "" 711 Visible = True 712 Width = 106 713 End 714 Begin StaticText StaticText_Byte7 715 AutoDeactivate = True 716 Bold = "" 717 DataField = "" 718 DataSource = "" 719 Enabled = True 720 Height = 20 721 HelpTag = "" 722 Index = -2147483648 723 InitialParent = "TabPanel1" 724 Italic = "" 725 Left = 267 726 LockBottom = "" 727 LockedInPosition= False 728 LockLeft = "" 729 LockRight = "" 730 LockTop = "" 731 Multiline = "" 732 Scope = 0 733 TabIndex = 27 734 TabPanelIndex = 2 735 Text = "Dump" 736 TextAlign = 0 737 TextColor = "&cB8B8B8" 738 TextFont = "System" 739 TextSize = 0 740 TextUnit = 0 741 Top = 264 742 Underline = "" 743 Visible = True 744 Width = 106 745 End 746 Begin StaticText StaticText_Byte8 747 AutoDeactivate = True 748 Bold = "" 749 DataField = "" 750 DataSource = "" 751 Enabled = True 752 Height = 20 753 HelpTag = "" 754 Index = -2147483648 755 InitialParent = "TabPanel1" 756 Italic = "" 757 Left = 267 758 LockBottom = "" 759 LockedInPosition= False 760 LockLeft = "" 761 LockRight = "" 762 LockTop = "" 763 Multiline = "" 764 Scope = 0 765 TabIndex = 28 766 TabPanelIndex = 2 767 Text = "Drive Frequency" 768 TextAlign = 0 769 TextColor = "&cB8B8B8" 770 TextFont = "System" 771 TextSize = 0 772 TextUnit = 0 773 Top = 297 774 Underline = "" 775 Visible = True 776 Width = 106 777 End 778 Begin StaticText StaticText_Byte9 779 AutoDeactivate = True 780 Bold = "" 781 DataField = "" 782 DataSource = "" 783 Enabled = True 784 Height = 20 785 HelpTag = "" 786 Index = -2147483648 787 InitialParent = "TabPanel1" 788 Italic = "" 789 Left = 265 790 LockBottom = "" 791 LockedInPosition= False 792 LockLeft = "" 793 LockRight = "" 794 LockTop = "" 795 Multiline = "" 796 Scope = 0 797 TabIndex = 29 798 TabPanelIndex = 2 799 Text = "Unknown" 800 TextAlign = 0 801 TextColor = "&cB8B8B8" 802 TextFont = "System" 803 TextSize = 0 804 TextUnit = 0 805 Top = 333 806 Underline = "" 807 Visible = True 808 Width = 106 809 End 810 Begin Slider Slider_THGain 811 AutoDeactivate = True 812 Enabled = True 813 Height = 16 814 HelpTag = "" 815 Index = -2147483648 816 InitialParent = "TabPanel1" 817 Left = 448 818 LineStep = 1 819 LiveScroll = "" 820 LockBottom = "" 821 LockedInPosition= False 822 LockLeft = "" 823 LockRight = "" 824 LockTop = "" 825 Maximum = 255 826 Minimum = 1 827 PageStep = 20 828 Scope = 0 829 TabIndex = 0 830 TabPanelIndex = 1 831 TabStop = True 832 TickStyle = 0 833 Top = 218 834 Value = 0 835 Visible = True 836 Width = 100 837 End 838 Begin EditField EditField_THGain 1626 Begin EditField EditField_Byte10 839 1627 AcceptTabs = "" 840 1628 Alignment = 0 … … 852 1640 InitialParent = "TabPanel1" 853 1641 Italic = "" 854 Left = 5601642 Left = 154 855 1643 LimitText = 0 856 1644 LockBottom = "" … … 867 1655 ScrollbarVertical= True 868 1656 Styled = "" 869 TabIndex = 1 870 TabPanelIndex = 11657 TabIndex = 11 1658 TabPanelIndex = 4 871 1659 TabStop = True 872 1660 Text = "" … … 874 1662 TextFont = "System" 875 1663 TextSize = 0 876 TextUnit = 0 877 Top = 218 1664 Top = 198 878 1665 Underline = "" 879 1666 UseFocusRing = True … … 881 1668 Width = 32 882 1669 End 883 Begin StaticText StaticText_THGain 884 AutoDeactivate = True 885 Bold = "" 886 DataField = "" 887 DataSource = "" 888 Enabled = True 889 Height = 20 890 HelpTag = "" 891 Index = -2147483648 892 InitialParent = "TabPanel1" 893 Italic = "" 894 Left = 604 895 LockBottom = "" 896 LockedInPosition= False 897 LockLeft = "" 898 LockRight = "" 899 LockTop = "" 900 Multiline = "" 901 Scope = 0 902 TabIndex = 2 903 TabPanelIndex = 1 904 Text = "Throttle Gain" 905 TextAlign = 0 906 TextColor = "&cB8B8B8" 907 TextFont = "System" 908 TextSize = 0 909 TextUnit = 0 910 Top = 218 911 Underline = "" 912 Visible = True 913 Width = 128 914 End 915 Begin Slider Slider_STGain 916 AutoDeactivate = True 917 Enabled = True 918 Height = 16 919 HelpTag = "" 920 Index = -2147483648 921 InitialParent = "TabPanel1" 922 Left = 448 923 LineStep = 1 924 LiveScroll = "" 925 LockBottom = "" 926 LockedInPosition= False 927 LockLeft = "" 928 LockRight = "" 929 LockTop = "" 930 Maximum = 255 931 Minimum = 1 932 PageStep = 20 933 Scope = 0 934 TabIndex = 3 935 TabPanelIndex = 1 936 TabStop = True 937 TickStyle = 0 938 Top = 186 939 Value = 0 940 Visible = True 941 Width = 100 942 End 943 Begin EditField EditField_STGain 1670 Begin EditField EditField_Byte9 944 1671 AcceptTabs = "" 945 1672 Alignment = 0 … … 957 1684 InitialParent = "TabPanel1" 958 1685 Italic = "" 959 Left = 5601686 Left = 154 960 1687 LimitText = 0 961 1688 LockBottom = "" … … 972 1699 ScrollbarVertical= True 973 1700 Styled = "" 974 TabIndex = 4975 TabPanelIndex = 11701 TabIndex = 12 1702 TabPanelIndex = 4 976 1703 TabStop = True 977 1704 Text = "" … … 979 1706 TextFont = "System" 980 1707 TextSize = 0 981 TextUnit = 0 982 Top = 186 1708 Top = 164 983 1709 Underline = "" 984 1710 UseFocusRing = True … … 986 1712 Width = 32 987 1713 End 988 Begin StaticText StaticText_STGain 989 AutoDeactivate = True 990 Bold = "" 991 DataField = "" 992 DataSource = "" 993 Enabled = True 994 Height = 20 995 HelpTag = "" 996 Index = -2147483648 997 InitialParent = "TabPanel1" 998 Italic = "" 999 Left = 604 1000 LockBottom = "" 1001 LockedInPosition= False 1002 LockLeft = "" 1003 LockRight = "" 1004 LockTop = "" 1005 Multiline = "" 1006 Scope = 0 1007 TabIndex = 5 1008 TabPanelIndex = 1 1009 Text = "Steering Gain" 1010 TextAlign = 0 1011 TextColor = "&cB8B8B8" 1012 TextFont = "System" 1013 TextSize = 0 1014 TextUnit = 0 1015 Top = 186 1016 Underline = "" 1017 Visible = True 1018 Width = 128 1019 End 1020 Begin PopupMenu PopupMenu_BackTiming 1021 AutoDeactivate = True 1022 Bold = "" 1023 DataField = "" 1024 DataSource = "" 1025 Enabled = True 1026 Height = 20 1027 HelpTag = "" 1028 Index = -2147483648 1029 InitialParent = "TabPanel1" 1030 InitialValue = "1\r2\r3\r4\r5\rCustom" 1031 Italic = "" 1032 Left = 448 1033 ListIndex = 0 1034 LockBottom = "" 1035 LockedInPosition= False 1036 LockLeft = "" 1037 LockRight = "" 1038 LockTop = "" 1039 Scope = 0 1040 TabIndex = 6 1041 TabPanelIndex = 1 1042 TabStop = True 1043 TextFont = "System" 1044 TextSize = 0 1045 TextUnit = 0 1046 Top = 154 1047 Underline = "" 1048 Visible = True 1049 Width = 144 1050 End 1051 Begin StaticText StaticText_BackTiming 1052 AutoDeactivate = True 1053 Bold = "" 1054 DataField = "" 1055 DataSource = "" 1056 Enabled = True 1057 Height = 20 1058 HelpTag = "" 1059 Index = -2147483648 1060 InitialParent = "TabPanel1" 1061 Italic = "" 1062 Left = 604 1063 LockBottom = "" 1064 LockedInPosition= False 1065 LockLeft = "" 1066 LockRight = "" 1067 LockTop = "" 1068 Multiline = "" 1069 Scope = 0 1070 TabIndex = 7 1071 TabPanelIndex = 1 1072 Text = "Back Timing" 1073 TextAlign = 0 1074 TextColor = "&cB8B8B8" 1075 TextFont = "System" 1076 TextSize = 0 1077 TextUnit = 0 1078 Top = 154 1079 Underline = "" 1080 Visible = True 1081 Width = 128 1082 End 1083 Begin PopupMenu PopupMenu_VerticalInteria 1084 AutoDeactivate = True 1085 Bold = "" 1086 DataField = "" 1087 DataSource = "" 1088 Enabled = True 1089 Height = 20 1090 HelpTag = "" 1091 Index = -2147483648 1092 InitialParent = "TabPanel1" 1093 InitialValue = "Strong\r2\r3\r4\rOff\rCustom" 1094 Italic = "" 1095 Left = 448 1096 ListIndex = 0 1097 LockBottom = "" 1098 LockedInPosition= False 1099 LockLeft = "" 1100 LockRight = "" 1101 LockTop = "" 1102 Scope = 0 1103 TabIndex = 8 1104 TabPanelIndex = 1 1105 TabStop = True 1106 TextFont = "System" 1107 TextSize = 0 1108 TextUnit = 0 1109 Top = 122 1110 Underline = "" 1111 Visible = True 1112 Width = 144 1113 End 1114 Begin StaticText StaticText_VerticalIntertia 1115 AutoDeactivate = True 1116 Bold = "" 1117 DataField = "" 1118 DataSource = "" 1119 Enabled = True 1120 Height = 20 1121 HelpTag = "" 1122 Index = -2147483648 1123 InitialParent = "TabPanel1" 1124 Italic = "" 1125 Left = 604 1126 LockBottom = "" 1127 LockedInPosition= False 1128 LockLeft = "" 1129 LockRight = "" 1130 LockTop = "" 1131 Multiline = "" 1132 Scope = 0 1133 TabIndex = 9 1134 TabPanelIndex = 1 1135 Text = "Vertical Intertia" 1136 TextAlign = 0 1137 TextColor = "&cB8B8B8" 1138 TextFont = "System" 1139 TextSize = 0 1140 TextUnit = 0 1141 Top = 122 1142 Underline = "" 1143 Visible = True 1144 Width = 128 1145 End 1146 Begin PopupMenu PopupMenu_Nuetral 1147 AutoDeactivate = True 1148 Bold = "" 1149 DataField = "" 1150 DataSource = "" 1151 Enabled = True 1152 Height = 20 1153 HelpTag = "" 1154 Index = -2147483648 1155 InitialParent = "TabPanel1" 1156 InitialValue = "Narrow\rMid\rWide\rCustom" 1157 Italic = "" 1158 Left = 448 1159 ListIndex = 0 1160 LockBottom = "" 1161 LockedInPosition= False 1162 LockLeft = "" 1163 LockRight = "" 1164 LockTop = "" 1165 Scope = 0 1166 TabIndex = 10 1167 TabPanelIndex = 1 1168 TabStop = True 1169 TextFont = "System" 1170 TextSize = 0 1171 TextUnit = 0 1172 Top = 90 1173 Underline = "" 1174 Visible = True 1175 Width = 144 1176 End 1177 Begin StaticText StaticText_Nuetral 1178 AutoDeactivate = True 1179 Bold = "" 1180 DataField = "" 1181 DataSource = "" 1182 Enabled = True 1183 Height = 20 1184 HelpTag = "" 1185 Index = -2147483648 1186 InitialParent = "TabPanel1" 1187 Italic = "" 1188 Left = 604 1189 LockBottom = "" 1190 LockedInPosition= False 1191 LockLeft = "" 1192 LockRight = "" 1193 LockTop = "" 1194 Multiline = "" 1195 Scope = 0 1196 TabIndex = 11 1197 TabPanelIndex = 1 1198 Text = "Nuetral" 1199 TextAlign = 0 1200 TextColor = "&cB8B8B8" 1201 TextFont = "System" 1202 TextSize = 0 1203 TextUnit = 0 1204 Top = 90 1205 Underline = "" 1206 Visible = True 1207 Width = 128 1208 End 1209 Begin PopupMenu PopupMenu_DFreq 1210 AutoDeactivate = True 1211 Bold = "" 1212 DataField = "" 1213 DataSource = "" 1214 Enabled = True 1215 Height = 20 1216 HelpTag = "" 1217 Index = -2147483648 1218 InitialParent = "TabPanel1" 1219 InitialValue = "High\rMedium\rLow\rCustom" 1220 Italic = "" 1221 Left = 448 1222 ListIndex = 0 1223 LockBottom = "" 1224 LockedInPosition= False 1225 LockLeft = "" 1226 LockRight = "" 1227 LockTop = "" 1228 Scope = 0 1229 TabIndex = 12 1230 TabPanelIndex = 1 1231 TabStop = True 1232 TextFont = "System" 1233 TextSize = 0 1234 TextUnit = 0 1235 Top = 58 1236 Underline = "" 1237 Visible = True 1238 Width = 144 1239 End 1240 Begin StaticText StaticText_DFreq 1241 AutoDeactivate = True 1242 Bold = "" 1243 DataField = "" 1244 DataSource = "" 1245 Enabled = True 1246 Height = 20 1247 HelpTag = "" 1248 Index = -2147483648 1249 InitialParent = "TabPanel1" 1250 Italic = "" 1251 Left = 604 1252 LockBottom = "" 1253 LockedInPosition= False 1254 LockLeft = "" 1255 LockRight = "" 1256 LockTop = "" 1257 Multiline = "" 1258 Scope = 0 1259 TabIndex = 13 1260 TabPanelIndex = 1 1261 Text = "Drive Frequency" 1262 TextAlign = 0 1263 TextColor = "&cB8B8B8" 1264 TextFont = "System" 1265 TextSize = 0 1266 TextUnit = 0 1267 Top = 58 1268 Underline = "" 1269 Visible = True 1270 Width = 106 1271 End 1272 Begin PopupMenu PopupMenu_Dump 1273 AutoDeactivate = True 1274 Bold = "" 1275 DataField = "" 1276 DataSource = "" 1277 Enabled = True 1278 Height = 20 1279 HelpTag = "" 1280 Index = -2147483648 1281 InitialParent = "TabPanel1" 1282 InitialValue = "Over\rSmooth\rCustom" 1283 Italic = "" 1284 Left = 209 1285 ListIndex = 0 1286 LockBottom = "" 1287 LockedInPosition= False 1288 LockLeft = "" 1289 LockRight = "" 1290 LockTop = "" 1291 Scope = 0 1292 TabIndex = 14 1293 TabPanelIndex = 1 1294 TabStop = True 1295 TextFont = "System" 1296 TextSize = 0 1297 TextUnit = 0 1298 Top = 218 1299 Underline = "" 1300 Visible = True 1301 Width = 144 1302 End 1303 Begin StaticText StaticText_Dump 1304 AutoDeactivate = True 1305 Bold = "" 1306 DataField = "" 1307 DataSource = "" 1308 Enabled = True 1309 Height = 20 1310 HelpTag = "" 1311 Index = -2147483648 1312 InitialParent = "TabPanel1" 1313 Italic = "" 1314 Left = 365 1315 LockBottom = "" 1316 LockedInPosition= False 1317 LockLeft = "" 1318 LockRight = "" 1319 LockTop = "" 1320 Multiline = "" 1321 Scope = 0 1322 TabIndex = 15 1323 TabPanelIndex = 1 1324 Text = "Dump" 1325 TextAlign = 0 1326 TextColor = "&cB8B8B8" 1327 TextFont = "System" 1328 TextSize = 0 1329 TextUnit = 0 1330 Top = 218 1331 Underline = "" 1332 Visible = True 1333 Width = 128 1334 End 1335 Begin PopupMenu PopupMenu_DBand 1336 AutoDeactivate = True 1337 Bold = "" 1338 DataField = "" 1339 DataSource = "" 1340 Enabled = True 1341 Height = 20 1342 HelpTag = "" 1343 Index = -2147483648 1344 InitialParent = "TabPanel1" 1345 InitialValue = "Narrow\rMid\rWide\rCustom" 1346 Italic = "" 1347 Left = 209 1348 ListIndex = 0 1349 LockBottom = "" 1350 LockedInPosition= False 1351 LockLeft = "" 1352 LockRight = "" 1353 LockTop = "" 1354 Scope = 0 1355 TabIndex = 16 1356 TabPanelIndex = 1 1357 TabStop = True 1358 TextFont = "System" 1359 TextSize = 0 1360 TextUnit = 0 1361 Top = 186 1362 Underline = "" 1363 Visible = True 1364 Width = 144 1365 End 1366 Begin StaticText StaticText_DBand 1367 AutoDeactivate = True 1368 Bold = "" 1369 DataField = "" 1370 DataSource = "" 1371 Enabled = True 1372 Height = 20 1373 HelpTag = "" 1374 Index = -2147483648 1375 InitialParent = "TabPanel1" 1376 Italic = "" 1377 Left = 365 1378 LockBottom = "" 1379 LockedInPosition= False 1380 LockLeft = "" 1381 LockRight = "" 1382 LockTop = "" 1383 Multiline = "" 1384 Scope = 0 1385 TabIndex = 17 1386 TabPanelIndex = 1 1387 Text = "Drive Band" 1388 TextAlign = 0 1389 TextColor = "&cB8B8B8" 1390 TextFont = "System" 1391 TextSize = 0 1392 TextUnit = 0 1393 Top = 182 1394 Underline = "" 1395 Visible = True 1396 Width = 128 1397 End 1398 Begin Slider Slider_Punch 1399 AutoDeactivate = True 1400 Enabled = True 1401 Height = 16 1402 HelpTag = "" 1403 Index = -2147483648 1404 InitialParent = "TabPanel1" 1405 Left = 209 1406 LineStep = 1 1407 LiveScroll = "" 1408 LockBottom = "" 1409 LockedInPosition= False 1410 LockLeft = "" 1411 LockRight = "" 1412 LockTop = "" 1413 Maximum = 10 1414 Minimum = 1 1415 PageStep = 20 1416 Scope = 0 1417 TabIndex = 18 1418 TabPanelIndex = 1 1419 TabStop = True 1420 TickStyle = 0 1421 Top = 154 1422 Value = 0 1423 Visible = True 1424 Width = 100 1425 End 1426 Begin EditField EditField_Punch 1714 Begin EditField EditField_Byte8 1427 1715 AcceptTabs = "" 1428 1716 Alignment = 0 … … 1440 1728 InitialParent = "TabPanel1" 1441 1729 Italic = "" 1442 Left = 3211730 Left = 154 1443 1731 LimitText = 0 1444 1732 LockBottom = "" … … 1455 1743 ScrollbarVertical= True 1456 1744 Styled = "" 1457 TabIndex = 1 91458 TabPanelIndex = 11745 TabIndex = 13 1746 TabPanelIndex = 4 1459 1747 TabStop = True 1460 1748 Text = "" … … 1462 1750 TextFont = "System" 1463 1751 TextSize = 0 1464 TextUnit = 0 1465 Top = 153 1752 Top = 129 1466 1753 Underline = "" 1467 1754 UseFocusRing = True … … 1469 1756 Width = 32 1470 1757 End 1471 Begin StaticText StaticText_Punch 1472 AutoDeactivate = True 1473 Bold = "" 1474 DataField = "" 1475 DataSource = "" 1476 Enabled = True 1477 Height = 20 1478 HelpTag = "" 1479 Index = -2147483648 1480 InitialParent = "TabPanel1" 1481 Italic = "" 1482 Left = 365 1483 LockBottom = "" 1484 LockedInPosition= False 1485 LockLeft = "" 1486 LockRight = "" 1487 LockTop = "" 1488 Multiline = "" 1489 Scope = 0 1490 TabIndex = 20 1491 TabPanelIndex = 1 1492 Text = "Punch" 1493 TextAlign = 0 1494 TextColor = "&cB8B8B8" 1495 TextFont = "System" 1496 TextSize = 0 1497 TextUnit = 0 1498 Top = 153 1499 Underline = "" 1500 Visible = True 1501 Width = 81 1502 End 1503 Begin PopupMenu PopupMenu_Speed 1504 AutoDeactivate = True 1505 Bold = "" 1506 DataField = "" 1507 DataSource = "" 1508 Enabled = True 1509 Height = 20 1510 HelpTag = "" 1511 Index = -2147483648 1512 InitialParent = "TabPanel1" 1513 InitialValue = "Slow\r2\r3\r4\rFast\rCustom" 1514 Italic = "" 1515 Left = 209 1516 ListIndex = 0 1517 LockBottom = "" 1518 LockedInPosition= False 1519 LockLeft = "" 1520 LockRight = "" 1521 LockTop = "" 1522 Scope = 0 1523 TabIndex = 21 1524 TabPanelIndex = 1 1525 TabStop = True 1526 TextFont = "System" 1527 TextSize = 0 1528 TextUnit = 0 1529 Top = 122 1530 Underline = "" 1531 Visible = True 1532 Width = 144 1533 End 1534 Begin StaticText StaticText_Speed 1535 AutoDeactivate = True 1536 Bold = "" 1537 DataField = "" 1538 DataSource = "" 1539 Enabled = True 1540 Height = 20 1541 HelpTag = "" 1542 Index = -2147483648 1543 InitialParent = "TabPanel1" 1544 Italic = "" 1545 Left = 365 1546 LockBottom = "" 1547 LockedInPosition= False 1548 LockLeft = "" 1549 LockRight = "" 1550 LockTop = "" 1551 Multiline = "" 1552 Scope = 0 1553 TabIndex = 22 1554 TabPanelIndex = 1 1555 Text = "Speed" 1556 TextAlign = 0 1557 TextColor = "&cB8B8B8" 1558 TextFont = "System" 1559 TextSize = 0 1560 TextUnit = 0 1561 Top = 122 1562 Underline = "" 1563 Visible = True 1564 Width = 100 1565 End 1566 Begin PopupMenu PopupMenu_Gain 1567 AutoDeactivate = True 1568 Bold = "" 1569 DataField = "" 1570 DataSource = "" 1571 Enabled = True 1572 Height = 20 1573 HelpTag = "" 1574 Index = -2147483648 1575 InitialParent = "TabPanel1" 1576 InitialValue = "Min\rMid\rStrong\rCustom" 1577 Italic = "" 1578 Left = 209 1579 ListIndex = 0 1580 LockBottom = "" 1581 LockedInPosition= False 1582 LockLeft = "" 1583 LockRight = "" 1584 LockTop = "" 1585 Scope = 0 1586 TabIndex = 23 1587 TabPanelIndex = 1 1588 TabStop = True 1589 TextFont = "System" 1590 TextSize = 0 1591 TextUnit = 0 1592 Top = 90 1593 Underline = "" 1594 Visible = True 1595 Width = 144 1596 End 1597 Begin StaticText StaticText_Gain 1598 AutoDeactivate = True 1599 Bold = "" 1600 DataField = "" 1601 DataSource = "" 1602 Enabled = True 1603 Height = 20 1604 HelpTag = "" 1605 Index = -2147483648 1606 InitialParent = "TabPanel1" 1607 Italic = "" 1608 Left = 365 1609 LockBottom = "" 1610 LockedInPosition= False 1611 LockLeft = "" 1612 LockRight = "" 1613 LockTop = "" 1614 Multiline = "" 1615 Scope = 0 1616 TabIndex = 24 1617 TabPanelIndex = 1 1618 Text = "Gain" 1619 TextAlign = 0 1620 TextColor = "&cB8B8B8" 1621 TextFont = "System" 1622 TextSize = 0 1623 TextUnit = 0 1624 Top = 91 1625 Underline = "" 1626 Visible = True 1627 Width = 100 1628 End 1629 Begin StaticText StaticText_CarType 1630 AutoDeactivate = True 1631 Bold = "" 1632 DataField = "" 1633 DataSource = "" 1634 Enabled = True 1635 Height = 20 1636 HelpTag = "" 1637 Index = -2147483648 1638 InitialParent = "TabPanel1" 1639 Italic = "" 1640 Left = 365 1641 LockBottom = "" 1642 LockedInPosition= False 1643 LockLeft = "" 1644 LockRight = "" 1645 LockTop = "" 1646 Multiline = "" 1647 Scope = 0 1648 TabIndex = 25 1649 TabPanelIndex = 1 1650 Text = "Car Type" 1651 TextAlign = 0 1652 TextColor = "&cB8B8B8" 1653 TextFont = "System" 1654 TextSize = 0 1655 TextUnit = 0 1656 Top = 58 1657 Underline = "" 1658 Visible = True 1659 Width = 100 1660 End 1661 Begin PopupMenu PopupMenu_CarType 1662 AutoDeactivate = True 1663 Bold = "" 1664 DataField = "" 1665 DataSource = "" 1666 Enabled = True 1667 Height = 20 1668 HelpTag = "" 1669 Index = -2147483648 1670 InitialParent = "TabPanel1" 1671 InitialValue = "MR-03\rdNaNo\rASF" 1672 Italic = "" 1673 Left = 209 1674 ListIndex = 0 1675 LockBottom = "" 1676 LockedInPosition= False 1677 LockLeft = "" 1678 LockRight = "" 1679 LockTop = "" 1680 Scope = 0 1681 TabIndex = 26 1682 TabPanelIndex = 1 1683 TabStop = True 1684 TextFont = "System" 1685 TextSize = 0 1686 TextUnit = 0 1687 Top = 58 1688 Underline = "" 1689 Visible = True 1690 Width = 144 1691 End 1692 Begin EditField EditField_Byte12 1758 Begin EditField EditField_Byte7 1693 1759 AcceptTabs = "" 1694 1760 Alignment = 0 … … 1706 1772 InitialParent = "TabPanel1" 1707 1773 Italic = "" 1708 Left = 3801774 Left = 154 1709 1775 LimitText = 0 1710 1776 LockBottom = "" … … 1721 1787 ScrollbarVertical= True 1722 1788 Styled = "" 1723 TabIndex = 411724 TabPanelIndex = 21789 TabIndex = 14 1790 TabPanelIndex = 4 1725 1791 TabStop = True 1726 1792 Text = "" … … 1728 1794 TextFont = "System" 1729 1795 TextSize = 0 1730 TextUnit = 0 1731 Top = 126 1796 Top = 95 1732 1797 Underline = "" 1733 1798 UseFocusRing = True … … 1735 1800 Width = 32 1736 1801 End 1737 Begin EditField EditField_Byte 111802 Begin EditField EditField_Byte6 1738 1803 AcceptTabs = "" 1739 1804 Alignment = 0 … … 1751 1816 InitialParent = "TabPanel1" 1752 1817 Italic = "" 1753 Left = 3801818 Left = 26 1754 1819 LimitText = 0 1755 1820 LockBottom = "" … … 1766 1831 ScrollbarVertical= True 1767 1832 Styled = "" 1768 TabIndex = 421769 TabPanelIndex = 21833 TabIndex = 15 1834 TabPanelIndex = 4 1770 1835 TabStop = True 1771 1836 Text = "" … … 1773 1838 TextFont = "System" 1774 1839 TextSize = 0 1775 TextUnit = 0 1776 Top = 92 1840 Top = 266 1777 1841 Underline = "" 1778 1842 UseFocusRing = True … … 1780 1844 Width = 32 1781 1845 End 1782 Begin EditField EditField_Byte 101846 Begin EditField EditField_Byte5 1783 1847 AcceptTabs = "" 1784 1848 Alignment = 0 … … 1796 1860 InitialParent = "TabPanel1" 1797 1861 Italic = "" 1798 Left = 3801862 Left = 26 1799 1863 LimitText = 0 1800 1864 LockBottom = "" … … 1811 1875 ScrollbarVertical= True 1812 1876 Styled = "" 1813 TabIndex = 431814 TabPanelIndex = 21877 TabIndex = 16 1878 TabPanelIndex = 4 1815 1879 TabStop = True 1816 1880 Text = "" … … 1818 1882 TextFont = "System" 1819 1883 TextSize = 0 1820 TextUnit = 0 1821 Top = 58 1884 Top = 233 1822 1885 Underline = "" 1823 1886 UseFocusRing = True … … 1825 1888 Width = 32 1826 1889 End 1827 Begin StaticText StaticText_Byte10 1828 AutoDeactivate = True 1829 Bold = "" 1830 DataField = "" 1831 DataSource = "" 1832 Enabled = True 1833 Height = 20 1834 HelpTag = "" 1835 Index = -2147483648 1836 InitialParent = "TabPanel1" 1837 Italic = "" 1838 Left = 426 1839 LockBottom = "" 1840 LockedInPosition= False 1841 LockLeft = "" 1842 LockRight = "" 1843 LockTop = "" 1844 Multiline = "" 1845 Scope = 0 1846 TabIndex = 44 1847 TabPanelIndex = 2 1848 Text = "Unknown" 1849 TextAlign = 0 1850 TextColor = "&cB8B8B8" 1851 TextFont = "System" 1852 TextSize = 0 1853 TextUnit = 0 1854 Top = 60 1855 Underline = "" 1856 Visible = True 1857 Width = 106 1858 End 1859 Begin StaticText StaticText_Byte11 1860 AutoDeactivate = True 1861 Bold = "" 1862 DataField = "" 1863 DataSource = "" 1864 Enabled = True 1865 Height = 20 1866 HelpTag = "" 1867 Index = -2147483648 1868 InitialParent = "TabPanel1" 1869 Italic = "" 1870 Left = 424 1871 LockBottom = "" 1872 LockedInPosition= False 1873 LockLeft = "" 1874 LockRight = "" 1875 LockTop = "" 1876 Multiline = "" 1877 Scope = 0 1878 TabIndex = 45 1879 TabPanelIndex = 2 1880 Text = "Neutral High" 1881 TextAlign = 0 1882 TextColor = "&cB8B8B8" 1883 TextFont = "System" 1884 TextSize = 0 1885 TextUnit = 0 1886 Top = 93 1887 Underline = "" 1888 Visible = True 1889 Width = 106 1890 End 1891 Begin StaticText StaticText_Byte12 1892 AutoDeactivate = True 1893 Bold = "" 1894 DataField = "" 1895 DataSource = "" 1896 Enabled = True 1897 Height = 20 1898 HelpTag = "" 1899 Index = -2147483648 1900 InitialParent = "TabPanel1" 1901 Italic = "" 1902 Left = 424 1903 LockBottom = "" 1904 LockedInPosition= False 1905 LockLeft = "" 1906 LockRight = "" 1907 LockTop = "" 1908 Multiline = "" 1909 Scope = 0 1910 TabIndex = 46 1911 TabPanelIndex = 2 1912 Text = "Neutral Low" 1913 TextAlign = 0 1914 TextColor = "&cB8B8B8" 1915 TextFont = "System" 1916 TextSize = 0 1917 TextUnit = 0 1918 Top = 126 1919 Underline = "" 1920 Visible = True 1921 Width = 106 1922 End 1923 Begin EditField EditField_Byte18 1890 Begin EditField EditField_Byte4 1924 1891 AcceptTabs = "" 1925 1892 Alignment = 0 … … 1930 1897 DataField = "" 1931 1898 DataSource = "" 1932 Enabled = False1899 Enabled = True 1933 1900 Format = "" 1934 1901 Height = 22 … … 1937 1904 InitialParent = "TabPanel1" 1938 1905 Italic = "" 1939 Left = 3801906 Left = 26 1940 1907 LimitText = 0 1941 1908 LockBottom = "" … … 1952 1919 ScrollbarVertical= True 1953 1920 Styled = "" 1954 TabIndex = 471955 TabPanelIndex = 21921 TabIndex = 17 1922 TabPanelIndex = 4 1956 1923 TabStop = True 1957 1924 Text = "" … … 1959 1926 TextFont = "System" 1960 1927 TextSize = 0 1961 TextUnit = 0 1962 Top = 329 1928 Top = 199 1963 1929 Underline = "" 1964 1930 UseFocusRing = True 1965 Visible = False1931 Visible = True 1966 1932 Width = 32 1967 1933 End 1968 Begin EditField EditField_Byte 171934 Begin EditField EditField_Byte3 1969 1935 AcceptTabs = "" 1970 1936 Alignment = 0 … … 1982 1948 InitialParent = "TabPanel1" 1983 1949 Italic = "" 1984 Left = 3801950 Left = 26 1985 1951 LimitText = 0 1986 1952 LockBottom = "" … … 1997 1963 ScrollbarVertical= True 1998 1964 Styled = "" 1999 TabIndex = 482000 TabPanelIndex = 21965 TabIndex = 18 1966 TabPanelIndex = 4 2001 1967 TabStop = True 2002 1968 Text = "" … … 2004 1970 TextFont = "System" 2005 1971 TextSize = 0 2006 TextUnit = 0 2007 Top = 295 1972 Top = 164 2008 1973 Underline = "" 2009 1974 UseFocusRing = True … … 2011 1976 Width = 32 2012 1977 End 2013 Begin EditField EditField_Byte 161978 Begin EditField EditField_Byte2 2014 1979 AcceptTabs = "" 2015 1980 Alignment = 0 … … 2020 1985 DataField = "" 2021 1986 DataSource = "" 2022 Enabled = True1987 Enabled = False 2023 1988 Format = "" 2024 1989 Height = 22 … … 2027 1992 InitialParent = "TabPanel1" 2028 1993 Italic = "" 2029 Left = 3801994 Left = 26 2030 1995 LimitText = 0 2031 1996 LockBottom = "" … … 2042 2007 ScrollbarVertical= True 2043 2008 Styled = "" 2044 TabIndex = 492045 TabPanelIndex = 22009 TabIndex = 19 2010 TabPanelIndex = 4 2046 2011 TabStop = True 2047 2012 Text = "" … … 2049 2014 TextFont = "System" 2050 2015 TextSize = 0 2051 TextUnit = 0 2052 Top = 261 2016 Top = 130 2053 2017 Underline = "" 2054 2018 UseFocusRing = True … … 2056 2020 Width = 32 2057 2021 End 2058 Begin EditField EditField_Byte15 2059 AcceptTabs = "" 2060 Alignment = 0 2061 AutoDeactivate = True 2062 BackColor = &hFFFFFF 2063 Bold = "" 2064 Border = True 2065 DataField = "" 2066 DataSource = "" 2067 Enabled = True 2068 Format = "" 2069 Height = 22 2070 HelpTag = "" 2071 Index = -2147483648 2072 InitialParent = "TabPanel1" 2073 Italic = "" 2074 Left = 380 2075 LimitText = 0 2076 LockBottom = "" 2077 LockedInPosition= False 2078 LockLeft = "" 2079 LockRight = "" 2080 LockTop = "" 2081 Mask = "###" 2022 Begin StaticText StaticText_Byte1 2023 AutoDeactivate = True 2024 Bold = "" 2025 DataField = "" 2026 DataSource = "" 2027 Enabled = True 2028 Height = 20 2029 HelpTag = "" 2030 Index = -2147483648 2031 InitialParent = "TabPanel1" 2032 Italic = "" 2033 Left = 70 2034 LockBottom = "" 2035 LockedInPosition= False 2036 LockLeft = "" 2037 LockRight = "" 2038 LockTop = "" 2082 2039 Multiline = "" 2083 Password = "" 2084 ReadOnly = "" 2085 Scope = 0 2086 ScrollbarHorizontal= "" 2087 ScrollbarVertical= True 2088 Styled = "" 2089 TabIndex = 50 2090 TabPanelIndex = 2 2091 TabStop = True 2092 Text = "" 2093 TextColor = &h000000 2094 TextFont = "System" 2095 TextSize = 0 2096 TextUnit = 0 2097 Top = 227 2098 Underline = "" 2099 UseFocusRing = True 2100 Visible = True 2101 Width = 32 2102 End 2103 Begin EditField EditField_Byte14 2104 AcceptTabs = "" 2105 Alignment = 0 2106 AutoDeactivate = True 2107 BackColor = &hFFFFFF 2108 Bold = "" 2109 Border = True 2110 DataField = "" 2111 DataSource = "" 2112 Enabled = True 2113 Format = "" 2114 Height = 22 2115 HelpTag = "" 2116 Index = -2147483648 2117 InitialParent = "TabPanel1" 2118 Italic = "" 2119 Left = 380 2120 LimitText = 0 2121 LockBottom = "" 2122 LockedInPosition= False 2123 LockLeft = "" 2124 LockRight = "" 2125 LockTop = "" 2126 Mask = "###" 2040 Scope = 0 2041 TabIndex = 21 2042 TabPanelIndex = 4 2043 Text = "Header" 2044 TextAlign = 0 2045 TextColor = "&cB8B8B8" 2046 TextFont = "System" 2047 TextSize = 0 2048 Top = 96 2049 Underline = "" 2050 Visible = True 2051 Width = 106 2052 End 2053 Begin StaticText StaticText_Byte6 2054 AutoDeactivate = True 2055 Bold = "" 2056 DataField = "" 2057 DataSource = "" 2058 Enabled = True 2059 Height = 20 2060 HelpTag = "" 2061 Index = -2147483648 2062 InitialParent = "TabPanel1" 2063 Italic = "" 2064 Left = 70 2065 LockBottom = "" 2066 LockedInPosition= False 2067 LockLeft = "" 2068 LockRight = "" 2069 LockTop = "" 2127 2070 Multiline = "" 2128 Password = "" 2129 ReadOnly = "" 2130 Scope = 0 2131 ScrollbarHorizontal= "" 2132 ScrollbarVertical= True 2133 Styled = "" 2134 TabIndex = 51 2135 TabPanelIndex = 2 2136 TabStop = True 2137 Text = "" 2138 TextColor = &h000000 2139 TextFont = "System" 2140 TextSize = 0 2141 TextUnit = 0 2142 Top = 193 2143 Underline = "" 2144 UseFocusRing = True 2145 Visible = True 2146 Width = 32 2147 End 2148 Begin EditField EditField_Byte13 2149 AcceptTabs = "" 2150 Alignment = 0 2151 AutoDeactivate = True 2152 BackColor = &hFFFFFF 2153 Bold = "" 2154 Border = True 2155 DataField = "" 2156 DataSource = "" 2157 Enabled = True 2158 Format = "" 2159 Height = 22 2160 HelpTag = "" 2161 Index = -2147483648 2162 InitialParent = "TabPanel1" 2163 Italic = "" 2164 Left = 380 2165 LimitText = 0 2166 LockBottom = "" 2167 LockedInPosition= False 2168 LockLeft = "" 2169 LockRight = "" 2170 LockTop = "" 2171 Mask = "###" 2071 Scope = 0 2072 TabIndex = 22 2073 TabPanelIndex = 4 2074 Text = "Drive Band" 2075 TextAlign = 0 2076 TextColor = "&cB8B8B8" 2077 TextFont = "System" 2078 TextSize = 0 2079 Top = 266 2080 Underline = "" 2081 Visible = True 2082 Width = 106 2083 End 2084 Begin StaticText StaticText_Byte5 2085 AutoDeactivate = True 2086 Bold = "" 2087 DataField = "" 2088 DataSource = "" 2089 Enabled = True 2090 Height = 20 2091 HelpTag = "" 2092 Index = -2147483648 2093 InitialParent = "TabPanel1" 2094 Italic = "" 2095 Left = 70 2096 LockBottom = "" 2097 LockedInPosition= False 2098 LockLeft = "" 2099 LockRight = "" 2100 LockTop = "" 2172 2101 Multiline = "" 2173 Password = "" 2174 ReadOnly = "" 2175 Scope = 0 2176 ScrollbarHorizontal= "" 2177 ScrollbarVertical= True 2178 Styled = "" 2179 TabIndex = 52 2180 TabPanelIndex = 2 2181 TabStop = True 2182 Text = "" 2183 TextColor = &h000000 2184 TextFont = "System" 2185 TextSize = 0 2186 TextUnit = 0 2187 Top = 158 2188 Underline = "" 2189 UseFocusRing = True 2190 Visible = True 2191 Width = 32 2102 Scope = 0 2103 TabIndex = 23 2104 TabPanelIndex = 4 2105 Text = "Punch" 2106 TextAlign = 0 2107 TextColor = "&cB8B8B8" 2108 TextFont = "System" 2109 TextSize = 0 2110 Top = 232 2111 Underline = "" 2112 Visible = True 2113 Width = 106 2114 End 2115 Begin StaticText StaticText_Byte4 2116 AutoDeactivate = True 2117 Bold = "" 2118 DataField = "" 2119 DataSource = "" 2120 Enabled = True 2121 Height = 20 2122 HelpTag = "" 2123 Index = -2147483648 2124 InitialParent = "TabPanel1" 2125 Italic = "" 2126 Left = 70 2127 LockBottom = "" 2128 LockedInPosition= False 2129 LockLeft = "" 2130 LockRight = "" 2131 LockTop = "" 2132 Multiline = "" 2133 Scope = 0 2134 TabIndex = 24 2135 TabPanelIndex = 4 2136 Text = "Speed" 2137 TextAlign = 0 2138 TextColor = "&cB8B8B8" 2139 TextFont = "System" 2140 TextSize = 0 2141 Top = 200 2142 Underline = "" 2143 Visible = True 2144 Width = 106 2145 End 2146 Begin StaticText StaticText_Byte3 2147 AutoDeactivate = True 2148 Bold = "" 2149 DataField = "" 2150 DataSource = "" 2151 Enabled = True 2152 Height = 20 2153 HelpTag = "" 2154 Index = -2147483648 2155 InitialParent = "TabPanel1" 2156 Italic = "" 2157 Left = 70 2158 LockBottom = "" 2159 LockedInPosition= False 2160 LockLeft = "" 2161 LockRight = "" 2162 LockTop = "" 2163 Multiline = "" 2164 Scope = 0 2165 TabIndex = 25 2166 TabPanelIndex = 4 2167 Text = "Gain" 2168 TextAlign = 0 2169 TextColor = "&cB8B8B8" 2170 TextFont = "System" 2171 TextSize = 0 2172 Top = 164 2173 Underline = "" 2174 Visible = True 2175 Width = 106 2176 End 2177 Begin StaticText StaticText_Byte2 2178 AutoDeactivate = True 2179 Bold = "" 2180 DataField = "" 2181 DataSource = "" 2182 Enabled = True 2183 Height = 20 2184 HelpTag = "" 2185 Index = -2147483648 2186 InitialParent = "TabPanel1" 2187 Italic = "" 2188 Left = 70 2189 LockBottom = "" 2190 LockedInPosition= False 2191 LockLeft = "" 2192 LockRight = "" 2193 LockTop = "" 2194 Multiline = "" 2195 Scope = 0 2196 TabIndex = 26 2197 TabPanelIndex = 4 2198 Text = "Header" 2199 TextAlign = 0 2200 TextColor = "&cB8B8B8" 2201 TextFont = "System" 2202 TextSize = 0 2203 Top = 130 2204 Underline = "" 2205 Visible = True 2206 Width = 106 2207 End 2208 Begin StaticText StaticText_Byte7 2209 AutoDeactivate = True 2210 Bold = "" 2211 DataField = "" 2212 DataSource = "" 2213 Enabled = True 2214 Height = 20 2215 HelpTag = "" 2216 Index = -2147483648 2217 InitialParent = "TabPanel1" 2218 Italic = "" 2219 Left = 200 2220 LockBottom = "" 2221 LockedInPosition= False 2222 LockLeft = "" 2223 LockRight = "" 2224 LockTop = "" 2225 Multiline = "" 2226 Scope = 0 2227 TabIndex = 27 2228 TabPanelIndex = 4 2229 Text = "Dump" 2230 TextAlign = 0 2231 TextColor = "&cB8B8B8" 2232 TextFont = "System" 2233 TextSize = 0 2234 Top = 97 2235 Underline = "" 2236 Visible = True 2237 Width = 106 2238 End 2239 Begin StaticText StaticText_Byte8 2240 AutoDeactivate = True 2241 Bold = "" 2242 DataField = "" 2243 DataSource = "" 2244 Enabled = True 2245 Height = 20 2246 HelpTag = "" 2247 Index = -2147483648 2248 InitialParent = "TabPanel1" 2249 Italic = "" 2250 Left = 200 2251 LockBottom = "" 2252 LockedInPosition= False 2253 LockLeft = "" 2254 LockRight = "" 2255 LockTop = "" 2256 Multiline = "" 2257 Scope = 0 2258 TabIndex = 28 2259 TabPanelIndex = 4 2260 Text = "Drive Frequency" 2261 TextAlign = 0 2262 TextColor = "&cB8B8B8" 2263 TextFont = "System" 2264 TextSize = 0 2265 Top = 130 2266 Underline = "" 2267 Visible = True 2268 Width = 106 2269 End 2270 Begin StaticText StaticText_Byte9 2271 AutoDeactivate = True 2272 Bold = "" 2273 DataField = "" 2274 DataSource = "" 2275 Enabled = True 2276 Height = 20 2277 HelpTag = "" 2278 Index = -2147483648 2279 InitialParent = "TabPanel1" 2280 Italic = "" 2281 Left = 198 2282 LockBottom = "" 2283 LockedInPosition= False 2284 LockLeft = "" 2285 LockRight = "" 2286 LockTop = "" 2287 Multiline = "" 2288 Scope = 0 2289 TabIndex = 29 2290 TabPanelIndex = 4 2291 Text = "Unknown" 2292 TextAlign = 0 2293 TextColor = "&cB8B8B8" 2294 TextFont = "System" 2295 TextSize = 0 2296 Top = 166 2297 Underline = "" 2298 Visible = True 2299 Width = 106 2300 End 2301 Begin StaticText StaticText_Byte10 2302 AutoDeactivate = True 2303 Bold = "" 2304 DataField = "" 2305 DataSource = "" 2306 Enabled = True 2307 Height = 20 2308 HelpTag = "" 2309 Index = -2147483648 2310 InitialParent = "TabPanel1" 2311 Italic = "" 2312 Left = 200 2313 LockBottom = "" 2314 LockedInPosition= False 2315 LockLeft = "" 2316 LockRight = "" 2317 LockTop = "" 2318 Multiline = "" 2319 Scope = 0 2320 TabIndex = 30 2321 TabPanelIndex = 4 2322 Text = "Unknown" 2323 TextAlign = 0 2324 TextColor = "&cB8B8B8" 2325 TextFont = "System" 2326 TextSize = 0 2327 Top = 200 2328 Underline = "" 2329 Visible = True 2330 Width = 106 2331 End 2332 Begin StaticText StaticText_Byte11 2333 AutoDeactivate = True 2334 Bold = "" 2335 DataField = "" 2336 DataSource = "" 2337 Enabled = True 2338 Height = 20 2339 HelpTag = "" 2340 Index = -2147483648 2341 InitialParent = "TabPanel1" 2342 Italic = "" 2343 Left = 198 2344 LockBottom = "" 2345 LockedInPosition= False 2346 LockLeft = "" 2347 LockRight = "" 2348 LockTop = "" 2349 Multiline = "" 2350 Scope = 0 2351 TabIndex = 31 2352 TabPanelIndex = 4 2353 Text = "Neutral Low" 2354 TextAlign = 0 2355 TextColor = "&cB8B8B8" 2356 TextFont = "System" 2357 TextSize = 0 2358 Top = 233 2359 Underline = "" 2360 Visible = True 2361 Width = 106 2362 End 2363 Begin StaticText StaticText_Byte12 2364 AutoDeactivate = True 2365 Bold = "" 2366 DataField = "" 2367 DataSource = "" 2368 Enabled = True 2369 Height = 20 2370 HelpTag = "" 2371 Index = -2147483648 2372 InitialParent = "TabPanel1" 2373 Italic = "" 2374 Left = 198 2375 LockBottom = "" 2376 LockedInPosition= False 2377 LockLeft = "" 2378 LockRight = "" 2379 LockTop = "" 2380 Multiline = "" 2381 Scope = 0 2382 TabIndex = 32 2383 TabPanelIndex = 4 2384 Text = "Neutral High" 2385 TextAlign = 0 2386 TextColor = "&cB8B8B8" 2387 TextFont = "System" 2388 TextSize = 0 2389 Top = 266 2390 Underline = "" 2391 Visible = True 2392 Width = 106 2192 2393 End 2193 2394 Begin StaticText StaticText_Byte13 … … 2202 2403 InitialParent = "TabPanel1" 2203 2404 Italic = "" 2204 Left = 4242405 Left = 360 2205 2406 LockBottom = "" 2206 2407 LockedInPosition= False … … 2210 2411 Multiline = "" 2211 2412 Scope = 0 2212 TabIndex = 532213 TabPanelIndex = 22413 TabIndex = 33 2414 TabPanelIndex = 4 2214 2415 Text = "Vertical Inertia" 2215 2416 TextAlign = 0 … … 2217 2418 TextFont = "System" 2218 2419 TextSize = 0 2219 TextUnit = 0 2220 Top = 160 2420 Top = 97 2221 2421 Underline = "" 2222 2422 Visible = True … … 2234 2434 InitialParent = "TabPanel1" 2235 2435 Italic = "" 2236 Left = 4242436 Left = 360 2237 2437 LockBottom = "" 2238 2438 LockedInPosition= False … … 2242 2442 Multiline = False 2243 2443 Scope = 0 2244 TabIndex = 542245 TabPanelIndex = 22444 TabIndex = 34 2445 TabPanelIndex = 4 2246 2446 Text = "Unknown" 2247 2447 TextAlign = 0 … … 2249 2449 TextFont = "System" 2250 2450 TextSize = 0 2251 TextUnit = 0 2252 Top = 194 2451 Top = 131 2253 2452 Underline = "" 2254 2453 Visible = True … … 2266 2465 InitialParent = "TabPanel1" 2267 2466 Italic = "" 2268 Left = 4242467 Left = 360 2269 2468 LockBottom = "" 2270 2469 LockedInPosition= False … … 2274 2473 Multiline = "" 2275 2474 Scope = 0 2276 TabIndex = 552277 TabPanelIndex = 22475 TabIndex = 35 2476 TabPanelIndex = 4 2278 2477 Text = "Back Timing" 2279 2478 TextAlign = 0 … … 2281 2480 TextFont = "System" 2282 2481 TextSize = 0 2283 TextUnit = 0 2284 Top = 228 2482 Top = 165 2285 2483 Underline = "" 2286 2484 Visible = True … … 2298 2496 InitialParent = "TabPanel1" 2299 2497 Italic = "" 2300 Left = 4242498 Left = 360 2301 2499 LockBottom = "" 2302 2500 LockedInPosition= False … … 2306 2504 Multiline = "" 2307 2505 Scope = 0 2308 TabIndex = 562309 TabPanelIndex = 22506 TabIndex = 36 2507 TabPanelIndex = 4 2310 2508 Text = "Steering Gain" 2311 2509 TextAlign = 0 … … 2313 2511 TextFont = "System" 2314 2512 TextSize = 0 2315 TextUnit = 0 2316 Top = 262 2513 Top = 199 2317 2514 Underline = "" 2318 2515 Visible = True … … 2330 2527 InitialParent = "TabPanel1" 2331 2528 Italic = "" 2332 Left = 4242529 Left = 360 2333 2530 LockBottom = "" 2334 2531 LockedInPosition= False … … 2338 2535 Multiline = "" 2339 2536 Scope = 0 2340 TabIndex = 572341 TabPanelIndex = 22537 TabIndex = 37 2538 TabPanelIndex = 4 2342 2539 Text = "Throttle Gain" 2343 2540 TextAlign = 0 … … 2345 2542 TextFont = "System" 2346 2543 TextSize = 0 2347 TextUnit = 0 2348 Top = 296 2544 Top = 233 2349 2545 Underline = "" 2350 2546 Visible = True … … 2362 2558 InitialParent = "TabPanel1" 2363 2559 Italic = "" 2364 Left = 4242560 Left = 360 2365 2561 LockBottom = "" 2366 2562 LockedInPosition= False … … 2370 2566 Multiline = "" 2371 2567 Scope = 0 2372 TabIndex = 582373 TabPanelIndex = 22568 TabIndex = 38 2569 TabPanelIndex = 4 2374 2570 Text = "Checksum" 2375 2571 TextAlign = 0 … … 2377 2573 TextFont = "System" 2378 2574 TextSize = 0 2379 TextUnit = 0 2380 Top = 330 2575 Top = 267 2381 2576 Underline = "" 2382 2577 Visible = False 2383 2578 Width = 106 2384 2579 End 2385 Begin StaticText StaticText _Warning2580 Begin StaticText StaticText1 2386 2581 AutoDeactivate = True 2387 2582 Bold = True … … 2394 2589 InitialParent = "TabPanel1" 2395 2590 Italic = "" 2396 Left = 5422591 Left = 472 2397 2592 LockBottom = "" 2398 2593 LockedInPosition= False … … 2402 2597 Multiline = "" 2403 2598 Scope = 0 2404 TabIndex = 592405 TabPanelIndex = 22599 TabIndex = 39 2600 TabPanelIndex = 4 2406 2601 Text = "WARNING:" 2407 2602 TextAlign = 0 … … 2409 2604 TextFont = "System" 2410 2605 TextSize = 22 2411 TextUnit = 0 2412 Top = 57 2606 Top = 96 2413 2607 Underline = True 2414 2608 Visible = True 2415 2609 Width = 142 2416 2610 End 2417 Begin StaticText StaticText _WarningMessage2611 Begin StaticText StaticText2 2418 2612 AutoDeactivate = True 2419 2613 Bold = "" … … 2426 2620 InitialParent = "TabPanel1" 2427 2621 Italic = "" 2428 Left = 5422622 Left = 472 2429 2623 LockBottom = "" 2430 2624 LockedInPosition= False … … 2434 2628 Multiline = True 2435 2629 Scope = 0 2436 TabIndex = 602437 TabPanelIndex = 22630 TabIndex = 40 2631 TabPanelIndex = 4 2438 2632 Text = "Each register can have a value between 0 and 255. Modifying values on this screen can have unpredictable results, do so at your own risk. " 2439 2633 TextAlign = 0 … … 2441 2635 TextFont = "System" 2442 2636 TextSize = 0 2443 TextUnit = 0 2444 Top = 93 2637 Top = 132 2445 2638 Underline = "" 2446 2639 Visible = True … … 2457 2650 Height = 32 2458 2651 Index = -2147483648 2459 Left = 7 862652 Left = 716 2460 2653 LockedInPosition= False 2461 2654 mode = "read" … … 2464 2657 Stop = 0 2465 2658 TabPanelIndex = 0 2466 Top = - 162659 Top = -6 2467 2660 Width = 32 2468 2661 XON = "" … … 2480 2673 InitialParent = "" 2481 2674 Italic = "" 2482 Left = 6122483 LockBottom = True2675 Left = 326 2676 LockBottom = "" 2484 2677 LockedInPosition= False 2485 2678 LockLeft = "" … … 2492 2685 TextFont = "System" 2493 2686 TextSize = 0 2494 TextUnit = 0 2495 Top = 388 2687 Top = 312 2496 2688 Underline = "" 2497 2689 Visible = True 2498 2690 Width = 88 2499 2691 End 2500 Begin StaticText StaticText_SerialPort2692 Begin PushButton PushButton_SaveProfile 2501 2693 AutoDeactivate = True 2502 2694 Bold = "" 2503 DataField = "" 2504 DataSource = "" 2695 Cancel = "" 2696 Caption = "Save Profile" 2697 Default = "" 2505 2698 Enabled = True 2506 2699 Height = 20 … … 2509 2702 InitialParent = "" 2510 2703 Italic = "" 2511 Left = 20 2512 LockBottom = "" 2513 LockedInPosition= False 2514 LockLeft = "" 2515 LockRight = "" 2516 LockTop = "" 2517 Multiline = "" 2518 Scope = 0 2519 TabIndex = 46 2520 TabPanelIndex = 0 2521 Text = "COM Port" 2522 TextAlign = 0 2523 TextColor = "&cB8B8B8" 2524 TextFont = "System" 2525 TextSize = 0 2526 TextUnit = 0 2527 Top = 58 2528 Underline = "" 2529 Visible = True 2530 Width = 100 2531 End 2532 Begin PopupMenu PopupMenu_SerialPort 2533 AutoDeactivate = True 2534 Bold = "" 2535 DataField = "" 2536 DataSource = "" 2537 Enabled = True 2538 Height = 20 2539 HelpTag = "" 2540 Index = -2147483648 2541 InitialParent = "" 2542 InitialValue = "" 2543 Italic = "" 2544 Left = 20 2545 ListIndex = 0 2704 Left = 520 2546 2705 LockBottom = "" 2547 2706 LockedInPosition= False … … 2550 2709 LockTop = "" 2551 2710 Scope = 0 2552 TabIndex = 4 72711 TabIndex = 45 2553 2712 TabPanelIndex = 0 2554 2713 TabStop = True 2555 2714 TextFont = "System" 2556 2715 TextSize = 0 2557 TextUnit = 0 2558 Top = 90 2716 Top = 312 2559 2717 Underline = "" 2560 Visible = True2561 Width = 1 282718 Visible = False 2719 Width = 100 2562 2720 End 2563 2721 Begin StaticText StaticText_Version … … 2572 2730 InitialParent = "" 2573 2731 Italic = "" 2574 Left = 20 2575 LockBottom = True 2576 LockedInPosition= False 2577 LockLeft = "" 2578 LockRight = "" 2579 LockTop = "" 2580 Multiline = "" 2581 Scope = 0 2582 TabIndex = 48 2583 TabPanelIndex = 0 2584 Text = "Version " 2585 TextAlign = 0 2586 TextColor = "&cB8B8B8" 2587 TextFont = "System" 2588 TextSize = 0 2589 TextUnit = 0 2590 Top = 388 2591 Underline = "" 2592 Visible = True 2593 Width = 100 2594 End 2595 Begin StaticText StaticText_Profiles 2596 AutoDeactivate = True 2597 Bold = "" 2598 DataField = "" 2599 DataSource = "" 2600 Enabled = True 2601 Height = 20 2602 HelpTag = "" 2603 Index = -2147483648 2604 InitialParent = "" 2605 Italic = "" 2606 Left = 20 2732 Left = 522 2607 2733 LockBottom = "" 2608 2734 LockedInPosition= False … … 2612 2738 Multiline = "" 2613 2739 Scope = 0 2614 TabIndex = 512740 TabIndex = 46 2615 2741 TabPanelIndex = 0 2616 Text = " Profiles"2742 Text = "Version " 2617 2743 TextAlign = 0 2618 TextColor = "&cB8B8B8"2744 TextColor = &h000000 2619 2745 TextFont = "System" 2620 2746 TextSize = 0 2621 TextUnit = 0 2622 Top = 122 2747 Top = 14 2623 2748 Underline = "" 2624 2749 Visible = True 2625 2750 Width = 100 2626 End2627 Begin PopupMenu PopupMenu_Profile2628 AutoDeactivate = True2629 Bold = ""2630 DataField = ""2631 DataSource = ""2632 Enabled = True2633 Height = 202634 HelpTag = ""2635 Index = -21474836482636 InitialParent = ""2637 InitialValue = ""2638 Italic = ""2639 Left = 202640 ListIndex = 02641 LockBottom = ""2642 LockedInPosition= False2643 LockLeft = ""2644 LockRight = ""2645 LockTop = ""2646 Scope = 02647 TabIndex = 542648 TabPanelIndex = 02649 TabStop = True2650 TextFont = "System"2651 TextSize = 02652 TextUnit = 02653 Top = 1542654 Underline = ""2655 Visible = True2656 Width = 1282657 End2658 Begin PushButton PushButton_SaveProfile2659 AutoDeactivate = True2660 Bold = ""2661 Cancel = ""2662 Caption = "Save"2663 Default = ""2664 Enabled = False2665 Height = 202666 HelpTag = ""2667 Index = -21474836482668 InitialParent = ""2669 Italic = ""2670 Left = 202671 LockBottom = ""2672 LockedInPosition= False2673 LockLeft = ""2674 LockRight = ""2675 LockTop = ""2676 Scope = 02677 TabIndex = 552678 TabPanelIndex = 02679 TabStop = True2680 TextFont = "System"2681 TextSize = 02682 TextUnit = 02683 Top = 2502684 Underline = ""2685 Visible = True2686 Width = 882687 End2688 Begin PushButton PushButton_Delete2689 AutoDeactivate = True2690 Bold = ""2691 Cancel = ""2692 Caption = "Delete"2693 Default = ""2694 Enabled = False2695 Height = 202696 HelpTag = ""2697 Index = -21474836482698 InitialParent = ""2699 Italic = ""2700 Left = 202701 LockBottom = ""2702 LockedInPosition= False2703 LockLeft = ""2704 LockRight = ""2705 LockTop = ""2706 Scope = 02707 TabIndex = 562708 TabPanelIndex = 02709 TabStop = True2710 TextFont = "System"2711 TextSize = 02712 TextUnit = 02713 Top = 2822714 Underline = ""2715 Visible = True2716 Width = 882717 End2718 Begin PushButton PushButton_Create2719 AutoDeactivate = True2720 Bold = ""2721 Cancel = ""2722 Caption = "Create"2723 Default = ""2724 Enabled = True2725 Height = 202726 HelpTag = ""2727 Index = -21474836482728 InitialParent = ""2729 Italic = ""2730 Left = 202731 LockBottom = ""2732 LockedInPosition= False2733 LockLeft = ""2734 LockRight = ""2735 LockTop = ""2736 Scope = 02737 TabIndex = 572738 TabPanelIndex = 02739 TabStop = True2740 TextFont = "System"2741 TextSize = 02742 TextUnit = 02743 Top = 1862744 Underline = ""2745 Visible = True2746 Width = 882747 End2748 Begin PushButton PushButton_Import2749 AutoDeactivate = True2750 Bold = ""2751 Cancel = ""2752 Caption = "Import"2753 Default = ""2754 Enabled = True2755 Height = 202756 HelpTag = ""2757 Index = -21474836482758 InitialParent = ""2759 Italic = ""2760 Left = 202761 LockBottom = ""2762 LockedInPosition= False2763 LockLeft = ""2764 LockRight = ""2765 LockTop = ""2766 Scope = 02767 TabIndex = 582768 TabPanelIndex = 02769 TabStop = True2770 TextFont = "System"2771 TextSize = 02772 TextUnit = 02773 Top = 2182774 Underline = ""2775 Visible = True2776 Width = 882777 End2778 Begin PushButton PushButton_Export2779 AutoDeactivate = True2780 Bold = ""2781 Cancel = ""2782 Caption = "Export"2783 Default = ""2784 Enabled = False2785 Height = 202786 HelpTag = ""2787 Index = -21474836482788 InitialParent = ""2789 Italic = ""2790 Left = 202791 LockBottom = ""2792 LockedInPosition= False2793 LockLeft = ""2794 LockRight = ""2795 LockTop = ""2796 Scope = 02797 TabIndex = 592798 TabPanelIndex = 02799 TabStop = True2800 TextFont = "System"2801 TextSize = 02802 TextUnit = 02803 Top = 3142804 Underline = ""2805 Visible = True2806 Width = 882807 2751 End 2808 2752 End … … 2840 2784 //Could not open 2841 2785 MsgBox "Error opening defined com port" 2842 else2843 //Enable buttons2844 PushButton_Read.Enabled = True2845 PushButton_Write.Enabled = True2846 PushButton_Reset.Enabled = True2847 2786 end if 2848 2787 //No need to continue loop … … 2854 2793 end if 2855 2794 2856 #if TargetWin322857 //Have to change text colors since Windows does not allow for transparancy of the tab panel2858 StaticText_BackTiming.TextColor = &c0000002859 StaticText_Byte1.TextColor = &c0000002860 StaticText_Byte10.TextColor = &c0000002861 StaticText_Byte11.TextColor = &c0000002862 StaticText_Byte12.TextColor = &c0000002863 StaticText_Byte13.TextColor = &c0000002864 StaticText_Byte14.TextColor = &c0000002865 StaticText_Byte15.TextColor = &c0000002866 StaticText_Byte16.TextColor = &c0000002867 StaticText_Byte17.TextColor = &c0000002868 StaticText_Byte18.TextColor = &c0000002869 StaticText_Byte2.TextColor = &c0000002870 StaticText_Byte3.TextColor = &c0000002871 StaticText_Byte4.TextColor = &c0000002872 StaticText_Byte5.TextColor = &c0000002873 StaticText_Byte6.TextColor = &c0000002874 StaticText_Byte7.TextColor = &c0000002875 StaticText_Byte8.TextColor = &c0000002876 StaticText_Byte9.TextColor = &c0000002877 StaticText_CarType.TextColor = &c0000002878 StaticText_DBand.TextColor = &c0000002879 StaticText_DFreq.TextColor = &c0000002880 StaticText_Dump.TextColor = &c0000002881 StaticText_Gain.TextColor = &c0000002882 StaticText_Nuetral.TextColor = &c0000002883 //StaticText_Profiles.TextColor = &c0000002884 StaticText_Punch.TextColor = &c0000002885 //StaticText_SerialPort.TextColor = &c0000002886 StaticText_Speed.TextColor = &c0000002887 StaticText_STGain.TextColor = &c0000002888 StaticText_THGain.TextColor = &c0000002889 //StaticText_Version.TextColor = &c0000002890 StaticText_VerticalIntertia.TextColor = &c0000002891 2892 #endif2893 2894 2795 End Sub 2895 2796 #tag EndEvent … … 2907 2808 Slider_STGain.Enabled = True 2908 2809 StaticText_STGain.Enabled = True 2909 EditField_STGain.Enabled = True2910 2810 2911 2811 Slider_THGain.Enabled = True 2912 2812 StaticText_THGain.Enabled = True 2913 EditField_THGain.Enabled = True2813 2914 2814 2915 2815 Case "dNaNo" … … 2922 2822 Slider_STGain.Enabled = True 2923 2823 StaticText_STGain.Enabled = True 2924 EditField_STGain.Enabled = True2925 2824 2926 2825 Slider_THGain.Enabled = True 2927 2826 StaticText_THGain.Enabled = True 2928 EditField_THGain.Enabled = True2929 2827 2930 2828 Case "ASF" … … 2937 2835 StaticText_STGain.Enabled = False 2938 2836 Slider_STGain.Value = 255 2939 EditField_STGain.Enabled = False2940 2837 2941 2838 Slider_THGain.Enabled = False 2942 2839 StaticText_THGain.Enabled = False 2943 2840 Slider_THGain.Value = 255 2944 EditField_THGain.Enabled = False2841 2945 2842 2946 2843 end select … … 2949 2846 2950 2847 #tag Method, Flags = &h21 2951 Private Sub readPreferences() 2952 dim filePreference as FolderItem = GetFolderItem("icspref.xml") 2953 dim xdoc as XmlDocument 2954 dim root as XmlNode 2955 dim i as Integer 2956 dim count as integer 2957 dim item as string 2958 2959 //Read the settings from the preferences file 2960 if filePreference <> Nil then 2961 if filePreference.Exists then 2962 xdoc = New XmlDocument(filePreference) 2963 2964 count = xdoc.DocumentElement.ChildCount 2965 2966 for i = 0 to count - 1 2967 root = xdoc.DocumentElement.Child(i) 2968 2969 item = root.FirstChild.Value 2970 2971 select case root.Name 2972 case "comPort" 2973 comPort = item 2974 end select 2975 next 2848 Private Sub updateCarScreen() 2849 //Use this method to update the car screen 2850 2851 //Update Gain 2852 Select Case ICSSerialPort1.byte03 2853 2854 Case chrb(&h32) 2855 PopupMenu_Gain.ListIndex = 0 2856 2857 Case chrb(&h64) 2858 PopupMenu_Gain.ListIndex = 1 2859 2860 Case chrb(&hFF) 2861 PopupMenu_Gain.ListIndex = 2 2862 2863 Else 2864 PopupMenu_Gain.ListIndex = 3 2865 2866 End Select 2867 2868 //Update Speed 2869 Select Case ICSSerialPort1.Byte04 2870 2871 Case chrb(&h0A) 2872 PopupMenu_Speed.ListIndex = 0 2873 2874 Case chrb(&h14) 2875 PopupMenu_Speed.ListIndex = 1 2876 2877 Case chrb(&h1E) 2878 PopupMenu_Speed.ListIndex = 2 2879 2880 Case chrb(&h28) 2881 PopupMenu_Speed.ListIndex = 3 2882 2883 Case chrb(&hFF) 2884 PopupMenu_Speed.ListIndex = 4 2885 2886 Else 2887 PopupMenu_Speed.ListIndex = 5 2888 2889 End Select 2890 2891 //Update punch 2892 Slider_Punch.Value = asc(ICSSerialPort1.Byte05) 2893 EditField_Punch.Text = str(asc(ICSSerialPort1.Byte05)) 2894 2895 //Update DBAND 2896 Select Case ICSSerialPort1.Byte06 2897 2898 Case chrb(&h01) 2899 PopupMenu_DBand.ListIndex = 0 2900 2901 Case chrb(&h02) 2902 PopupMenu_DBand.ListIndex = 1 2903 2904 Case chrb(&h03) 2905 PopupMenu_DBand.ListIndex = 2 2906 2907 Else 2908 PopupMenu_DBand.ListIndex = 3 2909 2910 End Select 2911 2912 //Update Dump 2913 Select Case ICSSerialPort1.Byte07 2914 2915 Case chrb(&h01) 2916 PopupMenu_Dump.ListIndex = 0 2917 2918 Case chrb(&h02) 2919 PopupMenu_Dump.ListIndex = 1 2920 2921 Else 2922 PopupMenu_Dump.ListIndex = 2 2923 2924 End Select 2925 2926 //Update DFREQ 2927 Select Case ICSSerialPort1.Byte08 2928 2929 Case chrb(&h40) 2930 PopupMenu_DFreq.ListIndex = 0 2931 2932 Case chrb(&h78) 2933 PopupMenu_DFreq.ListIndex = 1 2934 2935 Case chrb(&hFF) 2936 PopupMenu_DFreq.ListIndex = 2 2937 2938 Else 2939 PopupMenu_DFreq.ListIndex = 3 2940 2941 End Select 2942 2943 //Update Nuetral 2944 //Nuetral is defined by 2 bytes 2945 Select Case ICSSerialPort1.Byte11 2946 2947 Case chrb(&h82) 2948 if ICSSerialPort1.Byte12 = chrb(&h7C) then 2949 PopupMenu_Nuetral.ListIndex = 0 2950 else 2951 PopupMenu_Nuetral.ListIndex = 3 2976 2952 end if 2977 end if 2978 2979 2980 End Sub 2981 #tag EndMethod 2982 2983 #tag Method, Flags = &h21 2984 Private Sub savePreferences() 2985 dim xml as XmlDocument 2986 dim root as XMLNode 2987 dim comPortXML as XmlNode 2988 dim f as FolderItem 2989 2990 //Save the preferences 2991 2992 f = GetFolderItem("icspref.xml") 2993 2994 if f <> Nil then 2995 //Create a new XML document 2996 xml = New XmlDocument 2997 root = xml.AppendChild(xml.CreateElement("icspref")) 2998 2999 //Add elements 3000 comPortXML = root.AppendChild(xml.CreateElement("comPort")) 3001 comPortXML.AppendChild(xml.CreateTextNode(comPort)) 3002 3003 //Save the output 3004 xml.SaveXml(f) 3005 end if 3006 2953 2954 Case chrb(&h88) 2955 if ICSSerialPort1.Byte12 = chrb(&h78) then 2956 PopupMenu_Nuetral.ListIndex = 1 2957 else 2958 PopupMenu_Nuetral.ListIndex = 3 2959 end if 2960 2961 Case chrb(&h94) 2962 if ICSSerialPort1.Byte12 = chrb(&h6C) then 2963 PopupMenu_Nuetral.ListIndex = 2 2964 else 2965 PopupMenu_Nuetral.ListIndex = 3 2966 end if 2967 2968 Else 2969 PopupMenu_Nuetral.ListIndex = 3 2970 2971 End Select 2972 2973 //Update Vertial Intertia 2974 Select Case ICSSerialPort1.Byte13 2975 2976 Case chrb(&h01) 2977 PopupMenu_VerticalInteria.ListIndex = 0 2978 2979 Case chrb(&h02) 2980 PopupMenu_VerticalInteria.ListIndex = 1 2981 2982 Case chrb(&h03) 2983 PopupMenu_VerticalInteria.ListIndex = 2 2984 2985 Case chrb(&h04) 2986 PopupMenu_VerticalInteria.ListIndex = 3 2987 2988 Case chrb(&hFF) 2989 PopupMenu_VerticalInteria.ListIndex = 4 2990 2991 Else 2992 PopupMenu_VerticalInteria.ListIndex = 5 2993 2994 End Select 2995 2996 //Update Back Timing 2997 Select Case ICSSerialPort1.Byte15 2998 2999 Case chrb(&h01) 3000 PopupMenu_BackTiming.ListIndex = 0 3001 3002 Case chrb(&h05) 3003 PopupMenu_BackTiming.ListIndex = 1 3004 3005 Case chrb(&h0A) 3006 PopupMenu_BackTiming.ListIndex = 2 3007 3008 Case chrb(&h14) 3009 PopupMenu_BackTiming.ListIndex = 3 3010 3011 Case chrb(&h28) 3012 PopupMenu_BackTiming.ListIndex = 4 3013 3014 Else 3015 PopupMenu_BackTiming.ListIndex = 5 3016 3017 End Select 3018 3019 //Update Steering Gain 3020 Slider_STGain.Value = asc(ICSSerialPort1.Byte16) 3021 EditField_STGain.Text = str(asc(ICSSerialPort1.Byte16)) 3022 3023 //Update Throttle Gain 3024 Slider_THGain.Value = asc(ICSSerialPort1.Byte17) 3025 EditField_THGain.Text = str(asc(ICSSerialPort1.Byte17)) 3007 3026 End Sub 3008 3027 #tag EndMethod … … 3033 3052 3034 3053 #tag Method, Flags = &h21 3035 Private Sub updateCarScreen() 3036 //Use this method to update the car screen 3037 3038 //Update Gain 3039 Select Case ICSSerialPort1.byte03 3040 3041 Case chrb(&h32) 3042 PopupMenu_Gain.ListIndex = 0 3043 3044 Case chrb(&h64) 3045 PopupMenu_Gain.ListIndex = 1 3046 3047 Case chrb(&hFF) 3048 PopupMenu_Gain.ListIndex = 2 3049 3050 Else 3051 PopupMenu_Gain.ListIndex = 3 3052 3053 End Select 3054 3055 //Update Speed 3056 Select Case ICSSerialPort1.Byte04 3057 3058 Case chrb(&h0A) 3059 PopupMenu_Speed.ListIndex = 0 3060 3061 Case chrb(&h14) 3062 PopupMenu_Speed.ListIndex = 1 3063 3064 Case chrb(&h1E) 3065 PopupMenu_Speed.ListIndex = 2 3066 3067 Case chrb(&h28) 3068 PopupMenu_Speed.ListIndex = 3 3069 3070 Case chrb(&hFF) 3071 PopupMenu_Speed.ListIndex = 4 3072 3073 Else 3074 PopupMenu_Speed.ListIndex = 5 3075 3076 End Select 3077 3078 //Update punch 3079 Slider_Punch.Value = asc(ICSSerialPort1.Byte05) 3080 EditField_Punch.Text = str(asc(ICSSerialPort1.Byte05)) 3081 3082 //Update DBAND 3083 Select Case ICSSerialPort1.Byte06 3084 3085 Case chrb(&h01) 3086 PopupMenu_DBand.ListIndex = 0 3087 3088 Case chrb(&h02) 3089 PopupMenu_DBand.ListIndex = 1 3090 3091 Case chrb(&h03) 3092 PopupMenu_DBand.ListIndex = 2 3093 3094 Else 3095 PopupMenu_DBand.ListIndex = 3 3096 3097 End Select 3098 3099 //Update Dump 3100 Select Case ICSSerialPort1.Byte07 3101 3102 Case chrb(&h01) 3103 PopupMenu_Dump.ListIndex = 0 3104 3105 Case chrb(&h02) 3106 PopupMenu_Dump.ListIndex = 1 3107 3108 Else 3109 PopupMenu_Dump.ListIndex = 2 3110 3111 End Select 3112 3113 //Update DFREQ 3114 Select Case ICSSerialPort1.Byte08 3115 3116 Case chrb(&h40) 3117 PopupMenu_DFreq.ListIndex = 0 3118 3119 Case chrb(&h78) 3120 PopupMenu_DFreq.ListIndex = 1 3121 3122 Case chrb(&hFF) 3123 PopupMenu_DFreq.ListIndex = 2 3124 3125 Else 3126 PopupMenu_DFreq.ListIndex = 3 3127 3128 End Select 3129 3130 //Update Nuetral 3131 //Nuetral is defined by 2 bytes 3132 Select Case ICSSerialPort1.Byte11 3133 3134 Case chrb(&h82) 3135 if ICSSerialPort1.Byte12 = chrb(&h7C) then 3136 PopupMenu_Nuetral.ListIndex = 0 3137 else 3138 PopupMenu_Nuetral.ListIndex = 3 3054 Private Sub readPreferences() 3055 dim filePreference as FolderItem = GetFolderItem("icspref.xml") 3056 dim xdoc as XmlDocument 3057 dim root as XmlNode 3058 dim i as Integer 3059 dim count as integer 3060 dim item as string 3061 3062 //Read the settings from the preferences file 3063 if filePreference <> Nil then 3064 if filePreference.Exists then 3065 xdoc = New XmlDocument(filePreference) 3066 3067 count = xdoc.DocumentElement.ChildCount 3068 3069 for i = 0 to count - 1 3070 root = xdoc.DocumentElement.Child(i) 3071 3072 item = root.FirstChild.Value 3073 3074 select case root.Name 3075 case "comPort" 3076 comPort = item 3077 end select 3078 next 3139 3079 end if 3140 3141 Case chrb(&h88) 3142 if ICSSerialPort1.Byte12 = chrb(&h78) then 3143 PopupMenu_Nuetral.ListIndex = 1 3144 else 3145 PopupMenu_Nuetral.ListIndex = 3 3146 end if 3147 3148 Case chrb(&h94) 3149 if ICSSerialPort1.Byte12 = chrb(&h6C) then 3150 PopupMenu_Nuetral.ListIndex = 2 3151 else 3152 PopupMenu_Nuetral.ListIndex = 3 3153 end if 3154 3155 Else 3156 PopupMenu_Nuetral.ListIndex = 3 3157 3158 End Select 3159 3160 //Update Vertial Intertia 3161 Select Case ICSSerialPort1.Byte13 3162 3163 Case chrb(&h01) 3164 PopupMenu_VerticalInteria.ListIndex = 0 3165 3166 Case chrb(&h02) 3167 PopupMenu_VerticalInteria.ListIndex = 1 3168 3169 Case chrb(&h03) 3170 PopupMenu_VerticalInteria.ListIndex = 2 3171 3172 Case chrb(&h04) 3173 PopupMenu_VerticalInteria.ListIndex = 3 3174 3175 Case chrb(&hFF) 3176 PopupMenu_VerticalInteria.ListIndex = 4 3177 3178 Else 3179 PopupMenu_VerticalInteria.ListIndex = 5 3180 3181 End Select 3182 3183 //Update Back Timing 3184 Select Case ICSSerialPort1.Byte15 3185 3186 Case chrb(&h01) 3187 PopupMenu_BackTiming.ListIndex = 0 3188 3189 Case chrb(&h05) 3190 PopupMenu_BackTiming.ListIndex = 1 3191 3192 Case chrb(&h0A) 3193 PopupMenu_BackTiming.ListIndex = 2 3194 3195 Case chrb(&h14) 3196 PopupMenu_BackTiming.ListIndex = 3 3197 3198 Case chrb(&h28) 3199 PopupMenu_BackTiming.ListIndex = 4 3200 3201 Else 3202 PopupMenu_BackTiming.ListIndex = 5 3203 3204 End Select 3205 3206 //Update Steering Gain 3207 Slider_STGain.Value = asc(ICSSerialPort1.Byte16) 3208 EditField_STGain.Text = str(asc(ICSSerialPort1.Byte16)) 3209 3210 //Update Throttle Gain 3211 Slider_THGain.Value = asc(ICSSerialPort1.Byte17) 3212 EditField_THGain.Text = str(asc(ICSSerialPort1.Byte17)) 3080 end if 3081 3082 3213 3083 End Sub 3214 3084 #tag EndMethod 3215 3085 3216 3217 #tag Note, Name = License 3218 Copyright 2010 Jeremy Auten 3219 3220 This file is part of Flip Side ICS Software. 3221 3222 Flip Side ICS Software is free software: you can redistribute it and/or modify 3223 it under the terms of the GNU General Public License as published by 3224 the Free Software Foundation, either version 3 of the License, or 3225 (at your option) any later version. 3226 3227 Flip Side ICS Software is distributed in the hope that it will be useful, 3228 but WITHOUT ANY WARRANTY; without even the implied warranty of 3229 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 3230 GNU General Public License for more details. 3231 3232 You should have received a copy of the GNU General Public License 3233 along with Flip Side ICS Software. If not, see <http://www.gnu.org/licenses/>. 3234 #tag EndNote 3086 #tag Method, Flags = &h21 3087 Private Sub savePreferences() 3088 dim xml as XmlDocument 3089 dim root as XMLNode 3090 dim comPortXML as XmlNode 3091 dim f as FolderItem 3092 3093 //Save the preferences 3094 3095 f = GetFolderItem("icspref.xml") 3096 3097 if f <> Nil then 3098 //Create a new XML document 3099 xml = New XmlDocument 3100 root = xml.AppendChild(xml.CreateElement("icspref")) 3101 3102 //Add elements 3103 comPortXML = root.AppendChild(xml.CreateElement("comPort")) 3104 comPortXML.AppendChild(xml.CreateTextNode(comPort)) 3105 3106 //Save the output 3107 xml.SaveXml(f) 3108 end if 3109 3110 End Sub 3111 #tag EndMethod 3235 3112 3236 3113 … … 3263 3140 #tag EndEvent 3264 3141 #tag EndEvents 3142 #tag Events PushButton_Reset 3143 #tag Event 3144 Sub Action() 3145 ICSSerialPort1.resetCar 3146 End Sub 3147 #tag EndEvent 3148 #tag EndEvents 3265 3149 #tag Events TabPanel1 3266 3150 #tag Event … … 3271 3155 #tag EndEvent 3272 3156 #tag EndEvents 3273 #tag Events EditField_Byte9 3274 #tag Event 3275 Sub TextChange() 3276 //Make sure we have a valid value if not then set it to something 3157 #tag Events PopupMenu_SerialPort 3158 #tag Event 3159 Sub Change() 3160 //Set and open the COM Port 3161 dim i, count as integer 3162 count = System.SerialPortCount 3163 3164 if comPort <> "" then 3165 //We can try opening the com port and set the popup menu to that port 3166 3167 for i = 0 to PopupMenu_SerialPort.ListCount - 1 3168 3169 if PopupMenu_SerialPort.list(i) = me.Text then 3170 //Found a match, set and open 3171 ICSSerialPort1.SerialPort = System.SerialPort(i) 3172 ICSSerialPort1.Close 3173 3174 3175 if not ICSSerialPort1.Open then 3176 //Could not open 3177 MsgBox "Error opening defined com port" 3178 end if 3179 //Save and exit 3180 comPort = me.Text 3181 savePreferences 3182 exit 3183 end if 3184 3185 next 3186 3187 end if 3188 End Sub 3189 #tag EndEvent 3190 #tag EndEvents 3191 #tag Events PopupMenu_Profile 3192 #tag Event 3193 Sub Change() 3277 3194 if me.Text <> "" then 3278 if val(me.Text) > 255 or val(me.Text) < 0 then3279 me.Text = "255"3280 end if3195 PushButton_SaveProfile.Visible = true 3196 PushButton_Delete.Visible = true 3197 ICSSerialPort1.loadProfile(me.Text) 3281 3198 end if 3282 3283 dim d as double 3199 End Sub 3200 #tag EndEvent 3201 #tag Event 3202 Sub Open() 3203 dim s() as string 3284 3204 dim i as integer 3285 d = val(me.Text) 3286 i = d 3287 ICSSerialPort1.Byte09 = chrb(i) 3288 End Sub 3289 #tag EndEvent 3290 #tag EndEvents 3291 #tag Events EditField_Byte8 3292 #tag Event 3293 Sub TextChange() 3294 //Make sure we have a valid value if not then set it to something 3295 if me.Text <> "" then 3296 if val(me.Text) > 255 or val(me.Text) < 0 then 3297 me.Text = "255" 3298 end if 3205 3206 s = ICSSerialPort1.listProfiles 3207 3208 if UBound(s) > -1 then 3209 for each element as string in s 3210 me.AddRow(element) 3211 next 3299 3212 end if 3300 3301 dim d as double 3302 dim i as integer 3303 d = val(me.Text) 3304 i = d 3305 ICSSerialPort1.Byte08 = chrb(i) 3306 End Sub 3307 #tag EndEvent 3308 #tag EndEvents 3309 #tag Events EditField_Byte7 3310 #tag Event 3311 Sub TextChange() 3312 //Make sure we have a valid value if not then set it to something 3313 if me.Text <> "" then 3314 if val(me.Text) > 255 or val(me.Text) < 0 then 3315 me.Text = "255" 3316 end if 3317 end if 3318 3319 dim d as double 3320 dim i as integer 3321 d = val(me.Text) 3322 i = d 3323 ICSSerialPort1.Byte07 = chrb(i) 3324 End Sub 3325 #tag EndEvent 3326 #tag EndEvents 3327 #tag Events EditField_Byte6 3328 #tag Event 3329 Sub TextChange() 3330 //Make sure we have a valid value if not then set it to something 3331 if me.Text <> "" then 3332 if val(me.Text) > 255 or val(me.Text) < 0 then 3333 me.Text = "255" 3334 end if 3335 end if 3336 3337 dim d as double 3338 dim i as integer 3339 d = val(me.Text) 3340 i = d 3341 ICSSerialPort1.Byte06 = chrb(i) 3342 End Sub 3343 #tag EndEvent 3344 #tag EndEvents 3345 #tag Events EditField_Byte5 3346 #tag Event 3347 Sub TextChange() 3348 //Make sure we have a valid value if not then set it to something 3349 if me.Text <> "" then 3350 if val(me.Text) > 255 or val(me.Text) < 0 then 3351 me.Text = "255" 3352 end if 3353 end if 3354 3355 dim d as double 3356 dim i as integer 3357 d = val(me.Text) 3358 i = d 3359 ICSSerialPort1.Byte05 = chrb(i) 3360 End Sub 3361 #tag EndEvent 3362 #tag EndEvents 3363 #tag Events EditField_Byte4 3364 #tag Event 3365 Sub TextChange() 3366 //Make sure we have a valid value if not then set it to something 3367 if me.Text <> "" then 3368 if val(me.Text) > 255 or val(me.Text) < 0 then 3369 me.Text = "255" 3370 end if 3371 end if 3372 3373 dim d as double 3374 dim i as integer 3375 d = val(me.Text) 3376 i = d 3377 ICSSerialPort1.Byte04 = chrb(i) 3378 End Sub 3379 #tag EndEvent 3380 #tag EndEvents 3381 #tag Events EditField_Byte3 3382 #tag Event 3383 Sub TextChange() 3384 //Make sure we have a valid value if not then set it to something 3385 if me.Text <> "" then 3386 if val(me.Text) > 255 or val(me.Text) < 0 then 3387 me.Text = "255" 3388 end if 3389 end if 3390 3391 dim d as double 3392 dim i as integer 3393 d = val(me.Text) 3394 i = d 3395 ICSSerialPort1.Byte03 = chrb(i) 3213 End Sub 3214 #tag EndEvent 3215 #tag EndEvents 3216 #tag Events PushButton_Create 3217 #tag Event 3218 Sub Action() 3219 dim tempProfWindow as new createProfile 3220 tempProfWindow.Show 3221 End Sub 3222 #tag EndEvent 3223 #tag EndEvents 3224 #tag Events PushButton_Delete 3225 #tag Event 3226 Sub Action() 3227 ICSSerialPort1.deleteProfile(PopupMenu_Profile.Text) 3396 3228 End Sub 3397 3229 #tag EndEvent … … 3437 3269 ICSSerialPort1.Byte16 = chrb(me.Value) 3438 3270 //Check to see if we need to update the edit field 3439 //This prevents the edit field from triggering this event that then updates the edit field again 3271 //This prevents the edit field from triggering this event that then updates the edit field again 3440 3272 //Causing the cursor to move to the begginning of the editfield 3441 3273 if EditField_STGain.Text <> str(me.Value) then … … 3662 3494 Sub Change() 3663 3495 ICSSerialPort1.setCarType(me.Text) 3664 ICSSerialPort1.setDefaultValues3665 3496 disableControls 3666 3497 … … 3668 3499 #tag EndEvent 3669 3500 #tag EndEvents 3670 #tag Events EditField_Byte1 23501 #tag Events EditField_Byte17 3671 3502 #tag Event 3672 3503 Sub TextChange() … … 3682 3513 d = val(me.Text) 3683 3514 i = d 3684 ICSSerialPort1.Byte1 2= chrb(i)3685 End Sub 3686 #tag EndEvent 3687 #tag EndEvents 3688 #tag Events EditField_Byte1 13515 ICSSerialPort1.Byte17 = chrb(i) 3516 End Sub 3517 #tag EndEvent 3518 #tag EndEvents 3519 #tag Events EditField_Byte16 3689 3520 #tag Event 3690 3521 Sub TextChange() … … 3700 3531 d = val(me.Text) 3701 3532 i = d 3702 ICSSerialPort1.Byte1 1= chrb(i)3703 End Sub 3704 #tag EndEvent 3705 #tag EndEvents 3706 #tag Events EditField_Byte1 03533 ICSSerialPort1.Byte16 = chrb(i) 3534 End Sub 3535 #tag EndEvent 3536 #tag EndEvents 3537 #tag Events EditField_Byte15 3707 3538 #tag Event 3708 3539 Sub TextChange() … … 3718 3549 d = val(me.Text) 3719 3550 i = d 3720 ICSSerialPort1.Byte1 0= chrb(i)3721 End Sub 3722 #tag EndEvent 3723 #tag EndEvents 3724 #tag Events EditField_Byte1 73551 ICSSerialPort1.Byte15 = chrb(i) 3552 End Sub 3553 #tag EndEvent 3554 #tag EndEvents 3555 #tag Events EditField_Byte14 3725 3556 #tag Event 3726 3557 Sub TextChange() … … 3736 3567 d = val(me.Text) 3737 3568 i = d 3738 ICSSerialPort1.Byte1 7= chrb(i)3739 End Sub 3740 #tag EndEvent 3741 #tag EndEvents 3742 #tag Events EditField_Byte1 63569 ICSSerialPort1.Byte14 = chrb(i) 3570 End Sub 3571 #tag EndEvent 3572 #tag EndEvents 3573 #tag Events EditField_Byte13 3743 3574 #tag Event 3744 3575 Sub TextChange() … … 3754 3585 d = val(me.Text) 3755 3586 i = d 3756 ICSSerialPort1.Byte1 6= chrb(i)3757 End Sub 3758 #tag EndEvent 3759 #tag EndEvents 3760 #tag Events EditField_Byte1 53587 ICSSerialPort1.Byte13 = chrb(i) 3588 End Sub 3589 #tag EndEvent 3590 #tag EndEvents 3591 #tag Events EditField_Byte12 3761 3592 #tag Event 3762 3593 Sub TextChange() … … 3772 3603 d = val(me.Text) 3773 3604 i = d 3774 ICSSerialPort1.Byte1 5= chrb(i)3775 End Sub 3776 #tag EndEvent 3777 #tag EndEvents 3778 #tag Events EditField_Byte1 43605 ICSSerialPort1.Byte12 = chrb(i) 3606 End Sub 3607 #tag EndEvent 3608 #tag EndEvents 3609 #tag Events EditField_Byte11 3779 3610 #tag Event 3780 3611 Sub TextChange() … … 3790 3621 d = val(me.Text) 3791 3622 i = d 3792 ICSSerialPort1.Byte1 4= chrb(i)3793 End Sub 3794 #tag EndEvent 3795 #tag EndEvents 3796 #tag Events EditField_Byte1 33623 ICSSerialPort1.Byte11 = chrb(i) 3624 End Sub 3625 #tag EndEvent 3626 #tag EndEvents 3627 #tag Events EditField_Byte10 3797 3628 #tag Event 3798 3629 Sub TextChange() … … 3808 3639 d = val(me.Text) 3809 3640 i = d 3810 ICSSerialPort1.Byte13 = chrb(i) 3641 ICSSerialPort1.Byte10 = chrb(i) 3642 End Sub 3643 #tag EndEvent 3644 #tag EndEvents 3645 #tag Events EditField_Byte9 3646 #tag Event 3647 Sub TextChange() 3648 //Make sure we have a valid value if not then set it to something 3649 if me.Text <> "" then 3650 if val(me.Text) > 255 or val(me.Text) < 0 then 3651 me.Text = "255" 3652 end if 3653 end if 3654 3655 dim d as double 3656 dim i as integer 3657 d = val(me.Text) 3658 i = d 3659 ICSSerialPort1.Byte09 = chrb(i) 3660 End Sub 3661 #tag EndEvent 3662 #tag EndEvents 3663 #tag Events EditField_Byte8 3664 #tag Event 3665 Sub TextChange() 3666 //Make sure we have a valid value if not then set it to something 3667 if me.Text <> "" then 3668 if val(me.Text) > 255 or val(me.Text) < 0 then 3669 me.Text = "255" 3670 end if 3671 end if 3672 3673 dim d as double 3674 dim i as integer 3675 d = val(me.Text) 3676 i = d 3677 ICSSerialPort1.Byte08 = chrb(i) 3678 End Sub 3679 #tag EndEvent 3680 #tag EndEvents 3681 #tag Events EditField_Byte7 3682 #tag Event 3683 Sub TextChange() 3684 //Make sure we have a valid value if not then set it to something 3685 if me.Text <> "" then 3686 if val(me.Text) > 255 or val(me.Text) < 0 then 3687 me.Text = "255" 3688 end if 3689 end if 3690 3691 dim d as double 3692 dim i as integer 3693 d = val(me.Text) 3694 i = d 3695 ICSSerialPort1.Byte07 = chrb(i) 3696 End Sub 3697 #tag EndEvent 3698 #tag EndEvents 3699 #tag Events EditField_Byte6 3700 #tag Event 3701 Sub TextChange() 3702 //Make sure we have a valid value if not then set it to something 3703 if me.Text <> "" then 3704 if val(me.Text) > 255 or val(me.Text) < 0 then 3705 me.Text = "255" 3706 end if 3707 end if 3708 3709 dim d as double 3710 dim i as integer 3711 d = val(me.Text) 3712 i = d 3713 ICSSerialPort1.Byte06 = chrb(i) 3714 End Sub 3715 #tag EndEvent 3716 #tag EndEvents 3717 #tag Events EditField_Byte5 3718 #tag Event 3719 Sub TextChange() 3720 //Make sure we have a valid value if not then set it to something 3721 if me.Text <> "" then 3722 if val(me.Text) > 255 or val(me.Text) < 0 then 3723 me.Text = "255" 3724 end if 3725 end if 3726 3727 dim d as double 3728 dim i as integer 3729 d = val(me.Text) 3730 i = d 3731 ICSSerialPort1.Byte05 = chrb(i) 3732 End Sub 3733 #tag EndEvent 3734 #tag EndEvents 3735 #tag Events EditField_Byte4 3736 #tag Event 3737 Sub TextChange() 3738 //Make sure we have a valid value if not then set it to something 3739 if me.Text <> "" then 3740 if val(me.Text) > 255 or val(me.Text) < 0 then 3741 me.Text = "255" 3742 end if 3743 end if 3744 3745 dim d as double 3746 dim i as integer 3747 d = val(me.Text) 3748 i = d 3749 ICSSerialPort1.Byte04 = chrb(i) 3750 End Sub 3751 #tag EndEvent 3752 #tag EndEvents 3753 #tag Events EditField_Byte3 3754 #tag Event 3755 Sub TextChange() 3756 //Make sure we have a valid value if not then set it to something 3757 if me.Text <> "" then 3758 if val(me.Text) > 255 or val(me.Text) < 0 then 3759 me.Text = "255" 3760 end if 3761 end if 3762 3763 dim d as double 3764 dim i as integer 3765 d = val(me.Text) 3766 i = d 3767 ICSSerialPort1.Byte03 = chrb(i) 3811 3768 End Sub 3812 3769 #tag EndEvent … … 3820 3777 End Sub 3821 3778 #tag EndEvent 3822 #tag Event3823 Sub profileImported(profileName as string)3824 PopupMenu_Profile.AddRow(profileName)3825 3826 //Make sure to switch to the new profile3827 PopupMenu_Profile.ListIndex = PopupMenu_Profile.ListCount3828 3829 //Update the screens with the new values3830 updateAdvancedScreen3831 updateCarScreen3832 End Sub3833 #tag EndEvent3834 3779 #tag EndEvents 3835 3780 #tag Events PushButton_Default … … 3840 3785 #tag EndEvent 3841 3786 #tag EndEvents 3842 #tag Events PopupMenu_SerialPort3843 #tag Event3844 Sub Change()3845 //Set and open the COM Port3846 dim i, count as integer3847 count = System.SerialPortCount3848 3849 if PopupMenu_SerialPort.Text <> "" then3850 //We can try opening the com port and set the popup menu to that port3851 3852 for i = 0 to PopupMenu_SerialPort.ListCount - 13853 3854 if PopupMenu_SerialPort.list(i) = me.Text then3855 //Found a match, set and open3856 ICSSerialPort1.SerialPort = System.SerialPort(i)3857 ICSSerialPort1.Close3858 3859 3860 if not ICSSerialPort1.Open then3861 //Could not open3862 MsgBox "Error opening defined com port"3863 //Disable buttons3864 PushButton_Read.Enabled = False3865 PushButton_Write.Enabled = False3866 PushButton_Reset.Enabled = False3867 else3868 //Enable buttons3869 PushButton_Read.Enabled = True3870 PushButton_Write.Enabled = True3871 PushButton_Reset.Enabled = True3872 3873 end if3874 //Save and exit3875 comPort = me.Text3876 savePreferences3877 exit3878 end if3879 3880 next3881 3882 end if3883 End Sub3884 #tag EndEvent3885 #tag EndEvents3886 #tag Events PopupMenu_Profile3887 #tag Event3888 Sub Change()3889 if me.Text <> "" then3890 PushButton_SaveProfile.Enabled = true3891 PushButton_Delete.Enabled = true3892 PushButton_Export.Enabled = true3893 ICSSerialPort1.loadProfile(me.Text)3894 end if3895 End Sub3896 #tag EndEvent3897 #tag Event3898 Sub Open()3899 dim s() as string3900 3901 s = ICSSerialPort1.listProfiles3902 3903 if UBound(s) > -1 then3904 for each element as string in s3905 me.AddRow(element)3906 next3907 end if3908 End Sub3909 #tag EndEvent3910 #tag EndEvents3911 3787 #tag Events PushButton_SaveProfile 3912 3788 #tag Event 3913 3789 Sub Action() 3914 if PopupMenu_Profile.Text <> "" then 3915 ICSSerialPort1.saveProfile(PopupMenu_Profile.Text) 3916 end if 3917 End Sub 3918 #tag EndEvent 3919 #tag EndEvents 3920 #tag Events PushButton_Delete 3921 #tag Event 3922 Sub Action() 3923 if PopupMenu_Profile.Text <> "" then 3924 ICSSerialPort1.deleteProfile(PopupMenu_Profile.Text) 3925 3926 PopupMenu_Profile.RemoveRow(PopupMenu_Profile.ListIndex) 3927 3928 //Make sure to hide the save and delete profile buttons since no profile will be selected after this has been deleted 3929 PushButton_SaveProfile.Enabled = False 3930 PushButton_Delete.Enabled = False 3931 PushButton_Export.Enabled = False 3932 3933 end if 3934 End Sub 3935 #tag EndEvent 3936 #tag EndEvents 3937 #tag Events PushButton_Create 3938 #tag Event 3939 Sub Action() 3940 dim tempProfWindow as new createProfile 3941 tempProfWindow.Show 3942 End Sub 3943 #tag EndEvent 3944 #tag EndEvents 3945 #tag Events PushButton_Import 3946 #tag Event 3947 Sub Action() 3948 dim success as Boolean 3949 3950 success = ICSSerialPort1.importProfile 3951 3952 if success = false then 3953 MsgBox "Error importing profile" 3954 end if 3955 End Sub 3956 #tag EndEvent 3957 #tag EndEvents 3958 #tag Events PushButton_Export 3959 #tag Event 3960 Sub Action() 3961 if PopupMenu_Profile.Text <> "" then 3962 ICSSerialPort1.exportProfile(PopupMenu_Profile.Text) 3963 end if 3964 End Sub 3965 #tag EndEvent 3966 #tag EndEvents 3790 ICSSerialPort1.saveProfile(PopupMenu_Profile.Text) 3791 End Sub 3792 #tag EndEvent 3793 #tag EndEvents -
/trunk/desktop/FlipSideICS.rbbas
r28 r8 2 2 Protected Class FlipSideICS 3 3 Inherits Application 4 #tag Note, Name = License5 Copyright 2010 Jeremy Auten6 7 This file is part of Flip Side ICS Software.8 9 Flip Side ICS Software is free software: you can redistribute it and/or modify10 it under the terms of the GNU General Public License as published by11 the Free Software Foundation, either version 3 of the License, or12 (at your option) any later version.13 14 Flip Side ICS Software is distributed in the hope that it will be useful,15 but WITHOUT ANY WARRANTY; without even the implied warranty of16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the17 GNU General Public License for more details.18 19 You should have received a copy of the GNU General Public License20 along with Flip Side ICS Software. If not, see <http://www.gnu.org/licenses/>.21 22 #tag EndNote23 24 25 4 #tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public 26 5 #Tag Instance, Platform = Mac OS, Language = Default, Definition = \"Cmd+Q"
Note: See TracChangeset
for help on using the changeset viewer.