Chciałbym zbudować wskaźnik wysterowania LED na ATmega 8 i mam pewien problem.
Poniżej przedstawiam mój kod. Pomiar następuje z ADC. Z całą tą konstrukcją mam następujący problem. Otóż nie wiem jakie rezystory zastosować do dzielnika napięcia dla tego układu. I w tej kwestii prosiłbym o pomoc.
Kod: Zaznacz cały
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portb.0 , E = Portd.3 , Rs = Portd.2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Wart_ac As Word
Dim V As Single
Dim Wart_nap As String * 3
Dim An As String * 5
Start Adc
Config Portc = Output
Do
Waitms 5
Wart_ac = Getadc(1)
Cls
Lcd "AA " ; Wart_ac
Lowerline
V = Wart_ac * 0.0049
Wart_nap = Fusing(v , "#.&&")
Select Case Wart_ac
Case 0 To 10 : Portc = &B11111111
Case 11 To 112 : Portc = &B11111110
Case 113 To 214 : Portc = &B11111110
Case 215 To 316 : Portc = &B11111101
Case 317 To 418 : Portc = &B11111011
Case 419 To 520 : Portc = &B11110111
Case 521 To 622 : Portc = &B11101111
Case 623 To 724 : Portc = &B11011111
Case 725 To 826 : Portc = &B10111111
Case 827 To 928 : Portc = &B01111111
Case 929 To 1023 : Portc = &B01111111
End Select
Lcd Wart_nap
Waitms 100
Loop
End
