Hallo oiermann,
ah ja, jetzt kapiere ich den TLC549.
Probier mal mit folgendem rum (keine Garantie, ich kanns ja nicht testen!):
Die Ausgabe ist natürlich jetzt noch nicht in Volt, sondern der Digitalwert (0..255), der in eine Spannung umgerechnet werden muss.Code:$regfile = "2313def.dat" Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4 Config Lcdbus = 4 Config Pinb.3 = Output Cs Alias Portb.3 Cs = 0 'Strobe low Config Pinb.2 = Input Eingabepin Alias Portb.2 Config Pinb.1 = Output Io_clock Alias Portb.1 Io_clock = 0 'Clock low Dim Cntr As Byte Dim Ergebnis As Byte Do Cs = 1 'Strobe high Cs = 0 'Strobe low Ergebnis = 0 For Cntr = 0 To 7 Shift Ergebnis , Left , 1 Ergebnis = Ergebnis + Eingabepin Io_clock = 1 'Clock high Io_clock = 0 'Clock low Next Cntr ' Waitus 17 '17us warten ' (Nur nötig, wenn sofort eine neue Messung erfolgt!) Cls Locate 1 , 1 Lcd Ergebnis Wait 3 Loop
Gruß Dirk






Zitieren

Lesezeichen