14 PWM DAPORTS 1.bas
Quelle: www.C-Control-Support.net Weitere Infos im C-Control-Forum / C-Control I Info	Download

'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'III    BASIC++  DEMO ZUM BASIC-COMPUTER UNIT M 1.2/2.0         IIIII
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'--------------------------------------------------------------------
' Beispiel zum BASIC-COMPUTER    mit dem Programmer/Application-Board
'--------------------------------------------------------------------
' ANWENDUNG:           PULSBREITEN MODULIERTER DA-WANDLER DA1 u. DA2
'
'--------------------------------------------------------------------
' Dieses Beispiel zeigt die Vorgehensweise um die beiden Digital-Analog
' Wandler DA1 und DA2 einzustellen.
' Das Ausgangssignal der DA-Wandler ist ein Pulsbreitenmoduliertes Signal
' das bei Nullstellung nur wenige mv Effektivwert aufweist.
' Bei Vollaussteuerung ist der Effektivwert etwa 5V.Die Wiederholfrequenz
' ist etwa 2 kHz
' Während z.B. eine Leuchtdiode damit ohne weitere Beschaltung in der Hellig-
' keit gesteuert werden kann (weil das Auge zu träge ist um zu erkennen, dass
' die LED ein und wieder ausgeschaltet wird) kann zur Ansteuerung einer
' elektronischen Schaltung ein RC Tiefpassfilter erforderlich sein, das
' daraus eine reine Gleichspannung macht.
' Der aktuelle Wert für jeden DA-Ausgang wird auf dem LCD ausgegeben.
'
' Beschreibung:
' In diesem Beispiel werden die Einstellbereiche von DA1 u. DA2 antizyklisch
' durchfahren, der gerade aktuelle Wert wird im LCD angezeigt.
' Wenn Sie an DA1 u. DA2 jeweils eine Leuchtdiode anschliessen
' (mit Vorwiderstand !), sehen Sie den Effekt der Dimmung.
' Wichtig für den Dimmeffekt ist, dass die Leuchtdiode nicht schon frühzeitig
' in die Sättigung getrieben wird, also nicht mehr heller kann, obwohl der
' PWM-Effektivwert noch nicht maximal ist.
' Beachten Sie bitte, dass der Wert für DA1 u. DA2 nicht aus diesen zurück
' gelesen werden kann.
'
' Anmerkung:
' Im Verzeichnis EXTENDED FUNCTIONS finden Sie ein Beispiel, wie die
' DA Ausgänge zur Ansteuerung eines SERVOS konfiguriert werden können.
'-----------------------------------------------------------------------
'--------------------------
'------ I/O PORTS ---------
'--------------------------
define DIM1        da[1]
define DIM2        da[2]
define LIGHT    port[16]
'--------------------------
'---- SYSTEM MEMORY -------
'--------------------------
define WERT1       byte[1]
define WERT2       byte[2]


'---- ANTIZYKLISCHE INITIALISIERUNG DER DACS ------
WERT2=128
'--------------------------------------------------------------------
'            Beispielprogramm  Einstellen der DA-PORTS
'--------------------------------------------------------------------
LCD.INIT
LIGHT=off
#LOOP
WERT2=WERT2+1
WERT1=WERT1+1                    'Werte inkrementieren
DIM1=WERT1
DIM2=WERT2                       'An DA1 u. DA2 ausgeben
LCD.POS 1,1
LCD.PRINT "DIMMER1: "
LCD.PRINT WERT1                  'AUSGABE WERT
LCD.PRINT "  "                   'REST DER ZEILE LÖSCHEN
LCD.POS 2,1                      'CURSOR AUF ZEILE 2 POS 1
LCD.PRINT "DIMMER2: "
LCD.PRINT WERT2                  'AUSGABE WERT
LCD.PRINT "  "                       'REST DER ZEILE LÖSCHEN
goto LOOP