Ü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 Stefan Tappertzhofen, Homepage - 17.09.2005 15:26)

Als Antwort auf write smaller You can von Hans - 17.09.2005 14:37

Stefan Tappertzhofen nutzt:  CC1-M-Unit V1.2/2.0, Micro

> How can I this example smaller write > in advance warm thanks Hello, maybe you try it that way (in BASIC++ or a few modifications in CCBASIC): '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] define temp as bit[32] 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 resm         END IF     END IF         select case i         case 0             ingang1 = temp         case 1             ingang2 = temp         case 2             ingang3 = temp         case 3             ingang4 = temp         case 4             ingang5 = temp         case 5             ingang6 = temp         case 6             ingang7 = temp         case 7             ingang8 = temp         case 8             ingang9 = temp         case 9             ingang10 = temp         case 10             ingang11 = temp         case 11             ingang12 = temp             ingang13 = temp             ingang14 = temp             ingang15 = temp     end select         #resm next i Greetings, Stefan Meine Homepage: http://www.fdos.de

Antwort schreiben

Bisherige Antworten:

Re: write smaller You can (von Hans - 17.09.2005 18:15)
    Re: write smaller You can (von Stefan Tappertzhofen - 17.09.2005 18:21)