Code: Select all
define ADC_BITS 8
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
pause 500
AD_Rez_napon var word
Dummy_napon var word
napon var word
prva_napon var byte
druga_napon var byte
mjeri:
adcin 0, ad_rez_napon
dummy_napon = ad_rez_napon * 31 * 10
napon = div32 256
if napon <= 9 then prva_napon = 0 : druga_napon = napon
if napon <= 99 then prva_napon = 0 : druga_napon = napon dig 1
if napon <= 999 then prva_napon = ((napon dig 2) * 10 + napon dig 1) : druga_napon = napon dig 0
lcdout $FE, 2, "Napon: ", dec prva_napon, ".", dec druga_napon, " V"
pause 50
goto mjeri
end