Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Ü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:15)
 Als Antwort auf Re: write smaller You can von Stefan Tappertzhofen - 17.09.2005 15:26
Hans nutzt:  CC1-M-Unit V1.2/2.0
Oke ....great
Only  I have  the compiler c-control/basic version 1.33
and then work the task" CASE" not
I"ve basic ++ gedownload but its works not with M. unit2.0......
not yet,....
I go, however, further with basic ++
Is there also a step to step ??
 
 

>
> > 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

 Antwort schreiben

Bisherige Antworten:

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