Светодиодная матрица

[xkp]

эх... не судьба значит... третьего не дано((((

[list4]

Работает спасибо.

[Roflcopter]

Привет всем!

У меня проблема. Я собрал схему, но нет синхронизаций. 2 и 3 ножку ЛПТ подсоединил.

Подсоветуйте что мне делать?

[list4]

Привет всем!

У меня проблема. Я собрал схему, но нет синхронизаций. 2 и 3 ножку ЛПТ подсоединил.

Подсоветуйте что мне делать?

Ты с какого города?

[list4]

[Vovan91]

не получается открыть схему печатной платы использовал для этого Splan

[MORDA]

Сделал плату, доволен, самую большую сложность составило впаивание светодиодов, было бы легче еслиб отверстия были бы металлизированы и запаивать только с одной стороны...но и так нормально, только больше времени занимает.

1 минус - очень слабо горит один из светодиодов, почему не знаю.
а в целом доволен. Если кому нужны фотки - скину, и кстати, есть документация - делал по ней курсовой, если кому надо - пишите!

И пожалуйста! Кто умеет писать программы или дружит с библиотеками, сделайте пожалуйста спектральный аналайзер. Может из винампа както подключить модуль вывода на ЛТП, я просто не розбиоаюсь в этом(( а сделаные проекты буду выкладывать!

[lix]

Все хотят спектроанализатор. и я тоже. есть даже планы, но времени нету

[MORDA]

Если я чем-то могу помочь в разработке спектрального аналайзера - скажите, время есть, но нет знаний для написания программ, в которых нужно управление лтп портом=(

погуглю пока, может что-то получится...

И еще, я немогу разобраться, как открыть Matrix16x16_v.1.1? Через VB? неполучается=(((

[MORDA]

погуглил=))
наешл одну очень интересную вещь...
http://mavius.narod.ru/projects/msvc/wndlpt/
програмка для работы с лтп портом...и дает плагины на аимп, медиа плеер и винамп...
пробовал - горит 1й ряд, иногда второй и очень редко 3й...
но сам факт что работает радует=))

если кто разбирается, думаю нужно переделать плагин и все или написать скрипт для этой програмки, хотя могу ошибаться, буду искать сам еще, может что получится

по прошествии пары часов, выяснил, что все завязоно на библиотеке "Bass.dll", и с помощью её анализа или включения можно будет все решить, но пока не знаю как

[Radan]

Если я чем-то могу помочь в разработке спектрального аналайзера - скажите, время есть, но нет знаний для написания программ, в которых нужно управление лтп портом=(
погуглю пока, может что-то получится...
И еще, я немогу разобраться, как открыть Matrix16x16_v.1.1? Через VB? неполучается=(((

Программа написана в VB6. Для работы с LPT портом именно этой программы нужен установленный dlportio.dll - он устанавливается с помощью port95nt.exe
Для того, чтобы написать спектроанализатор, я рекомендую воспользоваться библиотекой bass.dll.
За основу можно взять вот этот проект - http://lightportal.at.ua/publ/kombiniro ... y/11-1-0-9
Там спектроанализатор на этой библиотеке и в VB6, кстати, автор -тот же.

Если кому нужны фотки - скину, и кстати, есть документация - делал по ней курсовой, если кому надо - пишите!

Присылайте, выложу на постоянную страницу девайса - http://lightportal.at.ua/publ/videoehkr ... a/8-1-0-11

[MORDA]

За основу можно взять вот этот проект - http://lightportal.at.ua/publ/kombiniro ... y/11-1-0-9Там спектроанализатор на этой библиотеке и в VB6, кстати, автор -тот же.

Я смотрел эту статью, но тут управление через СОМ, и плюс ко всему этому микроконтроллер...
Постараюсь разобраться...

З.ы. Позже пришлю, скрины и документы

[Radan]

За основу можно взять вот этот проект - http://lightportal.at.ua/publ/kombiniro ... y/11-1-0-9Там спектроанализатор на этой библиотеке и в VB6, кстати, автор -тот же.

Я смотрел эту статью, но тут управление через СОМ, и плюс ко всему этому микроконтроллер...
Постараюсь разобраться...
З.ы. Позже пришлю, скрины и документы

Я не зря этот проект привёл в пример. Там как раз можно взять код спектро анализатора.
А уже полученные данные выводить через LPT. Не нужно изобретать велосипед.
Взять нужный участок кода и предварительно поправив его, применить в своём проекте.

[MORDA]

ммм...ну я постараюсь разобраться, но я в програмировании зеленый, для меня это сложно
поэтому и задаю такие вопросы

[MORDA]

Нужна помощь!

Розскажите пожалуйста как работает данный участок кода, я просто уже сомневаюсь что правильно его понимаю

"
For z = 0 To 15
R1 = 0
R2 = 0
For G = 0 To 7
J = (15 - z) * 16 + (sprite * 256) + G
If G = 0 Then T = 1
If G = 1 Then T = 2
If G = 2 Then T = 4
If G = 3 Then T = 8
If G = 4 Then T = 16
If G = 5 Then T = 32
If G = 6 Then T = 64
If G = 7 Then T = 128
If dop(J - 256) = 1 Then R1 = R1 + T
If dop(J - 248) = 1 Then R2 = R2 + T
Next G

...

Next z
If L = 0 Then Nulreg
If L = 0 Then Exit Do
Loop
"

как работает строка выделеная красным? откуда берется "sprite"?
и еще вопрос: можно применять в разных командах одинаковые переменные, предварительно их обнулив?

[Radan]

Конечно, трудно уже вспомнить, больше 5 лет прошло.
Сейчас бы не так уже написал...

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

Итак, по порядку.
матрица имеет размерность 16х16=256
2 регистра по 8 бит -R1 и R2.
Для вывода картинки нужно последовательно 16 раз (For z = 0 To 15) передать данные через параллельный порт в эти регистры
sprite - это номер текущей картинки - спрайт. Он изменяется от 0 до максимально возможного для выбранного эффекта.
В каждом шаге цикла For z = 0 To 15 мы должны особым образом подготовить данные для регистров.
Для начала мы их обнуляем - R1 = 0 R2 = 0
Затем организуем новый цикл For G = 0 To 7
Данные о спрайтах хранятся в одномерном массиве dop() в виде последовательности 0 и 1
На каждый спрайт 256 байт
Общая длина массива - 256 * количество спрайтов для конкретного эффекта.
J = (15 - z) * 16 + (sprite * 256) + G
В этой строке мы высчитываем элемент массива, соответствующий данному спрайту для каждого  светодиода матрицы
Такая достаточно сложная формула обусловлена тем, что для каждой последовательности из одномерного массива нужно получить 16 значений для двух регистров.
If G = 0 Then T = 1
If G = 1 Then T = 2
If G = 2 Then T = 4
If G = 3 Then T = 8
If G = 4 Then T = 16
If G = 5 Then T = 32
If G = 6 Then T = 64
If G = 7 Then T = 128
Этот код определяет вес для битовой последовательности регистров

If dop(J - 256) = 1 Then R1 = R1 + T
If dop(J - 248) = 1 Then R2 = R2 + T
А здесь за 8 шагов цикла подсчитываем данные для регистров

Nulreg - вызов подпрограммы обнуления регистров

Вообщем где то примерно так

[MORDA]

1е) Ув.Василий - Это я к вам стучусь в ЛС на (bascomavr), надоел уже вам, но очень хочу спектроанализатор
2е) Добавил кнопку, подключил библиотеку, ну в общем работает, но не так

J = (15 - z) * 16 + (sprite * 256) + G
В этой строке мы высчитываем элемент массива, соответствующий данному спрайту для каждого светодиода матрицы

получается, идет програмный опрос матрицы, что сейчас горит, а что нет???

и тогда для спектроанализатора меняется и

If dop(J - 256) = 1 Then R1 = R1 + T
If dop(J - 248) = 1 Then R2 = R2 + T

но как я непойму....
и можно ли как-то сделать, что б брать данные из Bass.dll о спектре и уровне, и непоказывая их в программе сразу выводить?

[Radan]

С помошью басс нужно получить 16 значений для 16 полос и ограничить каждое максимум 16 - высота столбика. Далее эти данные нужно поместить или в одномерный массив, чтобы использовать стандартную процедуру вывода, или написать новую функцию вывода на основании полученных данных. Проще смотреть на схему и представить свои данные в виде включенных светодиодов - столбиков или точек. Какие данные при этом должны будут поступать в регистры?
Когда наступит такое понимание, код написать станет очень легко.

[MORDA]

Когда наступит такое понимание, код написать станет очень легко.

Когда ж оно-то наступит уже ко мне

[MORDA]

У кого работают часы? Напишите пожалуйста как?
При запуске экзешника - выдается ошибка. ледом - только одна картинка, и нет никакого двидения.