Важная информация

User Tag List

Страница 6 из 6 ПерваяПервая ... 23456
Показано с 51 по 58 из 58

Тема: Программирование в Bascom для Arduino( сишники идут полем)

  1. #51
    Guru Аватар для jerri
    Регистрация
    01.03.2005
    Адрес
    Samara
    Сообщений
    3,514
    Благодарностей: 730
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Smalovsky Посмотреть сообщение
    Это не значит, что япроходил ритуал их. Знать можно из разных источников.
    то есть ты сделал это утверждение с чужих слов?
    а ты несерьезный человек однако.
    С уважением,
    Jerri / Red Triangle.
    [02.05.2014] не забудь этот день. Чубайс должен умереть. Dixi.
    [l'Abbey des morts TSEvo EV...5%] kiwi кошелек +79178162712

  2. #52
    Activist
    Регистрация
    15.02.2015
    Адрес
    г. Могилёв, Беларусь
    Сообщений
    417
    Благодарностей: 40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    В общем, сделал я пищалку на арду. Текст программы на баскоме.

    $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 байта. Мне кажется это много для такой простой программы. Хотелось бы узнать, если программу переписать на си, то сколько будет занимать бинарный файл?
    Миниатюры Миниатюры Нажмите на изображение для увеличения. 

Название:	IMG_20100818_050840.jpg 
Просмотров:	44 
Размер:	60.0 Кб 
ID:	65760  
    ¡ɹǝʌǝɹoɟ ɐʌɐɾ | Pascal forever!

  3. #53
    Veteran Аватар для JV-Soft
    Регистрация
    14.05.2015
    Адрес
    г. Харьков, Украина
    Сообщений
    1,721
    Благодарностей: 970
    Mentioned
    1 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Цитата Сообщение от Smalovsky Посмотреть сообщение
    Хотелось бы узнать, если программу переписать на си, то сколько будет занимать бинарный файл?
    Си-шники ушли полем и теперь тебе не скажем

    Арфы нет ,возьмите бубен
    Безумие это повторение одного и того же в ожидании другого результата.


    До 2016 JV-Soft (Eigma Group) http://speccy.info/Enigma_Group
    Сайт http://p-45.zzz.com.ua
    Восстановлен(2015) дополнен и в строю - Pentagon 512(256kb ROM 4 конфигурации ПЗУ)/turbo 7 мгц/кеш 2кб/covox/ AY/AY mouse/fdd robotron 5601/Nemo-Ide/10gb HDD (DNA-OS)
    Восстановлен(2015) и в строю - Харьков 128
    Восстановлен(2016) ZX-Дигитайзер

    Ждут паяльника - пентагон 48 , pentagon 128 , pentagon 128 купленный в 2015.
    [свернуть]

  4. #54
    Veteran Аватар для JV-Soft
    Регистрация
    14.05.2015
    Адрес
    г. Харьков, Украина
    Сообщений
    1,721
    Благодарностей: 970
    Mentioned
    1 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Так как готовой нужной библиотеки не оказалось в bascom ,то пишу свою библиотечку , для БП и зарядного с экранчиком 128x64 , по мимо команд точка ,линия ,окружность , прямоугольник , можно и графику выводить.



    PS Smalovsky, среда хорошая , только почему то разрабы не соизволили за 18 лет сделать библиотеку с поддержкой st7920 LCD , наверно 18 лет это не такой и срок ,к 30ти летию bascom может добавят

    - - - Добавлено - - -

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

    Арфы нет ,возьмите бубен
    Безумие это повторение одного и того же в ожидании другого результата.


    До 2016 JV-Soft (Eigma Group) http://speccy.info/Enigma_Group
    Сайт http://p-45.zzz.com.ua
    Восстановлен(2015) дополнен и в строю - Pentagon 512(256kb ROM 4 конфигурации ПЗУ)/turbo 7 мгц/кеш 2кб/covox/ AY/AY mouse/fdd robotron 5601/Nemo-Ide/10gb HDD (DNA-OS)
    Восстановлен(2015) и в строю - Харьков 128
    Восстановлен(2016) ZX-Дигитайзер

    Ждут паяльника - пентагон 48 , pentagon 128 , pentagon 128 купленный в 2015.
    [свернуть]

  5. Этот пользователь поблагодарил JV-Soft за это полезное сообщение:
    creator (08.08.2018)

  6. #55
    Activist
    Регистрация
    15.02.2015
    Адрес
    г. Могилёв, Беларусь
    Сообщений
    417
    Благодарностей: 40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    JV-Soft, может, сделаешь игровую библиотеку для вывода тайлов. На ардуино уже сделали игровую библиотеку.
    Игры и библиотека.
    https://gamebuino.com/creations
    https://gamebuino.com/academy
    Если сделаешь, то на баскоме будет своя библиотека.
    ¡ɹǝʌǝɹoɟ ɐʌɐɾ | Pascal forever!

  7. #56
    Veteran Аватар для JV-Soft
    Регистрация
    14.05.2015
    Адрес
    г. Харьков, Украина
    Сообщений
    1,721
    Благодарностей: 970
    Mentioned
    1 Post(s)
    Tagged
    1 Thread(s)

    По умолчанию

    Цитата Сообщение от Smalovsky Посмотреть сообщение
    JV-Soft, может, сделаешь игровую библиотеку для вывода тайлов.
    Как бы тебе объяснить , если хоть иногда следишь за моими поползновениями , то должен заметить , все что касается ретро я хочу клепать исключительно на старой базе , как тут пишут - ЛА3
    И мне честно ,не интересен перенос чего то старого на современную базу.
    Например этот проект БП и зарядного перекочевал на такой экран только из за удобства восприятия и комфорта для пользователя , но проект ни как не касается ретро , и графику из Exolon я туда кинул просто для проверки кода библиотеки )

    Арфы нет ,возьмите бубен
    Безумие это повторение одного и того же в ожидании другого результата.


    До 2016 JV-Soft (Eigma Group) http://speccy.info/Enigma_Group
    Сайт http://p-45.zzz.com.ua
    Восстановлен(2015) дополнен и в строю - Pentagon 512(256kb ROM 4 конфигурации ПЗУ)/turbo 7 мгц/кеш 2кб/covox/ AY/AY mouse/fdd robotron 5601/Nemo-Ide/10gb HDD (DNA-OS)
    Восстановлен(2015) и в строю - Харьков 128
    Восстановлен(2016) ZX-Дигитайзер

    Ждут паяльника - пентагон 48 , pentagon 128 , pentagon 128 купленный в 2015.
    [свернуть]

  8. #57
    Activist
    Регистрация
    15.02.2015
    Адрес
    г. Могилёв, Беларусь
    Сообщений
    417
    Благодарностей: 40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Нажмите на изображение для увеличения. 

Название:	IMG_20100919_051715.JPG 
Просмотров:	13 
Размер:	54.9 Кб 
ID:	65991
    Решил написать программу управления сервоприводом, но не с помощью готовых команд баскома. На фото установка с сервоприводом.
    К порту b.0 подключается управляющий провод сервопривода.
    В программе альфа и дельта - длительности частей положительного и нулевого уровня в шим-сигнале управления. Само управление реализуется в прерывании по совпадению таймера сервбот. Для правильной синхронизации пришлось сделать стадийную запись данных в буфер подпрограммы сервбот. Флаг temp1 и temp2 показывают, когда данные переносятся в буфер или вычисляются, значения phase1 и phase2 - состояние цикла шим - часть цикла с положительным потенциалом или часть с нулевым потенциалом. На фото есть еще жки-дисплей, это я туда его поместил для Джсофтыча, что бы показать ему, что я тоже начну осваивать дисплеи.
    Я программу не совсем правильно составил.
    Правильно тут http://bascomavr.3bb.ru/viewtopic.php?id=1852#p25624
    Последний раз редактировалось Smalovsky; 21.10.2018 в 16:31.
    ¡ɹǝʌǝɹoɟ ɐʌɐɾ | Pascal forever!

  9. #58
    Activist
    Регистрация
    15.02.2015
    Адрес
    г. Могилёв, Беларусь
    Сообщений
    417
    Благодарностей: 40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Сделал сомодельную отладочную плату на 8051.


    Подробности http://bascomavr.3bb.ru/viewtopic.php?id=1977
    Последний раз редактировалось Smalovsky; 21.10.2018 в 17:13.
    ¡ɹǝʌǝɹoɟ ɐʌɐɾ | Pascal forever!

Страница 6 из 6 ПерваяПервая ... 23456

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Программирование в Pascal (сишники идут лесом)
    от Smalovsky в разделе Творчество
    Ответов: 22
    Последнее: 29.12.2016, 23:09
  2. Ответов: 0
    Последнее: 17.01.2015, 21:02
  3. Ответов: 4
    Последнее: 29.01.2009, 01:06

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •