INFO - FAQ - CC2-Forum - CCPro-Forum |
|
How can I this example smaller write in advance warm thanks Hans Uit Nederland 'Stuuring voor de MC14067B een 16 channel Analoge multiplexer 'poort DEFINE ADin AD[1] define poort1 port[1] define poort2 port[2] define poort3 port[3] define poort4 port[4] 'VAR DEFINE I BYTE[1] DEFINE Ieen BIT[1] DEFINE Itwee BIT[2] DEFINE Idrie BIT[3] DEFINE Ivier BIT[4] define ingang1 bit[17] define ingang2 bit[18] define ingang3 bit[19] define ingang4 bit[20] define ingang5 bit[21] define ingang6 bit[22] define ingang7 bit[23] define ingang8 bit[24] define ingang9 bit[25] define ingang10 bit[26] define ingang11 bit[27] define ingang12 bit[28] define ingang13 bit[29] define ingang14 bit[30] define ingang15 bit[31] FOR I=0 to 15 Poort1=Ieen Poort2=Itwee Poort3=Idrie Poort4=Ivier IF I=0 THEN GOSUB Set1 IF I=1 THEN GOSUB Set2 IF I=2 THEN GOSUB Set3 IF I=3 THEN GOSUB Set4 IF I=4 THEN GOSUB Set5 IF I=5 THEN GOSUB Set6 IF I=6 THEN GOSUB Set7 IF I=7 THEN GOSUB Set8 IF I=8 THEN GOSUB Set9 IF I=9 THEN GOSUB Set10 IF I=10 THEN GOSUB Set11 IF I=11 THEN GOSUB Set12 IF I=11 THEN GOSUB Set13 IF I=11 THEN GOSUB Set14 IF I=11 THEN GOSUB Set15 next #Set1 IF ADin<140 THEN Ingang1=ON IF ADin>240 THEN Ingang1=OFF RETURN #Set2 IF ADin<140 THEN Ingang2=ON IF ADin>240 THEN Ingang2=OFF RETURN #Set3 IF ADin<140 THEN Ingang3=ON IF ADin>240 THEN Ingang3=OFF RETURN #Set4 IF ADin<140 THEN Ingang4=ON IF ADin>240 THEN Ingang4=OFF RETURN #Set5 IF ADin<140 THEN Ingang5=ON IF ADin>240 THEN Ingang5=OFF RETURN #Set6 IF ADin<140 THEN Ingang6=ON IF ADin>240 THEN Ingang6=OFF RETURN #Set7 IF ADin<140 THEN Ingang7=ON IF ADin>240 THEN Ingang7=OFF RETURN #Set8 IF ADin<140 THEN Ingang8=ON IF ADin>240 THEN Ingang8=OFF RETURN #Set9 IF ADin<140 THEN Ingang9=ON IF ADin>240 THEN Ingang9=OFF RETURN #Set10 IF ADin<140 THEN Ingang10=ON IF ADin>240 THEN Ingang10=OFF RETURN #Set11 IF ADin<140 THEN Ingang11=ON IF ADin>240 THEN Ingang11=OFF RETURN #Set12 IF ADin<140 THEN Ingang12=ON IF ADin>240 THEN Ingang12=OFF RETURN #Set13 IF ADin<140 THEN Ingang13=ON IF ADin>240 THEN Ingang13=OFF RETURN #Set14 IF ADin<140 THEN Ingang14=ON IF ADin>240 THEN Ingang14=OFF RETURN #Set15 IF ADin<140 THEN Ingang15=ON IF ADin>240 THEN Ingang15=OFF RETURN |
Antwort schreiben |