Context Navigation

mainWindow.rbfrm @ 22

Revision 22, 112.3 KB checked in by pinwc4, 15 years ago (diff)
Rearranged controls and added a little logic to make the windows build not look as hideous

Line
1	#tag Window
2	Begin Window mainWindow
3	BackColor = &hFFFFFF
4	Backdrop = 1384026073
5	CloseButton = True
6	Composite = True
7	Frame = 0
8	FullScreen = False
9	HasBackColor = False
10	Height = 370
11	ImplicitInstance= True
12	LiveResize = True
13	MacProcID = 0
14	MaxHeight = 32000
15	MaximizeButton = False
16	MaxWidth = 32000
17	MenuBar = 1097909413
18	MenuBarVisible = True
19	MinHeight = 64
20	MinimizeButton = True
21	MinWidth = 64
22	Placement = 0
23	Resizeable = True
24	Title = "Flip Side ICS"
25	Visible = True
26	Width = 640
27	Begin PushButton PushButton_Read
28	AutoDeactivate = True
29	Bold = ""
30	Cancel = ""
31	Caption = "Read"
32	Default = ""
33	Enabled = True
34	Height = 20
35	HelpTag = ""
36	Index = -2147483648
37	InitialParent = ""
38	Italic = ""
39	Left = 26
40	LockBottom = ""
41	LockedInPosition= False
42	LockLeft = ""
43	LockRight = ""
44	LockTop = ""
45	Scope = 0
46	TabIndex = 4
47	TabPanelIndex = 0
48	TabStop = True
49	TextFont = "System"
50	TextSize = 0
51	Top = 330
52	Underline = ""
53	Visible = True
54	Width = 88
55	End
56	Begin PushButton PushButton_Write
57	AutoDeactivate = True
58	Bold = ""
59	Cancel = ""
60	Caption = "Write"
61	Default = False
62	Enabled = True
63	Height = 20
64	HelpTag = ""
65	Index = -2147483648
66	InitialParent = ""
67	Italic = ""
68	Left = 126
69	LockBottom = ""
70	LockedInPosition= False
71	LockLeft = ""
72	LockRight = ""
73	LockTop = ""
74	Scope = 0
75	TabIndex = 5
76	TabPanelIndex = 0
77	TabStop = True
78	TextFont = "System"
79	TextSize = 0
80	Top = 330
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 = 330
110	Underline = ""
111	Visible = True
112	Width = 88
113	End
114	Begin TabPanel TabPanel1
115	AutoDeactivate = True
116	Bold = ""
117	Enabled = True
118	Height = 264
119	HelpTag = ""
120	Index = -2147483648
121	InitialParent = ""
122	Italic = ""
123	Left = 0
124	LockBottom = ""
125	LockedInPosition= False
126	LockLeft = ""
127	LockRight = ""
128	LockTop = ""
129	Panels = ""
130	Scope = 0
131	SmallTabs = False
132	TabDefinition = "Settings\rProfiles\rCar\rCustom"
133	TabIndex = 43
134	TabPanelIndex = 0
135	TabStop = True
136	TextFont = "System"
137	TextSize = 0
138	Top = 54
139	Underline = ""
140	Value = 1
141	Visible = True
142	Width = 640
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 = 128
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 = 128
200	Underline = ""
201	Visible = True
202	Width = 176
203	End
204	Begin EditField EditField_Byte1
205	AcceptTabs = ""
206	Alignment = 0
207	AutoDeactivate = True
208	BackColor = &hFFFFFF
209	Bold = ""
210	Border = True
211	DataField = ""
212	DataSource = ""
213	Enabled = False
214	Format = ""
215	Height = 22
216	HelpTag = ""
217	Index = -2147483648
218	InitialParent = "TabPanel1"
219	Italic = ""
220	Left = 26
221	LimitText = 0
222	LockBottom = ""
223	LockedInPosition= False
224	LockLeft = ""
225	LockRight = ""
226	LockTop = ""
227	Mask = "###"
228	Multiline = ""
229	Password = ""
230	ReadOnly = ""
231	Scope = 0
232	ScrollbarHorizontal= ""
233	ScrollbarVertical= True
234	Styled = ""
235	TabIndex = 2
236	TabPanelIndex = 4
237	TabStop = True
238	Text = ""
239	TextColor = &h000000
240	TextFont = "System"
241	TextSize = 0
242	Top = 103
243	Underline = ""
244	UseFocusRing = True
245	Visible = True
246	Width = 32
247	End
248	Begin EditField EditField_Byte18
249	AcceptTabs = ""
250	Alignment = 0
251	AutoDeactivate = True
252	BackColor = &hFFFFFF
253	Bold = ""
254	Border = True
255	DataField = ""
256	DataSource = ""
257	Enabled = False
258	Format = ""
259	Height = 22
260	HelpTag = ""
261	Index = -2147483648
262	InitialParent = "TabPanel1"
263	Italic = ""
264	Left = 316
265	LimitText = 0
266	LockBottom = ""
267	LockedInPosition= False
268	LockLeft = ""
269	LockRight = ""
270	LockTop = ""
271	Mask = "###"
272	Multiline = ""
273	Password = ""
274	ReadOnly = ""
275	Scope = 0
276	ScrollbarHorizontal= ""
277	ScrollbarVertical= True
278	Styled = ""
279	TabIndex = 3
280	TabPanelIndex = 4
281	TabStop = True
282	Text = ""
283	TextColor = &h000000
284	TextFont = "System"
285	TextSize = 0
286	Top = 273
287	Underline = ""
288	UseFocusRing = True
289	Visible = False
290	Width = 32
291	End
292	Begin EditField EditField_Byte17
293	AcceptTabs = ""
294	Alignment = 0
295	AutoDeactivate = True
296	BackColor = &hFFFFFF
297	Bold = ""
298	Border = True
299	DataField = ""
300	DataSource = ""
301	Enabled = True
302	Format = ""
303	Height = 22
304	HelpTag = ""
305	Index = -2147483648
306	InitialParent = "TabPanel1"
307	Italic = ""
308	Left = 316
309	LimitText = 0
310	LockBottom = ""
311	LockedInPosition= False
312	LockLeft = ""
313	LockRight = ""
314	LockTop = ""
315	Mask = "###"
316	Multiline = ""
317	Password = ""
318	ReadOnly = ""
319	Scope = 0
320	ScrollbarHorizontal= ""
321	ScrollbarVertical= True
322	Styled = ""
323	TabIndex = 4
324	TabPanelIndex = 4
325	TabStop = True
326	Text = ""
327	TextColor = &h000000
328	TextFont = "System"
329	TextSize = 0
330	Top = 239
331	Underline = ""
332	UseFocusRing = True
333	Visible = True
334	Width = 32
335	End
336	Begin EditField EditField_Byte16
337	AcceptTabs = ""
338	Alignment = 0
339	AutoDeactivate = True
340	BackColor = &hFFFFFF
341	Bold = ""
342	Border = True
343	DataField = ""
344	DataSource = ""
345	Enabled = True
346	Format = ""
347	Height = 22
348	HelpTag = ""
349	Index = -2147483648
350	InitialParent = "TabPanel1"
351	Italic = ""
352	Left = 316
353	LimitText = 0
354	LockBottom = ""
355	LockedInPosition= False
356	LockLeft = ""
357	LockRight = ""
358	LockTop = ""
359	Mask = "###"
360	Multiline = ""
361	Password = ""
362	ReadOnly = ""
363	Scope = 0
364	ScrollbarHorizontal= ""
365	ScrollbarVertical= True
366	Styled = ""
367	TabIndex = 5
368	TabPanelIndex = 4
369	TabStop = True
370	Text = ""
371	TextColor = &h000000
372	TextFont = "System"
373	TextSize = 0
374	Top = 205
375	Underline = ""
376	UseFocusRing = True
377	Visible = True
378	Width = 32
379	End
380	Begin EditField EditField_Byte15
381	AcceptTabs = ""
382	Alignment = 0
383	AutoDeactivate = True
384	BackColor = &hFFFFFF
385	Bold = ""
386	Border = True
387	DataField = ""
388	DataSource = ""
389	Enabled = True
390	Format = ""
391	Height = 22
392	HelpTag = ""
393	Index = -2147483648
394	InitialParent = "TabPanel1"
395	Italic = ""
396	Left = 316
397	LimitText = 0
398	LockBottom = ""
399	LockedInPosition= False
400	LockLeft = ""
401	LockRight = ""
402	LockTop = ""
403	Mask = "###"
404	Multiline = ""
405	Password = ""
406	ReadOnly = ""
407	Scope = 0
408	ScrollbarHorizontal= ""
409	ScrollbarVertical= True
410	Styled = ""
411	TabIndex = 6
412	TabPanelIndex = 4
413	TabStop = True
414	Text = ""
415	TextColor = &h000000
416	TextFont = "System"
417	TextSize = 0
418	Top = 171
419	Underline = ""
420	UseFocusRing = True
421	Visible = True
422	Width = 32
423	End
424	Begin EditField EditField_Byte14
425	AcceptTabs = ""
426	Alignment = 0
427	AutoDeactivate = True
428	BackColor = &hFFFFFF
429	Bold = ""
430	Border = True
431	DataField = ""
432	DataSource = ""
433	Enabled = True
434	Format = ""
435	Height = 22
436	HelpTag = ""
437	Index = -2147483648
438	InitialParent = "TabPanel1"
439	Italic = ""
440	Left = 316
441	LimitText = 0
442	LockBottom = ""
443	LockedInPosition= False
444	LockLeft = ""
445	LockRight = ""
446	LockTop = ""
447	Mask = "###"
448	Multiline = ""
449	Password = ""
450	ReadOnly = ""
451	Scope = 0
452	ScrollbarHorizontal= ""
453	ScrollbarVertical= True
454	Styled = ""
455	TabIndex = 7
456	TabPanelIndex = 4
457	TabStop = True
458	Text = ""
459	TextColor = &h000000
460	TextFont = "System"
461	TextSize = 0
462	Top = 137
463	Underline = ""
464	UseFocusRing = True
465	Visible = True
466	Width = 32
467	End
468	Begin EditField EditField_Byte13
469	AcceptTabs = ""
470	Alignment = 0
471	AutoDeactivate = True
472	BackColor = &hFFFFFF
473	Bold = ""
474	Border = True
475	DataField = ""
476	DataSource = ""
477	Enabled = True
478	Format = ""
479	Height = 22
480	HelpTag = ""
481	Index = -2147483648
482	InitialParent = "TabPanel1"
483	Italic = ""
484	Left = 316
485	LimitText = 0
486	LockBottom = ""
487	LockedInPosition= False
488	LockLeft = ""
489	LockRight = ""
490	LockTop = ""
491	Mask = "###"
492	Multiline = ""
493	Password = ""
494	ReadOnly = ""
495	Scope = 0
496	ScrollbarHorizontal= ""
497	ScrollbarVertical= True
498	Styled = ""
499	TabIndex = 8
500	TabPanelIndex = 4
501	TabStop = True
502	Text = ""
503	TextColor = &h000000
504	TextFont = "System"
505	TextSize = 0
506	Top = 102
507	Underline = ""
508	UseFocusRing = True
509	Visible = True
510	Width = 32
511	End
512	Begin EditField EditField_Byte12
513	AcceptTabs = ""
514	Alignment = 0
515	AutoDeactivate = True
516	BackColor = &hFFFFFF
517	Bold = ""
518	Border = True
519	DataField = ""
520	DataSource = ""
521	Enabled = True
522	Format = ""
523	Height = 22
524	HelpTag = ""
525	Index = -2147483648
526	InitialParent = "TabPanel1"
527	Italic = ""
528	Left = 154
529	LimitText = 0
530	LockBottom = ""
531	LockedInPosition= False
532	LockLeft = ""
533	LockRight = ""
534	LockTop = ""
535	Mask = "###"
536	Multiline = ""
537	Password = ""
538	ReadOnly = ""
539	Scope = 0
540	ScrollbarHorizontal= ""
541	ScrollbarVertical= True
542	Styled = ""
543	TabIndex = 9
544	TabPanelIndex = 4
545	TabStop = True
546	Text = ""
547	TextColor = &h000000
548	TextFont = "System"
549	TextSize = 0
550	Top = 273
551	Underline = ""
552	UseFocusRing = True
553	Visible = True
554	Width = 32
555	End
556	Begin EditField EditField_Byte11
557	AcceptTabs = ""
558	Alignment = 0
559	AutoDeactivate = True
560	BackColor = &hFFFFFF
561	Bold = ""
562	Border = True
563	DataField = ""
564	DataSource = ""
565	Enabled = True
566	Format = ""
567	Height = 22
568	HelpTag = ""
569	Index = -2147483648
570	InitialParent = "TabPanel1"
571	Italic = ""
572	Left = 154
573	LimitText = 0
574	LockBottom = ""
575	LockedInPosition= False
576	LockLeft = ""
577	LockRight = ""
578	LockTop = ""
579	Mask = "###"
580	Multiline = ""
581	Password = ""
582	ReadOnly = ""
583	Scope = 0
584	ScrollbarHorizontal= ""
585	ScrollbarVertical= True
586	Styled = ""
587	TabIndex = 10
588	TabPanelIndex = 4
589	TabStop = True
590	Text = ""
591	TextColor = &h000000
592	TextFont = "System"
593	TextSize = 0
594	Top = 239
595	Underline = ""
596	UseFocusRing = True
597	Visible = True
598	Width = 32
599	End
600	Begin EditField EditField_Byte10
601	AcceptTabs = ""
602	Alignment = 0
603	AutoDeactivate = True
604	BackColor = &hFFFFFF
605	Bold = ""
606	Border = True
607	DataField = ""
608	DataSource = ""
609	Enabled = True
610	Format = ""
611	Height = 22
612	HelpTag = ""
613	Index = -2147483648
614	InitialParent = "TabPanel1"
615	Italic = ""
616	Left = 154
617	LimitText = 0
618	LockBottom = ""
619	LockedInPosition= False
620	LockLeft = ""
621	LockRight = ""
622	LockTop = ""
623	Mask = "###"
624	Multiline = ""
625	Password = ""
626	ReadOnly = ""
627	Scope = 0
628	ScrollbarHorizontal= ""
629	ScrollbarVertical= True
630	Styled = ""
631	TabIndex = 11
632	TabPanelIndex = 4
633	TabStop = True
634	Text = ""
635	TextColor = &h000000
636	TextFont = "System"
637	TextSize = 0
638	Top = 205
639	Underline = ""
640	UseFocusRing = True
641	Visible = True
642	Width = 32
643	End
644	Begin EditField EditField_Byte9
645	AcceptTabs = ""
646	Alignment = 0
647	AutoDeactivate = True
648	BackColor = &hFFFFFF
649	Bold = ""
650	Border = True
651	DataField = ""
652	DataSource = ""
653	Enabled = True
654	Format = ""
655	Height = 22
656	HelpTag = ""
657	Index = -2147483648
658	InitialParent = "TabPanel1"
659	Italic = ""
660	Left = 154
661	LimitText = 0
662	LockBottom = ""
663	LockedInPosition= False
664	LockLeft = ""
665	LockRight = ""
666	LockTop = ""
667	Mask = "###"
668	Multiline = ""
669	Password = ""
670	ReadOnly = ""
671	Scope = 0
672	ScrollbarHorizontal= ""
673	ScrollbarVertical= True
674	Styled = ""
675	TabIndex = 12
676	TabPanelIndex = 4
677	TabStop = True
678	Text = ""
679	TextColor = &h000000
680	TextFont = "System"
681	TextSize = 0
682	Top = 171
683	Underline = ""
684	UseFocusRing = True
685	Visible = True
686	Width = 32
687	End
688	Begin EditField EditField_Byte8
689	AcceptTabs = ""
690	Alignment = 0
691	AutoDeactivate = True
692	BackColor = &hFFFFFF
693	Bold = ""
694	Border = True
695	DataField = ""
696	DataSource = ""
697	Enabled = True
698	Format = ""
699	Height = 22
700	HelpTag = ""
701	Index = -2147483648
702	InitialParent = "TabPanel1"
703	Italic = ""
704	Left = 154
705	LimitText = 0
706	LockBottom = ""
707	LockedInPosition= False
708	LockLeft = ""
709	LockRight = ""
710	LockTop = ""
711	Mask = "###"
712	Multiline = ""
713	Password = ""
714	ReadOnly = ""
715	Scope = 0
716	ScrollbarHorizontal= ""
717	ScrollbarVertical= True
718	Styled = ""
719	TabIndex = 13
720	TabPanelIndex = 4
721	TabStop = True
722	Text = ""
723	TextColor = &h000000
724	TextFont = "System"
725	TextSize = 0
726	Top = 136
727	Underline = ""
728	UseFocusRing = True
729	Visible = True
730	Width = 32
731	End
732	Begin EditField EditField_Byte7
733	AcceptTabs = ""
734	Alignment = 0
735	AutoDeactivate = True
736	BackColor = &hFFFFFF
737	Bold = ""
738	Border = True
739	DataField = ""
740	DataSource = ""
741	Enabled = True
742	Format = ""
743	Height = 22
744	HelpTag = ""
745	Index = -2147483648
746	InitialParent = "TabPanel1"
747	Italic = ""
748	Left = 154
749	LimitText = 0
750	LockBottom = ""
751	LockedInPosition= False
752	LockLeft = ""
753	LockRight = ""
754	LockTop = ""
755	Mask = "###"
756	Multiline = ""
757	Password = ""
758	ReadOnly = ""
759	Scope = 0
760	ScrollbarHorizontal= ""
761	ScrollbarVertical= True
762	Styled = ""
763	TabIndex = 14
764	TabPanelIndex = 4
765	TabStop = True
766	Text = ""
767	TextColor = &h000000
768	TextFont = "System"
769	TextSize = 0
770	Top = 102
771	Underline = ""
772	UseFocusRing = True
773	Visible = True
774	Width = 32
775	End
776	Begin EditField EditField_Byte6
777	AcceptTabs = ""
778	Alignment = 0
779	AutoDeactivate = True
780	BackColor = &hFFFFFF
781	Bold = ""
782	Border = True
783	DataField = ""
784	DataSource = ""
785	Enabled = True
786	Format = ""
787	Height = 22
788	HelpTag = ""
789	Index = -2147483648
790	InitialParent = "TabPanel1"
791	Italic = ""
792	Left = 26
793	LimitText = 0
794	LockBottom = ""
795	LockedInPosition= False
796	LockLeft = ""
797	LockRight = ""
798	LockTop = ""
799	Mask = "###"
800	Multiline = ""
801	Password = ""
802	ReadOnly = ""
803	Scope = 0
804	ScrollbarHorizontal= ""
805	ScrollbarVertical= True
806	Styled = ""
807	TabIndex = 15
808	TabPanelIndex = 4
809	TabStop = True
810	Text = ""
811	TextColor = &h000000
812	TextFont = "System"
813	TextSize = 0
814	Top = 273
815	Underline = ""
816	UseFocusRing = True
817	Visible = True
818	Width = 32
819	End
820	Begin EditField EditField_Byte5
821	AcceptTabs = ""
822	Alignment = 0
823	AutoDeactivate = True
824	BackColor = &hFFFFFF
825	Bold = ""
826	Border = True
827	DataField = ""
828	DataSource = ""
829	Enabled = True
830	Format = ""
831	Height = 22
832	HelpTag = ""
833	Index = -2147483648
834	InitialParent = "TabPanel1"
835	Italic = ""
836	Left = 26
837	LimitText = 0
838	LockBottom = ""
839	LockedInPosition= False
840	LockLeft = ""
841	LockRight = ""
842	LockTop = ""
843	Mask = "###"
844	Multiline = ""
845	Password = ""
846	ReadOnly = ""
847	Scope = 0
848	ScrollbarHorizontal= ""
849	ScrollbarVertical= True
850	Styled = ""
851	TabIndex = 16
852	TabPanelIndex = 4
853	TabStop = True
854	Text = ""
855	TextColor = &h000000
856	TextFont = "System"
857	TextSize = 0
858	Top = 240
859	Underline = ""
860	UseFocusRing = True
861	Visible = True
862	Width = 32
863	End
864	Begin EditField EditField_Byte4
865	AcceptTabs = ""
866	Alignment = 0
867	AutoDeactivate = True
868	BackColor = &hFFFFFF
869	Bold = ""
870	Border = True
871	DataField = ""
872	DataSource = ""
873	Enabled = True
874	Format = ""
875	Height = 22
876	HelpTag = ""
877	Index = -2147483648
878	InitialParent = "TabPanel1"
879	Italic = ""
880	Left = 26
881	LimitText = 0
882	LockBottom = ""
883	LockedInPosition= False
884	LockLeft = ""
885	LockRight = ""
886	LockTop = ""
887	Mask = "###"
888	Multiline = ""
889	Password = ""
890	ReadOnly = ""
891	Scope = 0
892	ScrollbarHorizontal= ""
893	ScrollbarVertical= True
894	Styled = ""
895	TabIndex = 17
896	TabPanelIndex = 4
897	TabStop = True
898	Text = ""
899	TextColor = &h000000
900	TextFont = "System"
901	TextSize = 0
902	Top = 206
903	Underline = ""
904	UseFocusRing = True
905	Visible = True
906	Width = 32
907	End
908	Begin EditField EditField_Byte3
909	AcceptTabs = ""
910	Alignment = 0
911	AutoDeactivate = True
912	BackColor = &hFFFFFF
913	Bold = ""
914	Border = True
915	DataField = ""
916	DataSource = ""
917	Enabled = True
918	Format = ""
919	Height = 22
920	HelpTag = ""
921	Index = -2147483648
922	InitialParent = "TabPanel1"
923	Italic = ""
924	Left = 26
925	LimitText = 0
926	LockBottom = ""
927	LockedInPosition= False
928	LockLeft = ""
929	LockRight = ""
930	LockTop = ""
931	Mask = "###"
932	Multiline = ""
933	Password = ""
934	ReadOnly = ""
935	Scope = 0
936	ScrollbarHorizontal= ""
937	ScrollbarVertical= True
938	Styled = ""
939	TabIndex = 18
940	TabPanelIndex = 4
941	TabStop = True
942	Text = ""
943	TextColor = &h000000
944	TextFont = "System"
945	TextSize = 0
946	Top = 171
947	Underline = ""
948	UseFocusRing = True
949	Visible = True
950	Width = 32
951	End
952	Begin EditField EditField_Byte2
953	AcceptTabs = ""
954	Alignment = 0
955	AutoDeactivate = True
956	BackColor = &hFFFFFF
957	Bold = ""
958	Border = True
959	DataField = ""
960	DataSource = ""
961	Enabled = False
962	Format = ""
963	Height = 22
964	HelpTag = ""
965	Index = -2147483648
966	InitialParent = "TabPanel1"
967	Italic = ""
968	Left = 26
969	LimitText = 0
970	LockBottom = ""
971	LockedInPosition= False
972	LockLeft = ""
973	LockRight = ""
974	LockTop = ""
975	Mask = "###"
976	Multiline = ""
977	Password = ""
978	ReadOnly = ""
979	Scope = 0
980	ScrollbarHorizontal= ""
981	ScrollbarVertical= True
982	Styled = ""
983	TabIndex = 19
984	TabPanelIndex = 4
985	TabStop = True
986	Text = ""
987	TextColor = &h000000
988	TextFont = "System"
989	TextSize = 0
990	Top = 137
991	Underline = ""
992	UseFocusRing = True
993	Visible = True
994	Width = 32
995	End
996	Begin StaticText StaticText_Byte1
997	AutoDeactivate = True
998	Bold = ""
999	DataField = ""
1000	DataSource = ""
1001	Enabled = True
1002	Height = 20
1003	HelpTag = ""
1004	Index = -2147483648
1005	InitialParent = "TabPanel1"
1006	Italic = ""
1007	Left = 70
1008	LockBottom = ""
1009	LockedInPosition= False
1010	LockLeft = ""
1011	LockRight = ""
1012	LockTop = ""
1013	Multiline = ""
1014	Scope = 0
1015	TabIndex = 21
1016	TabPanelIndex = 4
1017	Text = "Header"
1018	TextAlign = 0
1019	TextColor = "&cB8B8B8"
1020	TextFont = "System"
1021	TextSize = 0
1022	Top = 103
1023	Underline = ""
1024	Visible = True
1025	Width = 106
1026	End
1027	Begin StaticText StaticText_Byte6
1028	AutoDeactivate = True
1029	Bold = ""
1030	DataField = ""
1031	DataSource = ""
1032	Enabled = True
1033	Height = 20
1034	HelpTag = ""
1035	Index = -2147483648
1036	InitialParent = "TabPanel1"
1037	Italic = ""
1038	Left = 70
1039	LockBottom = ""
1040	LockedInPosition= False
1041	LockLeft = ""
1042	LockRight = ""
1043	LockTop = ""
1044	Multiline = ""
1045	Scope = 0
1046	TabIndex = 22
1047	TabPanelIndex = 4
1048	Text = "Drive Band"
1049	TextAlign = 0
1050	TextColor = "&cB8B8B8"
1051	TextFont = "System"
1052	TextSize = 0
1053	Top = 273
1054	Underline = ""
1055	Visible = True
1056	Width = 106
1057	End
1058	Begin StaticText StaticText_Byte5
1059	AutoDeactivate = True
1060	Bold = ""
1061	DataField = ""
1062	DataSource = ""
1063	Enabled = True
1064	Height = 20
1065	HelpTag = ""
1066	Index = -2147483648
1067	InitialParent = "TabPanel1"
1068	Italic = ""
1069	Left = 70
1070	LockBottom = ""
1071	LockedInPosition= False
1072	LockLeft = ""
1073	LockRight = ""
1074	LockTop = ""
1075	Multiline = ""
1076	Scope = 0
1077	TabIndex = 23
1078	TabPanelIndex = 4
1079	Text = "Punch"
1080	TextAlign = 0
1081	TextColor = "&cB8B8B8"
1082	TextFont = "System"
1083	TextSize = 0
1084	Top = 239
1085	Underline = ""
1086	Visible = True
1087	Width = 106
1088	End
1089	Begin StaticText StaticText_Byte4
1090	AutoDeactivate = True
1091	Bold = ""
1092	DataField = ""
1093	DataSource = ""
1094	Enabled = True
1095	Height = 20
1096	HelpTag = ""
1097	Index = -2147483648
1098	InitialParent = "TabPanel1"
1099	Italic = ""
1100	Left = 70
1101	LockBottom = ""
1102	LockedInPosition= False
1103	LockLeft = ""
1104	LockRight = ""
1105	LockTop = ""
1106	Multiline = ""
1107	Scope = 0
1108	TabIndex = 24
1109	TabPanelIndex = 4
1110	Text = "Speed"
1111	TextAlign = 0
1112	TextColor = "&cB8B8B8"
1113	TextFont = "System"
1114	TextSize = 0
1115	Top = 207
1116	Underline = ""
1117	Visible = True
1118	Width = 106
1119	End
1120	Begin StaticText StaticText_Byte3
1121	AutoDeactivate = True
1122	Bold = ""
1123	DataField = ""
1124	DataSource = ""
1125	Enabled = True
1126	Height = 20
1127	HelpTag = ""
1128	Index = -2147483648
1129	InitialParent = "TabPanel1"
1130	Italic = ""
1131	Left = 70
1132	LockBottom = ""
1133	LockedInPosition= False
1134	LockLeft = ""
1135	LockRight = ""
1136	LockTop = ""
1137	Multiline = ""
1138	Scope = 0
1139	TabIndex = 25
1140	TabPanelIndex = 4
1141	Text = "Gain"
1142	TextAlign = 0
1143	TextColor = "&cB8B8B8"
1144	TextFont = "System"
1145	TextSize = 0
1146	Top = 171
1147	Underline = ""
1148	Visible = True
1149	Width = 106
1150	End
1151	Begin StaticText StaticText_Byte2
1152	AutoDeactivate = True
1153	Bold = ""
1154	DataField = ""
1155	DataSource = ""
1156	Enabled = True
1157	Height = 20
1158	HelpTag = ""
1159	Index = -2147483648
1160	InitialParent = "TabPanel1"
1161	Italic = ""
1162	Left = 70
1163	LockBottom = ""
1164	LockedInPosition= False
1165	LockLeft = ""
1166	LockRight = ""
1167	LockTop = ""
1168	Multiline = ""
1169	Scope = 0
1170	TabIndex = 26
1171	TabPanelIndex = 4
1172	Text = "Header"
1173	TextAlign = 0
1174	TextColor = "&cB8B8B8"
1175	TextFont = "System"
1176	TextSize = 0
1177	Top = 137
1178	Underline = ""
1179	Visible = True
1180	Width = 106
1181	End
1182	Begin StaticText StaticText_Byte7
1183	AutoDeactivate = True
1184	Bold = ""
1185	DataField = ""
1186	DataSource = ""
1187	Enabled = True
1188	Height = 20
1189	HelpTag = ""
1190	Index = -2147483648
1191	InitialParent = "TabPanel1"
1192	Italic = ""
1193	Left = 200
1194	LockBottom = ""
1195	LockedInPosition= False
1196	LockLeft = ""
1197	LockRight = ""
1198	LockTop = ""
1199	Multiline = ""
1200	Scope = 0
1201	TabIndex = 27
1202	TabPanelIndex = 4
1203	Text = "Dump"
1204	TextAlign = 0
1205	TextColor = "&cB8B8B8"
1206	TextFont = "System"
1207	TextSize = 0
1208	Top = 104
1209	Underline = ""
1210	Visible = True
1211	Width = 106
1212	End
1213	Begin StaticText StaticText_Byte8
1214	AutoDeactivate = True
1215	Bold = ""
1216	DataField = ""
1217	DataSource = ""
1218	Enabled = True
1219	Height = 20
1220	HelpTag = ""
1221	Index = -2147483648
1222	InitialParent = "TabPanel1"
1223	Italic = ""
1224	Left = 200
1225	LockBottom = ""
1226	LockedInPosition= False
1227	LockLeft = ""
1228	LockRight = ""
1229	LockTop = ""
1230	Multiline = ""
1231	Scope = 0
1232	TabIndex = 28
1233	TabPanelIndex = 4
1234	Text = "Drive Frequency"
1235	TextAlign = 0
1236	TextColor = "&cB8B8B8"
1237	TextFont = "System"
1238	TextSize = 0
1239	Top = 137
1240	Underline = ""
1241	Visible = True
1242	Width = 106
1243	End
1244	Begin StaticText StaticText_Byte9
1245	AutoDeactivate = True
1246	Bold = ""
1247	DataField = ""
1248	DataSource = ""
1249	Enabled = True
1250	Height = 20
1251	HelpTag = ""
1252	Index = -2147483648
1253	InitialParent = "TabPanel1"
1254	Italic = ""
1255	Left = 198
1256	LockBottom = ""
1257	LockedInPosition= False
1258	LockLeft = ""
1259	LockRight = ""
1260	LockTop = ""
1261	Multiline = ""
1262	Scope = 0
1263	TabIndex = 29
1264	TabPanelIndex = 4
1265	Text = "Unknown"
1266	TextAlign = 0
1267	TextColor = "&cB8B8B8"
1268	TextFont = "System"
1269	TextSize = 0
1270	Top = 173
1271	Underline = ""
1272	Visible = True
1273	Width = 106
1274	End
1275	Begin StaticText StaticText_Byte10
1276	AutoDeactivate = True
1277	Bold = ""
1278	DataField = ""
1279	DataSource = ""
1280	Enabled = True
1281	Height = 20
1282	HelpTag = ""
1283	Index = -2147483648
1284	InitialParent = "TabPanel1"
1285	Italic = ""
1286	Left = 200
1287	LockBottom = ""
1288	LockedInPosition= False
1289	LockLeft = ""
1290	LockRight = ""
1291	LockTop = ""
1292	Multiline = ""
1293	Scope = 0
1294	TabIndex = 30
1295	TabPanelIndex = 4
1296	Text = "Unknown"
1297	TextAlign = 0
1298	TextColor = "&cB8B8B8"
1299	TextFont = "System"
1300	TextSize = 0
1301	Top = 207
1302	Underline = ""
1303	Visible = True
1304	Width = 106
1305	End
1306	Begin StaticText StaticText_Byte11
1307	AutoDeactivate = True
1308	Bold = ""
1309	DataField = ""
1310	DataSource = ""
1311	Enabled = True
1312	Height = 20
1313	HelpTag = ""
1314	Index = -2147483648
1315	InitialParent = "TabPanel1"
1316	Italic = ""
1317	Left = 198
1318	LockBottom = ""
1319	LockedInPosition= False
1320	LockLeft = ""
1321	LockRight = ""
1322	LockTop = ""
1323	Multiline = ""
1324	Scope = 0
1325	TabIndex = 31
1326	TabPanelIndex = 4
1327	Text = "Neutral Low"
1328	TextAlign = 0
1329	TextColor = "&cB8B8B8"
1330	TextFont = "System"
1331	TextSize = 0
1332	Top = 240
1333	Underline = ""
1334	Visible = True
1335	Width = 106
1336	End
1337	Begin StaticText StaticText_Byte12
1338	AutoDeactivate = True
1339	Bold = ""
1340	DataField = ""
1341	DataSource = ""
1342	Enabled = True
1343	Height = 20
1344	HelpTag = ""
1345	Index = -2147483648
1346	InitialParent = "TabPanel1"
1347	Italic = ""
1348	Left = 198
1349	LockBottom = ""
1350	LockedInPosition= False
1351	LockLeft = ""
1352	LockRight = ""
1353	LockTop = ""
1354	Multiline = ""
1355	Scope = 0
1356	TabIndex = 32
1357	TabPanelIndex = 4
1358	Text = "Neutral High"
1359	TextAlign = 0
1360	TextColor = "&cB8B8B8"
1361	TextFont = "System"
1362	TextSize = 0
1363	Top = 273
1364	Underline = ""
1365	Visible = True
1366	Width = 106
1367	End
1368	Begin StaticText StaticText_Byte13
1369	AutoDeactivate = True
1370	Bold = ""
1371	DataField = ""
1372	DataSource = ""
1373	Enabled = True
1374	Height = 20
1375	HelpTag = ""
1376	Index = -2147483648
1377	InitialParent = "TabPanel1"
1378	Italic = ""
1379	Left = 360
1380	LockBottom = ""
1381	LockedInPosition= False
1382	LockLeft = ""
1383	LockRight = ""
1384	LockTop = ""
1385	Multiline = ""
1386	Scope = 0
1387	TabIndex = 33
1388	TabPanelIndex = 4
1389	Text = "Vertical Inertia"
1390	TextAlign = 0
1391	TextColor = "&cB8B8B8"
1392	TextFont = "System"
1393	TextSize = 0
1394	Top = 104
1395	Underline = ""
1396	Visible = True
1397	Width = 106
1398	End
1399	Begin StaticText StaticText_Byte14
1400	AutoDeactivate = True
1401	Bold = ""
1402	DataField = ""
1403	DataSource = ""
1404	Enabled = True
1405	Height = 20
1406	HelpTag = ""
1407	Index = -2147483648
1408	InitialParent = "TabPanel1"
1409	Italic = ""
1410	Left = 360
1411	LockBottom = ""
1412	LockedInPosition= False
1413	LockLeft = ""
1414	LockRight = ""
1415	LockTop = ""
1416	Multiline = False
1417	Scope = 0
1418	TabIndex = 34
1419	TabPanelIndex = 4
1420	Text = "Unknown"
1421	TextAlign = 0
1422	TextColor = "&cB8B8B8"
1423	TextFont = "System"
1424	TextSize = 0
1425	Top = 138
1426	Underline = ""
1427	Visible = True
1428	Width = 106
1429	End
1430	Begin StaticText StaticText_Byte15
1431	AutoDeactivate = True
1432	Bold = ""
1433	DataField = ""
1434	DataSource = ""
1435	Enabled = True
1436	Height = 20
1437	HelpTag = ""
1438	Index = -2147483648
1439	InitialParent = "TabPanel1"
1440	Italic = ""
1441	Left = 360
1442	LockBottom = ""
1443	LockedInPosition= False
1444	LockLeft = ""
1445	LockRight = ""
1446	LockTop = ""
1447	Multiline = ""
1448	Scope = 0
1449	TabIndex = 35
1450	TabPanelIndex = 4
1451	Text = "Back Timing"
1452	TextAlign = 0
1453	TextColor = "&cB8B8B8"
1454	TextFont = "System"
1455	TextSize = 0
1456	Top = 172
1457	Underline = ""
1458	Visible = True
1459	Width = 106
1460	End
1461	Begin StaticText StaticText_Byte16
1462	AutoDeactivate = True
1463	Bold = ""
1464	DataField = ""
1465	DataSource = ""
1466	Enabled = True
1467	Height = 20
1468	HelpTag = ""
1469	Index = -2147483648
1470	InitialParent = "TabPanel1"
1471	Italic = ""
1472	Left = 360
1473	LockBottom = ""
1474	LockedInPosition= False
1475	LockLeft = ""
1476	LockRight = ""
1477	LockTop = ""
1478	Multiline = ""
1479	Scope = 0
1480	TabIndex = 36
1481	TabPanelIndex = 4
1482	Text = "Steering Gain"
1483	TextAlign = 0
1484	TextColor = "&cB8B8B8"
1485	TextFont = "System"
1486	TextSize = 0
1487	Top = 206
1488	Underline = ""
1489	Visible = True
1490	Width = 106
1491	End
1492	Begin StaticText StaticText_Byte17
1493	AutoDeactivate = True
1494	Bold = ""
1495	DataField = ""
1496	DataSource = ""
1497	Enabled = True
1498	Height = 20
1499	HelpTag = ""
1500	Index = -2147483648
1501	InitialParent = "TabPanel1"
1502	Italic = ""
1503	Left = 360
1504	LockBottom = ""
1505	LockedInPosition= False
1506	LockLeft = ""
1507	LockRight = ""
1508	LockTop = ""
1509	Multiline = ""
1510	Scope = 0
1511	TabIndex = 37
1512	TabPanelIndex = 4
1513	Text = "Throttle Gain"
1514	TextAlign = 0
1515	TextColor = "&cB8B8B8"
1516	TextFont = "System"
1517	TextSize = 0
1518	Top = 240
1519	Underline = ""
1520	Visible = True
1521	Width = 106
1522	End
1523	Begin StaticText StaticText_Byte18
1524	AutoDeactivate = True
1525	Bold = ""
1526	DataField = ""
1527	DataSource = ""
1528	Enabled = True
1529	Height = 20
1530	HelpTag = ""
1531	Index = -2147483648
1532	InitialParent = "TabPanel1"
1533	Italic = ""
1534	Left = 360
1535	LockBottom = ""
1536	LockedInPosition= False
1537	LockLeft = ""
1538	LockRight = ""
1539	LockTop = ""
1540	Multiline = ""
1541	Scope = 0
1542	TabIndex = 38
1543	TabPanelIndex = 4
1544	Text = "Checksum"
1545	TextAlign = 0
1546	TextColor = "&cB8B8B8"
1547	TextFont = "System"
1548	TextSize = 0
1549	Top = 274
1550	Underline = ""
1551	Visible = False
1552	Width = 106
1553	End
1554	Begin StaticText StaticText_Warning
1555	AutoDeactivate = True
1556	Bold = True
1557	DataField = ""
1558	DataSource = ""
1559	Enabled = True
1560	Height = 36
1561	HelpTag = ""
1562	Index = -2147483648
1563	InitialParent = "TabPanel1"
1564	Italic = ""
1565	Left = 472
1566	LockBottom = ""
1567	LockedInPosition= False
1568	LockLeft = ""
1569	LockRight = ""
1570	LockTop = ""
1571	Multiline = ""
1572	Scope = 0
1573	TabIndex = 39
1574	TabPanelIndex = 4
1575	Text = "WARNING:"
1576	TextAlign = 0
1577	TextColor = &hFF0000
1578	TextFont = "System"
1579	TextSize = 22
1580	Top = 103
1581	Underline = True
1582	Visible = True
1583	Width = 142
1584	End
1585	Begin StaticText StaticText_WarningMessage
1586	AutoDeactivate = True
1587	Bold = ""
1588	DataField = ""
1589	DataSource = ""
1590	Enabled = True
1591	Height = 155
1592	HelpTag = ""
1593	Index = -2147483648
1594	InitialParent = "TabPanel1"
1595	Italic = ""
1596	Left = 472
1597	LockBottom = ""
1598	LockedInPosition= False
1599	LockLeft = ""
1600	LockRight = ""
1601	LockTop = ""
1602	Multiline = True
1603	Scope = 0
1604	TabIndex = 40
1605	TabPanelIndex = 4
1606	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. "
1607	TextAlign = 0
1608	TextColor = &hFF0000
1609	TextFont = "System"
1610	TextSize = 0
1611	Top = 139
1612	Underline = ""
1613	Visible = True
1614	Width = 150
1615	End
1616	Begin Slider Slider_THGain
1617	AutoDeactivate = True
1618	Enabled = True
1619	Height = 16
1620	HelpTag = ""
1621	Index = -2147483648
1622	InitialParent = "TabPanel1"
1623	Left = 310
1624	LineStep = 1
1625	LiveScroll = ""
1626	LockBottom = ""
1627	LockedInPosition= False
1628	LockLeft = ""
1629	LockRight = ""
1630	LockTop = ""
1631	Maximum = 255
1632	Minimum = 1
1633	PageStep = 20
1634	Scope = 0
1635	TabIndex = 0
1636	TabPanelIndex = 3
1637	TabStop = True
1638	Top = 265
1639	Value = 0
1640	Visible = True
1641	Width = 128
1642	End
1643	Begin EditField EditField_THGain
1644	AcceptTabs = ""
1645	Alignment = 0
1646	AutoDeactivate = True
1647	BackColor = &hFFFFFF
1648	Bold = ""
1649	Border = True
1650	DataField = ""
1651	DataSource = ""
1652	Enabled = True
1653	Format = ""
1654	Height = 22
1655	HelpTag = ""
1656	Index = -2147483648
1657	InitialParent = "TabPanel1"
1658	Italic = ""
1659	Left = 450
1660	LimitText = 0
1661	LockBottom = ""
1662	LockedInPosition= False
1663	LockLeft = ""
1664	LockRight = ""
1665	LockTop = ""
1666	Mask = "###"
1667	Multiline = ""
1668	Password = ""
1669	ReadOnly = ""
1670	Scope = 0
1671	ScrollbarHorizontal= ""
1672	ScrollbarVertical= True
1673	Styled = ""
1674	TabIndex = 1
1675	TabPanelIndex = 3
1676	TabStop = True
1677	Text = ""
1678	TextColor = &h000000
1679	TextFont = "System"
1680	TextSize = 0
1681	Top = 265
1682	Underline = ""
1683	UseFocusRing = True
1684	Visible = True
1685	Width = 32
1686	End
1687	Begin StaticText StaticText_THGain
1688	AutoDeactivate = True
1689	Bold = ""
1690	DataField = ""
1691	DataSource = ""
1692	Enabled = True
1693	Height = 20
1694	HelpTag = ""
1695	Index = -2147483648
1696	InitialParent = "TabPanel1"
1697	Italic = ""
1698	Left = 494
1699	LockBottom = ""
1700	LockedInPosition= False
1701	LockLeft = ""
1702	LockRight = ""
1703	LockTop = ""
1704	Multiline = ""
1705	Scope = 0
1706	TabIndex = 2
1707	TabPanelIndex = 3
1708	Text = "Throttle Gain"
1709	TextAlign = 0
1710	TextColor = "&cB8B8B8"
1711	TextFont = "System"
1712	TextSize = 0
1713	Top = 265
1714	Underline = ""
1715	Visible = True
1716	Width = 128
1717	End
1718	Begin Slider Slider_STGain
1719	AutoDeactivate = True
1720	Enabled = True
1721	Height = 16
1722	HelpTag = ""
1723	Index = -2147483648
1724	InitialParent = "TabPanel1"
1725	Left = 310
1726	LineStep = 1
1727	LiveScroll = ""
1728	LockBottom = ""
1729	LockedInPosition= False
1730	LockLeft = ""
1731	LockRight = ""
1732	LockTop = ""
1733	Maximum = 255
1734	Minimum = 1
1735	PageStep = 20
1736	Scope = 0
1737	TabIndex = 3
1738	TabPanelIndex = 3
1739	TabStop = True
1740	Top = 231
1741	Value = 0
1742	Visible = True
1743	Width = 128
1744	End
1745	Begin EditField EditField_STGain
1746	AcceptTabs = ""
1747	Alignment = 0
1748	AutoDeactivate = True
1749	BackColor = &hFFFFFF
1750	Bold = ""
1751	Border = True
1752	DataField = ""
1753	DataSource = ""
1754	Enabled = True
1755	Format = ""
1756	Height = 22
1757	HelpTag = ""
1758	Index = -2147483648
1759	InitialParent = "TabPanel1"
1760	Italic = ""
1761	Left = 450
1762	LimitText = 0
1763	LockBottom = ""
1764	LockedInPosition= False
1765	LockLeft = ""
1766	LockRight = ""
1767	LockTop = ""
1768	Mask = "###"
1769	Multiline = ""
1770	Password = ""
1771	ReadOnly = ""
1772	Scope = 0
1773	ScrollbarHorizontal= ""
1774	ScrollbarVertical= True
1775	Styled = ""
1776	TabIndex = 4
1777	TabPanelIndex = 3
1778	TabStop = True
1779	Text = ""
1780	TextColor = &h000000
1781	TextFont = "System"
1782	TextSize = 0
1783	Top = 231
1784	Underline = ""
1785	UseFocusRing = True
1786	Visible = True
1787	Width = 32
1788	End
1789	Begin StaticText StaticText_STGain
1790	AutoDeactivate = True
1791	Bold = ""
1792	DataField = ""
1793	DataSource = ""
1794	Enabled = True
1795	Height = 20
1796	HelpTag = ""
1797	Index = -2147483648
1798	InitialParent = "TabPanel1"
1799	Italic = ""
1800	Left = 494
1801	LockBottom = ""
1802	LockedInPosition= False
1803	LockLeft = ""
1804	LockRight = ""
1805	LockTop = ""
1806	Multiline = ""
1807	Scope = 0
1808	TabIndex = 5
1809	TabPanelIndex = 3
1810	Text = "Steering Gain"
1811	TextAlign = 0
1812	TextColor = "&cB8B8B8"
1813	TextFont = "System"
1814	TextSize = 0
1815	Top = 231
1816	Underline = ""
1817	Visible = True
1818	Width = 128
1819	End
1820	Begin PopupMenu PopupMenu_BackTiming
1821	AutoDeactivate = True
1822	Bold = ""
1823	DataField = ""
1824	DataSource = ""
1825	Enabled = True
1826	Height = 20
1827	HelpTag = ""
1828	Index = -2147483648
1829	InitialParent = "TabPanel1"
1830	InitialValue = "1\r2\r3\r4\r5\rCustom"
1831	Italic = ""
1832	Left = 310
1833	ListIndex = 0
1834	LockBottom = ""
1835	LockedInPosition= False
1836	LockLeft = ""
1837	LockRight = ""
1838	LockTop = ""
1839	Scope = 0
1840	TabIndex = 6
1841	TabPanelIndex = 3
1842	TabStop = True
1843	TextFont = "System"
1844	TextSize = 0
1845	Top = 199
1846	Underline = ""
1847	Visible = True
1848	Width = 172
1849	End
1850	Begin StaticText StaticText_BackTiming
1851	AutoDeactivate = True
1852	Bold = ""
1853	DataField = ""
1854	DataSource = ""
1855	Enabled = True
1856	Height = 20
1857	HelpTag = ""
1858	Index = -2147483648
1859	InitialParent = "TabPanel1"
1860	Italic = ""
1861	Left = 494
1862	LockBottom = ""
1863	LockedInPosition= False
1864	LockLeft = ""
1865	LockRight = ""
1866	LockTop = ""
1867	Multiline = ""
1868	Scope = 0
1869	TabIndex = 7
1870	TabPanelIndex = 3
1871	Text = "Back Timing"
1872	TextAlign = 0
1873	TextColor = "&cB8B8B8"
1874	TextFont = "System"
1875	TextSize = 0
1876	Top = 199
1877	Underline = ""
1878	Visible = True
1879	Width = 128
1880	End
1881	Begin PopupMenu PopupMenu_VerticalInteria
1882	AutoDeactivate = True
1883	Bold = ""
1884	DataField = ""
1885	DataSource = ""
1886	Enabled = True
1887	Height = 20
1888	HelpTag = ""
1889	Index = -2147483648
1890	InitialParent = "TabPanel1"
1891	InitialValue = "Strong\r2\r3\r4\rOff\rCustom"
1892	Italic = ""
1893	Left = 310
1894	ListIndex = 0
1895	LockBottom = ""
1896	LockedInPosition= False
1897	LockLeft = ""
1898	LockRight = ""
1899	LockTop = ""
1900	Scope = 0
1901	TabIndex = 8
1902	TabPanelIndex = 3
1903	TabStop = True
1904	TextFont = "System"
1905	TextSize = 0
1906	Top = 168
1907	Underline = ""
1908	Visible = True
1909	Width = 172
1910	End
1911	Begin StaticText StaticText_VerticalIntertia
1912	AutoDeactivate = True
1913	Bold = ""
1914	DataField = ""
1915	DataSource = ""
1916	Enabled = True
1917	Height = 20
1918	HelpTag = ""
1919	Index = -2147483648
1920	InitialParent = "TabPanel1"
1921	Italic = ""
1922	Left = 494
1923	LockBottom = ""
1924	LockedInPosition= False
1925	LockLeft = ""
1926	LockRight = ""
1927	LockTop = ""
1928	Multiline = ""
1929	Scope = 0
1930	TabIndex = 9
1931	TabPanelIndex = 3
1932	Text = "Vertical Intertia"
1933	TextAlign = 0
1934	TextColor = "&cB8B8B8"
1935	TextFont = "System"
1936	TextSize = 0
1937	Top = 168
1938	Underline = ""
1939	Visible = True
1940	Width = 128
1941	End
1942	Begin PopupMenu PopupMenu_Nuetral
1943	AutoDeactivate = True
1944	Bold = ""
1945	DataField = ""
1946	DataSource = ""
1947	Enabled = True
1948	Height = 20
1949	HelpTag = ""
1950	Index = -2147483648
1951	InitialParent = "TabPanel1"
1952	InitialValue = "Narrow\rMid\rWide\rCustom"
1953	Italic = ""
1954	Left = 310
1955	ListIndex = 0
1956	LockBottom = ""
1957	LockedInPosition= False
1958	LockLeft = ""
1959	LockRight = ""
1960	LockTop = ""
1961	Scope = 0
1962	TabIndex = 10
1963	TabPanelIndex = 3
1964	TabStop = True
1965	TextFont = "System"
1966	TextSize = 0
1967	Top = 136
1968	Underline = ""
1969	Visible = True
1970	Width = 172
1971	End
1972	Begin StaticText StaticText_Nuetral
1973	AutoDeactivate = True
1974	Bold = ""
1975	DataField = ""
1976	DataSource = ""
1977	Enabled = True
1978	Height = 20
1979	HelpTag = ""
1980	Index = -2147483648
1981	InitialParent = "TabPanel1"
1982	Italic = ""
1983	Left = 494
1984	LockBottom = ""
1985	LockedInPosition= False
1986	LockLeft = ""
1987	LockRight = ""
1988	LockTop = ""
1989	Multiline = ""
1990	Scope = 0
1991	TabIndex = 11
1992	TabPanelIndex = 3
1993	Text = "Nuetral"
1994	TextAlign = 0
1995	TextColor = "&cB8B8B8"
1996	TextFont = "System"
1997	TextSize = 0
1998	Top = 136
1999	Underline = ""
2000	Visible = True
2001	Width = 128
2002	End
2003	Begin PopupMenu PopupMenu_DFreq
2004	AutoDeactivate = True
2005	Bold = ""
2006	DataField = ""
2007	DataSource = ""
2008	Enabled = True
2009	Height = 20
2010	HelpTag = ""
2011	Index = -2147483648
2012	InitialParent = "TabPanel1"
2013	InitialValue = "High\rMedium\rLow\rCustom"
2014	Italic = ""
2015	Left = 310
2016	ListIndex = 0
2017	LockBottom = ""
2018	LockedInPosition= False
2019	LockLeft = ""
2020	LockRight = ""
2021	LockTop = ""
2022	Scope = 0
2023	TabIndex = 12
2024	TabPanelIndex = 3
2025	TabStop = True
2026	TextFont = "System"
2027	TextSize = 0
2028	Top = 104
2029	Underline = ""
2030	Visible = True
2031	Width = 172
2032	End
2033	Begin StaticText StaticText_DFreq
2034	AutoDeactivate = True
2035	Bold = ""
2036	DataField = ""
2037	DataSource = ""
2038	Enabled = True
2039	Height = 20
2040	HelpTag = ""
2041	Index = -2147483648
2042	InitialParent = "TabPanel1"
2043	Italic = ""
2044	Left = 494
2045	LockBottom = ""
2046	LockedInPosition= False
2047	LockLeft = ""
2048	LockRight = ""
2049	LockTop = ""
2050	Multiline = ""
2051	Scope = 0
2052	TabIndex = 13
2053	TabPanelIndex = 3
2054	Text = "Drive Frequency"
2055	TextAlign = 0
2056	TextColor = "&cB8B8B8"
2057	TextFont = "System"
2058	TextSize = 0
2059	Top = 103
2060	Underline = ""
2061	Visible = True
2062	Width = 106
2063	End
2064	Begin PopupMenu PopupMenu_Dump
2065	AutoDeactivate = True
2066	Bold = ""
2067	DataField = ""
2068	DataSource = ""
2069	Enabled = True
2070	Height = 20
2071	HelpTag = ""
2072	Index = -2147483648
2073	InitialParent = "TabPanel1"
2074	InitialValue = "Over\rSmooth\rCustom"
2075	Italic = ""
2076	Left = 14
2077	ListIndex = 0
2078	LockBottom = ""
2079	LockedInPosition= False
2080	LockLeft = ""
2081	LockRight = ""
2082	LockTop = ""
2083	Scope = 0
2084	TabIndex = 14
2085	TabPanelIndex = 3
2086	TabStop = True
2087	TextFont = "System"
2088	TextSize = 0
2089	Top = 259
2090	Underline = ""
2091	Visible = True
2092	Width = 172
2093	End
2094	Begin StaticText StaticText_Dump
2095	AutoDeactivate = True
2096	Bold = ""
2097	DataField = ""
2098	DataSource = ""
2099	Enabled = True
2100	Height = 20
2101	HelpTag = ""
2102	Index = -2147483648
2103	InitialParent = "TabPanel1"
2104	Italic = ""
2105	Left = 198
2106	LockBottom = ""
2107	LockedInPosition= False
2108	LockLeft = ""
2109	LockRight = ""
2110	LockTop = ""
2111	Multiline = ""
2112	Scope = 0
2113	TabIndex = 15
2114	TabPanelIndex = 3
2115	Text = "Dump"
2116	TextAlign = 0
2117	TextColor = "&cB8B8B8"
2118	TextFont = "System"
2119	TextSize = 0
2120	Top = 259
2121	Underline = ""
2122	Visible = True
2123	Width = 128
2124	End
2125	Begin PopupMenu PopupMenu_DBand
2126	AutoDeactivate = True
2127	Bold = ""
2128	DataField = ""
2129	DataSource = ""
2130	Enabled = True
2131	Height = 20
2132	HelpTag = ""
2133	Index = -2147483648
2134	InitialParent = "TabPanel1"
2135	InitialValue = "Narrow\rMid\rWide\rCustom"
2136	Italic = ""
2137	Left = 14
2138	ListIndex = 0
2139	LockBottom = ""
2140	LockedInPosition= False
2141	LockLeft = ""
2142	LockRight = ""
2143	LockTop = ""
2144	Scope = 0
2145	TabIndex = 16
2146	TabPanelIndex = 3
2147	TabStop = True
2148	TextFont = "System"
2149	TextSize = 0
2150	Top = 227
2151	Underline = ""
2152	Visible = True
2153	Width = 172
2154	End
2155	Begin StaticText StaticText_DBand
2156	AutoDeactivate = True
2157	Bold = ""
2158	DataField = ""
2159	DataSource = ""
2160	Enabled = True
2161	Height = 20
2162	HelpTag = ""
2163	Index = -2147483648
2164	InitialParent = "TabPanel1"
2165	Italic = ""
2166	Left = 198
2167	LockBottom = ""
2168	LockedInPosition= False
2169	LockLeft = ""
2170	LockRight = ""
2171	LockTop = ""
2172	Multiline = ""
2173	Scope = 0
2174	TabIndex = 17
2175	TabPanelIndex = 3
2176	Text = "Drive Band"
2177	TextAlign = 0
2178	TextColor = "&cB8B8B8"
2179	TextFont = "System"
2180	TextSize = 0
2181	Top = 227
2182	Underline = ""
2183	Visible = True
2184	Width = 128
2185	End
2186	Begin Slider Slider_Punch
2187	AutoDeactivate = True
2188	Enabled = True
2189	Height = 16
2190	HelpTag = ""
2191	Index = -2147483648
2192	InitialParent = "TabPanel1"
2193	Left = 14
2194	LineStep = 1
2195	LiveScroll = ""
2196	LockBottom = ""
2197	LockedInPosition= False
2198	LockLeft = ""
2199	LockRight = ""
2200	LockTop = ""
2201	Maximum = 10
2202	Minimum = 1
2203	PageStep = 20
2204	Scope = 0
2205	TabIndex = 18
2206	TabPanelIndex = 3
2207	TabStop = True
2208	Top = 199
2209	Value = 0
2210	Visible = True
2211	Width = 128
2212	End
2213	Begin EditField EditField_Punch
2214	AcceptTabs = ""
2215	Alignment = 0
2216	AutoDeactivate = True
2217	BackColor = &hFFFFFF
2218	Bold = ""
2219	Border = True
2220	DataField = ""
2221	DataSource = ""
2222	Enabled = True
2223	Format = ""
2224	Height = 22
2225	HelpTag = ""
2226	Index = -2147483648
2227	InitialParent = "TabPanel1"
2228	Italic = ""
2229	Left = 154
2230	LimitText = 0
2231	LockBottom = ""
2232	LockedInPosition= False
2233	LockLeft = ""
2234	LockRight = ""
2235	LockTop = ""
2236	Mask = "###"
2237	Multiline = ""
2238	Password = ""
2239	ReadOnly = ""
2240	Scope = 0
2241	ScrollbarHorizontal= ""
2242	ScrollbarVertical= True
2243	Styled = ""
2244	TabIndex = 19
2245	TabPanelIndex = 3
2246	TabStop = True
2247	Text = ""
2248	TextColor = &h000000
2249	TextFont = "System"
2250	TextSize = 0
2251	Top = 199
2252	Underline = ""
2253	UseFocusRing = True
2254	Visible = True
2255	Width = 32
2256	End
2257	Begin StaticText StaticText_Punch
2258	AutoDeactivate = True
2259	Bold = ""
2260	DataField = ""
2261	DataSource = ""
2262	Enabled = True
2263	Height = 20
2264	HelpTag = ""
2265	Index = -2147483648
2266	InitialParent = "TabPanel1"
2267	Italic = ""
2268	Left = 198
2269	LockBottom = ""
2270	LockedInPosition= False
2271	LockLeft = ""
2272	LockRight = ""
2273	LockTop = ""
2274	Multiline = ""
2275	Scope = 0
2276	TabIndex = 20
2277	TabPanelIndex = 3
2278	Text = "Punch"
2279	TextAlign = 0
2280	TextColor = "&cB8B8B8"
2281	TextFont = "System"
2282	TextSize = 0
2283	Top = 199
2284	Underline = ""
2285	Visible = True
2286	Width = 128
2287	End
2288	Begin PopupMenu PopupMenu_Speed
2289	AutoDeactivate = True
2290	Bold = ""
2291	DataField = ""
2292	DataSource = ""
2293	Enabled = True
2294	Height = 20
2295	HelpTag = ""
2296	Index = -2147483648
2297	InitialParent = "TabPanel1"
2298	InitialValue = "Slow\r2\r3\r4\rFast\rCustom"
2299	Italic = ""
2300	Left = 14
2301	ListIndex = 0
2302	LockBottom = ""
2303	LockedInPosition= False
2304	LockLeft = ""
2305	LockRight = ""
2306	LockTop = ""
2307	Scope = 0
2308	TabIndex = 21
2309	TabPanelIndex = 3
2310	TabStop = True
2311	TextFont = "System"
2312	TextSize = 0
2313	Top = 167
2314	Underline = ""
2315	Visible = True
2316	Width = 172
2317	End
2318	Begin StaticText StaticText_Speed
2319	AutoDeactivate = True
2320	Bold = ""
2321	DataField = ""
2322	DataSource = ""
2323	Enabled = True
2324	Height = 20
2325	HelpTag = ""
2326	Index = -2147483648
2327	InitialParent = "TabPanel1"
2328	Italic = ""
2329	Left = 198
2330	LockBottom = ""
2331	LockedInPosition= False
2332	LockLeft = ""
2333	LockRight = ""
2334	LockTop = ""
2335	Multiline = ""
2336	Scope = 0
2337	TabIndex = 22
2338	TabPanelIndex = 3
2339	Text = "Speed"
2340	TextAlign = 0
2341	TextColor = "&cB8B8B8"
2342	TextFont = "System"
2343	TextSize = 0
2344	Top = 167
2345	Underline = ""
2346	Visible = True
2347	Width = 100
2348	End
2349	Begin PopupMenu PopupMenu_Gain
2350	AutoDeactivate = True
2351	Bold = ""
2352	DataField = ""
2353	DataSource = ""
2354	Enabled = True
2355	Height = 20
2356	HelpTag = ""
2357	Index = -2147483648
2358	InitialParent = "TabPanel1"
2359	InitialValue = "Min\rMid\rStrong\rCustom"
2360	Italic = ""
2361	Left = 14
2362	ListIndex = 0
2363	LockBottom = ""
2364	LockedInPosition= False
2365	LockLeft = ""
2366	LockRight = ""
2367	LockTop = ""
2368	Scope = 0
2369	TabIndex = 23
2370	TabPanelIndex = 3
2371	TabStop = True
2372	TextFont = "System"
2373	TextSize = 0
2374	Top = 135
2375	Underline = ""
2376	Visible = True
2377	Width = 172
2378	End
2379	Begin StaticText StaticText_Gain
2380	AutoDeactivate = True
2381	Bold = ""
2382	DataField = ""
2383	DataSource = ""
2384	Enabled = True
2385	Height = 20
2386	HelpTag = ""
2387	Index = -2147483648
2388	InitialParent = "TabPanel1"
2389	Italic = ""
2390	Left = 198
2391	LockBottom = ""
2392	LockedInPosition= False
2393	LockLeft = ""
2394	LockRight = ""
2395	LockTop = ""
2396	Multiline = ""
2397	Scope = 0
2398	TabIndex = 24
2399	TabPanelIndex = 3
2400	Text = "Gain"
2401	TextAlign = 0
2402	TextColor = "&cB8B8B8"
2403	TextFont = "System"
2404	TextSize = 0
2405	Top = 136
2406	Underline = ""
2407	Visible = True
2408	Width = 100
2409	End
2410	Begin StaticText StaticText_CarType
2411	AutoDeactivate = True
2412	Bold = ""
2413	DataField = ""
2414	DataSource = ""
2415	Enabled = True
2416	Height = 20
2417	HelpTag = ""
2418	Index = -2147483648
2419	InitialParent = "TabPanel1"
2420	Italic = ""
2421	Left = 198
2422	LockBottom = ""
2423	LockedInPosition= False
2424	LockLeft = ""
2425	LockRight = ""
2426	LockTop = ""
2427	Multiline = ""
2428	Scope = 0
2429	TabIndex = 25
2430	TabPanelIndex = 3
2431	Text = "Car Type"
2432	TextAlign = 0
2433	TextColor = "&cB8B8B8"
2434	TextFont = "System"
2435	TextSize = 0
2436	Top = 103
2437	Underline = ""
2438	Visible = True
2439	Width = 100
2440	End
2441	Begin PopupMenu PopupMenu_CarType
2442	AutoDeactivate = True
2443	Bold = ""
2444	DataField = ""
2445	DataSource = ""
2446	Enabled = True
2447	Height = 20
2448	HelpTag = ""
2449	Index = -2147483648
2450	InitialParent = "TabPanel1"
2451	InitialValue = "MR-03\rdNaNo\rASF"
2452	Italic = ""
2453	Left = 14
2454	ListIndex = 0
2455	LockBottom = ""
2456	LockedInPosition= False
2457	LockLeft = ""
2458	LockRight = ""
2459	LockTop = ""
2460	Scope = 0
2461	TabIndex = 26
2462	TabPanelIndex = 3
2463	TabStop = True
2464	TextFont = "System"
2465	TextSize = 0
2466	Top = 103
2467	Underline = ""
2468	Visible = True
2469	Width = 172
2470	End
2471	Begin PopupMenu PopupMenu_Profile
2472	AutoDeactivate = True
2473	Bold = ""
2474	DataField = ""
2475	DataSource = ""
2476	Enabled = True
2477	Height = 20
2478	HelpTag = ""
2479	Index = -2147483648
2480	InitialParent = "TabPanel1"
2481	InitialValue = ""
2482	Italic = ""
2483	Left = 26
2484	ListIndex = 0
2485	LockBottom = ""
2486	LockedInPosition= False
2487	LockLeft = ""
2488	LockRight = ""
2489	LockTop = ""
2490	Scope = 0
2491	TabIndex = 0
2492	TabPanelIndex = 2
2493	TabStop = True
2494	TextFont = "System"
2495	TextSize = 0
2496	Top = 128
2497	Underline = ""
2498	Visible = True
2499	Width = 176
2500	End
2501	Begin PushButton PushButton_Create
2502	AutoDeactivate = True
2503	Bold = ""
2504	Cancel = ""
2505	Caption = "Create"
2506	Default = ""
2507	Enabled = True
2508	Height = 20
2509	HelpTag = ""
2510	Index = -2147483648
2511	InitialParent = "TabPanel1"
2512	Italic = ""
2513	Left = 26
2514	LockBottom = ""
2515	LockedInPosition= False
2516	LockLeft = ""
2517	LockRight = ""
2518	LockTop = ""
2519	Scope = 0
2520	TabIndex = 1
2521	TabPanelIndex = 2
2522	TabStop = True
2523	TextFont = "System"
2524	TextSize = 0
2525	Top = 164
2526	Underline = ""
2527	Visible = True
2528	Width = 88
2529	End
2530	Begin PushButton PushButton_Delete
2531	AutoDeactivate = True
2532	Bold = ""
2533	Cancel = ""
2534	Caption = "Delete"
2535	Default = ""
2536	Enabled = True
2537	Height = 20
2538	HelpTag = ""
2539	Index = -2147483648
2540	InitialParent = "TabPanel1"
2541	Italic = ""
2542	Left = 126
2543	LockBottom = ""
2544	LockedInPosition= False
2545	LockLeft = ""
2546	LockRight = ""
2547	LockTop = ""
2548	Scope = 0
2549	TabIndex = 2
2550	TabPanelIndex = 2
2551	TabStop = True
2552	TextFont = "System"
2553	TextSize = 0
2554	Top = 164
2555	Underline = ""
2556	Visible = False
2557	Width = 88
2558	End
2559	Begin StaticText StaticText_Profiles
2560	AutoDeactivate = True
2561	Bold = ""
2562	DataField = ""
2563	DataSource = ""
2564	Enabled = True
2565	Height = 20
2566	HelpTag = ""
2567	Index = -2147483648
2568	InitialParent = "TabPanel1"
2569	Italic = ""
2570	Left = 214
2571	LockBottom = ""
2572	LockedInPosition= False
2573	LockLeft = ""
2574	LockRight = ""
2575	LockTop = ""
2576	Multiline = ""
2577	Scope = 0
2578	TabIndex = 3
2579	TabPanelIndex = 2
2580	Text = "Profiles"
2581	TextAlign = 0
2582	TextColor = "&cB8B8B8"
2583	TextFont = "System"
2584	TextSize = 0
2585	Top = 128
2586	Underline = ""
2587	Visible = True
2588	Width = 100
2589	End
2590	End
2591	Begin ICSSerialPort ICSSerialPort1
2592	Baud = 8
2593	Bits = 3
2594	byte01 = &hFF
2595	carType = "MR-03"
2596	CTS = ""
2597	DTR = ""
2598	Height = 32
2599	Index = -2147483648
2600	Left = 716
2601	LockedInPosition= False
2602	mode = "read"
2603	Parity = 0
2604	Scope = 0
2605	Stop = 0
2606	TabPanelIndex = 0
2607	Top = -6
2608	Width = 32
2609	XON = ""
2610	End
2611	Begin PushButton PushButton_Default
2612	AutoDeactivate = True
2613	Bold = ""
2614	Cancel = ""
2615	Caption = "Default"
2616	Default = ""
2617	Enabled = True
2618	Height = 20
2619	HelpTag = ""
2620	Index = -2147483648
2621	InitialParent = ""
2622	Italic = ""
2623	Left = 326
2624	LockBottom = ""
2625	LockedInPosition= False
2626	LockLeft = ""
2627	LockRight = ""
2628	LockTop = ""
2629	Scope = 0
2630	TabIndex = 44
2631	TabPanelIndex = 0
2632	TabStop = True
2633	TextFont = "System"
2634	TextSize = 0
2635	Top = 330
2636	Underline = ""
2637	Visible = True
2638	Width = 88
2639	End
2640	Begin PushButton PushButton_SaveProfile
2641	AutoDeactivate = True
2642	Bold = ""
2643	Cancel = ""
2644	Caption = "Save Profile"
2645	Default = ""
2646	Enabled = True
2647	Height = 20
2648	HelpTag = ""
2649	Index = -2147483648
2650	InitialParent = ""
2651	Italic = ""
2652	Left = 520
2653	LockBottom = ""
2654	LockedInPosition= False
2655	LockLeft = ""
2656	LockRight = ""
2657	LockTop = ""
2658	Scope = 0
2659	TabIndex = 45
2660	TabPanelIndex = 0
2661	TabStop = True
2662	TextFont = "System"
2663	TextSize = 0
2664	Top = 330
2665	Underline = ""
2666	Visible = False
2667	Width = 100
2668	End
2669	Begin StaticText StaticText_Version
2670	AutoDeactivate = True
2671	Bold = ""
2672	DataField = ""
2673	DataSource = ""
2674	Enabled = True
2675	Height = 20
2676	HelpTag = ""
2677	Index = -2147483648
2678	InitialParent = ""
2679	Italic = ""
2680	Left = 522
2681	LockBottom = ""
2682	LockedInPosition= False
2683	LockLeft = ""
2684	LockRight = ""
2685	LockTop = ""
2686	Multiline = ""
2687	Scope = 0
2688	TabIndex = 46
2689	TabPanelIndex = 0
2690	Text = "Version "
2691	TextAlign = 0
2692	TextColor = &h000000
2693	TextFont = "System"
2694	TextSize = 0
2695	Top = 14
2696	Underline = ""
2697	Visible = True
2698	Width = 100
2699	End
2700	End
2701	#tag EndWindow
2702
2703	#tag WindowCode
2704	#tag Event
2705	Sub Open()
2706	StaticText_Version.Text = "Version " + str(app.NonReleaseVersion/100)
2707
2708	//Set the default car type
2709	ICSSerialPort1.setCarType("MR-03")
2710
2711	readPreferences()
2712
2713	//Set and open the COM Port
2714	dim i, count as integer
2715	count = System.SerialPortCount
2716
2717	for i = 0 to count - 1
2718	PopupMenu_SerialPort.AddRow( System.SerialPort(i).Name )
2719	next
2720
2721	if comPort <> "" then
2722	//We can try opening the com port and set the popup menu to that port
2723
2724	for i = 0 to PopupMenu_SerialPort.ListCount - 1
2725
2726	if PopupMenu_SerialPort.list(i) = comPort then
2727	//Found a match, set and open
2728	PopupMenu_SerialPort.ListIndex = i
2729	ICSSerialPort1.SerialPort = System.SerialPort(i)
2730
2731	if not ICSSerialPort1.Open then
2732	//Could not open
2733	MsgBox "Error opening defined com port"
2734	end if
2735	//No need to continue loop
2736	exit
2737	end if
2738
2739	next
2740
2741	end if
2742
2743	#if TargetWin32
2744	//Have to change text colors since Windows does not allow for transparancy of the tab panel
2745	StaticText_BackTiming.TextColor = &c000000
2746	StaticText_Byte1.TextColor = &c000000
2747	StaticText_Byte10.TextColor = &c000000
2748	StaticText_Byte11.TextColor = &c000000
2749	StaticText_Byte12.TextColor = &c000000
2750	StaticText_Byte13.TextColor = &c000000
2751	StaticText_Byte14.TextColor = &c000000
2752	StaticText_Byte15.TextColor = &c000000
2753	StaticText_Byte16.TextColor = &c000000
2754	StaticText_Byte17.TextColor = &c000000
2755	StaticText_Byte18.TextColor = &c000000
2756	StaticText_Byte2.TextColor = &c000000
2757	StaticText_Byte3.TextColor = &c000000
2758	StaticText_Byte4.TextColor = &c000000
2759	StaticText_Byte5.TextColor = &c000000
2760	StaticText_Byte6.TextColor = &c000000
2761	StaticText_Byte7.TextColor = &c000000
2762	StaticText_Byte8.TextColor = &c000000
2763	StaticText_Byte9.TextColor = &c000000
2764	StaticText_CarType.TextColor = &c000000
2765	StaticText_DBand.TextColor = &c000000
2766	StaticText_DFreq.TextColor = &c000000
2767	StaticText_Dump.TextColor = &c000000
2768	StaticText_Gain.TextColor = &c000000
2769	StaticText_Nuetral.TextColor = &c000000
2770	StaticText_Profiles.TextColor = &c000000
2771	StaticText_Punch.TextColor = &c000000
2772	StaticText_SerialPort.TextColor = &c000000
2773	StaticText_Speed.TextColor = &c000000
2774	StaticText_STGain.TextColor = &c000000
2775	StaticText_THGain.TextColor = &c000000
2776	StaticText_Version.TextColor = &c000000
2777	StaticText_VerticalIntertia.TextColor = &c000000
2778
2779	#endif
2780
2781	End Sub
2782	#tag EndEvent
2783
2784
2785	#tag Method, Flags = &h21
2786	Private Sub disableControls()
2787	select case ICSSerialPort1.carType
2788
2789	Case "MR-03"
2790	//Enable any controls that may have been disabled
2791	PopupMenu_BackTiming.Enabled = True
2792	StaticText_BackTiming.Enabled = True
2793
2794	Slider_STGain.Enabled = True
2795	StaticText_STGain.Enabled = True
2796	EditField_STGain.Enabled = True
2797
2798	Slider_THGain.Enabled = True
2799	StaticText_THGain.Enabled = True
2800	EditField_THGain.Enabled = True
2801
2802	Case "dNaNo"
2803	//Disable unused controls and set them to custom
2804	PopupMenu_BackTiming.Enabled = False
2805	StaticText_BackTiming.Enabled = False
2806	PopupMenu_BackTiming.ListIndex = PopupMenu_BackTiming.ListCount
2807
2808	//Enable any controls that may have been disabled
2809	Slider_STGain.Enabled = True
2810	StaticText_STGain.Enabled = True
2811	EditField_STGain.Enabled = True
2812
2813	Slider_THGain.Enabled = True
2814	StaticText_THGain.Enabled = True
2815	EditField_THGain.Enabled = True
2816
2817	Case "ASF"
2818	//Disable unused controls and set them to custom
2819	PopupMenu_BackTiming.Enabled = False
2820	StaticText_BackTiming.Enabled = False
2821	PopupMenu_BackTiming.ListIndex = PopupMenu_BackTiming.ListCount
2822
2823	Slider_STGain.Enabled = False
2824	StaticText_STGain.Enabled = False
2825	Slider_STGain.Value = 255
2826	EditField_STGain.Enabled = False
2827
2828	Slider_THGain.Enabled = False
2829	StaticText_THGain.Enabled = False
2830	Slider_THGain.Value = 255
2831	EditField_THGain.Enabled = False
2832
2833	end select
2834	End Sub
2835	#tag EndMethod
2836
2837	#tag Method, Flags = &h21
2838	Private Sub updateCarScreen()
2839	//Use this method to update the car screen
2840
2841	//Update Gain
2842	Select Case ICSSerialPort1.byte03
2843
2844	Case chrb(&h32)
2845	PopupMenu_Gain.ListIndex = 0
2846
2847	Case chrb(&h64)
2848	PopupMenu_Gain.ListIndex = 1
2849
2850	Case chrb(&hFF)
2851	PopupMenu_Gain.ListIndex = 2
2852
2853	Else
2854	PopupMenu_Gain.ListIndex = 3
2855
2856	End Select
2857
2858	//Update Speed
2859	Select Case ICSSerialPort1.Byte04
2860
2861	Case chrb(&h0A)
2862	PopupMenu_Speed.ListIndex = 0
2863
2864	Case chrb(&h14)
2865	PopupMenu_Speed.ListIndex = 1
2866
2867	Case chrb(&h1E)
2868	PopupMenu_Speed.ListIndex = 2
2869
2870	Case chrb(&h28)
2871	PopupMenu_Speed.ListIndex = 3
2872
2873	Case chrb(&hFF)
2874	PopupMenu_Speed.ListIndex = 4
2875
2876	Else
2877	PopupMenu_Speed.ListIndex = 5
2878
2879	End Select
2880
2881	//Update punch
2882	Slider_Punch.Value = asc(ICSSerialPort1.Byte05)
2883	EditField_Punch.Text = str(asc(ICSSerialPort1.Byte05))
2884
2885	//Update DBAND
2886	Select Case ICSSerialPort1.Byte06
2887
2888	Case chrb(&h01)
2889	PopupMenu_DBand.ListIndex = 0
2890
2891	Case chrb(&h02)
2892	PopupMenu_DBand.ListIndex = 1
2893
2894	Case chrb(&h03)
2895	PopupMenu_DBand.ListIndex = 2
2896
2897	Else
2898	PopupMenu_DBand.ListIndex = 3
2899
2900	End Select
2901
2902	//Update Dump
2903	Select Case ICSSerialPort1.Byte07
2904
2905	Case chrb(&h01)
2906	PopupMenu_Dump.ListIndex = 0
2907
2908	Case chrb(&h02)
2909	PopupMenu_Dump.ListIndex = 1
2910
2911	Else
2912	PopupMenu_Dump.ListIndex = 2
2913
2914	End Select
2915
2916	//Update DFREQ
2917	Select Case ICSSerialPort1.Byte08
2918
2919	Case chrb(&h40)
2920	PopupMenu_DFreq.ListIndex = 0
2921
2922	Case chrb(&h78)
2923	PopupMenu_DFreq.ListIndex = 1
2924
2925	Case chrb(&hFF)
2926	PopupMenu_DFreq.ListIndex = 2
2927
2928	Else
2929	PopupMenu_DFreq.ListIndex = 3
2930
2931	End Select
2932
2933	//Update Nuetral
2934	//Nuetral is defined by 2 bytes
2935	Select Case ICSSerialPort1.Byte11
2936
2937	Case chrb(&h82)
2938	if ICSSerialPort1.Byte12 = chrb(&h7C) then
2939	PopupMenu_Nuetral.ListIndex = 0
2940	else
2941	PopupMenu_Nuetral.ListIndex = 3
2942	end if
2943
2944	Case chrb(&h88)
2945	if ICSSerialPort1.Byte12 = chrb(&h78) then
2946	PopupMenu_Nuetral.ListIndex = 1
2947	else
2948	PopupMenu_Nuetral.ListIndex = 3
2949	end if
2950
2951	Case chrb(&h94)
2952	if ICSSerialPort1.Byte12 = chrb(&h6C) then
2953	PopupMenu_Nuetral.ListIndex = 2
2954	else
2955	PopupMenu_Nuetral.ListIndex = 3
2956	end if
2957
2958	Else
2959	PopupMenu_Nuetral.ListIndex = 3
2960
2961	End Select
2962
2963	//Update Vertial Intertia
2964	Select Case ICSSerialPort1.Byte13
2965
2966	Case chrb(&h01)
2967	PopupMenu_VerticalInteria.ListIndex = 0
2968
2969	Case chrb(&h02)
2970	PopupMenu_VerticalInteria.ListIndex = 1
2971
2972	Case chrb(&h03)
2973	PopupMenu_VerticalInteria.ListIndex = 2
2974
2975	Case chrb(&h04)
2976	PopupMenu_VerticalInteria.ListIndex = 3
2977
2978	Case chrb(&hFF)
2979	PopupMenu_VerticalInteria.ListIndex = 4
2980
2981	Else
2982	PopupMenu_VerticalInteria.ListIndex = 5
2983
2984	End Select
2985
2986	//Update Back Timing
2987	Select Case ICSSerialPort1.Byte15
2988
2989	Case chrb(&h01)
2990	PopupMenu_BackTiming.ListIndex = 0
2991
2992	Case chrb(&h05)
2993	PopupMenu_BackTiming.ListIndex = 1
2994
2995	Case chrb(&h0A)
2996	PopupMenu_BackTiming.ListIndex = 2
2997
2998	Case chrb(&h14)
2999	PopupMenu_BackTiming.ListIndex = 3
3000
3001	Case chrb(&h28)
3002	PopupMenu_BackTiming.ListIndex = 4
3003
3004	Else
3005	PopupMenu_BackTiming.ListIndex = 5
3006
3007	End Select
3008
3009	//Update Steering Gain
3010	Slider_STGain.Value = asc(ICSSerialPort1.Byte16)
3011	EditField_STGain.Text = str(asc(ICSSerialPort1.Byte16))
3012
3013	//Update Throttle Gain
3014	Slider_THGain.Value = asc(ICSSerialPort1.Byte17)
3015	EditField_THGain.Text = str(asc(ICSSerialPort1.Byte17))
3016	End Sub
3017	#tag EndMethod
3018
3019	#tag Method, Flags = &h21
3020	Private Sub updateAdvancedScreen()
3021	//Update the fields on the advanced screen to match current values
3022	EditField_Byte1.Text = str(asc(ICSSerialPort1.byte01))
3023	EditField_Byte2.Text = str(asc(ICSSerialPort1.byte02))
3024	EditField_Byte3.Text = str(asc(ICSSerialPort1.byte03))
3025	EditField_Byte4.Text = str(asc(ICSSerialPort1.byte04))
3026	EditField_Byte5.Text = str(asc(ICSSerialPort1.byte05))
3027	EditField_Byte6.Text = str(asc(ICSSerialPort1.byte06))
3028	EditField_Byte7.Text = str(asc(ICSSerialPort1.byte07))
3029	EditField_Byte8.Text = str(asc(ICSSerialPort1.byte08))
3030	EditField_Byte9.Text = str(asc(ICSSerialPort1.byte09))
3031	EditField_Byte10.Text = str(asc(ICSSerialPort1.byte10))
3032	EditField_Byte11.Text = str(asc(ICSSerialPort1.byte11))
3033	EditField_Byte12.Text = str(asc(ICSSerialPort1.byte12))
3034	EditField_Byte13.Text = str(asc(ICSSerialPort1.byte13))
3035	EditField_Byte14.Text = str(asc(ICSSerialPort1.byte14))
3036	EditField_Byte15.Text = str(asc(ICSSerialPort1.byte15))
3037	EditField_Byte16.Text = str(asc(ICSSerialPort1.byte16))
3038	EditField_Byte17.Text = str(asc(ICSSerialPort1.byte17))
3039	EditField_Byte18.Text = str(asc(ICSSerialPort1.byte18))
3040	End Sub
3041	#tag EndMethod
3042
3043	#tag Method, Flags = &h21
3044	Private Sub readPreferences()
3045	dim filePreference as FolderItem = GetFolderItem("icspref.xml")
3046	dim xdoc as XmlDocument
3047	dim root as XmlNode
3048	dim i as Integer
3049	dim count as integer
3050	dim item as string
3051
3052	//Read the settings from the preferences file
3053	if filePreference <> Nil then
3054	if filePreference.Exists then
3055	xdoc = New XmlDocument(filePreference)
3056
3057	count = xdoc.DocumentElement.ChildCount
3058
3059	for i = 0 to count - 1
3060	root = xdoc.DocumentElement.Child(i)
3061
3062	item = root.FirstChild.Value
3063
3064	select case root.Name
3065	case "comPort"
3066	comPort = item
3067	end select
3068	next
3069	end if
3070	end if
3071
3072
3073	End Sub
3074	#tag EndMethod
3075
3076	#tag Method, Flags = &h21
3077	Private Sub savePreferences()
3078	dim xml as XmlDocument
3079	dim root as XMLNode
3080	dim comPortXML as XmlNode
3081	dim f as FolderItem
3082
3083	//Save the preferences
3084
3085	f = GetFolderItem("icspref.xml")
3086
3087	if f <> Nil then
3088	//Create a new XML document
3089	xml = New XmlDocument
3090	root = xml.AppendChild(xml.CreateElement("icspref"))
3091
3092	//Add elements
3093	comPortXML = root.AppendChild(xml.CreateElement("comPort"))
3094	comPortXML.AppendChild(xml.CreateTextNode(comPort))
3095
3096	//Save the output
3097	xml.SaveXml(f)
3098	end if
3099
3100	End Sub
3101	#tag EndMethod
3102
3103
3104	#tag Property, Flags = &h0
3105	comPort As string
3106	#tag EndProperty
3107
3108
3109	#tag Constant, Name = defaultControlHeight, Type = Double, Dynamic = False, Default = \"20", Scope = Public
3110	#Tag Instance, Platform = Mac OS, Language = Default, Definition = \"20"
3111	#Tag Instance, Platform = Windows, Language = Default, Definition = \"22"
3112	#Tag Instance, Platform = Linux, Language = Default, Definition = \"24"
3113	#tag EndConstant
3114
3115
3116	#tag EndWindowCode
3117
3118	#tag Events PushButton_Read
3119	#tag Event
3120	Sub Action()
3121	ICSSerialPort1.readCar
3122	End Sub
3123	#tag EndEvent
3124	#tag EndEvents
3125	#tag Events PushButton_Write
3126	#tag Event
3127	Sub Action()
3128	ICSSerialPort1.writeCar
3129	End Sub
3130	#tag EndEvent
3131	#tag EndEvents
3132	#tag Events PushButton_Reset
3133	#tag Event
3134	Sub Action()
3135	ICSSerialPort1.resetCar
3136	End Sub
3137	#tag EndEvent
3138	#tag EndEvents
3139	#tag Events TabPanel1
3140	#tag Event
3141	Sub Change()
3142	updateAdvancedScreen
3143	updateCarScreen
3144	End Sub
3145	#tag EndEvent
3146	#tag EndEvents
3147	#tag Events PopupMenu_SerialPort
3148	#tag Event
3149	Sub Change()
3150	//Set and open the COM Port
3151	dim i, count as integer
3152	count = System.SerialPortCount
3153
3154	if comPort <> "" then
3155	//We can try opening the com port and set the popup menu to that port
3156
3157	for i = 0 to PopupMenu_SerialPort.ListCount - 1
3158
3159	if PopupMenu_SerialPort.list(i) = me.Text then
3160	//Found a match, set and open
3161	ICSSerialPort1.SerialPort = System.SerialPort(i)
3162	ICSSerialPort1.Close
3163
3164
3165	if not ICSSerialPort1.Open then
3166	//Could not open
3167	MsgBox "Error opening defined com port"
3168	end if
3169	//Save and exit
3170	comPort = me.Text
3171	savePreferences
3172	exit
3173	end if
3174
3175	next
3176
3177	end if
3178	End Sub
3179	#tag EndEvent
3180	#tag EndEvents
3181	#tag Events EditField_Byte17
3182	#tag Event
3183	Sub TextChange()
3184	//Make sure we have a valid value if not then set it to something
3185	if me.Text <> "" then
3186	if val(me.Text) > 255 or val(me.Text) < 0 then
3187	me.Text = "255"
3188	end if
3189	end if
3190
3191	dim d as double
3192	dim i as integer
3193	d = val(me.Text)
3194	i = d
3195	ICSSerialPort1.Byte17 = chrb(i)
3196	End Sub
3197	#tag EndEvent
3198	#tag EndEvents
3199	#tag Events EditField_Byte16
3200	#tag Event
3201	Sub TextChange()
3202	//Make sure we have a valid value if not then set it to something
3203	if me.Text <> "" then
3204	if val(me.Text) > 255 or val(me.Text) < 0 then
3205	me.Text = "255"
3206	end if
3207	end if
3208
3209	dim d as double
3210	dim i as integer
3211	d = val(me.Text)
3212	i = d
3213	ICSSerialPort1.Byte16 = chrb(i)
3214	End Sub
3215	#tag EndEvent
3216	#tag EndEvents
3217	#tag Events EditField_Byte15
3218	#tag Event
3219	Sub TextChange()
3220	//Make sure we have a valid value if not then set it to something
3221	if me.Text <> "" then
3222	if val(me.Text) > 255 or val(me.Text) < 0 then
3223	me.Text = "255"
3224	end if
3225	end if
3226
3227	dim d as double
3228	dim i as integer
3229	d = val(me.Text)
3230	i = d
3231	ICSSerialPort1.Byte15 = chrb(i)
3232	End Sub
3233	#tag EndEvent
3234	#tag EndEvents
3235	#tag Events EditField_Byte14
3236	#tag Event
3237	Sub TextChange()
3238	//Make sure we have a valid value if not then set it to something
3239	if me.Text <> "" then
3240	if val(me.Text) > 255 or val(me.Text) < 0 then
3241	me.Text = "255"
3242	end if
3243	end if
3244
3245	dim d as double
3246	dim i as integer
3247	d = val(me.Text)
3248	i = d
3249	ICSSerialPort1.Byte14 = chrb(i)
3250	End Sub
3251	#tag EndEvent
3252	#tag EndEvents
3253	#tag Events EditField_Byte13
3254	#tag Event
3255	Sub TextChange()
3256	//Make sure we have a valid value if not then set it to something
3257	if me.Text <> "" then
3258	if val(me.Text) > 255 or val(me.Text) < 0 then
3259	me.Text = "255"
3260	end if
3261	end if
3262
3263	dim d as double
3264	dim i as integer
3265	d = val(me.Text)
3266	i = d
3267	ICSSerialPort1.Byte13 = chrb(i)
3268	End Sub
3269	#tag EndEvent
3270	#tag EndEvents
3271	#tag Events EditField_Byte12
3272	#tag Event
3273	Sub TextChange()
3274	//Make sure we have a valid value if not then set it to something
3275	if me.Text <> "" then
3276	if val(me.Text) > 255 or val(me.Text) < 0 then
3277	me.Text = "255"
3278	end if
3279	end if
3280
3281	dim d as double
3282	dim i as integer
3283	d = val(me.Text)
3284	i = d
3285	ICSSerialPort1.Byte12 = chrb(i)
3286	End Sub
3287	#tag EndEvent
3288	#tag EndEvents
3289	#tag Events EditField_Byte11
3290	#tag Event
3291	Sub TextChange()
3292	//Make sure we have a valid value if not then set it to something
3293	if me.Text <> "" then
3294	if val(me.Text) > 255 or val(me.Text) < 0 then
3295	me.Text = "255"
3296	end if
3297	end if
3298
3299	dim d as double
3300	dim i as integer
3301	d = val(me.Text)
3302	i = d
3303	ICSSerialPort1.Byte11 = chrb(i)
3304	End Sub
3305	#tag EndEvent
3306	#tag EndEvents
3307	#tag Events EditField_Byte10
3308	#tag Event
3309	Sub TextChange()
3310	//Make sure we have a valid value if not then set it to something
3311	if me.Text <> "" then
3312	if val(me.Text) > 255 or val(me.Text) < 0 then
3313	me.Text = "255"
3314	end if
3315	end if
3316
3317	dim d as double
3318	dim i as integer
3319	d = val(me.Text)
3320	i = d
3321	ICSSerialPort1.Byte10 = chrb(i)
3322	End Sub
3323	#tag EndEvent
3324	#tag EndEvents
3325	#tag Events EditField_Byte9
3326	#tag Event
3327	Sub TextChange()
3328	//Make sure we have a valid value if not then set it to something
3329	if me.Text <> "" then
3330	if val(me.Text) > 255 or val(me.Text) < 0 then
3331	me.Text = "255"
3332	end if
3333	end if
3334
3335	dim d as double
3336	dim i as integer
3337	d = val(me.Text)
3338	i = d
3339	ICSSerialPort1.Byte09 = chrb(i)
3340	End Sub
3341	#tag EndEvent
3342	#tag EndEvents
3343	#tag Events EditField_Byte8
3344	#tag Event
3345	Sub TextChange()
3346	//Make sure we have a valid value if not then set it to something
3347	if me.Text <> "" then
3348	if val(me.Text) > 255 or val(me.Text) < 0 then
3349	me.Text = "255"
3350	end if
3351	end if
3352
3353	dim d as double
3354	dim i as integer
3355	d = val(me.Text)
3356	i = d
3357	ICSSerialPort1.Byte08 = chrb(i)
3358	End Sub
3359	#tag EndEvent
3360	#tag EndEvents
3361	#tag Events EditField_Byte7
3362	#tag Event
3363	Sub TextChange()
3364	//Make sure we have a valid value if not then set it to something
3365	if me.Text <> "" then
3366	if val(me.Text) > 255 or val(me.Text) < 0 then
3367	me.Text = "255"
3368	end if
3369	end if
3370
3371	dim d as double
3372	dim i as integer
3373	d = val(me.Text)
3374	i = d
3375	ICSSerialPort1.Byte07 = chrb(i)
3376	End Sub
3377	#tag EndEvent
3378	#tag EndEvents
3379	#tag Events EditField_Byte6
3380	#tag Event
3381	Sub TextChange()
3382	//Make sure we have a valid value if not then set it to something
3383	if me.Text <> "" then
3384	if val(me.Text) > 255 or val(me.Text) < 0 then
3385	me.Text = "255"
3386	end if
3387	end if
3388
3389	dim d as double
3390	dim i as integer
3391	d = val(me.Text)
3392	i = d
3393	ICSSerialPort1.Byte06 = chrb(i)
3394	End Sub
3395	#tag EndEvent
3396	#tag EndEvents
3397	#tag Events EditField_Byte5
3398	#tag Event
3399	Sub TextChange()
3400	//Make sure we have a valid value if not then set it to something
3401	if me.Text <> "" then
3402	if val(me.Text) > 255 or val(me.Text) < 0 then
3403	me.Text = "255"
3404	end if
3405	end if
3406
3407	dim d as double
3408	dim i as integer
3409	d = val(me.Text)
3410	i = d
3411	ICSSerialPort1.Byte05 = chrb(i)
3412	End Sub
3413	#tag EndEvent
3414	#tag EndEvents
3415	#tag Events EditField_Byte4
3416	#tag Event
3417	Sub TextChange()
3418	//Make sure we have a valid value if not then set it to something
3419	if me.Text <> "" then
3420	if val(me.Text) > 255 or val(me.Text) < 0 then
3421	me.Text = "255"
3422	end if
3423	end if
3424
3425	dim d as double
3426	dim i as integer
3427	d = val(me.Text)
3428	i = d
3429	ICSSerialPort1.Byte04 = chrb(i)
3430	End Sub
3431	#tag EndEvent
3432	#tag EndEvents
3433	#tag Events EditField_Byte3
3434	#tag Event
3435	Sub TextChange()
3436	//Make sure we have a valid value if not then set it to something
3437	if me.Text <> "" then
3438	if val(me.Text) > 255 or val(me.Text) < 0 then
3439	me.Text = "255"
3440	end if
3441	end if
3442
3443	dim d as double
3444	dim i as integer
3445	d = val(me.Text)
3446	i = d
3447	ICSSerialPort1.Byte03 = chrb(i)
3448	End Sub
3449	#tag EndEvent
3450	#tag EndEvents
3451	#tag Events Slider_THGain
3452	#tag Event
3453	Sub ValueChanged()
3454	ICSSerialPort1.Byte17 = chrb(me.Value)
3455	//Check to see if we need to update the edit field
3456	//This prevents the edit field from triggering this event that then updates the edit field again
3457	//Causing the cursor to move to the begginning of the editfield
3458	if EditField_THGain.Text <> str(me.Value) then
3459	EditField_THGain.Text = str(me.Value)
3460	end if
3461
3462
3463	End Sub
3464	#tag EndEvent
3465	#tag EndEvents
3466	#tag Events EditField_THGain
3467	#tag Event
3468	Sub TextChange()
3469	//Make sure we have a valid value if not then set it to something
3470	if me.Text <> "" then
3471	if val(me.Text) > 255 or val(me.Text) < 1 then
3472	me.Text = "255"
3473	end if
3474	end if
3475
3476	dim d as double
3477	dim i as integer
3478	d = val(me.Text)
3479	i = d
3480	ICSSerialPort1.Byte17 = chrb(i)
3481
3482	Slider_THGain.Value = val(me.Text)
3483	End Sub
3484	#tag EndEvent
3485	#tag EndEvents
3486	#tag Events Slider_STGain
3487	#tag Event
3488	Sub ValueChanged()
3489	ICSSerialPort1.Byte16 = chrb(me.Value)
3490	//Check to see if we need to update the edit field
3491	//This prevents the edit field from triggering this event that then updates the edit field again
3492	//Causing the cursor to move to the begginning of the editfield
3493	if EditField_STGain.Text <> str(me.Value) then
3494	EditField_STGain.Text = str(me.Value)
3495	end if
3496	End Sub
3497	#tag EndEvent
3498	#tag EndEvents
3499	#tag Events EditField_STGain
3500	#tag Event
3501	Sub TextChange()
3502	//Make sure we have a valid value if not then set it to something
3503	if me.Text <> "" then
3504	if val(me.Text) > 255 or val(me.Text) < 1 then
3505	me.Text = "255"
3506	end if
3507	end if
3508
3509	dim d as double
3510	dim i as integer
3511	d = val(me.Text)
3512	i = d
3513	ICSSerialPort1.Byte16 = chrb(i)
3514
3515	Slider_STGain.Value = val(me.Text)
3516
3517
3518	End Sub
3519	#tag EndEvent
3520	#tag EndEvents
3521	#tag Events PopupMenu_BackTiming
3522	#tag Event
3523	Sub Change()
3524	Select Case me.ListIndex
3525
3526	Case 0
3527	ICSSerialPort1.Byte15 = chrb(&h01)
3528	Case 1
3529	ICSSerialPort1.Byte15 = chrb(&h05)
3530	Case 2
3531	ICSSerialPort1.Byte15 = chrb(&h0A)
3532	Case 3
3533	ICSSerialPort1.Byte15 = chrb(&h14)
3534	Case 4
3535	ICSSerialPort1.Byte15 = chrb(&h28)
3536	Case 5
3537
3538	End Select
3539	End Sub
3540	#tag EndEvent
3541	#tag EndEvents
3542	#tag Events PopupMenu_VerticalInteria
3543	#tag Event
3544	Sub Change()
3545	Select Case me.ListIndex
3546
3547	Case 0
3548	ICSSerialPort1.Byte13 = chrb(&h01)
3549	Case 1
3550	ICSSerialPort1.Byte13 = chrb(&h02)
3551	Case 2
3552	ICSSerialPort1.Byte13 = chrb(&h03)
3553	Case 3
3554	ICSSerialPort1.Byte13 = chrb(&h04)
3555	Case 4
3556	ICSSerialPort1.Byte13 = chrb(&hFF)
3557	Case 5
3558
3559	End Select
3560	End Sub
3561	#tag EndEvent
3562	#tag EndEvents
3563	#tag Events PopupMenu_Nuetral
3564	#tag Event
3565	Sub Change()
3566	Select Case me.ListIndex
3567
3568	Case 0
3569	ICSSerialPort1.Byte11 = chrb(&h82)
3570	ICSSerialPort1.Byte12 = chrb(&h7C)
3571
3572	Case 1
3573	ICSSerialPort1.Byte11 = chrb(&h88)
3574	ICSSerialPort1.Byte12 = chrb(&h78)
3575
3576	Case 2
3577	ICSSerialPort1.Byte11 = chrb(&h94)
3578	ICSSerialPort1.Byte12 = chrb(&h6C)
3579
3580	Case 3
3581
3582	End Select
3583	End Sub
3584	#tag EndEvent
3585	#tag EndEvents
3586	#tag Events PopupMenu_DFreq
3587	#tag Event
3588	Sub Change()
3589	Select Case me.ListIndex
3590
3591	Case 0
3592	ICSSerialPort1.Byte08 = chrb(&h40)
3593	Case 1
3594	ICSSerialPort1.Byte08 = chrb(&h78)
3595	Case 2
3596	ICSSerialPort1.Byte08 = chrb(&hFF)
3597	Case 3
3598
3599	End Select
3600	End Sub
3601	#tag EndEvent
3602	#tag EndEvents
3603	#tag Events PopupMenu_Dump
3604	#tag Event
3605	Sub Change()
3606	Select Case me.ListIndex
3607
3608	Case 0
3609	ICSSerialPort1.Byte07 = chrb(&h01)
3610	Case 1
3611	ICSSerialPort1.Byte07 = chrb(&h02)
3612	Case 2
3613
3614	End Select
3615	End Sub
3616	#tag EndEvent
3617	#tag EndEvents
3618	#tag Events PopupMenu_DBand
3619	#tag Event
3620	Sub Change()
3621	Select Case me.ListIndex
3622
3623	Case 0
3624	ICSSerialPort1.Byte06 = chrb(&h01)
3625	Case 1
3626	ICSSerialPort1.Byte06 = chrb(&h02)
3627	Case 2
3628	ICSSerialPort1.Byte06 = chrb(&h03)
3629	Case 3
3630
3631	End Select
3632	End Sub
3633	#tag EndEvent
3634	#tag EndEvents
3635	#tag Events Slider_Punch
3636	#tag Event
3637	Sub ValueChanged()
3638	ICSSerialPort1.Byte05 = chrb(me.Value)
3639	//Check to see if we need to update the edit field
3640	//This prevents the edit field from triggering this event that then updates the edit field again
3641	//Causing the cursor to move to the begginning of the editfield
3642	if EditField_Punch.Text <> str(me.Value) then
3643	EditField_Punch.Text = str(me.Value)
3644	end if
3645
3646
3647	End Sub
3648	#tag EndEvent
3649	#tag EndEvents
3650	#tag Events EditField_Punch
3651	#tag Event
3652	Sub TextChange()
3653	//Make sure we have a valid value if not then set it to something
3654	if me.Text <> "" then
3655	if val(me.Text) > 255 or val(me.Text) < 1 then
3656	me.Text = "255"
3657	end if
3658	end if
3659
3660	dim d as double
3661	dim i as integer
3662	d = val(me.Text)
3663	i = d
3664	ICSSerialPort1.Byte05 = chrb(i)
3665
3666	Slider_Punch.Value = val(me.Text)
3667	End Sub
3668	#tag EndEvent
3669	#tag EndEvents
3670	#tag Events PopupMenu_Speed
3671	#tag Event
3672	Sub Change()
3673	Select Case me.ListIndex
3674
3675	Case 0
3676	ICSSerialPort1.Byte04 = chrb(&h0A)
3677	Case 1
3678	ICSSerialPort1.Byte04 = chrb(&h14)
3679	Case 2
3680	ICSSerialPort1.Byte04 = chrb(&h1E)
3681	Case 3
3682	ICSSerialPort1.Byte04 = chrb(&h28)
3683	Case 4
3684	ICSSerialPort1.Byte04 = chrb(&hFF)
3685	Case 5
3686
3687	End Select
3688	End Sub
3689	#tag EndEvent
3690	#tag EndEvents
3691	#tag Events PopupMenu_Gain
3692	#tag Event
3693	Sub Change()
3694	Select Case me.ListIndex
3695
3696	case 0
3697	ICSSerialPort1.Byte03 = chrb(&h32)
3698
3699	case 1
3700	ICSSerialPort1.Byte03 = chrb(&h64)
3701
3702	case 2
3703	ICSSerialPort1.Byte03 = chrb(&hFF)
3704
3705	case 3
3706
3707	End Select
3708
3709	End Sub
3710	#tag EndEvent
3711	#tag EndEvents
3712	#tag Events PopupMenu_CarType
3713	#tag Event
3714	Sub Change()
3715	ICSSerialPort1.setCarType(me.Text)
3716	disableControls
3717
3718	End Sub
3719	#tag EndEvent
3720	#tag EndEvents
3721	#tag Events PopupMenu_Profile
3722	#tag Event
3723	Sub Change()
3724	if me.Text <> "" then
3725	PushButton_SaveProfile.Visible = true
3726	PushButton_Delete.Visible = true
3727	ICSSerialPort1.loadProfile(me.Text)
3728	end if
3729	End Sub
3730	#tag EndEvent
3731	#tag Event
3732	Sub Open()
3733	dim s() as string
3734	dim i as integer
3735
3736	s = ICSSerialPort1.listProfiles
3737
3738	if UBound(s) > -1 then
3739	for each element as string in s
3740	me.AddRow(element)
3741	next
3742	end if
3743	End Sub
3744	#tag EndEvent
3745	#tag EndEvents
3746	#tag Events PushButton_Create
3747	#tag Event
3748	Sub Action()
3749	dim tempProfWindow as new createProfile
3750	tempProfWindow.Show
3751	End Sub
3752	#tag EndEvent
3753	#tag EndEvents
3754	#tag Events PushButton_Delete
3755	#tag Event
3756	Sub Action()
3757	ICSSerialPort1.deleteProfile(PopupMenu_Profile.Text)
3758
3759	PopupMenu_Profile.RemoveRow(PopupMenu_Profile.ListIndex)
3760
3761	//Make sure to hide the save and delete profile buttons since no profile will be selected after this has been deleted
3762	PushButton_SaveProfile.Visible = False
3763	PushButton_Delete.Visible = False
3764	End Sub
3765	#tag EndEvent
3766	#tag EndEvents
3767	#tag Events ICSSerialPort1
3768	#tag Event
3769	Sub valuesChanged()
3770	//Update the screens with the new values
3771	updateAdvancedScreen
3772	updateCarScreen
3773	End Sub
3774	#tag EndEvent
3775	#tag EndEvents
3776	#tag Events PushButton_Default
3777	#tag Event
3778	Sub Action()
3779	ICSSerialPort1.setDefaultValues
3780	End Sub
3781	#tag EndEvent
3782	#tag EndEvents
3783	#tag Events PushButton_SaveProfile
3784	#tag Event
3785	Sub Action()
3786	ICSSerialPort1.saveProfile(PopupMenu_Profile.Text)
3787	End Sub
3788	#tag EndEvent
3789	#tag EndEvents

Note: See TracBrowser for help on using the repository browser.