طبعا من الأفضل اضافة زينر 5V1 طرف الكاثود على 3 للمتحكم للحمايه
واليكم نص البرنامج بلغة البيزيك
program voltametr
'
'
'
dim T as word
T2 as longint
T3 as word
main:
' trisd = 3
trisB = 00
trise = 00
option_reg = $80
ADCON1 = $82
trisa = $ff
:lop1
while true
(T3 = adc_read(1
T2 = T3 * 241
T3 = T2 >> 10
T = ( T3 div 100 ) mod 10
portE = 0
PORTB = T
portE = 3
(delay_ms(3
T = ( T3 div 10 ) mod 10
portE = 0
portB = T
portE = 5
(delay_ms(3
T = T3 mod 10
portE = 0
portB = T
portE = 6
(delay_us(2700
wend
.end
ال سفن سيجمنت تضيئ بالتتابع بسرعة 100 ذبذبة بالثانية لخداع البصر وترى العين الثلاث أرقام ثابتة