Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

Re: write smaller You can Kategorie: Programmierung Basic (von Windt H.J. - 17.09.2005 16:30)

Als Antwort auf Re: write smaller You can von Windt H.J. - 17.09.2005 16:24

oops, I made a mistake, this one is better. 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 bit[16] 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 > 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

Bisherige Antworten:

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)