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

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

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

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

waitus и переменная

Страница: 1

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

1

  • Автор: kms
  • Участник
  • Зарегистрирован: 2010-11-23
  • Приглашений: 0
  • Сообщений: 16
  • Уважение: [+1/-0]
  • Позитив: [+2/-0]
  • Провел на форуме:
    14 часов 39 минут
  • Последний визит:
    2012-11-18 21:32:45

Здравствуйте.
Есть такая программа:

Код:
$regfile = "m8def.dat"
$crystal = 8000000

Config Portd.6 = Output
Dim Wtime As Integer

Wtime = 100

Do
 Set Portd.6
  Waitus Wtime
 Reset Portd.6
  Waitus Wtime
Loop

Не правильно работает, какое бы я значение не назначал Wtime, на выходе PORTD.6 всегда частота 827кГц
Если в цикле пишу Waitus=100 то все ок, работает нормально.

0

2

  • Автор: Александр Д.
  • Модератор
  • Зарегистрирован: 2009-04-14
  • Приглашений: 0
  • Сообщений: 2503
  • Уважение: [+304/-12]
  • Позитив: [+450/-66]
  • Пол: Мужской
  • Возраст: 47 [1978-11-18]
  • Провел на форуме:
    1 месяц 20 дней
  • Последний визит:
    Сегодня 16:38:59

попробуйте эту переменную сделать как Word или Byte
Dim Wtime As Word
Dim Wtime As Byte

+1

3

  • Автор: kms
  • Участник
  • Зарегистрирован: 2010-11-23
  • Приглашений: 0
  • Сообщений: 16
  • Уважение: [+1/-0]
  • Позитив: [+2/-0]
  • Провел на форуме:
    14 часов 39 минут
  • Последний визит:
    2012-11-18 21:32:45

Как Word пробовал, не работает. А Byte не пойдет, нужно значение больше 255. Хотя для интереса попробую.

Нет, как Byte тоже не работает. Waitms работает без проблем.

Отредактировано kms (2010-11-27 13:14:34)

0

4

  • Автор: kms
  • Участник
  • Зарегистрирован: 2010-11-23
  • Приглашений: 0
  • Сообщений: 16
  • Уважение: [+1/-0]
  • Позитив: [+2/-0]
  • Провел на форуме:
    14 часов 39 минут
  • Последний визит:
    2012-11-18 21:32:45

Нашел в справке

The WAITUS is used internal by some statements. It was added to the BASCOM statements but it does NOT accept a variable. Only a constant is accepted.

:(

+1

5

  • Автор: Александр Д.
  • Модератор
  • Зарегистрирован: 2009-04-14
  • Приглашений: 0
  • Сообщений: 2503
  • Уважение: [+304/-12]
  • Позитив: [+450/-66]
  • Пол: Мужской
  • Возраст: 47 [1978-11-18]
  • Провел на форуме:
    1 месяц 20 дней
  • Последний визит:
    Сегодня 16:38:59

значит тезис "Вначале читаем инструкцию" - вечен :)

могу дать кусок кода, на ассме, из FastAVR - проверен
но пределы микросекунд должны быть кратны 10
Т.е, 10, 20, 30 ... 90, 100, 110...

и задаются без нуля, т.е., для 10 будет 1, для 50 - 5, для 100 - 10 и тд

Код:
    $asm                                                   ' Вызов паузы us    = waitus 10
       ldi  zl, 1
       rcall _waitus
    $end Asm

а в конце программы (или другом месте) вставить код:

Код:
$asm ; Waitus * 10
_waitus:
  ldi  r22,25
_wus1:
     dec  r22
     brne _wus1
     dec  zl
     brne _waitus
  ret
$end Asm

это для 8 мгц

Отредактировано Александр Д. (2010-11-27 15:44:08)

0

6

  • Автор: kms
  • Участник
  • Зарегистрирован: 2010-11-23
  • Приглашений: 0
  • Сообщений: 16
  • Уважение: [+1/-0]
  • Позитив: [+2/-0]
  • Провел на форуме:
    14 часов 39 минут
  • Последний визит:
    2012-11-18 21:32:45

значит тезис "Вначале читаем инструкцию" - вечен
Ну это да :)
Спасибо за пример, сохраню в памятках.

0

7

  • Автор: kms
  • Участник
  • Зарегистрирован: 2010-11-23
  • Приглашений: 0
  • Сообщений: 16
  • Уважение: [+1/-0]
  • Позитив: [+2/-0]
  • Провел на форуме:
    14 часов 39 минут
  • Последний визит:
    2012-11-18 21:32:45

Стесняюсь спрашивать :) Но как теперь менять задержку? Имею ввиду программно.

0

8

  • Автор: Александр Д.
  • Модератор
  • Зарегистрирован: 2009-04-14
  • Приглашений: 0
  • Сообщений: 2503
  • Уважение: [+304/-12]
  • Позитив: [+450/-66]
  • Пол: Мужской
  • Возраст: 47 [1978-11-18]
  • Провел на форуме:
    1 месяц 20 дней
  • Последний визит:
    Сегодня 16:38:59

если я не ошибаюсь, то вместо цифры указать переменную с таких скобках {Переменная}
я еще это не перевёл, не знаю :)
сейчас...

да, так и есть!
Для загрузки адреса переменной вы должны использовать её имя в скобках - {}

0

9

  • Автор: Александр Д.
  • Модератор
  • Зарегистрирован: 2009-04-14
  • Приглашений: 0
  • Сообщений: 2503
  • Уважение: [+304/-12]
  • Позитив: [+450/-66]
  • Пол: Мужской
  • Возраст: 47 [1978-11-18]
  • Провел на форуме:
    1 месяц 20 дней
  • Последний визит:
    Сегодня 16:38:59

может пригодится?

Код:
$regfile = "m48DEF.dat"                                     ' >>> BASCOM <<<
$crystal = 8000000


Config Portd = Output

 Config Timer0 = Timer , Prescale = 1 , Compare A = Toggle , Clear Timer = 1
 Ocr0a = 190                                                ' Настройки для частоты 22 кгц
 Start Timer0

waitms 500

 Stop Timer0
 Config Timer0 = Timer , Prescale = 1 , Compare A = Disconnect , Clear Timer = 1

0

10

  • Автор: kms
  • Участник
  • Зарегистрирован: 2010-11-23
  • Приглашений: 0
  • Сообщений: 16
  • Уважение: [+1/-0]
  • Позитив: [+2/-0]
  • Провел на форуме:
    14 часов 39 минут
  • Последний визит:
    2012-11-18 21:32:45

Спасибо всем :)
Конкретно пока ничего не делаю, просто только начал изучать, ну и пробую всякие простенькие вещи. Светодиодами помигал, с дисплеем тоже поигрался, вот теперь хочу собрать генератор :)

0

11

  • Автор: Pasha
  • Активный участник
  • Pasha
  • Откуда: Украина, Запорожье
  • Зарегистрирован: 2008-11-12
  • Приглашений: 0
  • Сообщений: 285
  • Уважение: [+16/-4]
  • Позитив: [+11/-1]
  • Пол: Мужской
  • Возраст: 39 [1987-04-17]
  • Провел на форуме:
    7 дней 6 часов
  • Последний визит:
    2021-02-09 15:28:33

Я как то в цикл ставил
For I =1 to y
Waitus 1
Next

Y меняет время задержки

0

12

  • Автор: Пётр
  • Модератор
  • Зарегистрирован: 2009-01-18
  • Приглашений: 0
  • Сообщений: 2169
  • Уважение: [+447/-14]
  • Позитив: [+28/-6]
  • Пол: Мужской
  • Провел на форуме:
    3 месяца 19 дней
  • Последний визит:
    Вчера 19:21:04
Pasha написал(а):

Я как то в цикл ставил

Погрешность будет большая!

0

Страница: 1