В общем, сделал я пищалку на арду. Текст программы на баскоме.
$regfile = "m328pdef.dat"
$crystal = 16000000
Dim Invalue As Byte , Oldvalue As Byte
Dim Tune As Word
Ddrb = 2
Didr0 = 1
Admux = &B00100000
Adcsra = &B11100111
Ocr1ah = 2
Ocr1al = 0
Tccr1a = &B01000000
Tccr1b = &B00001011
Invalue = 0
Oldvalue = 0
Do
Invalue = Adch And &B11111000
If Invalue <> Oldvalue Then
Tune = Invalue
Tune = Tune + 100
Ocr1ah = High(tune)
Ocr1al = Low(tune)
Oldvalue = Invalue
End If
Loop
По программе арду начинает считывать аналоговый вход с выхода порта C нулевого разряда, и преобразовав данные записывает как предел счёта для таймера 1, частота которого подаётся на выход порта B первого разряда, к линии которого через сопротивление подключен пьезодинамик. На аналоговый вход включил переменный резистор, регулируя который, могу менять высоту звукового тона на пьезодинамике.
Маска по and нужна для ступенчатости изменения тона, при такой маске как в программе будет 256/8=32 ступени тона.
Что меня смутило - бинарник 344 байта. Мне кажется это много для такой простой программы. Хотелось бы узнать, если программу переписать на си, то сколько будет занимать бинарный файл?
¡Un momento, señor fiscal!
Так как готовой нужной библиотеки не оказалось в bascom ,то пишу свою библиотечку , для БП и зарядного с экранчиком 128x64 , по мимо команд точка ,линия ,окружность , прямоугольник , можно и графику выводить.
PS Smalovsky, среда хорошая , только почему то разрабы не соизволили за 18 лет сделать библиотеку с поддержкой st7920 LCD , наверно 18 лет это не такой и срок ,к 30ти летию bascom может добавят
- - - Добавлено - - -
PPS так как для подключения экрана надо около 13 линий контроллера , а st7920 поддерживает SPI , я решил ,что управлять по трем проводам пусть и медленнее ,но зато ноги контроллера для других нужд остаются свободны.
Увы общий формат форума вышел из рамок моего любимого места , более тут не бываю.
JV-Soft, может, сделаешь игровую библиотеку для вывода тайлов. На ардуино уже сделали игровую библиотеку.
Игры и библиотека.
https://gamebuino.com/creations
https://gamebuino.com/academy
Если сделаешь, то на баскоме будет своя библиотека.
¡Un momento, señor fiscal!
Как бы тебе объяснить , если хоть иногда следишь за моими поползновениями , то должен заметить , все что касается ретро я хочу клепать исключительно на старой базе , как тут пишут - ЛА3
И мне честно ,не интересен перенос чего то старого на современную базу.
Например этот проект БП и зарядного перекочевал на такой экран только из за удобства восприятия и комфорта для пользователя , но проект ни как не касается ретро , и графику из Exolon я туда кинул просто для проверки кода библиотеки )
Увы общий формат форума вышел из рамок моего любимого места , более тут не бываю.
Решил написать программу управления сервоприводом, но не с помощью готовых команд баскома. На фото установка с сервоприводом.
К порту b.0 подключается управляющий провод сервопривода.
В программе альфа и дельта - длительности частей положительного и нулевого уровня в шим-сигнале управления. Само управление реализуется в прерывании по совпадению таймера сервбот. Для правильной синхронизации пришлось сделать стадийную запись данных в буфер подпрограммы сервбот. Флаг temp1 и temp2 показывают, когда данные переносятся в буфер или вычисляются, значения phase1 и phase2 - состояние цикла шим - часть цикла с положительным потенциалом или часть с нулевым потенциалом. На фото есть еще жки-дисплей, это я туда его поместил для Джсофтыча, что бы показать ему, что я тоже начну осваивать дисплеи.
Я программу не совсем правильно составил.
Правильно тут http://bascomavr.3bb.ru/viewtopic.php?id=1852#p25624
Последний раз редактировалось Smalovsky; 21.10.2018 в 16:31.
¡Un momento, señor fiscal!
Сделал сомодельную отладочную плату на 8051.
Подробности http://bascomavr.3bb.ru/viewtopic.php?id=1977
Последний раз редактировалось Smalovsky; 21.10.2018 в 17:13.
¡Un momento, señor fiscal!
Родил наконец БП в том виде котором хотелось , будет и измеритель емкости в нем и зарядное , пока на bascom , но наверно по возможности на Си перепишу.
Цифровые датчики это конечно бомба.
Управление одним джойстиком
Тут всякие страдания - ТЫЦ
- - - Добавлено - - -
Увы общий формат форума вышел из рамок моего любимого места , более тут не бываю.
JV-Soft, как тебе ОС реального времени на бейсике?
Aqua OS
¡Un momento, señor fiscal!
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)