Выложите свой код полностью, посмотрим.

Ниже пример вывода на ЖКИ температуры (со знаком) в PBP:

Code

....

temp var word ; RAW температура от DS18B20
sign var byte ; знак температуры
result var byte ; целая часть результата
remainder var word ; дробная часть результата

....

if temp > 2000 then ; отрицательная температура
temp = 65535 - temp + 1 ; вычисление абс. значения
sign = 45 ; ASCII код символа "-"
result = temp / 16 ; вычисление целой части
remainder = (temp // 16) * 625 / 1000 ;вычисление дробной части
else ; неотрицательная температура
sign = 43 ; ASCII код символа "+"
result = temp / 16 ; вычисление целой части
remainder = (temp // 16) * 625 / 1000 ;вычисление дробной части
endif

lcdout $FE,128,sign,#result,".",#remainder," C " ; вывод на ЖКИ

....
А как прочитать температуру из датчика ?... Подскажите...

Добавлено (13.06.2010, 19.43.46)
---------------------------------------------
Как на Pic Basic pro написать программу для чтения 12 разрядов температуры датчика DS18B20?
Помогите!

Извиняюсь раньше не мог.
Вы можете выложить код программы (*.pbp), а не doc. И на чем вы пробуете, в железе или протеус?
Если протеус, то его модель тоже.

Ну вот на PICBasic - коряво, но работает:

вот программка:

DEFINE LOADER_USED 1
I var byte
j var byte
q var byte
portA = %00000000
CMCON=7
TRISA = %11111111 '1 - âõîä 0 - âûõîä
i=0

Define Hser_RCSTA 90h ' Âêëþ÷èòü ïðèåìíèê USART
Define Hser_TXSTA 20h ' Âêëþ÷èòü ïåðåäàò÷èê USART
Define Hser_bAUD 19200 ' ÑÊÎÐÎÑÒÜ ïåðåäà÷è
Define Hser_even 1 ' ðàçðåøèòü ïðîâåðêó ÷åòíîñòè
Define Hser_ODD 1 ' ðàçðåøèòü ïðîâåðêó íå÷åòíîñòè

MAIN:
high 4
PAUSE 1000
low 4
PAUSE 500
if portA.1 = 0 then goto zikl
if portA.1 = 1 then goto LED
GOTO MAIN

led:
High 3
Pause 1000
Low 3
Pause 500
hserout ["AT",13]
Pause 100
if portA.1 = 0 then goto zikl
hserin 500,led,[wait("ok")]

goto main

zikl:
for i=1 to 10
High 3
Pause 200
Low 3
Pause 200
next i
GOTO MAIN

светодиодики моргают, а вот обмен PIC и Siemensa на могу обнаружить,
без пика с помощью программ hiperterminal и simoco управлять телефоном получается, а вот контроллер никак не хочет, даже просто команду АТ не посылает. Описание у Халибейка уж очень поверхностное и примеров мало. нашел на этом сайте похожую сигналку, а она на протоне написана и аналогию провести не получается. ПОМОГИТЕ

Да вот же только что было: http://picbasic.ru/forum/5-416-1
Только на ПРОТОНе

Вот я ж и просил на PICBasic.
А почему КОРЯВО но работает?

Добавлено (14.06.2010, 23.12.51)
---------------------------------------------
Code

OWOut DQ1, 1, [$CC, $44] ' Start temperature conversion
waitloop: OWIn DQ1, 4, [count_remain] ' Check for still busy converting
if count_remain = 0 Then waitloop
OWOut DQ1, 1, [$CC, $BE] ' Read the temperature
OWIn DQ1, 0, [temperature.LOWBYTE, temperature.HIGHBYTE, Skip 2, conf, skip 3]
if conf = $ff then showerror

А можно по-русски Где переменные, не понимаю...