ADbasic_program_manual_without_PID.bas

'<ADbasic Header, Headerversion 001.001>
' Process_Number                 = 2
' Initial_Processdelay           = 10000
' Eventsource                    = Timer
' Control_long_Delays_for_Stop   = No
' Priority                       = High
' Version                        = 1
' ADbasic_Version                = 6.3.1
' Optimize                       = Yes
' Optimize_Level                 = 4
' Stacksize                      = 1000
' Info_Last_Save                 = ATI098-60  ATI098-60\labuser
'<Header End>
#include adwinpro_all.inc

#define DIO1  1              ' DIO  Card 32
#define DIO2  2              ' DIO  Card 32
#define AIN1  3              ' AIN  Card 8/16
#define AIN2  4              ' AIN  Card 8/16
#define AOUT1 5              ' AOUT Card 8/16
#define AOUT2 6              ' AOUT Card 8/16

#define AOUTNO 16            ' Number of output channels

DIM DATA_93[8] AS Long       ' AIN1 values
DIM DATA_94[8] AS Long       ' AIN2 values
DIM DATA_97[AOUTNO] AS LONG  ' AOut Values


INIT:
  PROCESSDELAY = 1000000 ' in manual mode 1 ms cycle time is enough
  Par_11 = 0 ' Parameter to start the output
  P2_Set_Led(DIO1, 1)
  P2_Set_Led(DIO2, 1)
  P2_Set_Led(AOUT1, 1)
  P2_Set_Led(AOUT2, 1)
  P2_Start_ConvF(AIN1,0FFh)
  P2_Start_ConvF(AIN2,0FFh)
  
EVENT:
  IF (Par_11=1) THEN
    P2_DAC8(AOUT1,DATA_97,1)
    P2_DAC8(AOUT2,DATA_97,9)
    P2_DIGOUT_LONG(DIO1,Par_91)
    P2_DIGOUT_LONG(DIO2,Par_92)
    
    P2_Wait_EOCF(AIN1,0FFh)
    P2_Wait_EOCF(AIN2,0FFh)
    P2_READ_ADCF8(AIN1, DATA_93, 1)
    P2_READ_ADCF8(AIN2, DATA_94, 1) 
    P2_Start_ConvF(AIN1,0FFh)
    P2_Start_ConvF(AIN2,0FFh)  
  ENDIF
  
FINISH:
  P2_SET_LED(DIO1,0)
  P2_SET_LED(DIO2,0)
  P2_SET_LED(AOUT1,0)
  P2_SET_LED(AOUT2,0)
  P2_SET_LED(AIN1,0)
  P2_SET_LED(AIN2,0)