 8-Bit AD-Wandler - TLC549 | |||||||
|
 |
||||||
Beschaltung: | |||||||
| Software: '********************************************************** 'Compiler : BASCOM-AVR 'Hardware : TLC549-Data an PB.0 ' TLC549-Clock an PB.1 ' TLC549-CS an PB.2 ' LC-Display 'Chip type : AT90S2313 '********************************************************** | |||||||
|
$regfile = "2313def.dat" $crystal = 3579545 Ddrb.0 = 0 Portb.0 = 1 Ddrb.1 = 1 Ddrb.2 = 1 Dat Alias Pinb.0 Clk Alias Portb.1 Cs Alias Portb.2 Dim I As Byte Dim Adbit As Byte Dim Ad As Word Dim U As Integer Lcd "TLC549 Data-PB.0" Locate 2 , 1 Lcd "CS-PB.2 Clk-PB.1" Wait 3 Cls Set Cs Do Adbit = 0 : Ad = 0 Reset Clk Reset Cs Waitus 2 For I = 1 to 8 Set Clk Shift Ad, Left Ad = Ad + Dat Reset Clk Next Shift Ad, Left Set Cs Set Clk Cls U = Ad / 100 Lcd "Spannung: "; U ; "." U = Ad Mod 100 Lcd U ; " V" Wait 1 Loop End |
'AT90S2313 'Quarz 3.579MHz 'Pin PB0 ist Eingang 'Pullup von PB0 ein 'Pin PB1 ist Ausgang 'Pin PB2 ist Ausgang 'Alias-Namen vergeben für Ports 'Variablennamen und Typ festlegen 'Ausgabe des Textes auf LCD 'LCD-Cursor auf Zeile2, Spalte1 'Ausgabe des Textes auf LCD 'warte 3 Sekunden 'lösche LCD 'Cs auf High setzen 'Beginn der Schleife 'Clk auf Low setzen 'Cs auf Low setzen '1.4 µs Mindestwartezeit bis Daten anliegen 'bis 8 Bit einlesen 'Clk auf High setzen 'Schiebe Bits in Ad nach rechts 'hänge empf. Bit an Ad an 'Clk auf Low setzen 'nächstes Bit 'AD-Wert*2 (nur für 5V Referenzspannung) 'Cs auf High setzen 'Clk auf High setzen 'lösche LCD 'Vorkommawert abtrennen 'Vorkommawert auf Lcd ausgeben 'Nachkommawert abtrennen 'Nachkommawert auf Lcd ausgeben 'warte 3 Sekunde 'zum Beginn der Schleife | ||||||
|
zum Download: tlc549.bas Datenblatt: TLC549  Bezugsquellen:
| |||||||
|
| |||||||
