Tlc 549 +80c51+Lcd

[kedar50]

Witam!
Mam zrobic projekt z przetwornikem A/C Tlc 549
Chce podac napiecie U2(AIn na schemacie) na przetwornik a pozniej wyswietlic je na ekranie LCD

moj kod w bascomie

Kod: Zaznacz cały

Config Lcdpin = Pin , Db4 = P0.2 , Db5 = P0.3 , Db6 = P0.4 , Db7 = P0.5 , E = P0.1 , Rs = P0.0 Config Lcd = 20 * 4 Cs Alias P3.0 Clk Alias P3.5 Wyjscie Alias P3.1 Dim I As Byte Dim F( As Byte Dim Napiecie As Byte Dim T( As Byte F(1) = 1 F(2) = 2 F(3) = 4 F(4) = 8 F(5) = 16 F(6) = 32 F(7) = 64 F( = 128 Do Cls Call Read_tlc549 Lcd " Napiecie =" ; Napiecie Waitms 255 Loop Sub Read_tlc549 Napiecie = 0 Reset Cs Reset Clk Set Wyjscie Set Cs Reset Cs For I = 8 Downto 1 Set Clk Reset Clk If Wyjscie = 1 Then Napiecie = Napiecie + F(i) End If Next I End Sub

schemat niżej

Niestety cos jest zle i nie mam pojecia co

Jak ustawiam U2(Ain) na np 2V to na lcd mam 102
Moze jest cos zle podlaczone (np wyjscie Cs, czestotliwosc w 80c51 mam 12MHz) albo czegos brakuje
Vref+ mam na 5V.

[Press]

Nie wnikam w sterowanie przetwornikiem A/C. Zakładam, że przeczytałeś katalog.

Spróbuj zamienić

Kod: Zaznacz cały

For I = 8 Downto 1 Set Clk Reset Clk If Wyjscie = 1 Then Napiecie = Napiecie + F(i) End If Next I

na:

Kod: Zaznacz cały

For I = 8 Downto 1 Set Clk Reset Clk shift napiecie, left, 1 napiecie = napiecie + wyjscie Next I