Ü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 17:03)

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

I forgot something, here is a better version. '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 else goto pass 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 #pass next

Antwort schreiben

Bisherige Antworten:

Re: write smaller You can (von Hans - 17.09.2005 18:01)