- Location:
- /trunk/desktop
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
/trunk/desktop/ICSSerialPort.rbbas
r20 r30 2 2 Protected Class ICSSerialPort 3 3 Inherits serial 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) 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() 80 53 81 54 else 82 //default thing to do 83 MsgBox "Error invalid car type" 84 return 55 56 //We do not care about the data, discard it 57 buffer = "" 58 85 59 end select 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 60 End Sub 61 #tag EndEvent 62 137 63 138 64 #tag Method, Flags = &h0 … … 160 86 161 87 byte18 = chrb(i) 162 End Sub163 #tag EndMethod164 165 #tag Method, Flags = &h0166 Sub readCar()167 //Read values from the currently attached car168 169 mode = "read"170 88 End Sub 171 89 #tag EndMethod … … 209 127 carType = "MR-03" 210 128 End Sub 211 #tag EndMethod212 213 #tag Method, Flags = &h21214 Private Function prepareDB() As Boolean215 //Open the database file216 fsicsdb = new REALSQLDatabase217 dim f as FolderItem = GetFolderItem("fsicsdb")218 fsicsdb.DatabaseFile = f219 220 return f.Exists221 End Function222 129 #tag EndMethod 223 130 … … 327 234 328 235 #tag Method, Flags = &h0 329 Sub saveProfile(theName as String) 236 Sub exportProfile(theName as string) 237 dim xml as XmlDocument 238 dim root as XmlNode 239 dim rootchild as XmlNode 330 240 dim rs as RecordSet 331 dim status as Boolean 332 333 //Find a record 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 261 end if 262 263 //Find the record 334 264 rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'") 335 265 336 //Make sure we got a record 337 if rs <> nil then 338 //delete the record before saving 339 deleteProfile(theName) 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 340 287 end if 341 288 342 rs.Close 343 344 status = createProfile(theName) 345 End Sub 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 346 456 #tag EndMethod 347 457 … … 442 552 #tag EndMethod 443 553 554 #tag Method, Flags = &h21 555 Private Function prepareDB() As Boolean 556 //Open the database file 557 fsicsdb = new REALSQLDatabase 558 dim f as FolderItem = GetFolderItem("fsicsdb") 559 fsicsdb.DatabaseFile = f 560 561 return f.Exists 562 End Function 563 #tag EndMethod 564 565 #tag Method, Flags = &h0 566 Sub readCar() 567 //Read values from the currently attached car 568 dim sendstring as string 569 570 mode = "read" 571 572 sendstring = chrb(&hC5) 573 574 me.Write(sendstring) 575 End Sub 576 #tag EndMethod 577 578 #tag Method, Flags = &h0 579 Sub resetCar() 580 //This sends the command to reset the car back to a default configuration 581 //Defaults are different for each car type 582 setDefaultValues 583 584 //Send the default values to the car 585 writeCar 586 End Sub 587 #tag EndMethod 588 589 #tag Method, Flags = &h0 590 Sub saveProfile(theName as String) 591 if theName <> "" then 592 593 dim rs as RecordSet 594 dim status as Boolean 595 596 //Find a record 597 rs = fsicsdb.SQLSelect("SELECT * FROM carprofiles WHERE name= '"+theName+"'") 598 599 //Make sure we got a record 600 if rs <> nil then 601 //delete the record before saving 602 deleteProfile(theName) 603 end if 604 605 rs.Close 606 607 status = createProfile(theName) 608 609 else 610 611 MsgBox "Please select a profile to modify" 612 613 end if 614 End Sub 615 #tag EndMethod 616 617 #tag Method, Flags = &h0 618 Sub setCarType(value as string) 619 //When setting car type we must reconfigure the serial port 620 //Some car types have a different baud rate 621 622 select case value 623 624 case "MR-03" 625 carType = value 626 byte15 = chrb(&h05) 627 byte16 = chrb(&h5A) 628 byte17 = chrb(&h3C) 629 case "dNaNo" 630 carType = value 631 byte15 = chrb(&hFF) 632 byte16 = chrb(&h80) 633 byte17 = chrb(&h80) 634 case "ASF" 635 carType = value 636 byte15 = chrb(&hFF) 637 byte16 = chrb(&hFF) 638 byte17 = chrb(&hFF) 639 640 else 641 MsgBox "Error setting Car Type" 642 end select 643 644 valuesChanged() 645 End Sub 646 #tag EndMethod 647 648 #tag Method, Flags = &h0 649 Sub setDefaultValues() 650 //Set the defaults for the bytes sent to a car 651 652 select case carType 653 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 else 715 //default thing to do 716 MsgBox "Error invalid car type" 717 return 718 end select 719 720 //trigger the event definition so main program knows the values changed 721 valuesChanged() 722 End Sub 723 #tag EndMethod 724 725 #tag Method, Flags = &h0 726 Sub writeCar() 727 //Send set bytes to the car 728 mode = "write" 729 730 dim sendstring as string 731 732 calculateChecksum() 733 734 sendstring = byte01 + byte02 + byte03 + byte04 + byte05 + byte06 + byte07 + byte08 + byte09 + byte10 + byte11 + byte12 + byte13 + byte14 + byte15 + byte16 + byte17 + byte18 735 736 me.Write(sendstring) 737 End Sub 738 #tag EndMethod 739 740 741 #tag Hook, Flags = &h0 742 Event profileImported(profileName as string) 743 #tag EndHook 444 744 445 745 #tag Hook, Flags = &h0 … … 456 756 #tag EndNote 457 757 758 #tag Note, Name = License 759 Copyright 2010 Jeremy Auten 760 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 modify 764 it under the terms of the GNU General Public License as published by 765 the Free Software Foundation, either version 3 of the License, or 766 (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 of 770 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 771 GNU General Public License for more details. 772 773 You should have received a copy of the GNU General Public License 774 along with Flip Side ICS Software. If not, see <http://www.gnu.org/licenses/>. 775 #tag EndNote 776 777 778 #tag Property, Flags = &h21 779 Private buffer As String 780 #tag EndProperty 458 781 459 782 #tag Property, Flags = &h0 … … 462 785 463 786 #tag Property, Flags = &h0 787 byte02 As String 788 #tag EndProperty 789 790 #tag Property, Flags = &h0 791 byte03 As String 792 #tag EndProperty 793 794 #tag Property, Flags = &h0 795 byte04 As String 796 #tag EndProperty 797 798 #tag Property, Flags = &h0 799 byte05 As String 800 #tag EndProperty 801 802 #tag Property, Flags = &h0 803 byte06 As String 804 #tag EndProperty 805 806 #tag Property, Flags = &h0 807 byte07 As String 808 #tag EndProperty 809 810 #tag Property, Flags = &h0 811 byte08 As String 812 #tag EndProperty 813 814 #tag Property, Flags = &h0 815 byte09 As String 816 #tag EndProperty 817 818 #tag Property, Flags = &h0 819 byte10 As String 820 #tag EndProperty 821 822 #tag Property, Flags = &h0 464 823 byte11 As String 465 824 #tag EndProperty … … 493 852 #tag EndProperty 494 853 495 #tag Property, Flags = &h0 496 byte02 As String 497 #tag EndProperty 498 499 #tag Property, Flags = &h0 500 byte03 As String 501 #tag EndProperty 502 503 #tag Property, Flags = &h0 504 byte04 As String 505 #tag EndProperty 506 507 #tag Property, Flags = &h0 508 byte05 As String 509 #tag EndProperty 510 511 #tag Property, Flags = &h0 512 byte06 As String 513 #tag EndProperty 514 515 #tag Property, Flags = &h0 516 byte07 As String 517 #tag EndProperty 518 519 #tag Property, Flags = &h0 520 byte08 As String 521 #tag EndProperty 522 523 #tag Property, Flags = &h0 524 byte09 As String 525 #tag EndProperty 526 527 #tag Property, Flags = &h0 528 byte10 As String 529 #tag EndProperty 530 531 #tag Property, Flags = &h0 532 carType As String = "MR-03" 854 #tag Property, Flags = &h21 855 Private carType As String = "MR-03" 533 856 #tag EndProperty 534 857 … … 537 860 #tag EndProperty 538 861 539 #tag Property, Flags = &h 0540 mode As String = "read"862 #tag Property, Flags = &h21 863 Private mode As String = "none" 541 864 #tag EndProperty 542 865 543 866 544 867 #tag ViewBehavior 545 #tag ViewProperty546 Name="Name"547 Visible=true548 Group="ID"549 InheritedFrom="serial"550 #tag EndViewProperty551 #tag ViewProperty552 Name="Index"553 Visible=true554 Group="ID"555 Type="Integer"556 InheritedFrom="serial"557 #tag EndViewProperty558 #tag ViewProperty559 Name="Super"560 Visible=true561 Group="ID"562 InheritedFrom="serial"563 #tag EndViewProperty564 #tag ViewProperty565 Name="Left"566 Visible=true567 Group="Position"568 InheritedFrom="serial"569 #tag EndViewProperty570 #tag ViewProperty571 Name="Top"572 Visible=true573 Group="Position"574 InheritedFrom="serial"575 #tag EndViewProperty576 868 #tag ViewProperty 577 869 Name="Baud" … … 617 909 #tag EndViewProperty 618 910 #tag ViewProperty 911 Name="byte01" 912 Group="Behavior" 913 InitialValue="&hFF" 914 Type="String" 915 EditorType="MultiLineEditor" 916 #tag EndViewProperty 917 #tag ViewProperty 918 Name="byte02" 919 Group="Behavior" 920 Type="String" 921 EditorType="MultiLineEditor" 922 #tag EndViewProperty 923 #tag ViewProperty 924 Name="byte03" 925 Group="Behavior" 926 Type="String" 927 EditorType="MultiLineEditor" 928 #tag EndViewProperty 929 #tag ViewProperty 930 Name="byte04" 931 Group="Behavior" 932 Type="String" 933 EditorType="MultiLineEditor" 934 #tag EndViewProperty 935 #tag ViewProperty 936 Name="byte05" 937 Group="Behavior" 938 Type="String" 939 EditorType="MultiLineEditor" 940 #tag EndViewProperty 941 #tag ViewProperty 942 Name="byte06" 943 Group="Behavior" 944 Type="String" 945 EditorType="MultiLineEditor" 946 #tag EndViewProperty 947 #tag ViewProperty 948 Name="byte07" 949 Group="Behavior" 950 Type="String" 951 EditorType="MultiLineEditor" 952 #tag EndViewProperty 953 #tag ViewProperty 954 Name="byte08" 955 Group="Behavior" 956 Type="String" 957 EditorType="MultiLineEditor" 958 #tag EndViewProperty 959 #tag ViewProperty 960 Name="byte09" 961 Group="Behavior" 962 Type="String" 963 EditorType="MultiLineEditor" 964 #tag EndViewProperty 965 #tag ViewProperty 966 Name="byte10" 967 Group="Behavior" 968 Type="String" 969 EditorType="MultiLineEditor" 970 #tag EndViewProperty 971 #tag ViewProperty 972 Name="byte11" 973 Group="Behavior" 974 Type="String" 975 EditorType="MultiLineEditor" 976 #tag EndViewProperty 977 #tag ViewProperty 978 Name="byte12" 979 Group="Behavior" 980 Type="String" 981 EditorType="MultiLineEditor" 982 #tag EndViewProperty 983 #tag ViewProperty 984 Name="byte13" 985 Group="Behavior" 986 Type="String" 987 EditorType="MultiLineEditor" 988 #tag EndViewProperty 989 #tag ViewProperty 990 Name="byte14" 991 Group="Behavior" 992 Type="String" 993 EditorType="MultiLineEditor" 994 #tag EndViewProperty 995 #tag ViewProperty 996 Name="byte15" 997 Group="Behavior" 998 Type="String" 999 EditorType="MultiLineEditor" 1000 #tag EndViewProperty 1001 #tag ViewProperty 1002 Name="byte16" 1003 Group="Behavior" 1004 Type="String" 1005 EditorType="MultiLineEditor" 1006 #tag EndViewProperty 1007 #tag ViewProperty 1008 Name="byte17" 1009 Group="Behavior" 1010 Type="String" 1011 EditorType="MultiLineEditor" 1012 #tag EndViewProperty 1013 #tag ViewProperty 1014 Name="byte18" 1015 Group="Behavior" 1016 Type="String" 1017 EditorType="MultiLineEditor" 1018 #tag EndViewProperty 1019 #tag ViewProperty 1020 Name="carType" 1021 Group="Behavior" 1022 InitialValue="MR-03" 1023 Type="String" 1024 EditorType="MultiLineEditor" 1025 #tag EndViewProperty 1026 #tag ViewProperty 1027 Name="CTS" 1028 Visible=true 1029 Group="Behavior" 1030 Type="Boolean" 1031 InheritedFrom="serial" 1032 #tag EndViewProperty 1033 #tag ViewProperty 1034 Name="DTR" 1035 Visible=true 1036 Group="Behavior" 1037 Type="Boolean" 1038 InheritedFrom="serial" 1039 #tag EndViewProperty 1040 #tag ViewProperty 1041 Name="Index" 1042 Visible=true 1043 Group="ID" 1044 Type="Integer" 1045 InheritedFrom="serial" 1046 #tag EndViewProperty 1047 #tag ViewProperty 1048 Name="Left" 1049 Visible=true 1050 Group="Position" 1051 InheritedFrom="serial" 1052 #tag EndViewProperty 1053 #tag ViewProperty 1054 Name="mode" 1055 Group="Behavior" 1056 InitialValue="read" 1057 Type="String" 1058 EditorType="MultiLineEditor" 1059 #tag EndViewProperty 1060 #tag ViewProperty 1061 Name="Name" 1062 Visible=true 1063 Group="ID" 1064 InheritedFrom="serial" 1065 #tag EndViewProperty 1066 #tag ViewProperty 619 1067 Name="Parity" 620 1068 Visible=true … … 645 1093 #tag EndViewProperty 646 1094 #tag ViewProperty 1095 Name="Super" 1096 Visible=true 1097 Group="ID" 1098 InheritedFrom="serial" 1099 #tag EndViewProperty 1100 #tag ViewProperty 1101 Name="Top" 1102 Visible=true 1103 Group="Position" 1104 InheritedFrom="serial" 1105 #tag EndViewProperty 1106 #tag ViewProperty 647 1107 Name="XON" 648 1108 Visible=true … … 650 1110 Type="Boolean" 651 1111 InheritedFrom="serial" 652 #tag EndViewProperty653 #tag ViewProperty654 Name="CTS"655 Visible=true656 Group="Behavior"657 Type="Boolean"658 InheritedFrom="serial"659 #tag EndViewProperty660 #tag ViewProperty661 Name="DTR"662 Visible=true663 Group="Behavior"664 Type="Boolean"665 InheritedFrom="serial"666 #tag EndViewProperty667 #tag ViewProperty668 Name="byte01"669 Group="Behavior"670 InitialValue="&hFF"671 Type="String"672 EditorType="MultiLineEditor"673 #tag EndViewProperty674 #tag ViewProperty675 Name="byte11"676 Group="Behavior"677 Type="String"678 EditorType="MultiLineEditor"679 #tag EndViewProperty680 #tag ViewProperty681 Name="byte12"682 Group="Behavior"683 Type="String"684 EditorType="MultiLineEditor"685 #tag EndViewProperty686 #tag ViewProperty687 Name="byte13"688 Group="Behavior"689 Type="String"690 EditorType="MultiLineEditor"691 #tag EndViewProperty692 #tag ViewProperty693 Name="byte14"694 Group="Behavior"695 Type="String"696 EditorType="MultiLineEditor"697 #tag EndViewProperty698 #tag ViewProperty699 Name="byte15"700 Group="Behavior"701 Type="String"702 EditorType="MultiLineEditor"703 #tag EndViewProperty704 #tag ViewProperty705 Name="byte16"706 Group="Behavior"707 Type="String"708 EditorType="MultiLineEditor"709 #tag EndViewProperty710 #tag ViewProperty711 Name="byte17"712 Group="Behavior"713 Type="String"714 EditorType="MultiLineEditor"715 #tag EndViewProperty716 #tag ViewProperty717 Name="byte18"718 Group="Behavior"719 Type="String"720 EditorType="MultiLineEditor"721 #tag EndViewProperty722 #tag ViewProperty723 Name="byte02"724 Group="Behavior"725 Type="String"726 EditorType="MultiLineEditor"727 #tag EndViewProperty728 #tag ViewProperty729 Name="byte03"730 Group="Behavior"731 Type="String"732 EditorType="MultiLineEditor"733 #tag EndViewProperty734 #tag ViewProperty735 Name="byte04"736 Group="Behavior"737 Type="String"738 EditorType="MultiLineEditor"739 #tag EndViewProperty740 #tag ViewProperty741 Name="byte05"742 Group="Behavior"743 Type="String"744 EditorType="MultiLineEditor"745 #tag EndViewProperty746 #tag ViewProperty747 Name="byte06"748 Group="Behavior"749 Type="String"750 EditorType="MultiLineEditor"751 #tag EndViewProperty752 #tag ViewProperty753 Name="byte07"754 Group="Behavior"755 Type="String"756 EditorType="MultiLineEditor"757 #tag EndViewProperty758 #tag ViewProperty759 Name="byte08"760 Group="Behavior"761 Type="String"762 EditorType="MultiLineEditor"763 #tag EndViewProperty764 #tag ViewProperty765 Name="byte09"766 Group="Behavior"767 Type="String"768 EditorType="MultiLineEditor"769 #tag EndViewProperty770 #tag ViewProperty771 Name="byte10"772 Group="Behavior"773 Type="String"774 EditorType="MultiLineEditor"775 #tag EndViewProperty776 #tag ViewProperty777 Name="carType"778 Group="Behavior"779 InitialValue="MR-03"780 Type="String"781 #tag EndViewProperty782 #tag ViewProperty783 Name="mode"784 Group="Behavior"785 InitialValue="read"786 Type="String"787 1112 #tag EndViewProperty 788 1113 #tag EndViewBehavior -
/trunk/desktop/mainWindow.rbfrm
r19 r30 8 8 FullScreen = False 9 9 HasBackColor = False 10 Height = 35210 Height = 428 11 11 ImplicitInstance= True 12 12 LiveResize = True … … 21 21 MinWidth = 64 22 22 Placement = 0 23 Resizeable = True23 Resizeable = False 24 24 Title = "Flip Side ICS" 25 25 Visible = True 26 Width = 64026 Width = 720 27 27 Begin PushButton PushButton_Read 28 28 AutoDeactivate = True … … 31 31 Caption = "Read" 32 32 Default = "" 33 Enabled = True33 Enabled = False 34 34 Height = 20 35 35 HelpTag = "" … … 37 37 InitialParent = "" 38 38 Italic = "" 39 Left = 2640 LockBottom = ""39 Left = 413 40 LockBottom = True 41 41 LockedInPosition= False 42 42 LockLeft = "" … … 49 49 TextFont = "System" 50 50 TextSize = 0 51 Top = 312 51 TextUnit = 0 52 Top = 388 52 53 Underline = "" 53 54 Visible = True … … 60 61 Caption = "Write" 61 62 Default = False 62 Enabled = True63 Enabled = False 63 64 Height = 20 64 65 HelpTag = "" … … 66 67 InitialParent = "" 67 68 Italic = "" 68 Left = 12669 LockBottom = ""69 Left = 512 70 LockBottom = True 70 71 LockedInPosition= False 71 72 LockLeft = "" … … 78 79 TextFont = "System" 79 80 TextSize = 0 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 81 TextUnit = 0 82 Top = 388 110 83 Underline = "" 111 84 Visible = True … … 116 89 Bold = "" 117 90 Enabled = True 118 Height = 26491 Height = 366 119 92 HelpTag = "" 120 93 Index = -2147483648 121 94 InitialParent = "" 122 95 Italic = "" 123 Left = 096 Left = 195 124 97 LockBottom = "" 125 98 LockedInPosition= False … … 130 103 Scope = 0 131 104 SmallTabs = False 132 TabDefinition = " Settings\rProfiles\rCar\rCustom"105 TabDefinition = "Car\rCustom" 133 106 TabIndex = 43 134 107 TabPanelIndex = 0 … … 136 109 TextFont = "System" 137 110 TextSize = 0 138 Top = 32 111 TextUnit = 0 112 Top = 0 139 113 Underline = "" 140 Value = 3114 Value = 1 141 115 Visible = True 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 116 Width = 525 1230 117 Begin EditField EditField_Byte1 1231 118 AcceptTabs = "" … … 1244 131 InitialParent = "TabPanel1" 1245 132 Italic = "" 1246 Left = 2 6133 Left = 221 1247 134 LimitText = 0 1248 135 LockBottom = "" … … 1260 147 Styled = "" 1261 148 TabIndex = 2 1262 TabPanelIndex = 4149 TabPanelIndex = 2 1263 150 TabStop = True 1264 151 Text = "" … … 1266 153 TextFont = "System" 1267 154 TextSize = 0 1268 Top = 96 155 TextUnit = 0 156 Top = 58 1269 157 Underline = "" 1270 158 UseFocusRing = True … … 1272 160 Width = 32 1273 161 End 1274 Begin EditField EditField_Byte18 162 Begin EditField EditField_Byte9 163 AcceptTabs = "" 164 Alignment = 0 165 AutoDeactivate = True 166 BackColor = &hFFFFFF 167 Bold = "" 168 Border = True 169 DataField = "" 170 DataSource = "" 171 Enabled = True 172 Format = "" 173 Height = 22 174 HelpTag = "" 175 Index = -2147483648 176 InitialParent = "TabPanel1" 177 Italic = "" 178 Left = 221 179 LimitText = 0 180 LockBottom = "" 181 LockedInPosition= False 182 LockLeft = "" 183 LockRight = "" 184 LockTop = "" 185 Mask = "###" 186 Multiline = "" 187 Password = "" 188 ReadOnly = "" 189 Scope = 0 190 ScrollbarHorizontal= "" 191 ScrollbarVertical= True 192 Styled = "" 193 TabIndex = 12 194 TabPanelIndex = 2 195 TabStop = True 196 Text = "" 197 TextColor = &h000000 198 TextFont = "System" 199 TextSize = 0 200 TextUnit = 0 201 Top = 331 202 Underline = "" 203 UseFocusRing = True 204 Visible = True 205 Width = 32 206 End 207 Begin EditField EditField_Byte8 208 AcceptTabs = "" 209 Alignment = 0 210 AutoDeactivate = True 211 BackColor = &hFFFFFF 212 Bold = "" 213 Border = True 214 DataField = "" 215 DataSource = "" 216 Enabled = True 217 Format = "" 218 Height = 22 219 HelpTag = "" 220 Index = -2147483648 221 InitialParent = "TabPanel1" 222 Italic = "" 223 Left = 221 224 LimitText = 0 225 LockBottom = "" 226 LockedInPosition= False 227 LockLeft = "" 228 LockRight = "" 229 LockTop = "" 230 Mask = "###" 231 Multiline = "" 232 Password = "" 233 ReadOnly = "" 234 Scope = 0 235 ScrollbarHorizontal= "" 236 ScrollbarVertical= True 237 Styled = "" 238 TabIndex = 13 239 TabPanelIndex = 2 240 TabStop = True 241 Text = "" 242 TextColor = &h000000 243 TextFont = "System" 244 TextSize = 0 245 TextUnit = 0 246 Top = 296 247 Underline = "" 248 UseFocusRing = True 249 Visible = True 250 Width = 32 251 End 252 Begin EditField EditField_Byte7 253 AcceptTabs = "" 254 Alignment = 0 255 AutoDeactivate = True 256 BackColor = &hFFFFFF 257 Bold = "" 258 Border = True 259 DataField = "" 260 DataSource = "" 261 Enabled = True 262 Format = "" 263 Height = 22 264 HelpTag = "" 265 Index = -2147483648 266 InitialParent = "TabPanel1" 267 Italic = "" 268 Left = 221 269 LimitText = 0 270 LockBottom = "" 271 LockedInPosition= False 272 LockLeft = "" 273 LockRight = "" 274 LockTop = "" 275 Mask = "###" 276 Multiline = "" 277 Password = "" 278 ReadOnly = "" 279 Scope = 0 280 ScrollbarHorizontal= "" 281 ScrollbarVertical= True 282 Styled = "" 283 TabIndex = 14 284 TabPanelIndex = 2 285 TabStop = True 286 Text = "" 287 TextColor = &h000000 288 TextFont = "System" 289 TextSize = 0 290 TextUnit = 0 291 Top = 262 292 Underline = "" 293 UseFocusRing = True 294 Visible = True 295 Width = 32 296 End 297 Begin EditField EditField_Byte6 298 AcceptTabs = "" 299 Alignment = 0 300 AutoDeactivate = True 301 BackColor = &hFFFFFF 302 Bold = "" 303 Border = True 304 DataField = "" 305 DataSource = "" 306 Enabled = True 307 Format = "" 308 Height = 22 309 HelpTag = "" 310 Index = -2147483648 311 InitialParent = "TabPanel1" 312 Italic = "" 313 Left = 221 314 LimitText = 0 315 LockBottom = "" 316 LockedInPosition= False 317 LockLeft = "" 318 LockRight = "" 319 LockTop = "" 320 Mask = "###" 321 Multiline = "" 322 Password = "" 323 ReadOnly = "" 324 Scope = 0 325 ScrollbarHorizontal= "" 326 ScrollbarVertical= True 327 Styled = "" 328 TabIndex = 15 329 TabPanelIndex = 2 330 TabStop = True 331 Text = "" 332 TextColor = &h000000 333 TextFont = "System" 334 TextSize = 0 335 TextUnit = 0 336 Top = 228 337 Underline = "" 338 UseFocusRing = True 339 Visible = True 340 Width = 32 341 End 342 Begin EditField EditField_Byte5 343 AcceptTabs = "" 344 Alignment = 0 345 AutoDeactivate = True 346 BackColor = &hFFFFFF 347 Bold = "" 348 Border = True 349 DataField = "" 350 DataSource = "" 351 Enabled = True 352 Format = "" 353 Height = 22 354 HelpTag = "" 355 Index = -2147483648 356 InitialParent = "TabPanel1" 357 Italic = "" 358 Left = 221 359 LimitText = 0 360 LockBottom = "" 361 LockedInPosition= False 362 LockLeft = "" 363 LockRight = "" 364 LockTop = "" 365 Mask = "###" 366 Multiline = "" 367 Password = "" 368 ReadOnly = "" 369 Scope = 0 370 ScrollbarHorizontal= "" 371 ScrollbarVertical= True 372 Styled = "" 373 TabIndex = 16 374 TabPanelIndex = 2 375 TabStop = True 376 Text = "" 377 TextColor = &h000000 378 TextFont = "System" 379 TextSize = 0 380 TextUnit = 0 381 Top = 195 382 Underline = "" 383 UseFocusRing = True 384 Visible = True 385 Width = 32 386 End 387 Begin EditField EditField_Byte4 388 AcceptTabs = "" 389 Alignment = 0 390 AutoDeactivate = True 391 BackColor = &hFFFFFF 392 Bold = "" 393 Border = True 394 DataField = "" 395 DataSource = "" 396 Enabled = True 397 Format = "" 398 Height = 22 399 HelpTag = "" 400 Index = -2147483648 401 InitialParent = "TabPanel1" 402 Italic = "" 403 Left = 221 404 LimitText = 0 405 LockBottom = "" 406 LockedInPosition= False 407 LockLeft = "" 408 LockRight = "" 409 LockTop = "" 410 Mask = "###" 411 Multiline = "" 412 Password = "" 413 ReadOnly = "" 414 Scope = 0 415 ScrollbarHorizontal= "" 416 ScrollbarVertical= True 417 Styled = "" 418 TabIndex = 17 419 TabPanelIndex = 2 420 TabStop = True 421 Text = "" 422 TextColor = &h000000 423 TextFont = "System" 424 TextSize = 0 425 TextUnit = 0 426 Top = 161 427 Underline = "" 428 UseFocusRing = True 429 Visible = True 430 Width = 32 431 End 432 Begin EditField EditField_Byte3 433 AcceptTabs = "" 434 Alignment = 0 435 AutoDeactivate = True 436 BackColor = &hFFFFFF 437 Bold = "" 438 Border = True 439 DataField = "" 440 DataSource = "" 441 Enabled = True 442 Format = "" 443 Height = 22 444 HelpTag = "" 445 Index = -2147483648 446 InitialParent = "TabPanel1" 447 Italic = "" 448 Left = 221 449 LimitText = 0 450 LockBottom = "" 451 LockedInPosition= False 452 LockLeft = "" 453 LockRight = "" 454 LockTop = "" 455 Mask = "###" 456 Multiline = "" 457 Password = "" 458 ReadOnly = "" 459 Scope = 0 460 ScrollbarHorizontal= "" 461 ScrollbarVertical= True 462 Styled = "" 463 TabIndex = 18 464 TabPanelIndex = 2 465 TabStop = True 466 Text = "" 467 TextColor = &h000000 468 TextFont = "System" 469 TextSize = 0 470 TextUnit = 0 471 Top = 126 472 Underline = "" 473 UseFocusRing = True 474 Visible = True 475 Width = 32 476 End 477 Begin EditField EditField_Byte2 1275 478 AcceptTabs = "" 1276 479 Alignment = 0 … … 1288 491 InitialParent = "TabPanel1" 1289 492 Italic = "" 1290 Left = 316493 Left = 221 1291 494 LimitText = 0 1292 495 LockBottom = "" … … 1303 506 ScrollbarVertical= True 1304 507 Styled = "" 1305 TabIndex = 31306 TabPanelIndex = 4508 TabIndex = 19 509 TabPanelIndex = 2 1307 510 TabStop = True 1308 511 Text = "" … … 1310 513 TextFont = "System" 1311 514 TextSize = 0 1312 Top = 266 515 TextUnit = 0 516 Top = 92 1313 517 Underline = "" 1314 518 UseFocusRing = True 1315 Visible = False519 Visible = True 1316 520 Width = 32 1317 521 End 1318 Begin EditField EditField_Byte17 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 1319 839 AcceptTabs = "" 1320 840 Alignment = 0 … … 1332 852 InitialParent = "TabPanel1" 1333 853 Italic = "" 1334 Left = 316 854 Left = 560 855 LimitText = 0 856 LockBottom = "" 857 LockedInPosition= False 858 LockLeft = "" 859 LockRight = "" 860 LockTop = "" 861 Mask = "###" 862 Multiline = "" 863 Password = "" 864 ReadOnly = "" 865 Scope = 0 866 ScrollbarHorizontal= "" 867 ScrollbarVertical= True 868 Styled = "" 869 TabIndex = 1 870 TabPanelIndex = 1 871 TabStop = True 872 Text = "" 873 TextColor = &h000000 874 TextFont = "System" 875 TextSize = 0 876 TextUnit = 0 877 Top = 218 878 Underline = "" 879 UseFocusRing = True 880 Visible = True 881 Width = 32 882 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 944 AcceptTabs = "" 945 Alignment = 0 946 AutoDeactivate = True 947 BackColor = &hFFFFFF 948 Bold = "" 949 Border = True 950 DataField = "" 951 DataSource = "" 952 Enabled = True 953 Format = "" 954 Height = 22 955 HelpTag = "" 956 Index = -2147483648 957 InitialParent = "TabPanel1" 958 Italic = "" 959 Left = 560 1335 960 LimitText = 0 1336 961 LockBottom = "" … … 1348 973 Styled = "" 1349 974 TabIndex = 4 1350 TabPanelIndex = 4975 TabPanelIndex = 1 1351 976 TabStop = True 1352 977 Text = "" … … 1354 979 TextFont = "System" 1355 980 TextSize = 0 1356 Top = 232 981 TextUnit = 0 982 Top = 186 1357 983 Underline = "" 1358 984 UseFocusRing = True … … 1360 986 Width = 32 1361 987 End 1362 Begin EditField EditField_Byte16 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 1363 1427 AcceptTabs = "" 1364 1428 Alignment = 0 … … 1376 1440 InitialParent = "TabPanel1" 1377 1441 Italic = "" 1378 Left = 316 1379 LimitText = 0 1380 LockBottom = "" 1381 LockedInPosition= False 1382 LockLeft = "" 1383 LockRight = "" 1384 LockTop = "" 1385 Mask = "###" 1386 Multiline = "" 1387 Password = "" 1388 ReadOnly = "" 1389 Scope = 0 1390 ScrollbarHorizontal= "" 1391 ScrollbarVertical= True 1392 Styled = "" 1393 TabIndex = 5 1394 TabPanelIndex = 4 1395 TabStop = True 1396 Text = "" 1397 TextColor = &h000000 1398 TextFont = "System" 1399 TextSize = 0 1400 Top = 198 1401 Underline = "" 1402 UseFocusRing = True 1403 Visible = True 1404 Width = 32 1405 End 1406 Begin EditField EditField_Byte15 1407 AcceptTabs = "" 1408 Alignment = 0 1409 AutoDeactivate = True 1410 BackColor = &hFFFFFF 1411 Bold = "" 1412 Border = True 1413 DataField = "" 1414 DataSource = "" 1415 Enabled = True 1416 Format = "" 1417 Height = 22 1418 HelpTag = "" 1419 Index = -2147483648 1420 InitialParent = "TabPanel1" 1421 Italic = "" 1422 Left = 316 1423 LimitText = 0 1424 LockBottom = "" 1425 LockedInPosition= False 1426 LockLeft = "" 1427 LockRight = "" 1428 LockTop = "" 1429 Mask = "###" 1430 Multiline = "" 1431 Password = "" 1432 ReadOnly = "" 1433 Scope = 0 1434 ScrollbarHorizontal= "" 1435 ScrollbarVertical= True 1436 Styled = "" 1437 TabIndex = 6 1438 TabPanelIndex = 4 1439 TabStop = True 1440 Text = "" 1441 TextColor = &h000000 1442 TextFont = "System" 1443 TextSize = 0 1444 Top = 164 1445 Underline = "" 1446 UseFocusRing = True 1447 Visible = True 1448 Width = 32 1449 End 1450 Begin EditField EditField_Byte14 1451 AcceptTabs = "" 1452 Alignment = 0 1453 AutoDeactivate = True 1454 BackColor = &hFFFFFF 1455 Bold = "" 1456 Border = True 1457 DataField = "" 1458 DataSource = "" 1459 Enabled = True 1460 Format = "" 1461 Height = 22 1462 HelpTag = "" 1463 Index = -2147483648 1464 InitialParent = "TabPanel1" 1465 Italic = "" 1466 Left = 316 1467 LimitText = 0 1468 LockBottom = "" 1469 LockedInPosition= False 1470 LockLeft = "" 1471 LockRight = "" 1472 LockTop = "" 1473 Mask = "###" 1474 Multiline = "" 1475 Password = "" 1476 ReadOnly = "" 1477 Scope = 0 1478 ScrollbarHorizontal= "" 1479 ScrollbarVertical= True 1480 Styled = "" 1481 TabIndex = 7 1482 TabPanelIndex = 4 1483 TabStop = True 1484 Text = "" 1485 TextColor = &h000000 1486 TextFont = "System" 1487 TextSize = 0 1488 Top = 130 1489 Underline = "" 1490 UseFocusRing = True 1491 Visible = True 1492 Width = 32 1493 End 1494 Begin EditField EditField_Byte13 1495 AcceptTabs = "" 1496 Alignment = 0 1497 AutoDeactivate = True 1498 BackColor = &hFFFFFF 1499 Bold = "" 1500 Border = True 1501 DataField = "" 1502 DataSource = "" 1503 Enabled = True 1504 Format = "" 1505 Height = 22 1506 HelpTag = "" 1507 Index = -2147483648 1508 InitialParent = "TabPanel1" 1509 Italic = "" 1510 Left = 316 1511 LimitText = 0 1512 LockBottom = "" 1513 LockedInPosition= False 1514 LockLeft = "" 1515 LockRight = "" 1516 LockTop = "" 1517 Mask = "###" 1518 Multiline = "" 1519 Password = "" 1520 ReadOnly = "" 1521 Scope = 0 1522 ScrollbarHorizontal= "" 1523 ScrollbarVertical= True 1524 Styled = "" 1525 TabIndex = 8 1526 TabPanelIndex = 4 1527 TabStop = True 1528 Text = "" 1529 TextColor = &h000000 1530 TextFont = "System" 1531 TextSize = 0 1532 Top = 95 1533 Underline = "" 1534 UseFocusRing = True 1535 Visible = True 1536 Width = 32 1537 End 1538 Begin EditField EditField_Byte12 1539 AcceptTabs = "" 1540 Alignment = 0 1541 AutoDeactivate = True 1542 BackColor = &hFFFFFF 1543 Bold = "" 1544 Border = True 1545 DataField = "" 1546 DataSource = "" 1547 Enabled = True 1548 Format = "" 1549 Height = 22 1550 HelpTag = "" 1551 Index = -2147483648 1552 InitialParent = "TabPanel1" 1553 Italic = "" 1554 Left = 154 1555 LimitText = 0 1556 LockBottom = "" 1557 LockedInPosition= False 1558 LockLeft = "" 1559 LockRight = "" 1560 LockTop = "" 1561 Mask = "###" 1562 Multiline = "" 1563 Password = "" 1564 ReadOnly = "" 1565 Scope = 0 1566 ScrollbarHorizontal= "" 1567 ScrollbarVertical= True 1568 Styled = "" 1569 TabIndex = 9 1570 TabPanelIndex = 4 1571 TabStop = True 1572 Text = "" 1573 TextColor = &h000000 1574 TextFont = "System" 1575 TextSize = 0 1576 Top = 266 1577 Underline = "" 1578 UseFocusRing = True 1579 Visible = True 1580 Width = 32 1581 End 1582 Begin EditField EditField_Byte11 1583 AcceptTabs = "" 1584 Alignment = 0 1585 AutoDeactivate = True 1586 BackColor = &hFFFFFF 1587 Bold = "" 1588 Border = True 1589 DataField = "" 1590 DataSource = "" 1591 Enabled = True 1592 Format = "" 1593 Height = 22 1594 HelpTag = "" 1595 Index = -2147483648 1596 InitialParent = "TabPanel1" 1597 Italic = "" 1598 Left = 154 1599 LimitText = 0 1600 LockBottom = "" 1601 LockedInPosition= False 1602 LockLeft = "" 1603 LockRight = "" 1604 LockTop = "" 1605 Mask = "###" 1606 Multiline = "" 1607 Password = "" 1608 ReadOnly = "" 1609 Scope = 0 1610 ScrollbarHorizontal= "" 1611 ScrollbarVertical= True 1612 Styled = "" 1613 TabIndex = 10 1614 TabPanelIndex = 4 1615 TabStop = True 1616 Text = "" 1617 TextColor = &h000000 1618 TextFont = "System" 1619 TextSize = 0 1620 Top = 232 1621 Underline = "" 1622 UseFocusRing = True 1623 Visible = True 1624 Width = 32 1625 End 1626 Begin EditField EditField_Byte10 1627 AcceptTabs = "" 1628 Alignment = 0 1629 AutoDeactivate = True 1630 BackColor = &hFFFFFF 1631 Bold = "" 1632 Border = True 1633 DataField = "" 1634 DataSource = "" 1635 Enabled = True 1636 Format = "" 1637 Height = 22 1638 HelpTag = "" 1639 Index = -2147483648 1640 InitialParent = "TabPanel1" 1641 Italic = "" 1642 Left = 154 1643 LimitText = 0 1644 LockBottom = "" 1645 LockedInPosition= False 1646 LockLeft = "" 1647 LockRight = "" 1648 LockTop = "" 1649 Mask = "###" 1650 Multiline = "" 1651 Password = "" 1652 ReadOnly = "" 1653 Scope = 0 1654 ScrollbarHorizontal= "" 1655 ScrollbarVertical= True 1656 Styled = "" 1657 TabIndex = 11 1658 TabPanelIndex = 4 1659 TabStop = True 1660 Text = "" 1661 TextColor = &h000000 1662 TextFont = "System" 1663 TextSize = 0 1664 Top = 198 1665 Underline = "" 1666 UseFocusRing = True 1667 Visible = True 1668 Width = 32 1669 End 1670 Begin EditField EditField_Byte9 1671 AcceptTabs = "" 1672 Alignment = 0 1673 AutoDeactivate = True 1674 BackColor = &hFFFFFF 1675 Bold = "" 1676 Border = True 1677 DataField = "" 1678 DataSource = "" 1679 Enabled = True 1680 Format = "" 1681 Height = 22 1682 HelpTag = "" 1683 Index = -2147483648 1684 InitialParent = "TabPanel1" 1685 Italic = "" 1686 Left = 154 1687 LimitText = 0 1688 LockBottom = "" 1689 LockedInPosition= False 1690 LockLeft = "" 1691 LockRight = "" 1692 LockTop = "" 1693 Mask = "###" 1694 Multiline = "" 1695 Password = "" 1696 ReadOnly = "" 1697 Scope = 0 1698 ScrollbarHorizontal= "" 1699 ScrollbarVertical= True 1700 Styled = "" 1701 TabIndex = 12 1702 TabPanelIndex = 4 1703 TabStop = True 1704 Text = "" 1705 TextColor = &h000000 1706 TextFont = "System" 1707 TextSize = 0 1708 Top = 164 1709 Underline = "" 1710 UseFocusRing = True 1711 Visible = True 1712 Width = 32 1713 End 1714 Begin EditField EditField_Byte8 1715 AcceptTabs = "" 1716 Alignment = 0 1717 AutoDeactivate = True 1718 BackColor = &hFFFFFF 1719 Bold = "" 1720 Border = True 1721 DataField = "" 1722 DataSource = "" 1723 Enabled = True 1724 Format = "" 1725 Height = 22 1726 HelpTag = "" 1727 Index = -2147483648 1728 InitialParent = "TabPanel1" 1729 Italic = "" 1730 Left = 154 1731 LimitText = 0 1732 LockBottom = "" 1733 LockedInPosition= False 1734 LockLeft = "" 1735 LockRight = "" 1736 LockTop = "" 1737 Mask = "###" 1738 Multiline = "" 1739 Password = "" 1740 ReadOnly = "" 1741 Scope = 0 1742 ScrollbarHorizontal= "" 1743 ScrollbarVertical= True 1744 Styled = "" 1745 TabIndex = 13 1746 TabPanelIndex = 4 1747 TabStop = True 1748 Text = "" 1749 TextColor = &h000000 1750 TextFont = "System" 1751 TextSize = 0 1752 Top = 129 1753 Underline = "" 1754 UseFocusRing = True 1755 Visible = True 1756 Width = 32 1757 End 1758 Begin EditField EditField_Byte7 1759 AcceptTabs = "" 1760 Alignment = 0 1761 AutoDeactivate = True 1762 BackColor = &hFFFFFF 1763 Bold = "" 1764 Border = True 1765 DataField = "" 1766 DataSource = "" 1767 Enabled = True 1768 Format = "" 1769 Height = 22 1770 HelpTag = "" 1771 Index = -2147483648 1772 InitialParent = "TabPanel1" 1773 Italic = "" 1774 Left = 154 1775 LimitText = 0 1776 LockBottom = "" 1777 LockedInPosition= False 1778 LockLeft = "" 1779 LockRight = "" 1780 LockTop = "" 1781 Mask = "###" 1782 Multiline = "" 1783 Password = "" 1784 ReadOnly = "" 1785 Scope = 0 1786 ScrollbarHorizontal= "" 1787 ScrollbarVertical= True 1788 Styled = "" 1789 TabIndex = 14 1790 TabPanelIndex = 4 1791 TabStop = True 1792 Text = "" 1793 TextColor = &h000000 1794 TextFont = "System" 1795 TextSize = 0 1796 Top = 95 1797 Underline = "" 1798 UseFocusRing = True 1799 Visible = True 1800 Width = 32 1801 End 1802 Begin EditField EditField_Byte6 1803 AcceptTabs = "" 1804 Alignment = 0 1805 AutoDeactivate = True 1806 BackColor = &hFFFFFF 1807 Bold = "" 1808 Border = True 1809 DataField = "" 1810 DataSource = "" 1811 Enabled = True 1812 Format = "" 1813 Height = 22 1814 HelpTag = "" 1815 Index = -2147483648 1816 InitialParent = "TabPanel1" 1817 Italic = "" 1818 Left = 26 1819 LimitText = 0 1820 LockBottom = "" 1821 LockedInPosition= False 1822 LockLeft = "" 1823 LockRight = "" 1824 LockTop = "" 1825 Mask = "###" 1826 Multiline = "" 1827 Password = "" 1828 ReadOnly = "" 1829 Scope = 0 1830 ScrollbarHorizontal= "" 1831 ScrollbarVertical= True 1832 Styled = "" 1833 TabIndex = 15 1834 TabPanelIndex = 4 1835 TabStop = True 1836 Text = "" 1837 TextColor = &h000000 1838 TextFont = "System" 1839 TextSize = 0 1840 Top = 266 1841 Underline = "" 1842 UseFocusRing = True 1843 Visible = True 1844 Width = 32 1845 End 1846 Begin EditField EditField_Byte5 1847 AcceptTabs = "" 1848 Alignment = 0 1849 AutoDeactivate = True 1850 BackColor = &hFFFFFF 1851 Bold = "" 1852 Border = True 1853 DataField = "" 1854 DataSource = "" 1855 Enabled = True 1856 Format = "" 1857 Height = 22 1858 HelpTag = "" 1859 Index = -2147483648 1860 InitialParent = "TabPanel1" 1861 Italic = "" 1862 Left = 26 1863 LimitText = 0 1864 LockBottom = "" 1865 LockedInPosition= False 1866 LockLeft = "" 1867 LockRight = "" 1868 LockTop = "" 1869 Mask = "###" 1870 Multiline = "" 1871 Password = "" 1872 ReadOnly = "" 1873 Scope = 0 1874 ScrollbarHorizontal= "" 1875 ScrollbarVertical= True 1876 Styled = "" 1877 TabIndex = 16 1878 TabPanelIndex = 4 1879 TabStop = True 1880 Text = "" 1881 TextColor = &h000000 1882 TextFont = "System" 1883 TextSize = 0 1884 Top = 233 1885 Underline = "" 1886 UseFocusRing = True 1887 Visible = True 1888 Width = 32 1889 End 1890 Begin EditField EditField_Byte4 1891 AcceptTabs = "" 1892 Alignment = 0 1893 AutoDeactivate = True 1894 BackColor = &hFFFFFF 1895 Bold = "" 1896 Border = True 1897 DataField = "" 1898 DataSource = "" 1899 Enabled = True 1900 Format = "" 1901 Height = 22 1902 HelpTag = "" 1903 Index = -2147483648 1904 InitialParent = "TabPanel1" 1905 Italic = "" 1906 Left = 26 1907 LimitText = 0 1908 LockBottom = "" 1909 LockedInPosition= False 1910 LockLeft = "" 1911 LockRight = "" 1912 LockTop = "" 1913 Mask = "###" 1914 Multiline = "" 1915 Password = "" 1916 ReadOnly = "" 1917 Scope = 0 1918 ScrollbarHorizontal= "" 1919 ScrollbarVertical= True 1920 Styled = "" 1921 TabIndex = 17 1922 TabPanelIndex = 4 1923 TabStop = True 1924 Text = "" 1925 TextColor = &h000000 1926 TextFont = "System" 1927 TextSize = 0 1928 Top = 199 1929 Underline = "" 1930 UseFocusRing = True 1931 Visible = True 1932 Width = 32 1933 End 1934 Begin EditField EditField_Byte3 1935 AcceptTabs = "" 1936 Alignment = 0 1937 AutoDeactivate = True 1938 BackColor = &hFFFFFF 1939 Bold = "" 1940 Border = True 1941 DataField = "" 1942 DataSource = "" 1943 Enabled = True 1944 Format = "" 1945 Height = 22 1946 HelpTag = "" 1947 Index = -2147483648 1948 InitialParent = "TabPanel1" 1949 Italic = "" 1950 Left = 26 1951 LimitText = 0 1952 LockBottom = "" 1953 LockedInPosition= False 1954 LockLeft = "" 1955 LockRight = "" 1956 LockTop = "" 1957 Mask = "###" 1958 Multiline = "" 1959 Password = "" 1960 ReadOnly = "" 1961 Scope = 0 1962 ScrollbarHorizontal= "" 1963 ScrollbarVertical= True 1964 Styled = "" 1965 TabIndex = 18 1966 TabPanelIndex = 4 1967 TabStop = True 1968 Text = "" 1969 TextColor = &h000000 1970 TextFont = "System" 1971 TextSize = 0 1972 Top = 164 1973 Underline = "" 1974 UseFocusRing = True 1975 Visible = True 1976 Width = 32 1977 End 1978 Begin EditField EditField_Byte2 1979 AcceptTabs = "" 1980 Alignment = 0 1981 AutoDeactivate = True 1982 BackColor = &hFFFFFF 1983 Bold = "" 1984 Border = True 1985 DataField = "" 1986 DataSource = "" 1987 Enabled = False 1988 Format = "" 1989 Height = 22 1990 HelpTag = "" 1991 Index = -2147483648 1992 InitialParent = "TabPanel1" 1993 Italic = "" 1994 Left = 26 1442 Left = 321 1995 1443 LimitText = 0 1996 1444 LockBottom = "" … … 2008 1456 Styled = "" 2009 1457 TabIndex = 19 2010 TabPanelIndex = 41458 TabPanelIndex = 1 2011 1459 TabStop = True 2012 1460 Text = "" … … 2014 1462 TextFont = "System" 2015 1463 TextSize = 0 2016 Top = 130 1464 TextUnit = 0 1465 Top = 153 2017 1466 Underline = "" 2018 1467 UseFocusRing = True … … 2020 1469 Width = 32 2021 1470 End 2022 Begin StaticText StaticText_ Byte11471 Begin StaticText StaticText_Punch 2023 1472 AutoDeactivate = True 2024 1473 Bold = "" … … 2031 1480 InitialParent = "TabPanel1" 2032 1481 Italic = "" 2033 Left = 70 2034 LockBottom = "" 2035 LockedInPosition= False 2036 LockLeft = "" 2037 LockRight = "" 2038 LockTop = "" 2039 Multiline = "" 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 = "" 2070 Multiline = "" 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 = "" 2101 Multiline = "" 2102 Scope = 0 2103 TabIndex = 23 2104 TabPanelIndex = 4 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 2105 1492 Text = "Punch" 2106 1493 TextAlign = 0 … … 2108 1495 TextFont = "System" 2109 1496 TextSize = 0 2110 Top = 232 2111 Underline = "" 2112 Visible = True 2113 Width = 106 2114 End 2115 Begin StaticText StaticText_Byte4 1497 TextUnit = 0 1498 Top = 153 1499 Underline = "" 1500 Visible = True 1501 Width = 81 1502 End 1503 Begin PopupMenu PopupMenu_Speed 2116 1504 AutoDeactivate = True 2117 1505 Bold = "" … … 2123 1511 Index = -2147483648 2124 1512 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 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 2136 1555 Text = "Speed" 2137 1556 TextAlign = 0 … … 2139 1558 TextFont = "System" 2140 1559 TextSize = 0 2141 Top = 200 2142 Underline = "" 2143 Visible = True 2144 Width = 106 2145 End 2146 Begin StaticText StaticText_Byte3 1560 TextUnit = 0 1561 Top = 122 1562 Underline = "" 1563 Visible = True 1564 Width = 100 1565 End 1566 Begin PopupMenu PopupMenu_Gain 2147 1567 AutoDeactivate = True 2148 1568 Bold = "" … … 2154 1574 Index = -2147483648 2155 1575 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 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 2167 1618 Text = "Gain" 2168 1619 TextAlign = 0 … … 2170 1621 TextFont = "System" 2171 1622 TextSize = 0 2172 Top = 164 2173 Underline = "" 2174 Visible = True 2175 Width = 106 2176 End 2177 Begin StaticText StaticText_Byte2 1623 TextUnit = 0 1624 Top = 91 1625 Underline = "" 1626 Visible = True 1627 Width = 100 1628 End 1629 Begin StaticText StaticText_CarType 2178 1630 AutoDeactivate = True 2179 1631 Bold = "" … … 2186 1638 InitialParent = "TabPanel1" 2187 1639 Italic = "" 2188 Left = 702189 LockBottom = "" 2190 LockedInPosition= False 2191 LockLeft = "" 2192 LockRight = "" 2193 LockTop = "" 2194 Multiline = "" 2195 Scope = 0 2196 TabIndex = 2 62197 TabPanelIndex = 42198 Text = " Header"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" 2199 1651 TextAlign = 0 2200 1652 TextColor = "&cB8B8B8" 2201 1653 TextFont = "System" 2202 1654 TextSize = 0 2203 Top = 130 2204 Underline = "" 2205 Visible = True 2206 Width = 106 2207 End 2208 Begin StaticText StaticText_Byte7 1655 TextUnit = 0 1656 Top = 58 1657 Underline = "" 1658 Visible = True 1659 Width = 100 1660 End 1661 Begin PopupMenu PopupMenu_CarType 2209 1662 AutoDeactivate = True 2210 1663 Bold = "" … … 2216 1669 Index = -2147483648 2217 1670 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 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 1693 AcceptTabs = "" 1694 Alignment = 0 1695 AutoDeactivate = True 1696 BackColor = &hFFFFFF 1697 Bold = "" 1698 Border = True 1699 DataField = "" 1700 DataSource = "" 1701 Enabled = True 1702 Format = "" 1703 Height = 22 1704 HelpTag = "" 1705 Index = -2147483648 1706 InitialParent = "TabPanel1" 1707 Italic = "" 1708 Left = 380 1709 LimitText = 0 1710 LockBottom = "" 1711 LockedInPosition= False 1712 LockLeft = "" 1713 LockRight = "" 1714 LockTop = "" 1715 Mask = "###" 1716 Multiline = "" 1717 Password = "" 1718 ReadOnly = "" 1719 Scope = 0 1720 ScrollbarHorizontal= "" 1721 ScrollbarVertical= True 1722 Styled = "" 1723 TabIndex = 41 1724 TabPanelIndex = 2 1725 TabStop = True 1726 Text = "" 1727 TextColor = &h000000 1728 TextFont = "System" 1729 TextSize = 0 1730 TextUnit = 0 1731 Top = 126 1732 Underline = "" 1733 UseFocusRing = True 1734 Visible = True 1735 Width = 32 1736 End 1737 Begin EditField EditField_Byte11 1738 AcceptTabs = "" 1739 Alignment = 0 1740 AutoDeactivate = True 1741 BackColor = &hFFFFFF 1742 Bold = "" 1743 Border = True 1744 DataField = "" 1745 DataSource = "" 1746 Enabled = True 1747 Format = "" 1748 Height = 22 1749 HelpTag = "" 1750 Index = -2147483648 1751 InitialParent = "TabPanel1" 1752 Italic = "" 1753 Left = 380 1754 LimitText = 0 1755 LockBottom = "" 1756 LockedInPosition= False 1757 LockLeft = "" 1758 LockRight = "" 1759 LockTop = "" 1760 Mask = "###" 1761 Multiline = "" 1762 Password = "" 1763 ReadOnly = "" 1764 Scope = 0 1765 ScrollbarHorizontal= "" 1766 ScrollbarVertical= True 1767 Styled = "" 1768 TabIndex = 42 1769 TabPanelIndex = 2 1770 TabStop = True 1771 Text = "" 1772 TextColor = &h000000 1773 TextFont = "System" 1774 TextSize = 0 1775 TextUnit = 0 1776 Top = 92 1777 Underline = "" 1778 UseFocusRing = True 1779 Visible = True 1780 Width = 32 1781 End 1782 Begin EditField EditField_Byte10 1783 AcceptTabs = "" 1784 Alignment = 0 1785 AutoDeactivate = True 1786 BackColor = &hFFFFFF 1787 Bold = "" 1788 Border = True 1789 DataField = "" 1790 DataSource = "" 1791 Enabled = True 1792 Format = "" 1793 Height = 22 1794 HelpTag = "" 1795 Index = -2147483648 1796 InitialParent = "TabPanel1" 1797 Italic = "" 1798 Left = 380 1799 LimitText = 0 1800 LockBottom = "" 1801 LockedInPosition= False 1802 LockLeft = "" 1803 LockRight = "" 1804 LockTop = "" 1805 Mask = "###" 1806 Multiline = "" 1807 Password = "" 1808 ReadOnly = "" 1809 Scope = 0 1810 ScrollbarHorizontal= "" 1811 ScrollbarVertical= True 1812 Styled = "" 1813 TabIndex = 43 1814 TabPanelIndex = 2 1815 TabStop = True 1816 Text = "" 1817 TextColor = &h000000 1818 TextFont = "System" 1819 TextSize = 0 1820 TextUnit = 0 1821 Top = 58 1822 Underline = "" 1823 UseFocusRing = True 1824 Visible = True 1825 Width = 32 1826 End 1827 Begin StaticText StaticText_Byte10 2240 1828 AutoDeactivate = True 2241 1829 Bold = "" … … 2248 1836 InitialParent = "TabPanel1" 2249 1837 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 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 2291 1848 Text = "Unknown" 2292 1849 TextAlign = 0 … … 2294 1851 TextFont = "System" 2295 1852 TextSize = 0 2296 Top = 166 1853 TextUnit = 0 1854 Top = 60 2297 1855 Underline = "" 2298 1856 Visible = True 2299 1857 Width = 106 2300 1858 End 2301 Begin StaticText StaticText_Byte1 01859 Begin StaticText StaticText_Byte11 2302 1860 AutoDeactivate = True 2303 1861 Bold = "" … … 2310 1868 InitialParent = "TabPanel1" 2311 1869 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 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 1924 AcceptTabs = "" 1925 Alignment = 0 1926 AutoDeactivate = True 1927 BackColor = &hFFFFFF 1928 Bold = "" 1929 Border = True 1930 DataField = "" 1931 DataSource = "" 1932 Enabled = False 1933 Format = "" 1934 Height = 22 1935 HelpTag = "" 1936 Index = -2147483648 1937 InitialParent = "TabPanel1" 1938 Italic = "" 1939 Left = 380 1940 LimitText = 0 1941 LockBottom = "" 1942 LockedInPosition= False 1943 LockLeft = "" 1944 LockRight = "" 1945 LockTop = "" 1946 Mask = "###" 1947 Multiline = "" 1948 Password = "" 1949 ReadOnly = "" 1950 Scope = 0 1951 ScrollbarHorizontal= "" 1952 ScrollbarVertical= True 1953 Styled = "" 1954 TabIndex = 47 1955 TabPanelIndex = 2 1956 TabStop = True 1957 Text = "" 1958 TextColor = &h000000 1959 TextFont = "System" 1960 TextSize = 0 1961 TextUnit = 0 1962 Top = 329 1963 Underline = "" 1964 UseFocusRing = True 1965 Visible = False 1966 Width = 32 1967 End 1968 Begin EditField EditField_Byte17 1969 AcceptTabs = "" 1970 Alignment = 0 1971 AutoDeactivate = True 1972 BackColor = &hFFFFFF 1973 Bold = "" 1974 Border = True 1975 DataField = "" 1976 DataSource = "" 1977 Enabled = True 1978 Format = "" 1979 Height = 22 1980 HelpTag = "" 1981 Index = -2147483648 1982 InitialParent = "TabPanel1" 1983 Italic = "" 1984 Left = 380 1985 LimitText = 0 1986 LockBottom = "" 1987 LockedInPosition= False 1988 LockLeft = "" 1989 LockRight = "" 1990 LockTop = "" 1991 Mask = "###" 1992 Multiline = "" 1993 Password = "" 1994 ReadOnly = "" 1995 Scope = 0 1996 ScrollbarHorizontal= "" 1997 ScrollbarVertical= True 1998 Styled = "" 1999 TabIndex = 48 2000 TabPanelIndex = 2 2001 TabStop = True 2002 Text = "" 2003 TextColor = &h000000 2004 TextFont = "System" 2005 TextSize = 0 2006 TextUnit = 0 2007 Top = 295 2008 Underline = "" 2009 UseFocusRing = True 2010 Visible = True 2011 Width = 32 2012 End 2013 Begin EditField EditField_Byte16 2014 AcceptTabs = "" 2015 Alignment = 0 2016 AutoDeactivate = True 2017 BackColor = &hFFFFFF 2018 Bold = "" 2019 Border = True 2020 DataField = "" 2021 DataSource = "" 2022 Enabled = True 2023 Format = "" 2024 Height = 22 2025 HelpTag = "" 2026 Index = -2147483648 2027 InitialParent = "TabPanel1" 2028 Italic = "" 2029 Left = 380 2030 LimitText = 0 2031 LockBottom = "" 2032 LockedInPosition= False 2033 LockLeft = "" 2034 LockRight = "" 2035 LockTop = "" 2036 Mask = "###" 2037 Multiline = "" 2038 Password = "" 2039 ReadOnly = "" 2040 Scope = 0 2041 ScrollbarHorizontal= "" 2042 ScrollbarVertical= True 2043 Styled = "" 2044 TabIndex = 49 2045 TabPanelIndex = 2 2046 TabStop = True 2047 Text = "" 2048 TextColor = &h000000 2049 TextFont = "System" 2050 TextSize = 0 2051 TextUnit = 0 2052 Top = 261 2053 Underline = "" 2054 UseFocusRing = True 2055 Visible = True 2056 Width = 32 2057 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 = "###" 2082 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 = "###" 2127 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 = "###" 2172 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 2192 End 2193 Begin StaticText StaticText_Byte13 2194 AutoDeactivate = True 2195 Bold = "" 2196 DataField = "" 2197 DataSource = "" 2198 Enabled = True 2199 Height = 20 2200 HelpTag = "" 2201 Index = -2147483648 2202 InitialParent = "TabPanel1" 2203 Italic = "" 2204 Left = 424 2205 LockBottom = "" 2206 LockedInPosition= False 2207 LockLeft = "" 2208 LockRight = "" 2209 LockTop = "" 2210 Multiline = "" 2211 Scope = 0 2212 TabIndex = 53 2213 TabPanelIndex = 2 2214 Text = "Vertical Inertia" 2215 TextAlign = 0 2216 TextColor = "&cB8B8B8" 2217 TextFont = "System" 2218 TextSize = 0 2219 TextUnit = 0 2220 Top = 160 2221 Underline = "" 2222 Visible = True 2223 Width = 106 2224 End 2225 Begin StaticText StaticText_Byte14 2226 AutoDeactivate = True 2227 Bold = "" 2228 DataField = "" 2229 DataSource = "" 2230 Enabled = True 2231 Height = 20 2232 HelpTag = "" 2233 Index = -2147483648 2234 InitialParent = "TabPanel1" 2235 Italic = "" 2236 Left = 424 2237 LockBottom = "" 2238 LockedInPosition= False 2239 LockLeft = "" 2240 LockRight = "" 2241 LockTop = "" 2242 Multiline = False 2243 Scope = 0 2244 TabIndex = 54 2245 TabPanelIndex = 2 2322 2246 Text = "Unknown" 2323 2247 TextAlign = 0 … … 2325 2249 TextFont = "System" 2326 2250 TextSize = 0 2327 Top = 200 2251 TextUnit = 0 2252 Top = 194 2328 2253 Underline = "" 2329 2254 Visible = True 2330 2255 Width = 106 2331 2256 End 2332 Begin StaticText StaticText_Byte1 12257 Begin StaticText StaticText_Byte15 2333 2258 AutoDeactivate = True 2334 2259 Bold = "" … … 2341 2266 InitialParent = "TabPanel1" 2342 2267 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 2393 End 2394 Begin StaticText StaticText_Byte13 2395 AutoDeactivate = True 2396 Bold = "" 2397 DataField = "" 2398 DataSource = "" 2399 Enabled = True 2400 Height = 20 2401 HelpTag = "" 2402 Index = -2147483648 2403 InitialParent = "TabPanel1" 2404 Italic = "" 2405 Left = 360 2406 LockBottom = "" 2407 LockedInPosition= False 2408 LockLeft = "" 2409 LockRight = "" 2410 LockTop = "" 2411 Multiline = "" 2412 Scope = 0 2413 TabIndex = 33 2414 TabPanelIndex = 4 2415 Text = "Vertical Inertia" 2416 TextAlign = 0 2417 TextColor = "&cB8B8B8" 2418 TextFont = "System" 2419 TextSize = 0 2420 Top = 97 2421 Underline = "" 2422 Visible = True 2423 Width = 106 2424 End 2425 Begin StaticText StaticText_Byte14 2426 AutoDeactivate = True 2427 Bold = "" 2428 DataField = "" 2429 DataSource = "" 2430 Enabled = True 2431 Height = 20 2432 HelpTag = "" 2433 Index = -2147483648 2434 InitialParent = "TabPanel1" 2435 Italic = "" 2436 Left = 360 2437 LockBottom = "" 2438 LockedInPosition= False 2439 LockLeft = "" 2440 LockRight = "" 2441 LockTop = "" 2442 Multiline = False 2443 Scope = 0 2444 TabIndex = 34 2445 TabPanelIndex = 4 2446 Text = "Unknown" 2447 TextAlign = 0 2448 TextColor = "&cB8B8B8" 2449 TextFont = "System" 2450 TextSize = 0 2451 Top = 131 2452 Underline = "" 2453 Visible = True 2454 Width = 106 2455 End 2456 Begin StaticText StaticText_Byte15 2457 AutoDeactivate = True 2458 Bold = "" 2459 DataField = "" 2460 DataSource = "" 2461 Enabled = True 2462 Height = 20 2463 HelpTag = "" 2464 Index = -2147483648 2465 InitialParent = "TabPanel1" 2466 Italic = "" 2467 Left = 360 2468 LockBottom = "" 2469 LockedInPosition= False 2470 LockLeft = "" 2471 LockRight = "" 2472 LockTop = "" 2473 Multiline = "" 2474 Scope = 0 2475 TabIndex = 35 2476 TabPanelIndex = 4 2268 Left = 424 2269 LockBottom = "" 2270 LockedInPosition= False 2271 LockLeft = "" 2272 LockRight = "" 2273 LockTop = "" 2274 Multiline = "" 2275 Scope = 0 2276 TabIndex = 55 2277 TabPanelIndex = 2 2477 2278 Text = "Back Timing" 2478 2279 TextAlign = 0 … … 2480 2281 TextFont = "System" 2481 2282 TextSize = 0 2482 Top = 165 2283 TextUnit = 0 2284 Top = 228 2483 2285 Underline = "" 2484 2286 Visible = True … … 2496 2298 InitialParent = "TabPanel1" 2497 2299 Italic = "" 2498 Left = 3602499 LockBottom = "" 2500 LockedInPosition= False 2501 LockLeft = "" 2502 LockRight = "" 2503 LockTop = "" 2504 Multiline = "" 2505 Scope = 0 2506 TabIndex = 362507 TabPanelIndex = 42300 Left = 424 2301 LockBottom = "" 2302 LockedInPosition= False 2303 LockLeft = "" 2304 LockRight = "" 2305 LockTop = "" 2306 Multiline = "" 2307 Scope = 0 2308 TabIndex = 56 2309 TabPanelIndex = 2 2508 2310 Text = "Steering Gain" 2509 2311 TextAlign = 0 … … 2511 2313 TextFont = "System" 2512 2314 TextSize = 0 2513 Top = 199 2315 TextUnit = 0 2316 Top = 262 2514 2317 Underline = "" 2515 2318 Visible = True … … 2527 2330 InitialParent = "TabPanel1" 2528 2331 Italic = "" 2529 Left = 3602530 LockBottom = "" 2531 LockedInPosition= False 2532 LockLeft = "" 2533 LockRight = "" 2534 LockTop = "" 2535 Multiline = "" 2536 Scope = 0 2537 TabIndex = 372538 TabPanelIndex = 42332 Left = 424 2333 LockBottom = "" 2334 LockedInPosition= False 2335 LockLeft = "" 2336 LockRight = "" 2337 LockTop = "" 2338 Multiline = "" 2339 Scope = 0 2340 TabIndex = 57 2341 TabPanelIndex = 2 2539 2342 Text = "Throttle Gain" 2540 2343 TextAlign = 0 … … 2542 2345 TextFont = "System" 2543 2346 TextSize = 0 2544 Top = 233 2347 TextUnit = 0 2348 Top = 296 2545 2349 Underline = "" 2546 2350 Visible = True … … 2558 2362 InitialParent = "TabPanel1" 2559 2363 Italic = "" 2560 Left = 3602561 LockBottom = "" 2562 LockedInPosition= False 2563 LockLeft = "" 2564 LockRight = "" 2565 LockTop = "" 2566 Multiline = "" 2567 Scope = 0 2568 TabIndex = 382569 TabPanelIndex = 42364 Left = 424 2365 LockBottom = "" 2366 LockedInPosition= False 2367 LockLeft = "" 2368 LockRight = "" 2369 LockTop = "" 2370 Multiline = "" 2371 Scope = 0 2372 TabIndex = 58 2373 TabPanelIndex = 2 2570 2374 Text = "Checksum" 2571 2375 TextAlign = 0 … … 2573 2377 TextFont = "System" 2574 2378 TextSize = 0 2575 Top = 267 2379 TextUnit = 0 2380 Top = 330 2576 2381 Underline = "" 2577 2382 Visible = False 2578 2383 Width = 106 2579 2384 End 2580 Begin StaticText StaticText 12385 Begin StaticText StaticText_Warning 2581 2386 AutoDeactivate = True 2582 2387 Bold = True … … 2589 2394 InitialParent = "TabPanel1" 2590 2395 Italic = "" 2591 Left = 4722592 LockBottom = "" 2593 LockedInPosition= False 2594 LockLeft = "" 2595 LockRight = "" 2596 LockTop = "" 2597 Multiline = "" 2598 Scope = 0 2599 TabIndex = 392600 TabPanelIndex = 42396 Left = 542 2397 LockBottom = "" 2398 LockedInPosition= False 2399 LockLeft = "" 2400 LockRight = "" 2401 LockTop = "" 2402 Multiline = "" 2403 Scope = 0 2404 TabIndex = 59 2405 TabPanelIndex = 2 2601 2406 Text = "WARNING:" 2602 2407 TextAlign = 0 … … 2604 2409 TextFont = "System" 2605 2410 TextSize = 22 2606 Top = 96 2411 TextUnit = 0 2412 Top = 57 2607 2413 Underline = True 2608 2414 Visible = True 2609 2415 Width = 142 2610 2416 End 2611 Begin StaticText StaticText 22417 Begin StaticText StaticText_WarningMessage 2612 2418 AutoDeactivate = True 2613 2419 Bold = "" … … 2620 2426 InitialParent = "TabPanel1" 2621 2427 Italic = "" 2622 Left = 4722428 Left = 542 2623 2429 LockBottom = "" 2624 2430 LockedInPosition= False … … 2628 2434 Multiline = True 2629 2435 Scope = 0 2630 TabIndex = 402631 TabPanelIndex = 42436 TabIndex = 60 2437 TabPanelIndex = 2 2632 2438 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. " 2633 2439 TextAlign = 0 … … 2635 2441 TextFont = "System" 2636 2442 TextSize = 0 2637 Top = 132 2443 TextUnit = 0 2444 Top = 93 2638 2445 Underline = "" 2639 2446 Visible = True … … 2650 2457 Height = 32 2651 2458 Index = -2147483648 2652 Left = 7 162459 Left = 786 2653 2460 LockedInPosition= False 2654 2461 mode = "read" … … 2657 2464 Stop = 0 2658 2465 TabPanelIndex = 0 2659 Top = - 62466 Top = -16 2660 2467 Width = 32 2661 2468 XON = "" … … 2673 2480 InitialParent = "" 2674 2481 Italic = "" 2675 Left = 3262676 LockBottom = ""2482 Left = 612 2483 LockBottom = True 2677 2484 LockedInPosition= False 2678 2485 LockLeft = "" … … 2685 2492 TextFont = "System" 2686 2493 TextSize = 0 2687 Top = 312 2494 TextUnit = 0 2495 Top = 388 2688 2496 Underline = "" 2689 2497 Visible = True 2690 2498 Width = 88 2691 2499 End 2692 Begin PushButton PushButton_SaveProfile2500 Begin StaticText StaticText_SerialPort 2693 2501 AutoDeactivate = True 2694 2502 Bold = "" 2695 Cancel = "" 2696 Caption = "Save Profile" 2697 Default = "" 2503 DataField = "" 2504 DataSource = "" 2698 2505 Enabled = True 2699 2506 Height = 20 … … 2702 2509 InitialParent = "" 2703 2510 Italic = "" 2704 Left = 520 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 2705 2546 LockBottom = "" 2706 2547 LockedInPosition= False … … 2709 2550 LockTop = "" 2710 2551 Scope = 0 2711 TabIndex = 4 52552 TabIndex = 47 2712 2553 TabPanelIndex = 0 2713 2554 TabStop = True 2714 2555 TextFont = "System" 2715 2556 TextSize = 0 2716 Top = 312 2557 TextUnit = 0 2558 Top = 90 2717 2559 Underline = "" 2718 Visible = False2719 Width = 1 002560 Visible = True 2561 Width = 128 2720 2562 End 2721 2563 Begin StaticText StaticText_Version … … 2730 2572 InitialParent = "" 2731 2573 Italic = "" 2732 Left = 522 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 2733 2607 LockBottom = "" 2734 2608 LockedInPosition= False … … 2738 2612 Multiline = "" 2739 2613 Scope = 0 2740 TabIndex = 462614 TabIndex = 51 2741 2615 TabPanelIndex = 0 2742 Text = " Version"2616 Text = "Profiles" 2743 2617 TextAlign = 0 2744 TextColor = &h0000002618 TextColor = "&cB8B8B8" 2745 2619 TextFont = "System" 2746 2620 TextSize = 0 2747 Top = 14 2621 TextUnit = 0 2622 Top = 122 2748 2623 Underline = "" 2749 2624 Visible = True 2750 2625 Width = 100 2626 End 2627 Begin PopupMenu PopupMenu_Profile 2628 AutoDeactivate = True 2629 Bold = "" 2630 DataField = "" 2631 DataSource = "" 2632 Enabled = True 2633 Height = 20 2634 HelpTag = "" 2635 Index = -2147483648 2636 InitialParent = "" 2637 InitialValue = "" 2638 Italic = "" 2639 Left = 20 2640 ListIndex = 0 2641 LockBottom = "" 2642 LockedInPosition= False 2643 LockLeft = "" 2644 LockRight = "" 2645 LockTop = "" 2646 Scope = 0 2647 TabIndex = 54 2648 TabPanelIndex = 0 2649 TabStop = True 2650 TextFont = "System" 2651 TextSize = 0 2652 TextUnit = 0 2653 Top = 154 2654 Underline = "" 2655 Visible = True 2656 Width = 128 2657 End 2658 Begin PushButton PushButton_SaveProfile 2659 AutoDeactivate = True 2660 Bold = "" 2661 Cancel = "" 2662 Caption = "Save" 2663 Default = "" 2664 Enabled = False 2665 Height = 20 2666 HelpTag = "" 2667 Index = -2147483648 2668 InitialParent = "" 2669 Italic = "" 2670 Left = 20 2671 LockBottom = "" 2672 LockedInPosition= False 2673 LockLeft = "" 2674 LockRight = "" 2675 LockTop = "" 2676 Scope = 0 2677 TabIndex = 55 2678 TabPanelIndex = 0 2679 TabStop = True 2680 TextFont = "System" 2681 TextSize = 0 2682 TextUnit = 0 2683 Top = 250 2684 Underline = "" 2685 Visible = True 2686 Width = 88 2687 End 2688 Begin PushButton PushButton_Delete 2689 AutoDeactivate = True 2690 Bold = "" 2691 Cancel = "" 2692 Caption = "Delete" 2693 Default = "" 2694 Enabled = False 2695 Height = 20 2696 HelpTag = "" 2697 Index = -2147483648 2698 InitialParent = "" 2699 Italic = "" 2700 Left = 20 2701 LockBottom = "" 2702 LockedInPosition= False 2703 LockLeft = "" 2704 LockRight = "" 2705 LockTop = "" 2706 Scope = 0 2707 TabIndex = 56 2708 TabPanelIndex = 0 2709 TabStop = True 2710 TextFont = "System" 2711 TextSize = 0 2712 TextUnit = 0 2713 Top = 282 2714 Underline = "" 2715 Visible = True 2716 Width = 88 2717 End 2718 Begin PushButton PushButton_Create 2719 AutoDeactivate = True 2720 Bold = "" 2721 Cancel = "" 2722 Caption = "Create" 2723 Default = "" 2724 Enabled = True 2725 Height = 20 2726 HelpTag = "" 2727 Index = -2147483648 2728 InitialParent = "" 2729 Italic = "" 2730 Left = 20 2731 LockBottom = "" 2732 LockedInPosition= False 2733 LockLeft = "" 2734 LockRight = "" 2735 LockTop = "" 2736 Scope = 0 2737 TabIndex = 57 2738 TabPanelIndex = 0 2739 TabStop = True 2740 TextFont = "System" 2741 TextSize = 0 2742 TextUnit = 0 2743 Top = 186 2744 Underline = "" 2745 Visible = True 2746 Width = 88 2747 End 2748 Begin PushButton PushButton_Import 2749 AutoDeactivate = True 2750 Bold = "" 2751 Cancel = "" 2752 Caption = "Import" 2753 Default = "" 2754 Enabled = True 2755 Height = 20 2756 HelpTag = "" 2757 Index = -2147483648 2758 InitialParent = "" 2759 Italic = "" 2760 Left = 20 2761 LockBottom = "" 2762 LockedInPosition= False 2763 LockLeft = "" 2764 LockRight = "" 2765 LockTop = "" 2766 Scope = 0 2767 TabIndex = 58 2768 TabPanelIndex = 0 2769 TabStop = True 2770 TextFont = "System" 2771 TextSize = 0 2772 TextUnit = 0 2773 Top = 218 2774 Underline = "" 2775 Visible = True 2776 Width = 88 2777 End 2778 Begin PushButton PushButton_Export 2779 AutoDeactivate = True 2780 Bold = "" 2781 Cancel = "" 2782 Caption = "Export" 2783 Default = "" 2784 Enabled = False 2785 Height = 20 2786 HelpTag = "" 2787 Index = -2147483648 2788 InitialParent = "" 2789 Italic = "" 2790 Left = 20 2791 LockBottom = "" 2792 LockedInPosition= False 2793 LockLeft = "" 2794 LockRight = "" 2795 LockTop = "" 2796 Scope = 0 2797 TabIndex = 59 2798 TabPanelIndex = 0 2799 TabStop = True 2800 TextFont = "System" 2801 TextSize = 0 2802 TextUnit = 0 2803 Top = 314 2804 Underline = "" 2805 Visible = True 2806 Width = 88 2751 2807 End 2752 2808 End … … 2784 2840 //Could not open 2785 2841 MsgBox "Error opening defined com port" 2842 else 2843 //Enable buttons 2844 PushButton_Read.Enabled = True 2845 PushButton_Write.Enabled = True 2846 PushButton_Reset.Enabled = True 2786 2847 end if 2787 2848 //No need to continue loop … … 2793 2854 end if 2794 2855 2856 #if TargetWin32 2857 //Have to change text colors since Windows does not allow for transparancy of the tab panel 2858 StaticText_BackTiming.TextColor = &c000000 2859 StaticText_Byte1.TextColor = &c000000 2860 StaticText_Byte10.TextColor = &c000000 2861 StaticText_Byte11.TextColor = &c000000 2862 StaticText_Byte12.TextColor = &c000000 2863 StaticText_Byte13.TextColor = &c000000 2864 StaticText_Byte14.TextColor = &c000000 2865 StaticText_Byte15.TextColor = &c000000 2866 StaticText_Byte16.TextColor = &c000000 2867 StaticText_Byte17.TextColor = &c000000 2868 StaticText_Byte18.TextColor = &c000000 2869 StaticText_Byte2.TextColor = &c000000 2870 StaticText_Byte3.TextColor = &c000000 2871 StaticText_Byte4.TextColor = &c000000 2872 StaticText_Byte5.TextColor = &c000000 2873 StaticText_Byte6.TextColor = &c000000 2874 StaticText_Byte7.TextColor = &c000000 2875 StaticText_Byte8.TextColor = &c000000 2876 StaticText_Byte9.TextColor = &c000000 2877 StaticText_CarType.TextColor = &c000000 2878 StaticText_DBand.TextColor = &c000000 2879 StaticText_DFreq.TextColor = &c000000 2880 StaticText_Dump.TextColor = &c000000 2881 StaticText_Gain.TextColor = &c000000 2882 StaticText_Nuetral.TextColor = &c000000 2883 //StaticText_Profiles.TextColor = &c000000 2884 StaticText_Punch.TextColor = &c000000 2885 //StaticText_SerialPort.TextColor = &c000000 2886 StaticText_Speed.TextColor = &c000000 2887 StaticText_STGain.TextColor = &c000000 2888 StaticText_THGain.TextColor = &c000000 2889 //StaticText_Version.TextColor = &c000000 2890 StaticText_VerticalIntertia.TextColor = &c000000 2891 2892 #endif 2893 2795 2894 End Sub 2796 2895 #tag EndEvent … … 2808 2907 Slider_STGain.Enabled = True 2809 2908 StaticText_STGain.Enabled = True 2909 EditField_STGain.Enabled = True 2810 2910 2811 2911 Slider_THGain.Enabled = True 2812 2912 StaticText_THGain.Enabled = True 2813 2913 EditField_THGain.Enabled = True 2814 2914 2815 2915 Case "dNaNo" … … 2822 2922 Slider_STGain.Enabled = True 2823 2923 StaticText_STGain.Enabled = True 2924 EditField_STGain.Enabled = True 2824 2925 2825 2926 Slider_THGain.Enabled = True 2826 2927 StaticText_THGain.Enabled = True 2928 EditField_THGain.Enabled = True 2827 2929 2828 2930 Case "ASF" … … 2835 2937 StaticText_STGain.Enabled = False 2836 2938 Slider_STGain.Value = 255 2939 EditField_STGain.Enabled = False 2837 2940 2838 2941 Slider_THGain.Enabled = False 2839 2942 StaticText_THGain.Enabled = False 2840 2943 Slider_THGain.Value = 255 2841 2944 EditField_THGain.Enabled = False 2842 2945 2843 2946 end select … … 2846 2949 2847 2950 #tag Method, Flags = &h21 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 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 2952 2976 end if 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)) 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 3026 3007 End Sub 3027 3008 #tag EndMethod … … 3052 3033 3053 3034 #tag Method, Flags = &h21 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 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 3079 3139 end if 3080 end if 3081 3082 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)) 3083 3213 End Sub 3084 3214 #tag EndMethod 3085 3215 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 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 3112 3235 3113 3236 … … 3140 3263 #tag EndEvent 3141 3264 #tag EndEvents 3142 #tag Events PushButton_Reset3143 #tag Event3144 Sub Action()3145 ICSSerialPort1.resetCar3146 End Sub3147 #tag EndEvent3148 #tag EndEvents3149 3265 #tag Events TabPanel1 3150 3266 #tag Event … … 3152 3268 updateAdvancedScreen 3153 3269 updateCarScreen 3270 End Sub 3271 #tag EndEvent 3272 #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 3277 if me.Text <> "" then 3278 if val(me.Text) > 255 or val(me.Text) < 0 then 3279 me.Text = "255" 3280 end if 3281 end if 3282 3283 dim d as double 3284 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 3299 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) 3396 End Sub 3397 #tag EndEvent 3398 #tag EndEvents 3399 #tag Events Slider_THGain 3400 #tag Event 3401 Sub ValueChanged() 3402 ICSSerialPort1.Byte17 = chrb(me.Value) 3403 //Check to see if we need to update the edit field 3404 //This prevents the edit field from triggering this event that then updates the edit field again 3405 //Causing the cursor to move to the begginning of the editfield 3406 if EditField_THGain.Text <> str(me.Value) then 3407 EditField_THGain.Text = str(me.Value) 3408 end if 3409 3410 3411 End Sub 3412 #tag EndEvent 3413 #tag EndEvents 3414 #tag Events EditField_THGain 3415 #tag Event 3416 Sub TextChange() 3417 //Make sure we have a valid value if not then set it to something 3418 if me.Text <> "" then 3419 if val(me.Text) > 255 or val(me.Text) < 1 then 3420 me.Text = "255" 3421 end if 3422 end if 3423 3424 dim d as double 3425 dim i as integer 3426 d = val(me.Text) 3427 i = d 3428 ICSSerialPort1.Byte17 = chrb(i) 3429 3430 Slider_THGain.Value = val(me.Text) 3431 End Sub 3432 #tag EndEvent 3433 #tag EndEvents 3434 #tag Events Slider_STGain 3435 #tag Event 3436 Sub ValueChanged() 3437 ICSSerialPort1.Byte16 = chrb(me.Value) 3438 //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 3440 //Causing the cursor to move to the begginning of the editfield 3441 if EditField_STGain.Text <> str(me.Value) then 3442 EditField_STGain.Text = str(me.Value) 3443 end if 3444 End Sub 3445 #tag EndEvent 3446 #tag EndEvents 3447 #tag Events EditField_STGain 3448 #tag Event 3449 Sub TextChange() 3450 //Make sure we have a valid value if not then set it to something 3451 if me.Text <> "" then 3452 if val(me.Text) > 255 or val(me.Text) < 1 then 3453 me.Text = "255" 3454 end if 3455 end if 3456 3457 dim d as double 3458 dim i as integer 3459 d = val(me.Text) 3460 i = d 3461 ICSSerialPort1.Byte16 = chrb(i) 3462 3463 Slider_STGain.Value = val(me.Text) 3464 3465 3466 End Sub 3467 #tag EndEvent 3468 #tag EndEvents 3469 #tag Events PopupMenu_BackTiming 3470 #tag Event 3471 Sub Change() 3472 Select Case me.ListIndex 3473 3474 Case 0 3475 ICSSerialPort1.Byte15 = chrb(&h01) 3476 Case 1 3477 ICSSerialPort1.Byte15 = chrb(&h05) 3478 Case 2 3479 ICSSerialPort1.Byte15 = chrb(&h0A) 3480 Case 3 3481 ICSSerialPort1.Byte15 = chrb(&h14) 3482 Case 4 3483 ICSSerialPort1.Byte15 = chrb(&h28) 3484 Case 5 3485 3486 End Select 3487 End Sub 3488 #tag EndEvent 3489 #tag EndEvents 3490 #tag Events PopupMenu_VerticalInteria 3491 #tag Event 3492 Sub Change() 3493 Select Case me.ListIndex 3494 3495 Case 0 3496 ICSSerialPort1.Byte13 = chrb(&h01) 3497 Case 1 3498 ICSSerialPort1.Byte13 = chrb(&h02) 3499 Case 2 3500 ICSSerialPort1.Byte13 = chrb(&h03) 3501 Case 3 3502 ICSSerialPort1.Byte13 = chrb(&h04) 3503 Case 4 3504 ICSSerialPort1.Byte13 = chrb(&hFF) 3505 Case 5 3506 3507 End Select 3508 End Sub 3509 #tag EndEvent 3510 #tag EndEvents 3511 #tag Events PopupMenu_Nuetral 3512 #tag Event 3513 Sub Change() 3514 Select Case me.ListIndex 3515 3516 Case 0 3517 ICSSerialPort1.Byte11 = chrb(&h82) 3518 ICSSerialPort1.Byte12 = chrb(&h7C) 3519 3520 Case 1 3521 ICSSerialPort1.Byte11 = chrb(&h88) 3522 ICSSerialPort1.Byte12 = chrb(&h78) 3523 3524 Case 2 3525 ICSSerialPort1.Byte11 = chrb(&h94) 3526 ICSSerialPort1.Byte12 = chrb(&h6C) 3527 3528 Case 3 3529 3530 End Select 3531 End Sub 3532 #tag EndEvent 3533 #tag EndEvents 3534 #tag Events PopupMenu_DFreq 3535 #tag Event 3536 Sub Change() 3537 Select Case me.ListIndex 3538 3539 Case 0 3540 ICSSerialPort1.Byte08 = chrb(&h40) 3541 Case 1 3542 ICSSerialPort1.Byte08 = chrb(&h78) 3543 Case 2 3544 ICSSerialPort1.Byte08 = chrb(&hFF) 3545 Case 3 3546 3547 End Select 3548 End Sub 3549 #tag EndEvent 3550 #tag EndEvents 3551 #tag Events PopupMenu_Dump 3552 #tag Event 3553 Sub Change() 3554 Select Case me.ListIndex 3555 3556 Case 0 3557 ICSSerialPort1.Byte07 = chrb(&h01) 3558 Case 1 3559 ICSSerialPort1.Byte07 = chrb(&h02) 3560 Case 2 3561 3562 End Select 3563 End Sub 3564 #tag EndEvent 3565 #tag EndEvents 3566 #tag Events PopupMenu_DBand 3567 #tag Event 3568 Sub Change() 3569 Select Case me.ListIndex 3570 3571 Case 0 3572 ICSSerialPort1.Byte06 = chrb(&h01) 3573 Case 1 3574 ICSSerialPort1.Byte06 = chrb(&h02) 3575 Case 2 3576 ICSSerialPort1.Byte06 = chrb(&h03) 3577 Case 3 3578 3579 End Select 3580 End Sub 3581 #tag EndEvent 3582 #tag EndEvents 3583 #tag Events Slider_Punch 3584 #tag Event 3585 Sub ValueChanged() 3586 ICSSerialPort1.Byte05 = chrb(me.Value) 3587 //Check to see if we need to update the edit field 3588 //This prevents the edit field from triggering this event that then updates the edit field again 3589 //Causing the cursor to move to the begginning of the editfield 3590 if EditField_Punch.Text <> str(me.Value) then 3591 EditField_Punch.Text = str(me.Value) 3592 end if 3593 3594 3595 End Sub 3596 #tag EndEvent 3597 #tag EndEvents 3598 #tag Events EditField_Punch 3599 #tag Event 3600 Sub TextChange() 3601 //Make sure we have a valid value if not then set it to something 3602 if me.Text <> "" then 3603 if val(me.Text) > 255 or val(me.Text) < 1 then 3604 me.Text = "255" 3605 end if 3606 end if 3607 3608 dim d as double 3609 dim i as integer 3610 d = val(me.Text) 3611 i = d 3612 ICSSerialPort1.Byte05 = chrb(i) 3613 3614 Slider_Punch.Value = val(me.Text) 3615 End Sub 3616 #tag EndEvent 3617 #tag EndEvents 3618 #tag Events PopupMenu_Speed 3619 #tag Event 3620 Sub Change() 3621 Select Case me.ListIndex 3622 3623 Case 0 3624 ICSSerialPort1.Byte04 = chrb(&h0A) 3625 Case 1 3626 ICSSerialPort1.Byte04 = chrb(&h14) 3627 Case 2 3628 ICSSerialPort1.Byte04 = chrb(&h1E) 3629 Case 3 3630 ICSSerialPort1.Byte04 = chrb(&h28) 3631 Case 4 3632 ICSSerialPort1.Byte04 = chrb(&hFF) 3633 Case 5 3634 3635 End Select 3636 End Sub 3637 #tag EndEvent 3638 #tag EndEvents 3639 #tag Events PopupMenu_Gain 3640 #tag Event 3641 Sub Change() 3642 Select Case me.ListIndex 3643 3644 case 0 3645 ICSSerialPort1.Byte03 = chrb(&h32) 3646 3647 case 1 3648 ICSSerialPort1.Byte03 = chrb(&h64) 3649 3650 case 2 3651 ICSSerialPort1.Byte03 = chrb(&hFF) 3652 3653 case 3 3654 3655 End Select 3656 3657 End Sub 3658 #tag EndEvent 3659 #tag EndEvents 3660 #tag Events PopupMenu_CarType 3661 #tag Event 3662 Sub Change() 3663 ICSSerialPort1.setCarType(me.Text) 3664 ICSSerialPort1.setDefaultValues 3665 disableControls 3666 3667 End Sub 3668 #tag EndEvent 3669 #tag EndEvents 3670 #tag Events EditField_Byte12 3671 #tag Event 3672 Sub TextChange() 3673 //Make sure we have a valid value if not then set it to something 3674 if me.Text <> "" then 3675 if val(me.Text) > 255 or val(me.Text) < 0 then 3676 me.Text = "255" 3677 end if 3678 end if 3679 3680 dim d as double 3681 dim i as integer 3682 d = val(me.Text) 3683 i = d 3684 ICSSerialPort1.Byte12 = chrb(i) 3685 End Sub 3686 #tag EndEvent 3687 #tag EndEvents 3688 #tag Events EditField_Byte11 3689 #tag Event 3690 Sub TextChange() 3691 //Make sure we have a valid value if not then set it to something 3692 if me.Text <> "" then 3693 if val(me.Text) > 255 or val(me.Text) < 0 then 3694 me.Text = "255" 3695 end if 3696 end if 3697 3698 dim d as double 3699 dim i as integer 3700 d = val(me.Text) 3701 i = d 3702 ICSSerialPort1.Byte11 = chrb(i) 3703 End Sub 3704 #tag EndEvent 3705 #tag EndEvents 3706 #tag Events EditField_Byte10 3707 #tag Event 3708 Sub TextChange() 3709 //Make sure we have a valid value if not then set it to something 3710 if me.Text <> "" then 3711 if val(me.Text) > 255 or val(me.Text) < 0 then 3712 me.Text = "255" 3713 end if 3714 end if 3715 3716 dim d as double 3717 dim i as integer 3718 d = val(me.Text) 3719 i = d 3720 ICSSerialPort1.Byte10 = chrb(i) 3721 End Sub 3722 #tag EndEvent 3723 #tag EndEvents 3724 #tag Events EditField_Byte17 3725 #tag Event 3726 Sub TextChange() 3727 //Make sure we have a valid value if not then set it to something 3728 if me.Text <> "" then 3729 if val(me.Text) > 255 or val(me.Text) < 0 then 3730 me.Text = "255" 3731 end if 3732 end if 3733 3734 dim d as double 3735 dim i as integer 3736 d = val(me.Text) 3737 i = d 3738 ICSSerialPort1.Byte17 = chrb(i) 3739 End Sub 3740 #tag EndEvent 3741 #tag EndEvents 3742 #tag Events EditField_Byte16 3743 #tag Event 3744 Sub TextChange() 3745 //Make sure we have a valid value if not then set it to something 3746 if me.Text <> "" then 3747 if val(me.Text) > 255 or val(me.Text) < 0 then 3748 me.Text = "255" 3749 end if 3750 end if 3751 3752 dim d as double 3753 dim i as integer 3754 d = val(me.Text) 3755 i = d 3756 ICSSerialPort1.Byte16 = chrb(i) 3757 End Sub 3758 #tag EndEvent 3759 #tag EndEvents 3760 #tag Events EditField_Byte15 3761 #tag Event 3762 Sub TextChange() 3763 //Make sure we have a valid value if not then set it to something 3764 if me.Text <> "" then 3765 if val(me.Text) > 255 or val(me.Text) < 0 then 3766 me.Text = "255" 3767 end if 3768 end if 3769 3770 dim d as double 3771 dim i as integer 3772 d = val(me.Text) 3773 i = d 3774 ICSSerialPort1.Byte15 = chrb(i) 3775 End Sub 3776 #tag EndEvent 3777 #tag EndEvents 3778 #tag Events EditField_Byte14 3779 #tag Event 3780 Sub TextChange() 3781 //Make sure we have a valid value if not then set it to something 3782 if me.Text <> "" then 3783 if val(me.Text) > 255 or val(me.Text) < 0 then 3784 me.Text = "255" 3785 end if 3786 end if 3787 3788 dim d as double 3789 dim i as integer 3790 d = val(me.Text) 3791 i = d 3792 ICSSerialPort1.Byte14 = chrb(i) 3793 End Sub 3794 #tag EndEvent 3795 #tag EndEvents 3796 #tag Events EditField_Byte13 3797 #tag Event 3798 Sub TextChange() 3799 //Make sure we have a valid value if not then set it to something 3800 if me.Text <> "" then 3801 if val(me.Text) > 255 or val(me.Text) < 0 then 3802 me.Text = "255" 3803 end if 3804 end if 3805 3806 dim d as double 3807 dim i as integer 3808 d = val(me.Text) 3809 i = d 3810 ICSSerialPort1.Byte13 = chrb(i) 3811 End Sub 3812 #tag EndEvent 3813 #tag EndEvents 3814 #tag Events ICSSerialPort1 3815 #tag Event 3816 Sub valuesChanged() 3817 //Update the screens with the new values 3818 updateAdvancedScreen 3819 updateCarScreen 3820 End Sub 3821 #tag EndEvent 3822 #tag Event 3823 Sub profileImported(profileName as string) 3824 PopupMenu_Profile.AddRow(profileName) 3825 3826 //Make sure to switch to the new profile 3827 PopupMenu_Profile.ListIndex = PopupMenu_Profile.ListCount 3828 3829 //Update the screens with the new values 3830 updateAdvancedScreen 3831 updateCarScreen 3832 End Sub 3833 #tag EndEvent 3834 #tag EndEvents 3835 #tag Events PushButton_Default 3836 #tag Event 3837 Sub Action() 3838 ICSSerialPort1.setDefaultValues 3154 3839 End Sub 3155 3840 #tag EndEvent … … 3162 3847 count = System.SerialPortCount 3163 3848 3164 if comPort <> "" then3849 if PopupMenu_SerialPort.Text <> "" then 3165 3850 //We can try opening the com port and set the popup menu to that port 3166 3851 … … 3176 3861 //Could not open 3177 3862 MsgBox "Error opening defined com port" 3863 //Disable buttons 3864 PushButton_Read.Enabled = False 3865 PushButton_Write.Enabled = False 3866 PushButton_Reset.Enabled = False 3867 else 3868 //Enable buttons 3869 PushButton_Read.Enabled = True 3870 PushButton_Write.Enabled = True 3871 PushButton_Reset.Enabled = True 3872 3178 3873 end if 3179 3874 //Save and exit … … 3193 3888 Sub Change() 3194 3889 if me.Text <> "" then 3195 PushButton_SaveProfile.Visible = true 3196 PushButton_Delete.Visible = true 3890 PushButton_SaveProfile.Enabled = true 3891 PushButton_Delete.Enabled = true 3892 PushButton_Export.Enabled = true 3197 3893 ICSSerialPort1.loadProfile(me.Text) 3198 3894 end if … … 3202 3898 Sub Open() 3203 3899 dim s() as string 3204 dim i as integer3205 3900 3206 3901 s = ICSSerialPort1.listProfiles … … 3214 3909 #tag EndEvent 3215 3910 #tag EndEvents 3911 #tag Events PushButton_SaveProfile 3912 #tag Event 3913 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 3216 3937 #tag Events PushButton_Create 3217 3938 #tag Event … … 3222 3943 #tag EndEvent 3223 3944 #tag EndEvents 3224 #tag Events PushButton_ Delete3945 #tag Events PushButton_Import 3225 3946 #tag Event 3226 3947 Sub Action() 3227 ICSSerialPort1.deleteProfile(PopupMenu_Profile.Text) 3228 End Sub 3229 #tag EndEvent 3230 #tag EndEvents 3231 #tag Events Slider_THGain 3232 #tag Event 3233 Sub ValueChanged() 3234 ICSSerialPort1.Byte17 = chrb(me.Value) 3235 //Check to see if we need to update the edit field 3236 //This prevents the edit field from triggering this event that then updates the edit field again 3237 //Causing the cursor to move to the begginning of the editfield 3238 if EditField_THGain.Text <> str(me.Value) then 3239 EditField_THGain.Text = str(me.Value) 3948 dim success as Boolean 3949 3950 success = ICSSerialPort1.importProfile 3951 3952 if success = false then 3953 MsgBox "Error importing profile" 3240 3954 end if 3241 3242 3243 End Sub 3244 #tag EndEvent 3245 #tag EndEvents 3246 #tag Events EditField_THGain 3247 #tag Event 3248 Sub TextChange() 3249 //Make sure we have a valid value if not then set it to something 3250 if me.Text <> "" then 3251 if val(me.Text) > 255 or val(me.Text) < 1 then 3252 me.Text = "255" 3253 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) 3254 3963 end if 3255 3256 dim d as double 3257 dim i as integer 3258 d = val(me.Text) 3259 i = d 3260 ICSSerialPort1.Byte17 = chrb(i) 3261 3262 Slider_THGain.Value = val(me.Text) 3263 End Sub 3264 #tag EndEvent 3265 #tag EndEvents 3266 #tag Events Slider_STGain 3267 #tag Event 3268 Sub ValueChanged() 3269 ICSSerialPort1.Byte16 = chrb(me.Value) 3270 //Check to see if we need to update the edit field 3271 //This prevents the edit field from triggering this event that then updates the edit field again 3272 //Causing the cursor to move to the begginning of the editfield 3273 if EditField_STGain.Text <> str(me.Value) then 3274 EditField_STGain.Text = str(me.Value) 3275 end if 3276 End Sub 3277 #tag EndEvent 3278 #tag EndEvents 3279 #tag Events EditField_STGain 3280 #tag Event 3281 Sub TextChange() 3282 //Make sure we have a valid value if not then set it to something 3283 if me.Text <> "" then 3284 if val(me.Text) > 255 or val(me.Text) < 1 then 3285 me.Text = "255" 3286 end if 3287 end if 3288 3289 dim d as double 3290 dim i as integer 3291 d = val(me.Text) 3292 i = d 3293 ICSSerialPort1.Byte16 = chrb(i) 3294 3295 Slider_STGain.Value = val(me.Text) 3296 3297 3298 End Sub 3299 #tag EndEvent 3300 #tag EndEvents 3301 #tag Events PopupMenu_BackTiming 3302 #tag Event 3303 Sub Change() 3304 Select Case me.ListIndex 3305 3306 Case 0 3307 ICSSerialPort1.Byte15 = chrb(&h01) 3308 Case 1 3309 ICSSerialPort1.Byte15 = chrb(&h05) 3310 Case 2 3311 ICSSerialPort1.Byte15 = chrb(&h0A) 3312 Case 3 3313 ICSSerialPort1.Byte15 = chrb(&h14) 3314 Case 4 3315 ICSSerialPort1.Byte15 = chrb(&h28) 3316 Case 5 3317 3318 End Select 3319 End Sub 3320 #tag EndEvent 3321 #tag EndEvents 3322 #tag Events PopupMenu_VerticalInteria 3323 #tag Event 3324 Sub Change() 3325 Select Case me.ListIndex 3326 3327 Case 0 3328 ICSSerialPort1.Byte13 = chrb(&h01) 3329 Case 1 3330 ICSSerialPort1.Byte13 = chrb(&h02) 3331 Case 2 3332 ICSSerialPort1.Byte13 = chrb(&h03) 3333 Case 3 3334 ICSSerialPort1.Byte13 = chrb(&h04) 3335 Case 4 3336 ICSSerialPort1.Byte13 = chrb(&hFF) 3337 Case 5 3338 3339 End Select 3340 End Sub 3341 #tag EndEvent 3342 #tag EndEvents 3343 #tag Events PopupMenu_Nuetral 3344 #tag Event 3345 Sub Change() 3346 Select Case me.ListIndex 3347 3348 Case 0 3349 ICSSerialPort1.Byte11 = chrb(&h82) 3350 ICSSerialPort1.Byte12 = chrb(&h7C) 3351 3352 Case 1 3353 ICSSerialPort1.Byte11 = chrb(&h88) 3354 ICSSerialPort1.Byte12 = chrb(&h78) 3355 3356 Case 2 3357 ICSSerialPort1.Byte11 = chrb(&h94) 3358 ICSSerialPort1.Byte12 = chrb(&h6C) 3359 3360 Case 3 3361 3362 End Select 3363 End Sub 3364 #tag EndEvent 3365 #tag EndEvents 3366 #tag Events PopupMenu_DFreq 3367 #tag Event 3368 Sub Change() 3369 Select Case me.ListIndex 3370 3371 Case 0 3372 ICSSerialPort1.Byte08 = chrb(&h40) 3373 Case 1 3374 ICSSerialPort1.Byte08 = chrb(&h78) 3375 Case 2 3376 ICSSerialPort1.Byte08 = chrb(&hFF) 3377 Case 3 3378 3379 End Select 3380 End Sub 3381 #tag EndEvent 3382 #tag EndEvents 3383 #tag Events PopupMenu_Dump 3384 #tag Event 3385 Sub Change() 3386 Select Case me.ListIndex 3387 3388 Case 0 3389 ICSSerialPort1.Byte07 = chrb(&h01) 3390 Case 1 3391 ICSSerialPort1.Byte07 = chrb(&h02) 3392 Case 2 3393 3394 End Select 3395 End Sub 3396 #tag EndEvent 3397 #tag EndEvents 3398 #tag Events PopupMenu_DBand 3399 #tag Event 3400 Sub Change() 3401 Select Case me.ListIndex 3402 3403 Case 0 3404 ICSSerialPort1.Byte06 = chrb(&h01) 3405 Case 1 3406 ICSSerialPort1.Byte06 = chrb(&h02) 3407 Case 2 3408 ICSSerialPort1.Byte06 = chrb(&h03) 3409 Case 3 3410 3411 End Select 3412 End Sub 3413 #tag EndEvent 3414 #tag EndEvents 3415 #tag Events Slider_Punch 3416 #tag Event 3417 Sub ValueChanged() 3418 ICSSerialPort1.Byte05 = chrb(me.Value) 3419 //Check to see if we need to update the edit field 3420 //This prevents the edit field from triggering this event that then updates the edit field again 3421 //Causing the cursor to move to the begginning of the editfield 3422 if EditField_Punch.Text <> str(me.Value) then 3423 EditField_Punch.Text = str(me.Value) 3424 end if 3425 3426 3427 End Sub 3428 #tag EndEvent 3429 #tag EndEvents 3430 #tag Events EditField_Punch 3431 #tag Event 3432 Sub TextChange() 3433 //Make sure we have a valid value if not then set it to something 3434 if me.Text <> "" then 3435 if val(me.Text) > 255 or val(me.Text) < 1 then 3436 me.Text = "255" 3437 end if 3438 end if 3439 3440 dim d as double 3441 dim i as integer 3442 d = val(me.Text) 3443 i = d 3444 ICSSerialPort1.Byte05 = chrb(i) 3445 3446 Slider_Punch.Value = val(me.Text) 3447 End Sub 3448 #tag EndEvent 3449 #tag EndEvents 3450 #tag Events PopupMenu_Speed 3451 #tag Event 3452 Sub Change() 3453 Select Case me.ListIndex 3454 3455 Case 0 3456 ICSSerialPort1.Byte04 = chrb(&h0A) 3457 Case 1 3458 ICSSerialPort1.Byte04 = chrb(&h14) 3459 Case 2 3460 ICSSerialPort1.Byte04 = chrb(&h1E) 3461 Case 3 3462 ICSSerialPort1.Byte04 = chrb(&h28) 3463 Case 4 3464 ICSSerialPort1.Byte04 = chrb(&hFF) 3465 Case 5 3466 3467 End Select 3468 End Sub 3469 #tag EndEvent 3470 #tag EndEvents 3471 #tag Events PopupMenu_Gain 3472 #tag Event 3473 Sub Change() 3474 Select Case me.ListIndex 3475 3476 case 0 3477 ICSSerialPort1.Byte03 = chrb(&h32) 3478 3479 case 1 3480 ICSSerialPort1.Byte03 = chrb(&h64) 3481 3482 case 2 3483 ICSSerialPort1.Byte03 = chrb(&hFF) 3484 3485 case 3 3486 3487 End Select 3488 3489 End Sub 3490 #tag EndEvent 3491 #tag EndEvents 3492 #tag Events PopupMenu_CarType 3493 #tag Event 3494 Sub Change() 3495 ICSSerialPort1.setCarType(me.Text) 3496 disableControls 3497 3498 End Sub 3499 #tag EndEvent 3500 #tag EndEvents 3501 #tag Events EditField_Byte17 3502 #tag Event 3503 Sub TextChange() 3504 //Make sure we have a valid value if not then set it to something 3505 if me.Text <> "" then 3506 if val(me.Text) > 255 or val(me.Text) < 0 then 3507 me.Text = "255" 3508 end if 3509 end if 3510 3511 dim d as double 3512 dim i as integer 3513 d = val(me.Text) 3514 i = d 3515 ICSSerialPort1.Byte17 = chrb(i) 3516 End Sub 3517 #tag EndEvent 3518 #tag EndEvents 3519 #tag Events EditField_Byte16 3520 #tag Event 3521 Sub TextChange() 3522 //Make sure we have a valid value if not then set it to something 3523 if me.Text <> "" then 3524 if val(me.Text) > 255 or val(me.Text) < 0 then 3525 me.Text = "255" 3526 end if 3527 end if 3528 3529 dim d as double 3530 dim i as integer 3531 d = val(me.Text) 3532 i = d 3533 ICSSerialPort1.Byte16 = chrb(i) 3534 End Sub 3535 #tag EndEvent 3536 #tag EndEvents 3537 #tag Events EditField_Byte15 3538 #tag Event 3539 Sub TextChange() 3540 //Make sure we have a valid value if not then set it to something 3541 if me.Text <> "" then 3542 if val(me.Text) > 255 or val(me.Text) < 0 then 3543 me.Text = "255" 3544 end if 3545 end if 3546 3547 dim d as double 3548 dim i as integer 3549 d = val(me.Text) 3550 i = d 3551 ICSSerialPort1.Byte15 = chrb(i) 3552 End Sub 3553 #tag EndEvent 3554 #tag EndEvents 3555 #tag Events EditField_Byte14 3556 #tag Event 3557 Sub TextChange() 3558 //Make sure we have a valid value if not then set it to something 3559 if me.Text <> "" then 3560 if val(me.Text) > 255 or val(me.Text) < 0 then 3561 me.Text = "255" 3562 end if 3563 end if 3564 3565 dim d as double 3566 dim i as integer 3567 d = val(me.Text) 3568 i = d 3569 ICSSerialPort1.Byte14 = chrb(i) 3570 End Sub 3571 #tag EndEvent 3572 #tag EndEvents 3573 #tag Events EditField_Byte13 3574 #tag Event 3575 Sub TextChange() 3576 //Make sure we have a valid value if not then set it to something 3577 if me.Text <> "" then 3578 if val(me.Text) > 255 or val(me.Text) < 0 then 3579 me.Text = "255" 3580 end if 3581 end if 3582 3583 dim d as double 3584 dim i as integer 3585 d = val(me.Text) 3586 i = d 3587 ICSSerialPort1.Byte13 = chrb(i) 3588 End Sub 3589 #tag EndEvent 3590 #tag EndEvents 3591 #tag Events EditField_Byte12 3592 #tag Event 3593 Sub TextChange() 3594 //Make sure we have a valid value if not then set it to something 3595 if me.Text <> "" then 3596 if val(me.Text) > 255 or val(me.Text) < 0 then 3597 me.Text = "255" 3598 end if 3599 end if 3600 3601 dim d as double 3602 dim i as integer 3603 d = val(me.Text) 3604 i = d 3605 ICSSerialPort1.Byte12 = chrb(i) 3606 End Sub 3607 #tag EndEvent 3608 #tag EndEvents 3609 #tag Events EditField_Byte11 3610 #tag Event 3611 Sub TextChange() 3612 //Make sure we have a valid value if not then set it to something 3613 if me.Text <> "" then 3614 if val(me.Text) > 255 or val(me.Text) < 0 then 3615 me.Text = "255" 3616 end if 3617 end if 3618 3619 dim d as double 3620 dim i as integer 3621 d = val(me.Text) 3622 i = d 3623 ICSSerialPort1.Byte11 = chrb(i) 3624 End Sub 3625 #tag EndEvent 3626 #tag EndEvents 3627 #tag Events EditField_Byte10 3628 #tag Event 3629 Sub TextChange() 3630 //Make sure we have a valid value if not then set it to something 3631 if me.Text <> "" then 3632 if val(me.Text) > 255 or val(me.Text) < 0 then 3633 me.Text = "255" 3634 end if 3635 end if 3636 3637 dim d as double 3638 dim i as integer 3639 d = val(me.Text) 3640 i = d 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) 3768 End Sub 3769 #tag EndEvent 3770 #tag EndEvents 3771 #tag Events ICSSerialPort1 3772 #tag Event 3773 Sub valuesChanged() 3774 //Update the screens with the new values 3775 updateAdvancedScreen 3776 updateCarScreen 3777 End Sub 3778 #tag EndEvent 3779 #tag EndEvents 3780 #tag Events PushButton_Default 3781 #tag Event 3782 Sub Action() 3783 ICSSerialPort1.setDefaultValues 3784 End Sub 3785 #tag EndEvent 3786 #tag EndEvents 3787 #tag Events PushButton_SaveProfile 3788 #tag Event 3789 Sub Action() 3790 ICSSerialPort1.saveProfile(PopupMenu_Profile.Text) 3791 End Sub 3792 #tag EndEvent 3793 #tag EndEvents 3964 End Sub 3965 #tag EndEvent 3966 #tag EndEvents -
/trunk/desktop/FlipSideICS.rbbas
r8 r28 2 2 Protected Class FlipSideICS 3 3 Inherits Application 4 #tag Note, Name = License 5 Copyright 2010 Jeremy Auten 6 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 modify 10 it under the terms of the GNU General Public License as published by 11 the Free Software Foundation, either version 3 of the License, or 12 (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 of 16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 GNU General Public License for more details. 18 19 You should have received a copy of the GNU General Public License 20 along with Flip Side ICS Software. If not, see <http://www.gnu.org/licenses/>. 21 22 #tag EndNote 23 24 4 25 #tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public 5 26 #Tag Instance, Platform = Mac OS, Language = Default, Definition = \"Cmd+Q" -
/trunk/desktop/FlipSideICS.rbvcp
r13 r29 1 1 Type=Desktop 2 RBProjectVersion=20 09.012 RBProjectVersion=2010.01 3 3 Class=FlipSideICS;FlipSideICS.rbbas;&h321864E;&h0;false 4 4 Window=mainWindow;mainWindow.rbfrm;&hDF8AE23;&h0;false 5 5 MenuBar=mainMenuBar;mainMenuBar.rbmnu;&h4170C4A5;&h0;false 6 Picture=background;background.jpg;&h527E8FD9;&h0;false;0;&h07 6 Class=ICSSerialPort;ICSSerialPort.rbbas;&h73165B84;&h0;false 8 7 Window=createProfile;createProfile.rbfrm;&h565C380D;&h0;false 8 Picture=background;background.jpg;&h527E8FD9;&h0;false;0;&h0 9 9 DefaultWindow=mainWindow 10 10 AppMenuBar=mainMenuBar … … 12 12 MinorVersion=1 13 13 SubVersion=0 14 NonRelease= 914 NonRelease=18 15 15 Release=2 16 16 InfoVersion= … … 21 21 WinProductName= 22 22 AutoIncrementVersionInformation=True 23 BuildFlags=&h40 0023 BuildFlags=&h4010 24 24 BuildLanguage=&h0 25 25 DebugLanguage=&h0 … … 35 35 OSXBundleID= 36 36 DebuggerCommandLine= 37 UseGDIPlus=False 38 UseBuildsFolder=True
Note: See TracChangeset
for help on using the changeset viewer.