Форум РадиоКот

Здравствуйте. Хотел спросить, на семи сегментный индикатор вывожу температуру с датчика на ds18b20. Но периодически на индикаторе появляются нули...........
$regfile = "m8def.dat"
$crystal = 8000000
'*****************************************[Идикатор с общим анодом ...

Здравствуйте. Хотел спросить, на семи сегментный индикатор вывожу температуру с датчика на ds18b20. Но периодически на индикаторе появляются нули...........
$regfile = "m8def.dat"
$crystal = 8000000
'*****************************************[Идикатор с общим анодом ...

Транзисторы кт3107, поставил
$regfile = "m8def.dat"
$crystal = 8000000

'*****************************************[Определение переменных и констант]************************************

Dim Count As Byte ' переменная для индикации
Dim Number(3) As Byte ' значения трех разрядов ...

Здравствуйте.

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

P.S. Для создания кодов цифр можете воспользоваться удобной программой LED Code ...

Я хочу извинится, за свою навязчивость.... Помогите пожалуйста с примером, есть три семисегментных индкатора с общим анодом, с этого сайта хотел взять пример для изучения, но там индикаторы с общим катодом http://edm2007.narod.ru/startavr6.html.......

Всем большое спасибо за помощь. Теперь немного понятно, стало... буду дальше пробовать разбираться...

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

Adagumer писал(а):Что-то не совсем понятно, Вы пин 0 порта С приравняли двухбайтному числу?

........

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Dim I As Integer
Dim H As Integer

Config Portc.0 = Input
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output

Portb = 0

Do
Portc.0 = I
Incr I
For I = 0 To 2
H = 2 ^ I

Portd = H
Next I ...

Да если начистоту, то все не так делаете.
PortB назначили на выход. Тут светодиоды сидят или кнопки?
во-вторых Config Pinb.0 = Input это неверная запись. Порту назначается вход или выход. А пин можно либо опросить, либо установить и сбросить.
В третьих оператор Toggle может только изменить ...

$regfile = "m8def.dat"
$Crystal=4000000
$hwstack=40
$swstack=50
$framesize = 50
Dim A As Byte

Config Portb = Output

Config Pinb.0 = Input
Do
Debounce Pinb.0 , 0 , En , Sub
Loop
A = 5
Incr A
A = Portb
En:

Toggle A
Return


End
Не получается с одной кнопки переключать поочередно каждый ...

Да понять-то понял, просто ослоумничаю.

то на 7 ноге будет логический ноль, то есть включится

Мда? А судя по распиновке, ноги 5 - 12 никуда не подключены, и должны быть посажены на землю.

http://www.gaw.ru/im/Dallas/rtc/3231_p.gif
Перепутал я 3 нога на int, а не 7 Похоже ...

Вы меня неправильно поняли, я имел ввиду микросхеме есть два alaram (таймера), я думаю так если первый таймер запустить то при совпадение значение регистров часов и значение регистров alaram (таймера 1) то на 7 ноге будет логический ноль, то есть включится. А что бы отключить alaram (таймера 1) надо ...

Здравствуйте уважаемы коты..... Вопрос такой: - Непонятно как отключать будильник в ds3231 по заданному времени с кнопок? А с включением будильника разобрался.......