Ü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 Hans - 17.09.2005 18:01)

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

Hans nutzt:  CC1-M-Unit V1.2/2.0

Thank you very much for this beautiful solution . This solution is much improves whole I have immediately tested and it works great Thanks  again > 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: