Релейный тестер на 12 каналов

  • Автор темы
E

Ev3658

Схема простая, есть печатка, прошивка и исходник в BascomAVR
В схеме использовался контроллер 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"
Прилагаю файл, печатку, прошивку, исходник, библиотеку для LCD. Рекомендую не коммерческое использование.
P:S: А ещё он хорош как детская игрушка )))) :mrgreen:

Тестер.zip
 
A

AntiDoc

Не могу архив скачать.
 
S

sser

Участник
Регист
10 Авг 2010
Сообщения
73
Хорошая штука , и идея. :)
 
В

Васисуалий

Команда форума
Регист
11 Ноя 2005
Сообщения
4.068
А в чем красота идеи? Ну хорошо, имеем прибор, который пищит тоном, пропорционально поданному на вход коду! Да еще и сам этот код выдает на экранчик от мобилки и что? Ну точнее будет так -"И чО?" :pain25:

Ну я вот догадался, что этот самый "прибор" это тот самый анализатор, который аффтар упоминает в снесенной в корзину теме про запятую и его невозможность поделиться глЫбоким опытом и шЫрокими возможностями консультирования всех прочих. И предназначено сие чудо измерительное для контроля энкодера! Ну собственно для энкодера это наверное действительно красивое и может быть даже умное решение! Но что сможет сделать с этим прибором, скажем, телевизионщик? А настройщик спутниковых антенн? А как с помощью этого аппарата починить видеокамеру или фотоаппарат?

В общем это оченно специализированная приблуда фактически применимая в одном случае. Ну хорошо, в двух! Но уже не в трех и не более того!

Где она нужна?


Там, где тусуются люди, которым она нужна!

А вот где они тусуются, это вопрос. В прочем я знаю один форум. Его название Чипмейкер. Там действительно собрались специалисты, в том числе и спецы по ЧПУ станкам, ЧПУ-хоббисты. Вот кому эта приблуда возможно и нужна. А на форуме ремонтников радиоэлектроники эта идея хороша как идея. Этот принцип засунуть бы как один из множества режимов в каком нибудь более навороченном и универсальном анализаторе. Если буду делать или получу возможность писАть ПО для какого нибудь логического аналайзера, обязательно прикручу эту идею как один из возможных режимов работы...
 
S

sser

Участник
Регист
10 Авг 2010
Сообщения
73
Да, эта штука нужна только электронщику, для ремонта автоматики на станках и др. оборудовании ,а также для наладки модернизированного оборудования. Эта тема для "промышленной электроники"....
Я тоже мыкался по разным форумам, т.к. после работы -хобби ремонт "телеков" (а в основном сварочников) , -везде пром. электронщиков "пинают" и в результате создал свой форум  ссылка скрыта от гостей / .
пс А на Чипмейкере в основном специалисты по обработке металла, основная, там тема металл, а не электроника.
Есть ещё форум Приводистов , и форум станочников .
 
Д

Доктор

Аналогопатолог
Команда форума
Регист
26 Июл 2006
Сообщения
6.738
sser сказал(а):
в результате создал свой форум
Типа, ненавязчивая реклама?
sser сказал(а):
везде пром. электронщиков "пинают"
Кто их пинает? Вот, пожалуйста, отдельный раздел - http://monitor.net.ru/forum/viewforum.php?f=79
Но ведь этот обиженный не смог туда зайти с растопыренными пальцами, ибо на школьные вопросы входного теста ответить правильно не смог и пошел качать права, заявляя о своих "заслугах", и воняя на форумах.
 
В

Васисуалий

Команда форума
Регист
11 Ноя 2005
Сообщения
4.068
Ну я предлагаю поделить вопрос следующим образом:

Идея в принципе хорошая, хотя и исключительно узкоспециализированная, поэтому тему я никуда убирать не хочу. Пусть будет, возможно кому то и понадобится. Или может чего либо довыдумываем на основе.

А автор не смог себя адекватно вести, за что и поплатился. Умел бы обьясняться нормально, даже при незнании и непрохождении входного теста мог бы найти способ общения и жизни на форуме. Ну а так чего он хотел?
 
В

ВладАстраханов

Регист
10 Окт 2016
Сообщения
1
Вот это весч, класс! Спасибо.
 


Верх