Ono to není zase tak těžké, ideově třeba
Kód: Vybrat vše
Dim Napeti As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc
A Alias Portb.0
B Alias Portb.1
.
.
.
Do
Napeti = Getadc(0)
Select Case Napeti
Case 0 To 276 : Gosub Jedna
Case 277 To 368 : Gosub Dva
Case 369 To...
.
.
End Select
Loop
Jedna:
A = 0
B = 1
C = 1
D = 0
E = 0
F = 0
G = 0
Dp = 0
Return
Dva:
.
.
Return
dim určí typ proměnné (word = 16 bit 0-65565)
config nastaví parametry ad převodníku a referenci = rozsah ADC (napájení 5V)
aliasy jsou pro přehlednost (v programu se bude líp orientovat, pojmenování segmentů podle jejich připojení na nohy mcu)
do-loop je hlavní smyčka programu (běží dokolečka dokola)
getadc(0) je načtení analogové hodnoty
select case je typ podmínky (rozsah ADC je 0-1023, což odpovídá 0-5V, spočti si další rozhodovací úrovně pro požadovaná čísla)
gosub je skok do podprogramu, na konci podprogramu je return = návrat zpět
jedna: podprogram pro rozsvícení jedničky atd.
změň a doplň aliasy podle fyzického připojení
dopočítej úrovně pro select case
doplň podprogramy pro další čísla a máš to hotové
Napsáno pro Bascom AVR, mcu nějaký s ADC a aspoň osmi nohama pro displej (tiny13 není to ono), takže třeba tiny26, mega8...