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

Igor_67 писал(а):Ну блин, неужели надо обязательно носом ткнуть? Я ж писал, смотри выше... То усть вот сюда: http://radiokot.ru/forum/viewtopic.php?p=329408#329408

попробовал... показывает мне +45 в комнате

и своих показаний не меняет... странно это, и палец прикладывал, и кофе подносил

а показания на lcd прежние

вобщем ds18 не хочет никак работать.... какой код еще попробовать?

и еще а может дело в том, что у меня ds18b20+
может дело в этом"+" ??? кто знает??

У меня тоже DS18B20, правда без "+". А вообще посмотри на http://bascomavr.3bb.ru/ Там этот вопрос подробно рассматривался.

показывает!!! ура!!!!

есть переменная temperatura
в ней вместо значения 46.4 хранится число 464
вопрос
какой код для перевода её в число 46.4 с последующим выводом на lcd

(это в програмке термометра)

kkozyrev писал(а):есть переменная temperatura
в ней вместо значения 46.4 хранится число 464
вопрос
какой код для перевода её в число 46.4 с последующим выводом на lcd

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

dim x as single
x = temperatura/10
Lcd x

спс ...

Секретный кот писал(а):
Код: Выделить всё
dim x as single
x = temperatura/10
Lcd x

Что-то длинно получилось да и исходным условиям не соответствует. Можно гораздо проще:

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

Lcd 46.4

asharky писал(а):Можно гораздо проще:
Код: Выделить всё
Lcd 46.4

Аха, зачОт

Шью всё из bascom своим stk200
а в ноутбуке только usb
вопрос:
кто собирал usb програматор, который бы и из bascom шил нормально?

Пользуюсь AVR 910 Protoss, только шью AVR Prog'ом, а не из-под BASICa.

"STK500v2 by Petka" им заливаю прямо из баскома но бывают глюки

как в баскоме проверить число на четность?
А mod 2?

Невероятно, но после долгих лет, я таки продолжит делать обучалку!
Думаю кого-нить заинтересует статья про протокол I2C в баскоме. Там же сказано и о температурном датчике lm76.
http://www.decada.org.ru/project/lessons/bascom_avr/12/

народ подскажите чё не так делаю ? Взял готовый исходник под RC-5 , выкинул несущюю 36кГц и клавиш оставил только две. Не могу запустить , стопорится на передаче адреса и дальше ни как хоть ты тресни !

Усё проблему решил , правда не так изящно как хотелось-бы но работает чётко и мне этого достаточно.

Коты, обЬясните, толи глюк, толи я чёт недопонимаю

Вот кусок программы, собственно часов.
Переменная S есть Word,
но считает до 255
В симуляторе считает и больше, но Протеусе и в железе, только до 255
Пол дня голову ломал, пока тупо не стал перебирать все переменные
И как только выставил M as word, всё пошло нормально
Кто может разяснит?

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

$crystal = 8000000
$regfile = "ATtiny2313.dat"
Config Portb = Output
Ddrd = &B1111010
Config Timer0 = Timer , Prescale = 64
Dim S As Word
Enable Interrupts
Enable Timer0
On Timer0 Pulse
Dim I As Byte , Cifri(4) As Word , Cifra As Word , Tochka As Word
Dim M As Word , H As Byte
Dim T As Byte

Do
M = S / 60
Tochka = S Mod 2
Cifri(1) = M / 10
I = Cifri(1) * 10
Cifri(2) = M - I
Cifri(3) = H / 10
I = Cifri(3) * 10
Cifri(4) = H - I
S = S + 1
Waitms 10
Loop
Pulse:
Stop Timer0
Portb = &H00
T = T + 1
Select Case T
Case 1 : Reset Portd.3
Set Portd.6
Case 2 : Reset Portd.4
Set Portd.3
Case 3 : Reset Portd.5
Set Portd.4
Case 4 : Reset Portd.6
Set Portd.5
End Select
Cifra = Cifri(t)
If T = 4 Then T = 0
Portb = Lookup(cifra , Value_table)
If Portd.4 = 0 And Tochka = 1 Then Set Portb.7 Else Reset Portb.7
Start Timer0
Return
Value_table:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F

как в баскоме проверить число на четность?
А mod 2?

kip96 писал(а):Вот кусок программы, собственно часов.

Так в баскоме вроде встроенные часы есть
CONFIG CLOCK
с системными переменными TIME$
_sec , _min , _hour,

Да вроде есть, но на 2313 кажется не работают

блин их нет в 2313!!!!!

есть например в меге32

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

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