E
Ev3658
Схема простая, есть печатка, прошивка и исходник в BascomAVR
В схеме использовался контроллер Atmega48, но можно Atmega8 и т.п.
Сама суть тестера заметить срабатывания и некое подобие времянкой диаграммы, а так-же обозначить любое изменение выводов световой и звуковой индикацией.
Такая штука очень полезна, когда пульт далеко от релейного шкафа.
Использование UsbAsp программатора (за 250р.он работает в BascomAVR) и разведённого на плате разъёма, позволяет в быстрые сроки переделать тестер под проверку ТТЛ логики, к примеру дешифратора с памятью и т.п. (выводить биты и получать их)
Сам экран использован от Nokia 1110, но подходит любой такого типа, даже от Arduino подошел и 40 рублёвый тоже.
Благодаря разъёму, можно адаптировать под разное напряжение.
Питается тестер от 9 вольт батареи, так-же на борту стабилизатор и возможность запитать от 24в.
Управление простое, обычное переменное сопротиление, причём им-же и пауза и режим без звука и т.п.
Есть возможность использовать АЦП, так-же предусмотрены выходы таймера и т.п.
Есть возможность запитывания от 5в.
Вот видео его работы в первом включении:
ссылка скрыта от гостей
Прошивка проще некуда, вот это в 4кб. поместилось.
Прилагаю файл, печатку, прошивку, исходник, библиотеку для LCD. Рекомендую не коммерческое использование.
P:S: А ещё он хорош как детская игрушка ))))
Тестер.zip
В схеме использовался контроллер Atmega48, но можно Atmega8 и т.п.
Сама суть тестера заметить срабатывания и некое подобие времянкой диаграммы, а так-же обозначить любое изменение выводов световой и звуковой индикацией.
Такая штука очень полезна, когда пульт далеко от релейного шкафа.
Использование UsbAsp программатора (за 250р.он работает в BascomAVR) и разведённого на плате разъёма, позволяет в быстрые сроки переделать тестер под проверку ТТЛ логики, к примеру дешифратора с памятью и т.п. (выводить биты и получать их)
Сам экран использован от Nokia 1110, но подходит любой такого типа, даже от Arduino подошел и 40 рублёвый тоже.
Благодаря разъёму, можно адаптировать под разное напряжение.
Питается тестер от 9 вольт батареи, так-же на борту стабилизатор и возможность запитать от 24в.
Управление простое, обычное переменное сопротиление, причём им-же и пауза и режим без звука и т.п.
Есть возможность использовать АЦП, так-же предусмотрены выходы таймера и т.п.
Есть возможность запитывания от 5в.
Вот видео его работы в первом включении:
ссылка скрыта от гостей
Прошивка проще некуда, вот это в 4кб. поместилось.
Код:
'========================= Основные установки ==================================
$regfile = "m48def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 32
$framesize = 32
Config Adc = Single , Prescaler = Auto , Reference = Avcc
'*******************************************************************************
$lib "glcd_Nokia1100.lbx"
Config Graphlcd = 128x64sed , Si = Portc.5 , Sclk = Portd.4 , Rst = Portd.5 , Cs1 = Portd.6 ' Необязательо
'Const Negative_lcd = 1 ' Негатив экрана
Const Mirror_y = 0 ' Поворот вверх ногами
'Const Mirror_x = 0 ' Поворот слева направо
Dim I As Byte
'***************************** Program *****************************************
Initlcd
Dim D As Byte
Dim Dm(6) As String * 13
Dim P As Byte
Dim O As Byte
Dim S As Integer
Dim G As Integer
Dim Ps1 As Integer
Dim Ps2 As Integer
Dim L As String * 16
Config Portb = Input
Ll1 Alias Pinb.5
Ll2 Alias Pinb.4
Ll3 Alias Pinb.3
Ll4 Alias Pinb.2
Ll5 Alias Pinb.1
Ll6 Alias Pinb.0
Ll7 Alias Pinb.7
Ll8 Alias Pinb.6
Dl1 Alias Pind.0
Dl2 Alias Pind.1
Dl3 Alias Pinc.3
Dl4 Alias Pinc.2
Spiker Alias Portc.0
Indikator Alias Portc.1
Config Spiker = Output
Config Indikator = Output
Config Dl1 = Input
Config Dl2 = Input
Config Dl3 = Input
Config Dl4 = Input
Cls
Setfont Font6x8
Lcdat 1 , 1 , " RADIOKSTOVO.RU " , 1
Lcdat 3 , 1 , " Тестер"
Lcdat 4 , 1 , " логических"
Lcdat 5 , 1 , " сигналов"
'Lcdat 6 , 1 , "ОООПромремсервис"
Lcdat 8 , 1 , "ev3658@yandex.ru" , 1
Wait 3
For P = 1 To 6 'Step -1
L = Str(p)
O = 8 - P
L = L + "| | |"
Lcdat O , 1 , L , 0
Next P
Lcdat 8 , 1 , " 01234567 1234 " , 1
Do
Disable Interrupts
Start Adc
Ps1 = Getadc(6)
Stop Adc
Enable Interrupts
If Ps1 = 0 Then Ps1 = 1
If Ps1 < 1002 Then
Dm(1) = Dm(2)
Dm(2) = Dm(3)
Dm(3) = Dm(4)
Dm(4) = Dm(5)
Dm(5) = Dm(6)
For P = 2 To 6
S = P - 1
L = Dm(s)
Lcdat P , 13 , L , 0
Next P
L = " Задержка:"
L = L + Str(ps1)
L = L + " "
Waitms Ps1
Else
If Ps1 > 1020 Then
L = " ПАУЗА звук+"
Else
L = " ПАУЗА звук-"
End If
End If
Indikator = 0
Lcdat 1 , 1 , L , 1
D = 0 : G = 0
D.0 = Ll1
D.1 = Ll2
D.2 = Ll3
D.3 = Ll4
D.4 = Ll5
D.5 = Ll6
D.6 = Ll7
D.7 = Ll8
G.0 = Dl1
G.1 = Dl2
G.2 = Dl3
G.3 = Dl4
L = ""
For P = 0 To 7
L = L + Str(d.p)
Next P
L = L + "|"
For P = 0 To 3
L = L + Str(g.p)
Next P
If L <> Dm(6) Then
Indikator = 1
Lcdat 7 , 13 , L , 0
Dm(6) = L
S = D
S = D / 3
S = S + G
If Ps1 > 1020 Or Ps1 < 1002 Then
If Ps1 > 5 Then
For P = 1 To 20
Spiker = 1
For O = 1 To S
nop
Next O
Spiker = 0
For O = 1 To S
nop
Next O
Next P
End If
End If
End If
Loop
End
$include "font6x8.font"P:S: А ещё он хорош как детская игрушка ))))