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

edm2007

А у меня чегой-та не желает. Кнопки виснут и все. На другом домашнем кантупере попробую, просто с нубука сейчас. Хотя небыло еще подобных проблем...

Реклама

Gordon Shumway

edm2007 писал(а):А у меня чегой-та не желает. Кнопки виснут и все. На другом домашнем кантупере попробую, просто с нубука сейчас. Хотя небыло еще подобных проблем...

Оба варианта вылетают с ошибкой ? У меня вариант с DIP ругался как раз на ошибку про счетчик команд с памятью, но не вылетал, а вариант с TQFP иногда ругался про Timestep чего-то там. Я добавил waitms в самый первый цикл:

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

For Z = 1 To 65500
If Pind.5 = 0 Then Goto Tiktak
Waitms 100
Next Z

и немного увеличил waitms там, где кнопки опрашиваются, и ошибки пропали, кроме одной - про загрузку процессора. На железе вчера попробовал - работает.

Реклама

vanyap1

Привет всем! Хочу освоить еще и графические ЖКИ, вроде этого - http://kosmodrom.ua/pic/big/WG12864A.jpg
С МК пока что научился работать только в баскоме, дайте пожалуйста наводку (не на ВОДКУ

) на источник информации по этому.

В гугле был, там инфа в основном по дисплеям от телефонов.

Moto_v3x

vanyap1
Баском умеет работать с подобными жки почитайте в хелпе по Config GRAPHLCD

Реклама

amv2000

vanyap1 писал(а): дайте пожалуйста наводку (не на ВОДКУ ) на источник информации по этому.

Пример работы уже вылаживали http://radiokot.ru/forum/viewtopic.php? ... start=1960

Реклама

vanyap1

Спасибо

Реклама

TRIOD

Доброе время суток.

Вобщем делаю девайс в котором надо вводить цифровые данные с клавиатуры, но тут до меня дошло что я раньше некогда не делал ввода числа с клавиатуры.
Вобщем нужно организовать ввод с клавиатуры числа с плавающей точкой как на калькуляторе, но без матиматический функций и с возможность ограничения количества знаков после запетой.
Клавиатура стандартная 12 кнопочная.

vanyap1

Извините что врываюсь, но....
Что то не получилось вкурить даташит. Подскажите пожалуйста какой адрес вбить для обращения к этой микросхеме - http://www.arrownac.com/services-tools/ ... cf2129.pdf

TRIOD

Если I2C то вроде посмотри пункт 18.18.2.5

amv2000

TRIOD писал(а): Вобщем нужно организовать ввод с клавиатуры числа с плавающей точкой как на калькуляторе, но без матиматический функций и с возможность ограничения количества знаков после запетой.
Клавиатура стандартная 12 кнопочная.

http://forum.avr.ru/bascom-avr-kak-beat ... 796p3.html Здесь посмотрите на базе блока питания исходник от RAF65

vanyap1

Сделал часы по аналогии с ds1307, но они не идут.
Вот кусок кода -

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

Pcf2129:
I2cstart
I2cwbyte Pcf21w
I2cwbyte &H03             'С этого места начать
I2cstart
I2cwbyte Pcf21r           'Готов к приему
I2crbyte Seco , Ack
I2crbyte Mine , Ack
I2crbyte Hour , Ack
I2crbyte Day , Ack
I2crbyte Dat , Ack
I2crbyte Month , Ack
I2crbyte Year , Nack
I2cstop
Seco = Makedec(seco) : Mine = Makedec(mine) : Hour = Makedec(hour) : Day = Makedec(day)
Dat = Makedec(dat) : Month = Makedec(month) : Year = Makedec(year)
Return

Запись так -

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

Set_h:
Cls                                                     
Do
If B1 = 1 Then
Hour = Makebcd(hour)
I2cstart
I2cwbyte Pcf21w
I2cwbyte 5                                                  
I2cwbyte Hour
I2cstop
Waitms 150
Goto Set_m
End If
If Plus = 1 Then
Waitms 150
Hour = Hour + 1
End If
If Hour = 24 Then
Hour = 0
End If
If Hour = 255 Then
Hour = 23
End If
If Minus = 1 Then
Waitms 150
Hour = Hour - 1
End If
Locate 1 , 1
Lcd "setting hours"
Locate 2 , 1
Lcd ">" ; Hour ; "/" ; Mine ; "   "
Loop

Отправлял в первый регистр это -

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

I2cstart
I2cwbyte Pcf21w
I2cwbyte 0
I2cwbyte &B00100100
I2cstop

И все без толку!

vanyap1

Уже работает. Там немного не так размещено все в памяти.

vanyap1

Привел немного код в порядок -

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

Pcf21read:
I2cstart
I2cwbyte Pcf21w
I2cwbyte &H02
I2cstart
I2cwbyte Pcf21r
I2crbyte Seco , Ack
I2crbyte Mine , Ack
I2crbyte Hour , Ack
I2crbyte Dat , Ack
I2crbyte Day , Ack
I2crbyte Month , Ack
I2crbyte Year , Nack
I2cstop
Seco = Makedec(seco) : Mine = Makedec(mine) : Hour = Makedec(hour) : Day = Makedec(day)
Dat = Makedec(dat) : Month = Makedec(month) : Year = Makedec(year)
Return

'Запись времени
pcf21write:
Seco = 0
Seco = Makebcd(seco) : Mine = Makebcd(mine) : Hour = Makebcd(hour) : Day = Makebcd(day)
Dat = Makebcd(dat) : Month = Makebcd(month) : Year = Makebcd(year)
I2cstart
I2cwbyte Pcf21w
I2cwbyte &H03
I2cwbyte Seco
I2cwbyte Mine
I2cwbyte Hour
I2cwbyte Dat
I2cwbyte Day
I2cwbyte Month
I2cwbyte Year
I2cstop
Waitms 150
Goto 1

max50

Всем привет.
Напишу здесь.
Интересует: есть ли микросхемы с НЗ и НР контактами(как у реле)?
Заранее спасибо.

vanyap1

Есть реле маленькие в ДИП корпусах с такими контактами.

max50

Про реле знаю, но их цена кусается.

Мне надо десать таких.

Av4arik

max50 писал(а): но их цена кусается. Мне надо десать таких.

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

vanyap1

Такие еще в сигнализациях охранных есть, можно обратится к тем кто с ними работает, может отдадут за пивко.

max50

Спасибо. Буду искать.

vanyap1

А почему должно быть именно реле? Что за устройство?