Форум РадиоКот

Код: Выделить всё

$regfile = "attiny85.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Debounce = 75 
Open "comb.1:9600,8,n,1" For Output As #1                   'UART PB.1 TXD


Dim Adc_value As Word                                       'сюда положим значение АЦП во время измерения

'На каждые 0,1 вольт значение АЦП = 10 -------> !!! Зависит от нагрузки. Чем мощнее нагрузка, тем больше падение напряжения и, соответственно, значение АЦП тоже скажет.
'Делитель напряжения
'[ВХОД] -----10к --------> 4,7к [GND]
'                   |
'                   |
'              ADC(1)

Const Threshold = 740                                       '11.6B
Config Portb.0 = Output                                     'OUT
Led Alias Portb.0                                          'LED висит PORTB.0


'Настройка АЦП
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Stop Adc


'Программа

Do

Start Adc                                                      'запускаем АЦП
Adc_value = Getadc(1)                                 'кладем значение в Adc_value
Print #1 , "ADC1 = " ; Adc_value                   'выводим в терминал

If Adc_value > Threshold Then                      'Если значение АЦП > Threshold
Led = 1                                                       'включаем светик
End If                                                         'конец условия

If Adc_value =< Threshold Then                  'Если значение АЦП =< Threshold
Led = 0                                                      'выключаем светик
End If                                                         'конец условия

Loop

'-------------------------------------------------------------------------------
End                                                         'end program

Код: Выделить всё

'вольтметр,входное напр макс.12в

$regfile = "attiny85.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Dim Un As Word
Dim Ud As Single
Dim A As Byte
Dim S1 As Single

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

Do

   Waitms 20

   For A = 0 To 45                                          'замеры АЦП с усреднением
      Un = Getadc(1)
      Un = Getadc(1)
      S1 = S1 + Un
   Next A

   Un = S1 / A
   Ud = Un * 0.01173                                        'напряжение в вольтах
   S1 = 0

Loop
End