Страница 206 из 304
Re: BASCOM AVR в вопросах и ответах
Добавлено: Пн май 05, 2014 21:22:43
Gordon Shumway
pavel1979 писал(а):камень не менял,мега32,вообще в программе ничего не менял
ошибка-out of sram space=выход за пределы памяти
если ставить мегу128 то все нормально компилируется...
Всё правильно, библиотека avr-dos прожорлива, начинает компилиться от меги 64 и выше. Под мегу32 нужно сделать изменения:
файл CONFIG_AVR-DOS.bas
Const Cfilehandles = 1 ' [default = 2]
Const Csepfathandle = 0 ' [default = 1
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вт май 06, 2014 16:41:31
pavel1979
понятно,спасибо!а я размечтался-думал откомпилировать под мегу16-выше ничего нет!
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вт май 06, 2014 18:49:41
Gordon Shumway
max50 писал(а):
Сам с ней еще не работал(пока лежит до лучших времен), по описанию вроде все одинаково.
Эксперимент с DS1338z33 прошел удачно, вместо 1307 один в один, ничего корректировать не пришлось, все работает. Только от трех вольт.
В активном режиме ест примерно 0,6 мА.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вт май 06, 2014 21:27:38
max50
Gordon Shumway писал(а):Эксперимент с DS1338z33 прошел удачно
Вот и хорошо.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Ср май 07, 2014 06:15:31
Gordon Shumway
max50 писал(а):Gordon Shumway писал(а):Эксперимент с DS1338z33 прошел удачно
Вот и хорошо.
Спасибо за совет !
Теперь всё-таки нужно думать, что с щелчками делать. Вчера девайс "родился" - сказал первый раз всю фразу целиком, строя ее по считанным даным - щелчки рвут фразу, портя впечатление. Буду думать.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Ср май 07, 2014 16:16:51
evgenkostin
Ребят, подскажите почему при выводе на символьный ЖК экран (FECC1602B-NSWBBW-51LR) программа ощутимо замирает?
Кручу, перебирая портами с задержкой, шаговый двигатель и хотелось бы выводить угол поворота на экранчик. Так в момент вывода мотор затупливает.
Экран подключен по 4-ёх битной схеме, RW на землю.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Ср май 07, 2014 18:53:58
ИС-пытатель
Так, возможно, у Вас (или в используемой Вами библиотеке) введены какие-то задержки для нормальной работы экрана?
Организуйте фоновую задержку (через флаги), чтобы у Вас во время нее выполнялись другие куски программы.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Чт май 08, 2014 14:40:47
evgenkostin
Вроде я никакими библиотеками и задержками не пользовался
часть кода касающаяся экрана выглядит так:
Код: Выделить всё
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portb.5 , Rs = Portb.4
Config Lcd = 16 * 2
Cursor Off Noblinkd
Cls : Locate 1 , 1 : Lcd ang ; "angle"
Re: BASCOM AVR в вопросах и ответах
Добавлено: Чт май 08, 2014 20:04:28
ИС-пытатель
Cursor Off Noblinkd - А это что и откуда? Наверняка, макрос какой-то? или встроенная библа.
Возможно еще, ожидаете вечным циклом отклика от дисплея.
P.S. Просто так, из воздуха и из ниоткуда ничего не берется.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Чт май 08, 2014 20:10:31
Gordon Shumway
ИС-пытатель писал(а):Cursor Off Noblinkd - А это что и откуда? Наверняка, макрос какой-то? или встроенная библа.
Это команды отключения курсора и его мигания. Только и всего. Я тоже замечал, что программа тормозится при выводе на дисплей.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Чт май 08, 2014 20:20:09
ИС-пытатель
Так эти команды наверняка реализуются по какому-то встроенному механизму, библиотеке?
Попробуйте взять описание на дисплей и сделать обращение к нему через порты. Т.е. сами проставляете команды и задержки.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 10:00:38
lionp
Добрейшее утречко! Пытаюсь постичь BASCOM. Есть программка, которая мне интересна, но там в работе задействован только один порт и собственно вопрос: как "прикрутить" остальные порты контроллера на выход? Сколько не бился, "барсик" ругается на какие то ошибки, а если всё норм, то в "шпроте" не симулируется. Прошу помощи всех разбирающихся! Камешек ATtiny13, исходник и схему прилагаю.
$regfile = "ATtiny13.dat"
$hwstack = 16
Config Pinb.4 = Output
Dim A As Byte
Dim H As Byte , H1 As Byte
Dim F1 As Byte , F2 As Byte
Dim P As Word
'**************************************
Dim ___rseed As Word : ___rseed = 2400
'***************************************
'Bei jedem Tiny einen anderen Startwert setzen!
Do
P = Rnd(5000) 'время паузы
F1 = Rnd(100) 'Flackerzeit
H1 = Rnd(180) 'значение яркости
H = H1 + 75
For F2 = 0 To F1
Portb.4 = 1
For A = 0 To 255
If H = A Then Portb.4 = 0
Waitus 15
Next A
Next F2
Portb.4 = 1
Waitms P
Loop
End
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 10:26:52
Gordon Shumway
lionp писал(а): как "прикрутить" остальные порты контроллера на выход? Сколько не бился, "барсик" ругается на какие то ошибки, а если всё норм, то в "шпроте" не симулируется.
Напишите
И ошибки в студию несите.
А вообще в Баскоме конфигурация отдельных пинов порта на выход:
Config PORTX.X = output,
а всего порта
Config PORTX = output.
Конфигурация на вход аналогично:
Config PinX.X = input,
а всего порта
Config PinX = input.
Тут вас, если я правильно понял, програмный шим. У меня в протеусе не получалось его симулировать, светодиод отфанарно моргает.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 10:56:32
lionp
Gordon Shumway писал(а):lionp писал(а): как "прикрутить" остальные порты контроллера на выход? Сколько не бился, "барсик" ругается на какие то ошибки, а если всё норм, то в "шпроте" не симулируется.
Напишите
А вообще в Баскоме конфигурация отдельных пинов порта на выход:
Config PORTX.X = output,
а всего порта
Config PORTX = output.
Конфигурация на вход аналогично:
Config PinX.X = input,
а всего порта
Config PinX = input.
Так я и писал Config PORTB = output, а затем во всей программке заменил PORTB.4 на PORTB. Ругается зараза!
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 11:00:28
Gordon Shumway
lionp писал(а):
Так я и писал Config PORTB = output, а затем во всей программке заменил PORTB.4 на PORTB. Ругается зараза!
Ошибки в студию, так как непонятно почему ругается.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 11:08:27
lionp
Gordon Shumway писал(а):lionp писал(а):
Так я и писал Config PORTB = output, а затем во всей программке заменил PORTB.4 на PORTB. Ругается зараза!
Ошибки в студию, так как непонятно почему ругается.
Вот моя програмулина:
$regfile = "ATtiny13.dat"
$hwstack = 16
Config Portb = Output
Dim A As Byte
Dim H As Byte , H1 As Byte
Dim F1 As Byte , F2 As Byte
Dim P As Word
'**************************************
Dim ___rseed As Word : ___rseed = 2400
'***************************************
'Bei jedem Tiny einen anderen Startwert setzen!
Do
P = Rnd(5000) 'Pausenzeit
F1 = Rnd(100) 'Flackerzeit
H1 = Rnd(180) 'Helligkeitswert
H = H1 + 75
For F2 = 0 To F1
Portb = 1
For A = 0 To 255
If H = A Then Portb = 0
Waitus 15
Next A
Next F2
Portb = 1
Waitms P
Loop
End
а вот ошибки:
Error : 22 Line : 5 Out of SRAM space , in File : C:\bascom 2.0.7.5\Candle.bas
Error : 22 Line : 6 Out of SRAM space , in File : C:\bascom 2.0.7.5\Candle.bas
Error : 22 Line : 6 Out of SRAM space , in File : C:\bascom 2.0.7.5\Candle.bas
А в Протеус пишет такое:Invalid opcode 0x940E at PC=0x0046
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 12:21:16
Sergik07
Ошибка 22 - это нехватка свободной памяти SRAM
Для тини13 обычно указывают полный набор ,например:
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 12:29:23
lionp
Sergik07 писал(а):Ошибка 22 - это нехватка свободной памяти SRAM
Для тини13 обычно указывают полный набор ,например:
С этим я уже разобрался. А вот почему не симулирует в Протеус, непонятно.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 12:32:21
Sergik07
С Протеусом я на "вы"
,потому и отлаживаю всё сразу в железе.
Re: BASCOM AVR в вопросах и ответах
Добавлено: Вс май 11, 2014 12:34:53
lionp
Sergik07 писал(а):С Протеусом я на "вы"
,потому и отлаживаю всё сразу в железе.
Самое противное, что оригинал программки работает, а моя компиляция-нет