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 

 write smaller You can Kategorie: Programmierung Basic (von Hans - 17.09.2005 14:37)
Hans nutzt:  CC1-M-Unit V1.2/2.0

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 16:24)
    Re: write smaller You can (von Windt H.J. - 17.09.2005 16:30)
        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)
Re: write smaller You can (von Stefan Tappertzhofen - 17.09.2005 15:26)
    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)