Важная информация
Страница 4 из 4 ПерваяПервая 1234
Показано с 31 по 37 из 37

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

  1. #31
    Activist
    Регистрация
    15.02.2015
    Адрес
    г. Могилёв, Беларусь
    Сообщений
    348
    Благодарностей: 38

    По умолчанию

    Люди не понимают что я хочу сказать... А я хочу донести важный смысл, что компьютерная индустрия тесно связана с оккультизмом. Начиная от известных личнностей и заканчивая известными брендами всё пропитано оккультизмом. Вы ведь читали, что представляло собой компьютерное сообщество на заре становления - это было сообщество людей эпохи битлза, марихуаны и оккультизма в форме ньюэйдж. Ну и как результат всего этого и появляется уникс и си...
    Единственный выход для совестливых людей - не использовать линукс и си. Поэтому нужно рассматривать варианты в том числе бейсик. Я подозреваю, что многие уже готовы отказаться от си и перейти на какой-нибудь другой язык программирования.
    В среде микроконтроллеров многие программисты уже давно посматривают в сторону бейсика, но многие просто стесняются начать программировать( что связано с устойчивыми мифами о си). Сегодня я хочу привести ссылки на интересный бейсик Протон.
    Сам сайт сайт протона с информацией о поддерживаемых архитектурах
    Форум (не только по протону) http://www.picbasic.ru/forum/5
    При желании можно перейти с си на бейсик.
    Последний раз редактировалось Smalovsky; 29.07.2017 в 18:03.
    ¡ɹǝʌǝɹoɟ ɐʌɐɾ | Pascal forever!

  2. #31
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  3. #32
    Master Аватар для JV-Soft
    Регистрация
    14.05.2015
    Адрес
    г. Харьков, Украина
    Сообщений
    913
    Благодарностей: 481

    По умолчанию

    Цитата Сообщение от Smalovsky Посмотреть сообщение
    сообщество людей эпохи битлза, марихуаны и оккультизма в форме ньюэйдж
    Что бы тебя понимали надо поделиться со всеми

    А вообще пора чему то молодежь учить.
    И так - в инте для баса есть куча библиотек для LCD1602 + I2C на Pcf8574 , так вот все они или глючные (лично проверено в коде с таймерами и прерываниями)
    и ни одна не работает нормально, а с аппаратным TWI вообще ужас ,высылают черти чё.
    А для поддержания темы и для показухи чего может бас я решил сделать лабораторник с зарядными алгоритмами, писать конечно надо это однозначно на СИ, но так скажем , покажем что через задницу это можно и на басе , но честно только через задницу ))))
    Так вот, я вообще не знаю ASM AVR ,а библиотеки писать надо на асме, и сегодня напрягая мозг переписал библиотеку LCD I2C для нормальной работы с TWI и возможностью конфигурирования пинов LCD на Pcf8574.

    Моя библа, авторские права оригинала я не правил -

    lcd_i2c.lib


    copyright = Kent Andersson
    www = none
    email = kent@smmab.se
    comment = I2C LCD driver
    libversion = 1.02
    date = 31 march 2002
    statement = You are free to use this code any way you like, if you are able to optimize
    statement = it better, please send me an update on my e-mail.
    history = No known bugs.

    ;define a constant named PCF8574_LCD pointing to the i2c address
    ;dimension _lcd_e as byte to control the E-lines (4 lines LCD:s)
    ;_lcd_e should have one of the following values
    ;128 to enable E1, 64 to enable E2, 192 to enable both E1 and E2 (cls, deflcdchar)
    ;Connect the following pins from PCF8574 to LCD
    ;
    ;P0 - D4
    ;P1 - D5
    ;P2 - D6
    ;P3 - D7
    ;P4 - RS
    ;P5 - RW (not used, set to 0 to ground for write)
    ;P6 - E2 (on 1 or 2 line display nc)
    ;P7 - E1

    [_Init_LCD]
    _Init_LCD:
    *BASIC: waitms 50
    ldi r16,&hc0 ; this is to make the initialization on both halfs of a 4-line LCD
    Ldi _temp1, &h03 ; at init-time I call all routines before _lcd_e is loaded into r16
    Rcall _Send_to_LCD
    *BASIC: waitms 4
    Rcall _Send_to_LCD
    Rcall _Send_to_LCD
    Ldi _temp1, &h02
    Rcall _Send_to_LCD
    Ldi _temp1, &h28
    Rcall _Write_lcd_byte ;RS flag should to be 0, so jump directly to write byte
    Ldi _temp1, &h08
    Rcall _Write_lcd_byte
    Ldi _temp1, &h0c
    Rcall _Write_lcd_byte
    Ldi _temp1, &h01
    Rjmp _Write_lcd_byte
    [END]


    [_Write_lcd]
    _Write_lcd:
    * lds r16,{_lcd_e}
    sbr r16,&h10 ;set RS flag (4 high bits is used as control)
    rjmp _write_lcd_byte
    _Lcd_Control:
    * lds r16,{_lcd_e}
    _write_lcd_byte:
    push r24
    Swap _temp1
    Rcall _Write_lcd_Nibble
    pop r24
    _Write_lcd_nibble:
    Cbr _temp1,&HF0 ; E1, E2, RW, RS low

    _Send_to_LCD:
    push r26
    push r27
    ldi r25,3
    _send_3_times:
    PUSH _temp2
    BST _temp1, 0
    * BLD _temp2, PCF_D4
    BST _temp1, 1
    * BLD _temp2, PCF_D5
    BST _temp1, 2
    * BLD _temp2, PCF_D6
    BST _temp1, 3
    * BLD _temp2, PCF_D7
    BST _temp1, 4
    * BLD _temp2, PCF_RS
    BST _temp1, 5
    * BLD _temp2, PCF_RW
    BST _temp1 , 6
    * BLD _temp2, PCF_E2
    BST _temp1, 7
    * BLD _temp2, PCF_E1
    *BASIC: i2csend pcf8574_LCD, _temp2
    POP _temp2


    ; *BASIC: i2csend pcf8574_LCD,_temp1
    eor _temp1,R16 ; Xor E1 and/or E2 to set them
    ; @genus(250)
    ldi r26,0
    _LCD_delay:
    dec R26
    brne _LCD_delay
    Dec R25
    Brne _send_3_times
    eor _temp1,R16 ; Xor to restore to initial state (even number of times)
    pop r27
    pop r26
    ret

    [END]
    [свернуть]


    Инициализация BASCOM

    $lib "i2c_twi.lib" 'hardware TWI
    Config Twi = 100000 'частота I2C 100кГц
    I2cinit
    $lib "Lcd_i2c.lib" 'Добавил в библиотеку переназначение пинов + корректная работа TWI. Остальные библиотеки из инета не работают с TWI

    Const Pcf8574_lcd = &H7E 'в моем случае адрес записи Pcf8574


    Config Scl = Portc.5 'конфигурируем аппаратный I2C
    Config Sda = Portc.4
    Dim _lcd_e As Byte

    Const Pcf_d4 = 4 'переназначение пинов Pcf8574 к lcd
    Const Pcf_d5 = 5
    Const Pcf_d6 = 6
    Const Pcf_d7 = 7
    Const Pcf_rs = 0
    Const Pcf_rw = 1
    Const Pcf_e2 = 3
    Const Pcf_e1 = 2

    _lcd_e = 128 '128 для LCD1602

    Config Lcd = 16 * 2
    Cursor Off 'выключим отображение курсора
    Cls
    [свернуть]


    что бы не использовать кучу ног AVR, я и затеял LCD на I2C и датчик тока/напряжения будет I2C (INA226)
    С первоночального на UNO


    А теперь на NANO


    Продолжение следует

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

    Цитата Сообщение от Smalovsky Посмотреть сообщение
    При желании можно перейти с си на бейсик.

    Можно и из дома в парк жить переехать , и с галенвагена на жигули пересесть

    Арфы нет ,возьмите бубен


    До 2016 JV-Soft (Eigma Group) http://speccy.info/Enigma_Group
    Сайт http://p45.at.ua/forum
    Восстановлен(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. #33
    Master
    Регистрация
    19.06.2014
    Адрес
    г. Харьков, Украина
    Сообщений
    512
    Благодарностей: 99

    По умолчанию

    Фу, как хорошо что я полем иду, походу бейсик вызывает необратимые процессы в психике пользователя

  5. #34
    Master
    Регистрация
    24.05.2005
    Адрес
    г. Запорожье, Украина
    Сообщений
    620
    Благодарностей: 435

    По умолчанию

    Цитата Сообщение от Smalovsky Посмотреть сообщение
    При желании можно перейти с си на бейсик.
    Вероятность появления такого желания такая же - как вероятность появления у выпускника школы желания поступить в первый класс ))

  6. #35
    Master Аватар для JV-Soft
    Регистрация
    14.05.2015
    Адрес
    г. Харьков, Украина
    Сообщений
    913
    Благодарностей: 481

    По умолчанию

    Цитата Сообщение от s_kosorev Посмотреть сообщение
    Фу, как хорошо что я полем иду, походу бейсик вызывает необратимые процессы в психике пользователя
    Однозначно
    -------------------------------
    Но вернемся к извращениям да бы тема не была одним флудом.

    Заметил глюк, бас не выставляет видимо правильно задержки при старте LCD с I2C поэтому код должен содержать обязательно строки принудительной инициализации с задержкой иначе в некоторых случаях LCD будет глючить

    Initlcd
    Waitms 3
    Cursor Off
    Cls
    ---------------

    Далее о аппаратном ШИМ, так мне никто и не привел код для инициализации fastPWM 15625гц , и это не удивительно, баском не умеет этого делать , вот казалось бы самая обычная процедура инициализации в любой IDE для AVR , а нет как оказалось стандартные вещи баском не умеет , делайте это пользователи через жопу если сможете.
    Хорошо прямой доступ к регистрам хоть сделали , поэтому что бы сделать простую вещь надо вначале инициализировать Phase Correct PWM

    Config Timer1 = Pwm , Compare A Pwm = Clear_up , Compare B Pwm = Clear_up , Prescale = 1

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

    Tccr1a.0 = 1
    Tccr1a.1 = 1
    Tccr1b.3 = 1
    Tccr1b.4 = 0

    -----------------------------------------------------------------------------------

    Далее не знаю это особенность баса или китайской NANO v3 , но в bascom совместно с NANO v3 не работает с watchdog ! Причем очень классно не работает , если в басе доходит до сработки watchdog в NANO v3 , то она входит в постоянный зависон и RESET не помогает , я такого еще не встречал ! Только перепрошивка ! С UNO такого глюка нет , кстати прошив NANO в UNO этот глюк ушел.
    Вот такая чудная и удобная среда Bascom , да Smalovsky ?

    Арфы нет ,возьмите бубен


    До 2016 JV-Soft (Eigma Group) http://speccy.info/Enigma_Group
    Сайт http://p45.at.ua/forum
    Восстановлен(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.
    [свернуть]

  7. #36
    Activist
    Регистрация
    15.02.2015
    Адрес
    г. Могилёв, Беларусь
    Сообщений
    348
    Благодарностей: 38

    По умолчанию

    Уже соскучились по скандальным разоблачениям? Тогда начинаем новую серию( как всегда)!
    Итак, Деннис Ритчи известен всем как известный программист - ветеран становления вычислительной техники. Но правильное ли у всех мнение об этом человеке?
    Начнём с того, что Ритчи известен как один из разработчиков языка си и уникса. Причём, в униксе были введены такие названия как демоны! Не операционная система, а настоящий ад! Можно предположить, что Деннис являлся оккультистом и был помешан на теме преисподней и демонов. Это предположение можно проверить прочитав его биографию, в той части где описаны его разработки в области ОС:
    Следуя успехам UNIX, Ритчи продолжал до самой смерти исследования в области операционных систем и языков программирования со вкладом в ОС Plan 9 и Inferno и язык программирования Limbo.
    (http://www.personbio.com/view_post.php?id_info=6683)
    Начнём с конца... Слово лимбо имеет перевод как "преддверие ада", а слово инферно как "преисподняя". Итак, можно смело сказать, что Ритчи увлекался оккультизмом по его разработкам.
    Что же такое "План 9"? Это название фильма ужасов, а точнее это план порабощения Земли по сюжету фильма. Выдержка из сюжета фильма:
    Инопланетяне решают, что земляне слишком глупы и вполне могут нанести большой вред галактическому сообществу, вследствие чего начинают реализовывать свой план под кодовым названием «План 9». Двое пришельцев сажают летающую тарелку на землю и оживляют трёх мертвецов, внедряя чипы в их головной мозг.
    Из этой цитаты, видно что Деннис был сознательным приверженцем тёмных сил и мечтал о порабощении человечества.
    Надо отметить, что другие оккультисты-программисты очень даже помнят о нём:
    Выпущенный через месяц после смерти Денниса Ритчи дистрибутив Linux Fedora 16 был посвящён памяти о нём. Выпуск FreeBSD 9.0 был также посвящён Деннису Ритчи.
    Для совсем ничего не понимающих советую посмотреть картинки в поисковике на тему фрипст( название мерзости изменил - противно печатать).
    Итак, подводим итоги - уникс и си являются путём в преисподнюю.
    ¡ɹǝʌǝɹoɟ ɐʌɐɾ | Pascal forever!

  8. #37
    Master
    Регистрация
    24.05.2005
    Адрес
    г. Запорожье, Украина
    Сообщений
    620
    Благодарностей: 435

    По умолчанию

    Тут надо чтоб не модераторы уже следили за форумом - а доктора ))

  9. Этот пользователь поблагодарил shurik-ua за это полезное сообщение:
    s_kosorev (31.07.2017)

Страница 4 из 4 ПерваяПервая 1234

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

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

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

Похожие темы

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

Ваши права

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