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

[vem566]

Залил Ваш хекс. Работает.
А какая версия баскома у Вас и какая операционка? Весь прикол, что у меня все всегда работало и вдруг начались такие чудеса.


ЗЫ. Стояла галка "swap words". Когда и кто поставил - без понятия. Убрал, все заработало.

[edm2007]

Версия 2.0.5.0 (что стояло, давно уже на баскоме не пишу). ОС - 7. Может в настройках стоит что-то типа оптимизации, например?

[vem566]

У меня все работало в 2.0.7. Никто ничего не менял. Все произошло "вдруг". Скомпилил у себя еще раз. Размеры хексов совпадают, а внутри разные. Еще раз переставлю баском. Посмотрим, что получится. Бред какой-то.

[aleksandr-zh]

у меня проблема при работе с 1wire : DS18b20 и ключем точмемори DS1990a

при замыкании линии 1wire всё виснет

причем, в начале-то я проверяю наличие единицы перед опросом, но КЗ может быть и в процессе работы с устройством.
Нет ли какой-то возможностиввести таймаут на время обмена МК с шиной?...


ps
Баском обновился нормально

[radio-kot]

найдите в каком месте программы происходит зависание - будет понятно как лечить.

[aleksandr-zh]

схема частотомера: http://ugolok-mastera.ru/proekt/freq_50_Hz.htm

$regfile = "2313def.dat" ' Частотомер 50.00 Герц
$crystal = 4000000 ' компилятор BASCOM

In_hertz Alias Pind.6

Led7_segm1 Alias Portd.4 ' Автор:
Led7_segm2 Alias Portd.3 ' 2011-11 Для Эл.сетей города
Led7_segm3 Alias Portd.1
Led7_segm4 Alias Portd.0

Led_port Alias Portb

Declare Sub Byte2led(data_2byte As Word)

Dim Tempb As Byte , Data_2byte As Word , Tempw As Word
Dim Data_1 As Byte , Data_2 As Byte , Data_3 As Byte , Data_4 As Byte
Dim Tyscha As Byte , Sotka As Byte , Desaytka As Byte , Edinica As Byte , Timercounter As Single

Config Portb = Output : Portb = 255
Config Pind.6 = Input

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

Config Timer1 = Timer , Prescale = 8 , Capture Edge = Rising
On Capture1 Captmr
Enable Capture1

Enable Interrupts ' разрешаем прерывания и включаем таймер

'Config Watchdog = 1024 : Start Watchdog ' защита от зависания

Lcd "Start..."

' ===== С Т А Р Т =======
Start_main_prog:

Cls
Timercounter = 25000000 \ Timercounter
Tempw = Timercounter
Lcd Tempw

Goto Start_main_prog

' =====================
Captmr: ' Считаем импульсы, как-бы наполняем пачками между импульсами
Timercounter = Capture1
Timer1 = 0
Return

[aleksandr-zh]

зависает на командах работы с шиной 1wire
проверено на 1wreset и 1wverify

Михаил avr123 - когда это вы стали спецом по программированию?
то вопросы детские задаёте, то теперь гуру и всем очередной свой клон-сайт даёте

[radio-kot]

зависает на командах работы с шиной 1wire
проверено на 1wreset и 1wverify

Значит надо изменить эти функции или написать, найти те которые не виснут.

Лучше конечно код-проект приложить.

[aleksandr-zh]

программа:
1wreset
1wverify mm(1)

помогло?

это я и сам понимаю,
я ждал ответа спецов в bascom, а пришел продавец и саморекламщик

[radio-kot]

это я и сам понимаю,

а че ж не делаете?

[aleksandr-zh]

уже сделал: запускаю таймер, прерывание от него
перед работой с шиной делаю сброс и запуск таймера,
по выходу из работы с шиной - отключаю таймер

если не было обмена дольше Х времени - ошибка - сообщение пользователю

просто думал, что есть в самих командах некий таймаут, как в некоторых протоколах реализовали в Баском

[radio-kot]

жалко таймер. хорошо бы функции сами поправить чтоб не висли.

[vanyap1]

Здравствуйте. Сидел вот тут и придумал короткий код для динамической индикации.
Проверил работу с 9- и 4-розрядным индикатором
Для вывода на экран достаточно поставить необходимый текст в строковую переменную "disp".
Судите и ищите недостатки.

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

Ddra = &B11111111
Ddrc = &B00001111
D1 Alias Portc.2 : D2 Alias Portc.1 : D3 Alias Portc.0 : D4 Alias Portc.3

Dim N(4) As Byte , Index As Byte
Dim Disp As String * 4 , Blic As Bit , W(9) As String * 1
Const Tim = 2000

For Index = 1 To 4
W(index) = Mid(disp , Index , 1)
N(index) = Val(w(index))
If W(index) = " " Then : N(index) = 10 : End If
Next Index
Set D1 : Porta = Lookup(n(1) , P) : Waitus Tim : Reset D1
Set D2 : Porta = Lookup(n(2) , P) : Waitus Tim : Reset D2
Set D3 : Porta = Lookup(n(3) , P) : Waitus Tim : Reset D3
Set D4 : Porta = Lookup(n(4) , P) : Waitus Tim : Reset D4
Loop

P:
Data &B11101011 , &B00100001 , &B11010011 , &B01110011 , &B00111001 , &B01111010 , &B11111010 , &B00100011
Data &B11111011 , &B01111011 , &B00000000

[aleksandr-zh]

красиво
работает
что еще надо?

[AlekseyV]

Доброго времени!
Может кто-то уже реализовывал веб-сервер на AVR с помощью bascom-avr, подкиньте пожалуйста хорошую и простую в изучении статью или же может у вас есть свои старенькие наработки - было бы вообще неплохо. Пробую переварить статьи Ben's HobbyCorner, но для меня они тяжело даются (стою на месте, без прогресса).
PS: реализовать нужно веб-сервер на Atmega128 с веб-интерфейсом для управление 2-мя реле, мониторингом температуры/напряжения и др. информации.
Спасибо за внимание!

[Bear2011]

Посмотрите журналы Радиолюбитель примерно за 2004-07 год. В цикле статей по AVR точно помню была метеостанция с Web-сервером. В Сундуке они есть

[vanyap1]

Почитайте тут - http://avrproject.ru/forum/4-111-6#3289
Есть все необходимое.
Для меня стоит другой вопрос, как получить содержимое веб страницы с интернета.

[AlekseyV]

vanyap1, Да, спасибо, недавно читал. Как раз вам там и отписал.

[vanyap1]

Ага, вижу.
Меня честно говоря интересует немножко другое. Проброс портов, регистрацию роутера на ДДНС и доступ из вне сети мне сделать удалось.
А интересует следующее - Каким образом отправить запрос на указанную ссылку и получить содержимое сайта в память МК.

Требуется получить прогноз погоды с rp5.ru
Не этом сайте есть возможность получить модуль для сайта, который загружается в фрейме и состоит с пары строк.

[forter]

vanyap1!
Вы пишете, что проброс портов, регистрацию роутера на ДДНС и доступ из вне сети сделать удалось.
Чуть подробнее - Ваше устройство из сети Интернет видно? На какой базе делали, не на ENC, случаем?
А то я столько времени убил, но извне так не получилось увидеть!
Было бы очень любопытно увидеть Ваш код.