@@ -30,6 +30,8 @@ Simatic.Ax.LAcycCom;
3030## Example
3131
3232``` cli
33+ USING Simatic.Ax.LAcycCom;
34+
3335PROGRAM MyProgram
3436 VAR
3537 Resourcemanager : OOPLAcycCom_ResourceManager;
@@ -62,10 +64,10 @@ PROGRAM MyProgram
6264 end_IF;
6365
6466 CASE ReadParameter.Status() OF
65- LAcycComstate_def #BUSY :
67+ LAcycComstateDef #BUSY :
6668 ;
6769
68- LAcycComstate_def #IDLE :
70+ LAcycComstateDef #IDLE :
6971 datasetitemread.parameterNumber := uint#304;
7072 elements := ReadParameter.AddatasetItem(datasetItem := datasetitemread,
7173 element_no := -1);
@@ -77,74 +79,74 @@ PROGRAM MyProgram
7779 ReadParameter.Start(driveObjectId := uint#5,
7880 hardwareId := word#269);
7981
80- LAcycComstate_def #DONE :
82+ LAcycComstateDef #DONE :
8183 datasetitemread := ReadParameter.ReaddatasetItem(element_no := 0);
82- RVALUEp304 := datasetitemread.value ;
84+ RVALUEp304 := datasetitemread.Rvalue ;
8385 datasetitemread := ReadParameter.ReaddatasetItem(element_no := 1);
84- RVALUEp305 := datasetitemread.value ;
86+ RVALUEp305 := datasetitemread.Rvalue ;
8587
86- LAcycComstate_def #ERROR :
88+ LAcycComstateDef #ERROR :
8789 diagnostic := ReadParameter.errordiagnostics();
8890 END_CASE;
8991
9092 CASE ReadParameterSingle.Status() OF
91- LAcycComstate_def #BUSY :
93+ LAcycComstateDef #BUSY :
9294 ;
9395
94- LAcycComstate_def #IDLE :
96+ LAcycComstateDef #IDLE :
9597 ReadParameterSingle.Start( driveObjectId := uint#5,
9698 hardwareId := word#269,
9799 parameterNumber := uint#310,
98100 index := uint#0);
99101
100- LAcycComstate_def #DONE :
102+ LAcycComstateDef #DONE :
101103 RVALUEp310 := ReadParameterSingle.GetValueREAL();
102104
103- LAcycComstate_def #ERROR :
105+ LAcycComstateDef #ERROR :
104106 diagnostic := ReadParameterSingle.errordiagnostics();
105107 END_CASE;
106108
107109 CASE WriteParameter.Status() OF
108- LAcycComstate_def #BUSY :
110+ LAcycComstateDef #BUSY :
109111 ;
110112
111- LAcycComstate_def #IDLE :
113+ LAcycComstateDef #IDLE :
112114
113115 datasetitemwrite.parameterNumber := uint#2900;
114- datasetitemwrite.value := real#12.3;
116+ datasetitemwrite.Rvalue := real#12.3;
115117 elements := WriteParameter.AddatasetItem(datasetItem := datasetitemwrite,
116118 element_no := -1);
117119
118120 datasetitemwrite.parameterNumber := uint#2901;
119- datasetitemwrite.value := real#45.6;
121+ datasetitemwrite.Rvalue := real#45.6;
120122 elements := WriteParameter.AddatasetItem(datasetItem := datasetitemwrite,
121123 element_no := -1);
122124
123125 WriteParameter.Start(driveObjectId := uint#5,
124126 hardwareId := word#269);
125127
126- LAcycComstate_def #DONE :
128+ LAcycComstateDef #DONE :
127129 ;
128130
129- LAcycComstate_def #ERROR :
131+ LAcycComstateDef #ERROR :
130132 diagnostic := WriteParameter.errordiagnostics();
131133 END_CASE;
132134
133135 CASE WriteParameterSingle.Status() OF
134- LAcycComstate_def #BUSY :
136+ LAcycComstateDef #BUSY :
135137 ;
136138
137- LAcycComstate_def #IDLE :
139+ LAcycComstateDef #IDLE :
138140 WriteParameterSingle.Start( driveObjectId := uint#5,
139141 hardwareId := word#269,
140142 parameterNumber := uint#2930,
141143 value := REAL#78.9,
142144 index := uint#0);
143145
144- LAcycComstate_def #DONE :
146+ LAcycComstateDef #DONE :
145147 ;
146148
147- LAcycComstate_def #ERROR :
149+ LAcycComstateDef #ERROR :
148150 diagnostic := WriteParameterSingle.errordiagnostics();
149151 END_CASE;
150152
0 commit comments