' ' Process_Number = 9 ' Initial_Processdelay = 3000 ' Eventsource = Timer ' Control_long_Delays_for_Stop = No ' Priority = Low ' Priority_Low_Level = 8 ' Version = 1 ' ADbasic_Version = 5.2.0 ' Optimize = Yes ' Optimize_Level = 1 ' Stacksize = 100 ' Info_Last_Save = FFPH207 ffph207\PietR '
REM ********************* Readout 1.0 ******************************* REM ***************************************************************** REM "Readout 1.0" reads out all voltage inputs at maximum speed REM all other programs should refer to this program for adc tasks REM OUTPUT: ' FPAR_1 ... FPAR_8: analog input voltages [V] ' FPAR_9 : timestamp [s] ' DATA_20[8]: analog input voltages [24 Bit] ' DATA_21[1-8]: input voltages [V] ' DATA_21[9]: timestamp [s] REM ***************************************************************** REM ***************************************************************** #INCLUDE ADWINPRO_ALL.INC DIM DATA_20[8] AS LONG DIM DATA_21[9] AS FLOAT DIM i AS LONG DIM t AS LONG INIT: REM AD Wandlung starten P2_START_CONVF(1,11111111b) globaldelay = 3000 ' 3000 : 10 µs t = 0 FOR i=1 TO 8 DATA_20[i]=8388608 ' = Null (24 Bit) NEXT i FOR i=1 TO 9 DATA_21[i]=0 ' init data array NEXT i EVENT: FPAR_9 = globaldelay*t*1E-8/3 ' timestamp [s] t = t + 1 IF (FPAR_9 = 65535) THEN FPAR_9 = 0 ' FPAR_9 doesn't increase after 65535 at increment 0.00001 for whatever reason REM Wandlung abwarten P2_WAIT_EOCF(1,11111111b) REM Wandlungsergebnisse auslesen P2_READ_ADCF8_24B(1,DATA_20,1) REM voltage[V] = voltage[16Bit] * 20 / 65536 - 10 FPAR_1 = DATA_20[1] * 20 / 16777216 - 10 FPAR_2 = DATA_20[2] * 20 / 16777216 - 10 FPAR_3 = DATA_20[3] * 20 / 16777216 - 10 FPAR_4 = DATA_20[4] * 20 / 16777216 - 10 FPAR_5 = DATA_20[5] * 20 / 16777216 - 10 FPAR_6 = DATA_20[6] * 20 / 16777216 - 10 FPAR_7 = DATA_20[7] * 20 / 16777216 - 10 FPAR_8 = DATA_20[8] * 20 / 16777216 - 10 P2_START_CONVF(1,11111111b) DATA_21[1]=FPAR_1 DATA_21[2]=FPAR_2 DATA_21[3]=FPAR_3 DATA_21[4]=FPAR_4 DATA_21[5]=FPAR_5 DATA_21[6]=FPAR_6 DATA_21[7]=FPAR_7 DATA_21[8]=FPAR_8 DATA_21[9]=FPAR_9