Programmbeispiele; Folgende Beispiele Stehen Zur Verfügung; Digitaler Proportional-Regler (Pro Ii); Datenaustausch Mit Data-Feldern (Pro Ii) - JÄGER ADwin-Pro II Systembeschreibung
Programmierung in adbasic
Vorschau ausblenden
Andere Handbücher für ADwin-Pro II:
- System- und hardware-beschreibung (231 Seiten) ,
- System- und hardware-beschreibung (133 Seiten) ,
- Systembeschreibung (306 Seiten)
Inhaltsverzeichnis
Werbung
Programmbeispiele
Online-Auswertung von Messwerten (Pro II)
458
4 Programmbeispiele
Folgende Beispiele stehen zur Verfügung:
–
Online-Auswertung von Messwerten (Pro
–
Digitaler Proportional-Regler (Pro
–
Datenaustausch mit DATA-Feldern (Pro II),Seite 459
–
Digitaler PID-Regler (Pro
–
Beispiele für RS232 und RS485 (Pro
•
RS232: Empfangen und
•
RS232: String-Befehl
•
RS232: String-Befehl
•
RS485: Empfangen und
– Kontinuierliche Messwertwandlung (Pro II): 1 Kanal wandeln,
Die meisten Beispiele sind als Programmdateien im Verzeichnis
C:\ADwin\ADbasic\samples_ADwin_PROII abgelegt.
4.1 Online-Auswertung von Messwerten (Pro II)
Das Programm ProII_DMO1.BAS sucht den Maximal- und Minimalwert aus
1000 Messungen von ADC1 und schreibt das Ergebnis in die Variablen
und
.
Par_2
Benötigt wird ein A/D-Modul Pro II-AIn-x/x mit Moduladresse 1 und ein Signal
am Eingang 1 des Moduls.
#Include
ADwinPro_All.Inc
#Define
limit
65535
#Define
module
1
#Define
input
1
Dim
i1, iw, max,
min
Init:
i1
=
1
max
=
0
min
=
limit
Par_10
=
0
Processdelay
=
1 * 3E5
Event:
iw
= P2_ADC(module, 1)
Rem for modules Pro II-AIn-F-x/x, delete the previous line and
Rem use the following line instead (without comment char ')
'iw = P2_ADCF(module, 1)
If
(iw
> max)
Then
If
(iw
< min)
Then
Inc i1
If
(i1
> 1000)
Then
i1
=
1
Par_1
=
min
Par_2
=
max
max
=
0
min
=
65535
Par_10
=
1
EndIf
II),
II),
Seite 459
II),
Seite 460
II):
senden,
Seite 462
senden,
Seite 463
empfangen,
Seite 464
senden,
Seite 465
'Include file
'max. 16 bit ADC value
'module number
'input number
As Long
'reset sample counter
'initial maximum value
'initial minimum value
'init End-Flag
'cycle-time of 1ms
'get sample
max
=
iw
'new maximum sample?
min
=
iw
'new minimum sample?
'increment index
'1000 samples done?
'reset index
'write minimum value
'write maximum value
'reset minimum value
'reset maximum value
'set End-Flag
ADwin-Pro II Software, Handbuch Apr. 2021
ADwin
Seite 458
Seite 466
Par_1
Werbung
Inhaltsverzeichnis
