New process for manual programming

ADbasic_program_manual.BAK

@@ -13,29 +13,37 @@
 '<Header End>
 #include adwinpro_all.inc
 
-DIM DATA_51[10000] AS Long AS Fifo
+#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
+
+
+DIM DATA_95[8] AS Long ' AOUT1 values
+DIM DATA_96[8] AS Long ' AOUT2 values
 
 INIT:
-  PROCESSDELAY = 10000
+  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)
   
 EVENT:
-  If (par_51>0) Then
-    P2_DAC(par_51,par_52,par_53)
-    P2_Set_Led(par_51, 1)
-  EndIf
-  If (par_61>0) Then
-    P2_Digout(par_61, par_62, par_63)
-    P2_Set_Led(par_61, 1)
-  EndIf
-  If (par_54>0) Then   
-    DATA_51 = P2_ADCF(par_54, par_55)
-    P2_Set_Led(par_54, 1)
-  EndIf
+  IF (Par_11=1) THEN
+    P2_DAC8(AOUT1,DATA_95,1)
+    P2_DAC8(AOUT2,DATA_96,1)
+    P2_DIGOUT_LONG(DIO1,Par_91)
+    P2_DIGOUT_LONG(DIO2,Par_92)
+  ENDIF
   
 FINISH:
-  P2_SET_LED(1,0)
-  P2_SET_LED(2,0)
-  P2_SET_LED(3,0)
-  P2_SET_LED(4,0)
-  P2_SET_LED(5,0)
-  P2_SET_LED(6,0)
+  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)

ADbasic_program_manual.bas

@@ -13,39 +13,37 @@
 '<Header End>
 #include adwinpro_all.inc
 
-DIM DATA_51[10000] AS Long AS Fifo
+#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
+
+
+DIM DATA_95[8] AS Long ' AOUT1 values
+DIM DATA_96[8] AS Long ' AOUT2 values
 
 INIT:
-  PROCESSDELAY = 10000
-  Fifo_Clear(51)
+  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)
   
 EVENT:
-  If (par_51>0) Then
-    P2_DAC(par_51,par_52,par_53)
-    P2_Set_Led(par_51, 1)
-  EndIf
-  If (par_61>0) Then
-    P2_Digout(par_61, par_62, par_63)
-    P2_Set_Led(par_61, 1)
-  EndIf
-  If (par_54>0) Then   
-    DATA_51 = P2_ADCF(par_54, par_55)
-    P2_Set_Led(par_54, 1)
-  EndIf
+  IF (Par_11=1) THEN
+    P2_DAC8(AOUT1,DATA_95,1)
+    P2_DAC8(AOUT2,DATA_96,1)
+    P2_DIGOUT_LONG(DIO1,Par_91)
+    P2_DIGOUT_LONG(DIO2,Par_92)
+  ENDIF
   
 FINISH:
-  par_51=0
-  par_52=0
-  par_53=0
-  par_54=0
-  par_55=0
-  par_61=0
-  par_62=0
-  par_63=0
-  
-  P2_SET_LED(1,0)
-  P2_SET_LED(2,0)
-  P2_SET_LED(3,0)
-  P2_SET_LED(4,0)
-  P2_SET_LED(5,0)
-  P2_SET_LED(6,0)
+  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)