'<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 in FiFo array DIM DATA_94[8] AS Long ' AIN2 values in FiFo array 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)