  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hi, From 652 Basic bytes to 262 Basic bytes. Greetings, H.J. Windt '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 temp byte[2] 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 adin < 140 then temp = on else if adin > 240 then temp = off if I = 0 then Ingang1 = temp if I = 1 then Ingang2 = temp if I = 2 then Ingang3 = temp if I = 3 then Ingang4 = temp if I = 4 then Ingang5 = temp if I = 5 then Ingang6 = temp if I = 6 then Ingang7 = temp if I = 7 then Ingang8 = temp if I = 8 then Ingang9 = temp if I = 9 then Ingang10 = temp if I = 10 then Ingang11 = temp if I = 11 then Ingang12 = temp if I = 11 then Ingang13 = temp if I = 11 then Ingang14 = temp if I = 11 then Ingang15 = temp next > > 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 |
Re: write smaller You can (von Windt H.J. - 17.09.2005 16:30)Re: write smaller You can (von Windt H.J. - 17.09.2005 17:03)Re: write smaller You can (von Hans - 17.09.2005 18:01)