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

[pavel1979]

можно по разному записать
pind = &b00100011
pind = 35
pind = &h23
все это одно и тоже,только соответственно в бин,десятичном и шестнацатиричном представлении

[avis_rara]

А никто не знает где можно раздобыть полную версию, чтоб болье 4кБ можно было скомпилировать?))

[max50]

На оф. сайте.

[pavel1979]

а есть ли у кого кряк на 2.0.5.0,очень надо
просто у меня 2 версии,одна 1.11.9.0 вылеченная,но она не поддерживает прямое программирование через USB-ASP,вторая 2.0.5.0,поддерживает USB-ASP,но она у меня демо и более 4 кб не компилирует

[vem566]

Есть. 800к весит. Куда отправить?

[pavel1979]

может здесь заархивировать и оставить?
bulat943@mail.ru

[vem566]

Отправлю сейчас.

[pavel1979]

Отправлю сейчас.

Спасибо!получил!опробую

[FreshMan]

можно ли в данной среде работать с прграмматором STK500 ?

[mikbur]

можно ли в данной среде работать с прграмматором STK500 ?

вполне

[FreshMan]

я тут мальца подчитываю ликбез......, подскажите пожалуйста что значит вот эта команда

[max50]

Генерацию звука. В хелпе все расписано с примерами.

[KOTик]

Доброго мяуу
Пришел Вас помучить.

Имеется кнопка и светодиод.
Каждое нажатие на кнопку продлевает свечение светодиода на 10сек.
Кол-во нажатие: 3.
Т.е. 1 тик - 10сек, 2 - 20, 3 - 30, если Click > 3 then Click = 1
Выбранная выдержка сохраняется в еепром.

Проблема в следующем, не могу применить переменную Wtime для Wait
Wait Wtime = Wtime *100
...
...
Писам по-разному, повcякому, но ничего не происходит.
Замучился

Вот кусок кода:

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

Dim Button As Bit
Button = 1

Dim V As Eram Byte                                          'переменная в EEPROM
Dim Click As Byte                                           'переменная в SETUP
Dim Store As Byte                                           'переменная в SETUP
Dim Wtime As Byte                                           'переменная задержки
Wtime = 100

'================= настройка портов  ==
Config Portb.0 = Output                                     'LED
Config Pinb.1 = Input                                       'Btn_on
Config Pinb.4 = Input                                       'Setup_btn
Pinb.4 = 1

Btn_on Alias Pinb.1                                            'кнопка для LED
Setup_btn Alias Pinb.4                                            'кнопка установки задержки



Do
...
Debounce Btn_on, 0, Lighton, sub
...

If Click = 4 Then Click = 1                                 'если нажали кнопку 4ый раз, выбираем Click = 1
If Click = 1 Then Wtime = Wtime * 100                              'задержка 10сек.
If Click = 2 Then Wtime = Wtime * 200                              'задержка 20сек.
If Click = 3 Then Wtime = Wtime * 300                              'задержка 30сек.
If Button = 1 Then
If Setup_btn = 0 Then
Button = 0
Store = Click + 1                                           'каждое нажатие на кнопку прибавляет по 10сек.
Waitms 50
V = Store                                                   'записали в ЕЕПРОМ
End If
End If
If Setup_btn = 1 Then Button = 1

Loop

Lighton:
Waitms 50
Portb.0 = 1
Waitms 50
Click = Store
Store = V
Wait Store                 'а вот тут не могу прочесть уровень задержки из ЕЕПРОМ видимо из-за некорректной записи
Waitms 50
Return

Обе кнопки сидят на "минусе" (прижаты к земле и имеется подтяжка).
Если вместо Wait Store написать Wait 10 , то при нажатии на Btn_onoff, LED загорается на 10 сек. - то что нужно!
А вот с еепром ни в какую. Светит 1-2 секунды и гаснет.
Подскажите, где что не так
___
P.S. Может Wait не работает с переменными?

[FreshMan]

как можна сделать нумерацию строк ?

[KOTик]

как можна сделать нумерацию строк ?

Настройки --> Приложение --> Оболочка --> Редактор --> Нумеровать (поставить галочку)

[vem566]

объявлена переменная и присвоено значение

Dim Wtime As Byte                                         
Wtime = 100

Все складно, но затем:

If Click = 1 Then Wtime = Wtime * 100 

100*100=10000. В тоже время переменная типа байт, что подразумевает диапазон значений от 0 до 255.
Если значение не превысит 30000, то нужно использовать тип переменной integer.

[KOTик]

объявлена переменная и присвоено значение

Dim Wtime As Byte                                         
Wtime = 100

Все складно, но затем:

If Click = 1 Then Wtime = Wtime * 100 

100*100=10000. В тоже время переменная типа байт, что подразумевает диапазон значений от 0 до 255.
Если значение не превысит 30000, то нужно использовать тип переменной integer.

Да, Вы правы. Поменял на Integer, но результат такой же
ЛЕД горит пару секунд и выключается.

[vem566]

Что то вот эта строка не правильная.

Store = Click + 1                                           'каждое нажатие на кнопку прибавляет по 10сек.

Если потом будет

Wait Store               

и при этом увеличение задержки должно быть 10 сек, то правильно будет
"Store = Click * 10"

[KOTик]

Что то вот эта строка не правильная.

Store = Click + 1                                           'каждое нажатие на кнопку прибавляет по 10сек.

Если потом будет

Wait Store               

и при этом увеличение задержки должно быть 10 сек, то правильно будет
"Store = Click * 10"

Store = Click + 1 - здесь все верно. В др. моем проекте это работает.
Каждое нажатие на кнопку прибавляет 1 шаг. Далее это записывается переменную Store, а затем в переменную ячейки памяти V
А вот применить переменную задержки к Wait не могу

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

...
PORTB.0 = 1 'включили LED
Wait Store 'здесь задержка из Store, а она в свою очередь
Store = V  'обращается к ЕЕПРОМ
...

[vem566]

Как то не получается. Если Click в диапазоне от 1 до 3, то Store будет от 2 до 4. Что никак ни 10, ни 40. Перемещение в другие переменные значения не изменит. И в приведенном куске не будет никаких десятков секунд.
И в другом проекте все так же. Или пропущен кусок кода.