Witam mam taki o to programik do mierzenia napiecia przy uzyciu ADC.
Problem polega na tym ze na lcd wszystko gra ale chcialbym to zrobic na LED 7 segmentow. Zrobilem to juz tylko ze wyswietla mi tylko calosci bez przecinka. Do wyswietlania mam swoj program w ktorym wyswietlacze sa oznaczone jako A , B , C , D. Wystarczy ze wpisze A=5 i na 1 wysw. pojawia sie 5. Wie ktos jak to zrobic aby uzyskac wynik w postaci "x.xx" na tych wyswietlaczach?
kod programu:
Problem polega na tym ze na lcd wszystko gra ale chcialbym to zrobic na LED 7 segmentow. Zrobilem to juz tylko ze wyswietla mi tylko calosci bez przecinka. Do wyswietlania mam swoj program w ktorym wyswietlacze sa oznaczone jako A , B , C , D. Wystarczy ze wpisze A=5 i na 1 wysw. pojawia sie 5. Wie ktos jak to zrobic aby uzyskac wynik w postaci "x.xx" na tych wyswietlaczach?
kod programu:
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdbus = 4
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pb.4 , Db5 = Pb.5 , Db6 = Pb.6 , Db7 = Pb.7 , E = Pb.3 , Rs = Pb.2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Wart_ac As Word
Dim V As Single
Dim Wart_nap As String * 3
Start Adc
Cls
Do
Wart_ac = Getadc(1)
Cls
V = Wart_ac * 0.0049
Wart_nap = Fusing(v , "#.&&")
Lcd "Napiecie:" ; Wart_nap
Waitms 100
Loop
End
)
