Страница 119 из 304

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

Добавлено: Вт фев 14, 2012 22:20:56
edm2007
А у меня чегой-та не желает. Кнопки виснут и все. На другом домашнем кантупере попробую, просто с нубука сейчас. Хотя небыло еще подобных проблем...

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

Добавлено: Ср фев 15, 2012 06:28:27
Gordon Shumway
edm2007 писал(а):А у меня чегой-та не желает. Кнопки виснут и все. На другом домашнем кантупере попробую, просто с нубука сейчас. Хотя небыло еще подобных проблем...
Оба варианта вылетают с ошибкой ? У меня вариант с DIP ругался как раз на ошибку про счетчик команд с памятью, но не вылетал, а вариант с TQFP иногда ругался про Timestep чего-то там. Я добавил waitms в самый первый цикл:

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

For Z = 1 To 65500
If Pind.5 = 0 Then Goto Tiktak
Waitms 100
Next Z
и немного увеличил waitms там, где кнопки опрашиваются, и ошибки пропали, кроме одной - про загрузку процессора. На железе вчера попробовал - работает.

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

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

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

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

Добавлено: Ср фев 15, 2012 20:13:59
Moto_v3x
vanyap1
Баском умеет работать с подобными жки почитайте в хелпе по Config GRAPHLCD

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

Добавлено: Ср фев 15, 2012 20:24:12
amv2000
vanyap1 писал(а): дайте пожалуйста наводку (не на ВОДКУ 8) ) на источник информации по этому.
Пример работы уже вылаживали http://radiokot.ru/forum/viewtopic.php? ... start=1960

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

Добавлено: Ср фев 15, 2012 21:58:33
vanyap1
Спасибо :)

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

Добавлено: Сб фев 18, 2012 09:49:50
TRIOD
Доброе время суток.

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

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

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

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

Добавлено: Сб фев 18, 2012 19:26:37
TRIOD
Если I2C то вроде посмотри пункт 18.18.2.5

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

Добавлено: Сб фев 18, 2012 20:36:54
amv2000
TRIOD писал(а): Вобщем нужно организовать ввод с клавиатуры числа с плавающей точкой как на калькуляторе, но без матиматический функций и с возможность ограничения количества знаков после запетой.
Клавиатура стандартная 12 кнопочная.
http://forum.avr.ru/bascom-avr-kak-beat ... 796p3.html Здесь посмотрите на базе блока питания исходник от RAF65

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

Добавлено: Сб фев 18, 2012 21:58:41
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
И все без толку!

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

Добавлено: Сб фев 18, 2012 22:37:22
vanyap1
Уже работает. Там немного не так размещено все в памяти. :))

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

Добавлено: Вс фев 19, 2012 11:46:21
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

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

Добавлено: Вс фев 19, 2012 17:46:34
max50
Всем привет.
Напишу здесь.
Интересует: есть ли микросхемы с НЗ и НР контактами(как у реле)?
Заранее спасибо.

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

Добавлено: Вс фев 19, 2012 17:57:36
vanyap1
Есть реле маленькие в ДИП корпусах с такими контактами.

Изображение

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

Добавлено: Вс фев 19, 2012 18:03:29
max50
Про реле знаю, но их цена кусается. :( Мне надо десать таких.

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

Добавлено: Вс фев 19, 2012 18:06:40
Av4arik
max50 писал(а): но их цена кусается. Мне надо десать таких.
на днях распаивал диал-ап модемы. там есть или такие, или побольше, но тоже неплохие.
цена б/у диал-ап модемов копейки. а нерабочие и вовсе за пиво отдаются.

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

Добавлено: Вс фев 19, 2012 18:14:59
vanyap1
Такие еще в сигнализациях охранных есть, можно обратится к тем кто с ними работает, может отдадут за пивко.

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

Добавлено: Вс фев 19, 2012 18:19:58
max50
Спасибо. Буду искать.

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

Добавлено: Вс фев 19, 2012 19:58:21
vanyap1
А почему должно быть именно реле? Что за устройство?