BASCOM AVR в вопросах и ответах

[Gordon Shumway]

камень не менял,мега32,вообще в программе ничего не менял
ошибка-out of sram space=выход за пределы памяти
если ставить мегу128 то все нормально компилируется...

Всё правильно, библиотека avr-dos прожорлива, начинает компилиться от меги 64 и выше. Под мегу32 нужно сделать изменения:

файл CONFIG_AVR-DOS.bas
Const Cfilehandles = 1 ' [default = 2]
Const Csepfathandle = 0 ' [default = 1

[pavel1979]

понятно,спасибо!а я размечтался-думал откомпилировать под мегу16-выше ничего нет!

[Gordon Shumway]

Сам с ней еще не работал(пока лежит до лучших времен), по описанию вроде все одинаково.

Эксперимент с DS1338z33 прошел удачно, вместо 1307 один в один, ничего корректировать не пришлось, все работает. Только от трех вольт. В активном режиме ест примерно 0,6 мА.

[max50]

Эксперимент с DS1338z33 прошел удачно

Вот и хорошо.

[Gordon Shumway]

Эксперимент с DS1338z33 прошел удачно

Вот и хорошо.

Спасибо за совет !
Теперь всё-таки нужно думать, что с щелчками делать. Вчера девайс "родился" - сказал первый раз всю фразу целиком, строя ее по считанным даным - щелчки рвут фразу, портя впечатление. Буду думать.

[evgenkostin]

Ребят, подскажите почему при выводе на символьный ЖК экран (FECC1602B-NSWBBW-51LR) программа ощутимо замирает?

Кручу, перебирая портами с задержкой, шаговый двигатель и хотелось бы выводить угол поворота на экранчик. Так в момент вывода мотор затупливает.
Экран подключен по 4-ёх битной схеме, RW на землю.

[ИС-пытатель]

Так, возможно, у Вас (или в используемой Вами библиотеке) введены какие-то задержки для нормальной работы экрана? Организуйте фоновую задержку (через флаги), чтобы у Вас во время нее выполнялись другие куски программы.

[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"

[ИС-пытатель]

Cursor Off Noblinkd - А это что и откуда? Наверняка, макрос какой-то? или встроенная библа.
Возможно еще, ожидаете вечным циклом отклика от дисплея.
P.S. Просто так, из воздуха и из ниоткуда ничего не берется.

[Gordon Shumway]

Cursor Off Noblinkd - А это что и откуда? Наверняка, макрос какой-то? или встроенная библа.

Это команды отключения курсора и его мигания. Только и всего. Я тоже замечал, что программа тормозится при выводе на дисплей.

[ИС-пытатель]

Так эти команды наверняка реализуются по какому-то встроенному механизму, библиотеке? Попробуйте взять описание на дисплей и сделать обращение к нему через порты. Т.е. сами проставляете команды и задержки.

[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

[Gordon Shumway]

как "прикрутить" остальные порты контроллера на выход? Сколько не бился, "барсик" ругается на какие то ошибки, а если всё норм, то в "шпроте" не симулируется.

Код: Выделить всё

Config Pinb.4 = Output

Напишите

Код: Выделить всё

Config PORTB.4 = output

И ошибки в студию несите.

А вообще в Баскоме конфигурация отдельных пинов порта на выход:
Config PORTX.X = output,
а всего порта
Config PORTX = output.

Конфигурация на вход аналогично:
Config PinX.X = input,
а всего порта
Config PinX = input.

Тут вас, если я правильно понял, програмный шим. У меня в протеусе не получалось его симулировать, светодиод отфанарно моргает.

[lionp]

как "прикрутить" остальные порты контроллера на выход? Сколько не бился, "барсик" ругается на какие то ошибки, а если всё норм, то в "шпроте" не симулируется.

Код: Выделить всё

Config Pinb.4 = Output

Напишите

Код: Выделить всё

Config PORTB.4 = output

А вообще в Баскоме конфигурация отдельных пинов порта на выход:
Config PORTX.X = output,
а всего порта
Config PORTX = output.

Конфигурация на вход аналогично:
Config PinX.X = input,
а всего порта
Config PinX = input.

Так я и писал Config PORTB = output, а затем во всей программке заменил PORTB.4 на PORTB. Ругается зараза!

[Gordon Shumway]

Так я и писал Config PORTB = output, а затем во всей программке заменил PORTB.4 на PORTB. Ругается зараза!

Ошибки в студию, так как непонятно почему ругается.

[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

[Sergik07]

Ошибка 22 - это нехватка свободной памяти SRAM
Для тини13 обычно указывают полный набор ,например:

Код: Выделить всё

$hwstack=8
$swstack=8
$framesize=16

[lionp]

Ошибка 22 - это нехватка свободной памяти SRAM
Для тини13 обычно указывают полный набор ,например:

Код: Выделить всё

$hwstack=8
$swstack=8
$framesize=16

С этим я уже разобрался. А вот почему не симулирует в Протеус, непонятно.

[Sergik07]

С Протеусом я на "вы" ,потому и отлаживаю всё сразу в железе.

[lionp]

С Протеусом я на "вы" ,потому и отлаживаю всё сразу в железе.

Самое противное, что оригинал программки работает, а моя компиляция-нет