| Relaisansteuerung unter Visual Basic |
Heizungssteuerung unter Visual Basic |
|---|
' Relais so lange einschalten,wie ein Taster
' gedrückt wird
Dim Wert As Long
start:
Wert&=QAPIGetDI(PORTO16IN) And 1
QAPIPutDO(PREL8,Wert&)
GoTo start |
' Heizungssteuerung für einen chemischen
' Prozeß inkl. Watchdogüberwachung
Const _80_GRAD = 1278 ' Wert 1278 entspr. 80 C
DIM Temperatur As Long
start:
Temperatur&=QAPIGetAD(Pad12,0)
If Temperatur& < _80_GRAD Then
QAPIWriteDO(PREL8,1) 'Relais einschalten
Else
QAPIWriteDO(PREL8,0) 'Relais ausschalten
endif
QAPIWatchdogRetigger
GoTo start |
| Relaisansteuerung unter C |
Heizungssteuerung unter C |
|---|
/* Relais so lange einschalten,wie ein Taster */
/* gedrückt wird */
Void main (void)
{
ULONG wert;
while (1) {
wert=QAPIGetDI(PORTO16IN) & 1; /*Tasterturzustand*/
QAPIPutDO(PREL8,wert); /*Relais einschalten*/
}
} |
/* Heizungssteuerung für einen chemischen */
/* Prozeß inkl. Watchdogüberwachung*/
#define _80_GRAD 1278L /*1278 entspr.80 Grad C*/
void main (void)
{
ULONG temperatur;
while (1) { /*Endlosschleife*/
temperatur=QAPIGetAD(PAD12,0);
if (temperatur < _80_Grad)
QAPIPutDO(PREL8,1); /*Relais einschalten*/
else
QAPIPutDO(PREL8,0); /*Relais ausschalten*/
QAPIWatchdogRetigger(); /*Watchdog*/
}
}
|
| Relaisansteuerung unter Delphi |
Heizungssteuerung unter Delphi |
|---|
{ Relais so lange einschalten,wie ein Taster }
{ gedrückt wird }
var wert: Longint;
label start;
begin
start:
wert=QAPIGetDI(PROTO16IN) and 1;
QAPIPutDO(PREL8,wert);
goto start
end. |
{ Heizungssteuerung für einen chemischen }
{ Prozeß inkl. Watchdogüberwachung }
var temperatur: Longint;
const_80_GRAD=1278;
label start;
begin
start:
temperatur=QAPIGetAD(PAD12,0);
if temperatur < _80_GRAD then
QAPIPutDO(PREL8,1)
else
QAPIPutDO(PREL8,0)
QAPIWatchdogRetigger;
goto start {Endlosschleife}
end. |