$regfile = "attiny25.dat"
$crystal = 1000000
Config Portb = Output
Config Pinb.0 = Output
Config Pinb.1 = Input
Config Pinb.2 = Output
Config Pinb.3 = Input
Config Pinb.4 = Input
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Volt As Word
Dim Limit As Word
Dim A As Word
Declare Sub Heat
Declare Sub Low_battery
Declare Sub Over_heat
Start Adc
Do
Limit = 0
Set Portb.2
Reset Portb.0
Volt = Getadc(3)
If Volt < 700 Then Gosub Low_battery
If Pinb.1 = 1 Then Gosub Heat
Loop
Sub Heat
Do
If Pinb.1 = 0 Then Exit Do
Reset Portb.2
Set Portb.0
Limit = Limit + 1
If Limit = 50000 Then Gosub Over_heat
Loop
Return
End Sub
Sub Low_battery
For A = 0 To 5
Reset Portb.0
Reset Portb.2
Waitms 600
Set Portb.2
Waitms 600
Next A
End
Return
End Sub
Sub Over_heat
Do
If Pinb.1 = 0 then exit do
Reset Portb.0
For A = 0 To 10
Reset Portb.2
Waitms 100
Set Portb.2
Waitms 100
Next A
Loop
Return
End Sub
1)Есть отсечка по времени
2)Есть монитор вольтажа с залочкой ( то есть нужно именно отсоединить батарею и вставить заряженную)
=======
Генератор по идее должен давать 30 кГц (сколько на самом деле нужно - не знаю).Но Proteus без глюков не тянет 30 кГц.Поэтому частота соот серьезно снижена.Изначально С2 планировался как 1 нанофарад. Заполнение ШИМ генератора примерно 85 %, но думаю надо больше.Для этого в сети есть калькулятор 555.
Ни прошивка,ни проект, ни архив к теме не прикрепляется.
PS Понятно, что 555 весьма сомнительное решение.Но как еще сделать ШИМ на нужной частоте на тини25 - не знаю.
PPS Хотел сделать ключ в плюсовой части HIGH SIDE , но что-то забыл как делать, и деталей пришлось бы еще добавить.
