Das Forum zur C-Control-1

Achtung! Für dieses Forum muß unbedingt Javascript (Active Scripting) im Browser aktiviert werden.
Hingegen kann und sollte Java aus Sicherheitsgründen immer deaktiviert bleiben.

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

Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum

Re: programm zur relaisplatine ELR4SR Kategorie: Programmierung Basic (von ManfredW, Homepage - 30.08.2005 18:57)

Als Antwort auf Re: programm zur relaisplatine ELR4SR von mibr85 - 30.08.2005 12:44

Hallo,
siehe EinfÃ¼gungen
MfG ManfredW
>
> also das programm so soll es mal funktionieren mit meinen ports und variablen
> aber es geht nicht (da sind die beispiel programme nur ein bissl umgeschrieben) was mach ich falsch:
>
Das Programm von ccTools enthÃ¤lt Daten-Eingabe: Relais-Nr und EIN bzw. Aus
Das musst Du alles weglassen und nur die serielle Ausgabe (SR =Schieberegister) nutzen.
Die Relaisbits schaltest Du je nach Temperatur ein bzw. aus.

> 'Digitalports
> define Clock Port[1] 'Serial clock input fÃ¼r SHT75
> define Data Port[2] 'Serial data fÃ¼r SHT75
> define DS Port[3]'DATA IN fÃ¼r Relaisplatine
> define SH Port[4] 'Shift CLK fÃ¼r Relaisplatine
> define ST Port[5] 'Stotre CLK fÃ¼r Relaisplatine
>
>
> 'Variablen
> define tempW word[1] 'Ãœberlappung mit Byte 1 & 2 !!!!
> define temp byte[1] 'temporÃ¤res Datenbyte
> define temp2 byte[2] 'temporÃ¤res Datenbyte
> define i byte[3]
> define ack byte[4]
>
> define dataW word[3]
> define dataWhi byte[5]
> define dataWlo byte[6]
>
> define Temperatur word[4]
> define Feuchte word[5]
>
> define tempW2 word[6]
>
>
>
>
> define rel byte[13] 'Byte-Puffer fÃ¼r rel1 bis rel8
> define rel1 bit[97] 'Relais 1
> define rel2 bit[98] 'Relais 2
> define rel3 bit[99] 'Relais 3
> define rel4 bit[100] 'Relais 4
> define rel5 bit[101] 'Relais 5
> define rel6 bit[102] 'Relais 6
> define rel7 bit[103] 'Relais 7
> define rel8 bit[104] 'Relais 8
> define rn byte[14] 'Relaisnummer
rs wird nicht gebraucht
> define rs byte[15] 'Relaistatus 0=aus 1=an
>
>
'Messen ....................
>
'Schalten
'alle Relaisbits aus z.B. Byte =0
'Bits nach Bedarf ein:
if temperatur >280 then goto hoch
if temperatur >250 then goto x1
if temperatur > 230 then goto x2
goto Ausgabe
#hoch
Rel1 = ON, 'usw
goto Ausgabe
#x1
Rel2= ON : Rel5 = ON
goto Ausgabe
#x2
......
goto Ausgabe
'einbindung von shift
>
> #shift 'Routine zum seriellen Senden der Daten zur Schieberegistererweiterung
> for rn=7 to 0 step -1
> DS=(rel shr i) and 1 'Maskierung Rel
> pulse SH
> next
> return
> '____________________________________________________RELAIS ENDE

'Unterprogramme ..................

Meine Homepage: http://manfred.wilzeck.de

Antwort schreiben

Bisherige Antworten:

Re: programm zur relaisplatine ELR4SR (von mibr85 - 30.08.2005 20:24)

Re: programm zur relaisplatine ELR4SR (von ManfredW - 30.08.2005 22:37)

Re: programm zur relaisplatine ELR4SR (von mibr85 - 31.08.2005 15:02)

Re: programm zur relaisplatine ELR4SR (von mibr85 - 31.08.2005 17:20)

Re: Zeitschaltuhr (von ManfredW - 31.08.2005 17:19)

Re: Zeitschaltuhr (von mibr85 - 31.08.2005 17:26)

Re: Relais Programm testen (von ManfredW - 31.08.2005 18:10)

Re: Relais Programm testen (von mibr85 - 31.08.2005 18:24)

Re: Relais Programm testen (von ManfredW - 31.08.2005 19:03)