Chip: Hang es video/CHIP_ZENESZERKESZTO_2005.ISO/audio_1/softstep/softstep3.msi/Data1.cab/TestCom.ufn

Text File | 2002-08-03 | 2KB | 137 lines

4
0
0
0
FOO="dumb"
MSGTXT=""
OUTNUM="0"
TEMP=""
0.
1. Test Com Out = letnum(outnum,in2),~txtlabel(outnum),~out(sendcom(in1,outnum))
2. Test COM In = getcom(foo,in1),~txtlabel(foo),~out(TxtNum(foo))~~~
3.
4. Test Com On/Off = Switch(Rising(in2, in1), me+1,0),~Switch(Falling(in2,in1 + 5), me+2, 0)~~
5. Test Com On/Off = V0.(opencom(In1)),~LetNum(temp, In1),~Switch(V0, me+2, me+4)  ; get message text~LetStr(foo, "COM", temp, msgtxt),~TxtLabel(foo),~out(V0)   ; sends 1 for success, 0 for error~~
6. Test Com On/Off = V0.(CloseCom(in1)),~LetNum(temp, In1),~Switch(V0, me+2, me+3)  ; get message text~LetStr(foo, "COM", temp, msgtxt),~TxtLabel(foo)~out(V0)   ; sends 1 for success, 0 for error~
7. Set MsgTxt = LetStr(MsgTxt, " Open")
8. Set MsgTxt = LetStr(MsgTxt, " Closed")
9. Set MsgTxt = LetStr(MsgTxt, " Error")
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.