Context Navigation

mainWindow.rbfrm @ 24

Revision 24, 112.3 KB checked in by pinwc4, 15 years ago (diff)
Lots of visual tweaking to make the program look better in Windows, sacrificed the visual layout that looked best in Mac though......

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

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