Allgemeine Programmierbeispiele


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.


 Weiter mit "Programmbeispiele für QUANCOM Karten"