Файлы  •  Ссылки  •  Прошивки  •  Правила  •  Архив  •   FAQ  •  Участники  •  Поиск
Регистрация  •  Вход

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

Список форумов » Готовые решения и конструкции
АвторСообщение
Ev3658
Гость 176.221.*.*





09-03-2015 00:03

Схема простая, есть печатка, прошивка и исходник в BascomAVR
В схеме использовался контроллер Atmega48, но можно Atmega8 и т.п.

Сама суть тестера заметить срабатывания и некое подобие времянкой диаграммы, а так-же обозначить любое изменение выводов световой и звуковой индикацией.
Такая штука очень полезна, когда пульт далеко от релейного шкафа.
Использование UsbAsp программатора (за 250р.он работает в BascomAVR) и разведённого на плате разъёма, позволяет в быстрые сроки переделать тестер под проверку ТТЛ логики, к примеру дешифратора с памятью и т.п. (выводить биты и получать их)
Сам экран использован от Nokia 1110, но подходит любой такого типа, даже от Arduino подошел и 40 рублёвый тоже.
Благодаря разъёму, можно адаптировать под разное напряжение.
Питается тестер от 9 вольт батареи, так-же на борту стабилизатор и возможность запитать от 24в.
Управление простое, обычное переменное сопротиление, причём им-же и пауза и режим без звука и т.п.
Есть возможность использовать АЦП, так-же предусмотрены выходы таймера и т.п.
Есть возможность запитывания от 5в.

Вот видео его работы в первом включении:
http://www.youtube.com/watch?v=SLcAxngwfd4&list=UUi8fbV82pkc0vyAnJ ...
Прошивка проще некуда, вот это в 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: А ещё он хорош как детская игрушка )))) голливудская улыбка

  Тестер.zip  73,77 КБ  Скачано: 347 раз(а)

AntiDoc
Гость 176.221.*.*





09-03-2015 12:37

Не могу архив скачать.
sser
Участник
Сообщения: 73




09-03-2015 23:31

Хорошая штука , и идея. улыбка
Васисуалий
monitor.net.ru
monitor.net.ru
Сообщения: 5325




11-03-2015 01:15

А в чем красота идеи? Ну хорошо, имеем прибор, который пищит тоном, пропорционально поданному на вход коду! Да еще и сам этот код выдает на экранчик от мобилки и что? Ну точнее будет так -"И чО?"

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

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

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


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

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




14-03-2015 09:57

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




14-03-2015 10:49

sser писал:
в результате создал свой форум

Типа, ненавязчивая реклама?
sser писал:
везде пром. электронщиков "пинают"

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




14-03-2015 13:13

Ну я предлагаю поделить вопрос следующим образом:

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

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




10-10-2016 19:59

Вот это весч, класс! Спасибо.
Список форумов » Готовые решения и конструкции » Релейный тестер на 12 каналов
Перейти:  
Текущий раздел » Готовые решения и конструкции (Авторские разработки , для коммерческого и безвозмездного использования.)







Электроника
Прошивки и схемы на телевизоры, мониторы, dvd, телефоны. Schematic, Service Manual (mode), eeprom dumps Информация по ремонту для специалистов - справочники, инструкции, энциклопедия, советы и секреты ремонта,  настройка, сервисные режимы поиск и продажа электронных компонентов, магазины, datasheet, pdf, размещение в интернете рекламы на сайтах электронной тематики
Powered by phpBB 2.0.18 © 2001, 2002 phpBB Group!