roboforum.ru

$regfile = "m32def.dat"                                     
$crystal = 16000000                                        
$baud = 19200

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim U As Single                                            
Dim I As Single                                        
Dim Ul As Single
Dim Uadc As Word
Dim Iadc As Word
Dim Uacc As Word

Start Adc
Uadc = Getadc(0)
Iadc = Getadc(1)
Stop Adc
Do
I = Iadc * 0.001668
U = Uadc * 0.02529

 Waitms 1000
Ul = I * 1.5
Uacc = U - Ul
I = I * 1000
Print "Charge, " ; Uacc ; " Volt "
Print "Charging current is " ; I ; " Ma"

Loop

End

$regfile = "m32def.dat"                                     ' файл спецификации Меги32
$crystal = 16000000                                         ' указываем на какой частоте будем работать
$baud = 19200


Config Adc = Single , Prescaler = Auto , Reference = Internal '2.56

Config Pinb.0 = Output : Led1 Alias Portb.0                 'КРАСНЫЙ ногу сконфигурировали как выход и обозвали Led1
Config Pinb.1 = Output : Led2 Alias Portb.1                 'ЗЕЛёНый ногу сконфигурировали как выход и обозвали Led2
Config Pinb.2 = Output : Led3 Alias Portb.2                 'СИНИЙ ногу сконфигурировали как выход и обозвали Led3



Dim U As Word
Dim I As Byte
Dim Volt As Single
       Start Adc

Do

   U = Getadc(0)
   Volt = 0.005 * U
   Print "charge " ; Volt ; " V"
   Waitms 1000
Loop


End