Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Программирование ATMEL в BASCOM. » О программе BASCOM AVR/8051 » Проблема с Bascom или МК?

Проблема с Bascom или МК?

Страница: 1

Сообщений 1 страница 12 из 12

1

  • Автор: SapphireLion
  • Новичок
  • Зарегистрирован: 2016-07-23
  • Приглашений: 0
  • Сообщений: 2
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    29 минут
  • Последний визит:
    2016-08-31 15:15:32

Здравствуйте! Такой код;

$regfile = "m128def.dat"
$crystal = 14745600
$hwstack = 128
$swstack = 128
$framesize = 128

Dim A As Byte
Dim Cin As String * 200

'LCD
Config Lcd = 16 * 4                                         'configure lcd screen
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Cursor Off
Locate 1 , 1
Lcd "Power ON!"
Wait 1
Cls
A = 0

Do
Locate 1 , 1
Incr A
Cin = Str(a)
Lcd Cin
Waitms 250
Loop

После запуска контроллера на экране числа меняются не от 1 до 255 дальше 0 и снова по возрастанию, а таким образом:
1-39, 0-39, 80-129, 100-129, и так далее.
Может подскажите в чем проблема: среде, железе, коде программы, дне недели ... Промучился на разных Bascom-ах, ничего не помогает!!!

0

2

  • Автор: RDW
  • Активный участник
  • RDW
  • Откуда: Москва
  • Зарегистрирован: 2011-05-11
  • Приглашений: 0
  • Сообщений: 2632
  • Уважение: [+231/-37]
  • Позитив: [+164/-62]
  • Пол: Мужской
  • Возраст: 47 [1976-07-28]
  • Провел на форуме:
    20 дней 15 часов
  • Последний визит:
    2023-12-23 17:59:39

что-то я не понял, что на выходе получается, но можно попробовать:

- Cin сделать не 200, а временно 10 байт (для ваше кода этого выше крыши);
- попробовать переименовать во всём коде Cin, скажем просто в С;
- попробовать статично вывести на индикатор число через переменную A;
- попробовать убрать из кода работу с LCD и заменить на вывод данных через UART (соответственно нужно чтобы было куда выводить данные (например в компьютер), это для отладки...эксперимент.

зы: вообще код правильный, складывается такое впечатление, что проблема с МК, у вас по питанию стоят ёмкости (керамика и электролит)?

Отредактировано RDW (2016-08-31 15:38:55)

0

3

  • Автор: Sergik07
  • Активный участник
  • Зарегистрирован: 2013-09-09
  • Приглашений: 0
  • Сообщений: 194
  • Уважение: [+35/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 12 часов
  • Последний визит:
    2024-01-02 20:26:56

SapphireLion
Может попробовать вот так:

Код:
 Incr A
   Cin = Str(a)
   Waitms 250
   Lcd Cin

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

Отредактировано Sergik07 (2016-08-31 19:20:35)

0

4

  • Автор: sasha_1973
  • Администратор
  • sasha_1973
  • Откуда: Киев
  • Зарегистрирован: 2012-10-30
  • Приглашений: 0
  • Сообщений: 2521
  • Уважение: [+912/-17]
  • Позитив: [+765/-23]
  • Пол: Мужской
  • Возраст: 50 [1973-08-08]
  • Провел на форуме:
    1 месяц 1 день
  • Последний визит:
    2024-04-22 02:35:25
Попробуйте так

$regfile = "m128def.dat"
  $crystal = 14745600
  $framesize = 128
  $hwstack = 128
  $swstack = 128

  Dim A As Byte
  Dim Cin As String * 200

  Dim Буфер_lcd_str As String * 20

'LCD
  Config Lcd = 16 * 4       'configure lcd screen
  Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0

  Cursor Off

  Locate 1 , 1
  Lcd "Power ON!"
  Wait 1
  Cls

  A = 0

  Do

     Incr A

     Буфер_lcd_str = Str(a)
     Буфер_lcd_str = Format(буфер_lcd_str , "  0")       'Убираются незначащие нули
     'Буфер_lcd_str = Format(буфер_lcd_str , "000")       'Не убираются незначащие нули

     Locate 1 , 1
     Lcd Буфер_lcd_str

     Waitms 50

  Loop
End

0

5

  • Автор: Nord
  • Администратор
  • Nord
  • Откуда: Россия
  • Зарегистрирован: 2016-01-19
  • Приглашений: 0
  • Сообщений: 2513
  • Уважение: [+520/-12]
  • Позитив: [+561/-1]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 1 день
  • Последний визит:
    Сегодня 00:21:17

При использовании $Regfile="m48def.dat" Mega48 в DIP корпусе не видится напрочь !
Стоит использовать $Regfile="m48pdef.dat" - все прекрасно работает, шьется и т.п.

В Протеусе - обратная картина...
Один и тот же проект - работает зеркально (см. выше) !

На каком этапе глюк ? ;)

0

6

  • Автор: -NMi-
  • Заблокирован
  • Откуда: Саранск
  • Зарегистрирован: 2014-01-03
  • Приглашений: 0
  • Сообщений: 788
  • Уважение: [+23/-17]
  • Позитив: [+10/-0]
  • Пол: Мужской
  • Возраст: 47 [1976-07-18]
  • Провел на форуме:
    12 дней 7 часов
  • Последний визит:
    2019-05-10 01:04:35

Ни на каком. В протеусе или в кодевижн (и возможно в других) есть такая фича - возможность записать и потом считать любое значение с несуществующего регистра. В реалии на реальном проце если так сделать - картина будет неоднозначной, т.е. может быть считано и FF и 00 и вообще мусор какой. То-же самое есть и в LCD и в 1820 и в 3231. "Дырок" там хватает. Например, Сашины и Шилова либы для LCD у меня не выдерживали "суточный" тест, кракозяблили, а в протеусе они работают без глюков ))) Чо за нах???
Так шо этот вопрос - железо или софт  возможно будет вечный.

0

7

  • Автор: RDW
  • Активный участник
  • RDW
  • Откуда: Москва
  • Зарегистрирован: 2011-05-11
  • Приглашений: 0
  • Сообщений: 2632
  • Уважение: [+231/-37]
  • Позитив: [+164/-62]
  • Пол: Мужской
  • Возраст: 47 [1976-07-28]
  • Провел на форуме:
    20 дней 15 часов
  • Последний визит:
    2023-12-23 17:59:39

Nord, у тебя лицензия?

0

8

  • Автор: Nord
  • Администратор
  • Nord
  • Откуда: Россия
  • Зарегистрирован: 2016-01-19
  • Приглашений: 0
  • Сообщений: 2513
  • Уважение: [+520/-12]
  • Позитив: [+561/-1]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 1 день
  • Последний визит:
    Сегодня 00:21:17
RDW написал(а):

Nord, у тебя лицензия?

Нет.

0

9

  • Автор: RDW
  • Активный участник
  • RDW
  • Откуда: Москва
  • Зарегистрирован: 2011-05-11
  • Приглашений: 0
  • Сообщений: 2632
  • Уважение: [+231/-37]
  • Позитив: [+164/-62]
  • Пол: Мужской
  • Возраст: 47 [1976-07-28]
  • Провел на форуме:
    20 дней 15 часов
  • Последний визит:
    2023-12-23 17:59:39

Тогда смело можно плюсовать ещё это.

0

10

  • Автор: Nord
  • Администратор
  • Nord
  • Откуда: Россия
  • Зарегистрирован: 2016-01-19
  • Приглашений: 0
  • Сообщений: 2513
  • Уважение: [+520/-12]
  • Позитив: [+561/-1]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 1 день
  • Последний визит:
    Сегодня 00:21:17
RDW написал(а):

Тогда смело можно плюсовать ещё это.

Возможно, что "нелицензия" играет роль, не оспариваю, но, тем не менее, можно использовать и "m328def.dat" и "m328pdef.dat" - монопенисуально... ;)
Работает одинаково (для 328). ;)

0

11

  • Автор: RDW
  • Активный участник
  • RDW
  • Откуда: Москва
  • Зарегистрирован: 2011-05-11
  • Приглашений: 0
  • Сообщений: 2632
  • Уважение: [+231/-37]
  • Позитив: [+164/-62]
  • Пол: Мужской
  • Возраст: 47 [1976-07-28]
  • Провел на форуме:
    20 дней 15 часов
  • Последний визит:
    2023-12-23 17:59:39

а бывает мультипенисуально? :D

0

12

  • Автор: IDok
  • Активный участник
  • Откуда: Самара
  • Зарегистрирован: 2017-04-01
  • Приглашений: 0
  • Сообщений: 510
  • Уважение: [+39/-2]
  • Позитив: [+36/-0]
  • Пол: Мужской
  • Провел на форуме:
    14 дней 16 часов
  • Последний визит:
    Вчера 19:30:38
RDW написал(а):

а бывает мультипенисуально?

в солдатской бане, например....  :blush:

0

Страница: 1

Вы здесь » Программирование ATMEL в BASCOM. » О программе BASCOM AVR/8051 » Проблема с Bascom или МК?