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

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

Config Single = Scientific , Digits = 2 

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

$regfile = "attiny13.dat"
$crystal = 12000000
Config Adc = Single , Prescaler = Auto , Reference = Internal       ' задаем параметры ацп
Config Timer0 = Pwm , Compare A Pwm = Clear Down , Prescale = 1        ' задаем параметры ШИМ'а
Config Portb.0 = Output                                                ' задаем конфигурацию портов
Config Portb.1 = Output
Config Portb.2 = Input
Dim F As Integer ' задаем переменные
Dim R As Integer
Dim I As Integer
Dim V As Integer
Dim N As Integer
Dim A As Integer
Dim B As Integer
Dim C As Integer
N = 256 / 1000
A = getadc(2)
B = getadc(3)
C = getadc(0)
I = Portb.2                                                 ' эта переменная - сигнал с запускающего входа
F =((a / 32) / N) *(b / 1024)                               ' задаем паузу между повышениями значения ШИМ на 1, заздаем нарастание пилы
' ((getadc(2) / 32) численно равно времени накачки
' ((getadc(2) / 32) / 0.256) - это получаем время паузы (мкс) между повышением значения ШИМ на 1, опираясь на разрядность ШИМ'а
' ШИМ у нас 8 битный, значит возможно 256 значений, время перехода межу значениями (мкс) бует равно: время(мс)/256*1000 или время(мс)*0.256
' поскольку у пилы должен быть еще и регулируемый спад, введем переменный резистор, висящий на третьем канале АЦП
' он отвечает за процентную долю нарастающей части пилы во всей длине пилы
R =((a / 32) / N) -((a / 32) / N) *(b / 1024)' задаем паузу между уменьшениями значения ШИМ на 1, создаем спад пилы
' для получения времени паузы (мкс) между понижением значения ШИМ на 1 вычтем из общего времени паузы для пилы врея паузы для фронта филы
V =(c / 4) - 2 ' переменным резистором устанавливаем максимальное выходное напряжение бака.
' т.к. АЦП 10-разрядный и имеет 1024 значения, а ШИМ 8 разрядный (для достижения нужно частоты) и имеет 256 значений, делим значение с АЦП на 4
' отнимаем 2 для безпасности ;)
Start Adc

Do

Pwm0a = 25                                                  'задали начальные 30 вольт на выходе усилителя класса D

Ask_inter:                                                  ' опрос ножки запускающего входа
If I = 1 Then                                               ' если сигнал есть, выдаем сигнал на старт генерации
Set Portb.1 = 1
Waitms 10                                                   ' ждем начала генерации
Goto Ramp_fr
Else
Pwm0a = 25                                                  ' если сигнала нет, то для профилактики сиавим 30 вольт yf выходt и снова оправшивает ножку внешнего прерывателя
Goto Ask_inter

Ramp_fr:                                                    ' начинаем рост пилы
If Pwm0a < V Then                                           ' если значегние ШИМ меньше установленного предела, увеличиваем на 1 и жждем заданное время
Incr Pwm0a
Waitus F
Goto Ramp_fr                                                ' если значение ШИМ достигло установленного предела, начинаем спад пилы
Elseif Pwm0a = V Then
Goto Ramp_re
End If

Ramp_re:                                                    ' спад пилы
If Pwm0a > 25 Then
Decr Pwm0a
Waitus R
Goto Ramp_re                                                ' если значение ШИМ больше, чем 25, то уменьшаем на 1, ждепм установленное время и повторяем операцию
Elseif Pwm0a = 25 Then
Waitms 2                                                    ' немного ждем для того, чтобы все успокоилось
Set Portb.1 = 0                                             ' после окончания спада пилы вылючаем генерацию
Waitms 2                                                    ' немного ждем для того, чтобы все успокоилось
Goto Ask_inter                                              ' идем опрашивать запускающий вход
End If

Loop                                                        ' зацикливаем все

End

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

F =((a / 32) / N) *(b / 1024) 

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

R =((a / 32) / N) -((a / 32) / N) *(b / 1024)

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

F_1= =a / 32
F_2= =F_1/ N
F_3= =b / 1024
F =F_2 *F_3