фак йех! глянул у себя, аналогично! Вплоть до 13Мгц показывает как надо, дальше теряет сигнал.
Причем такое наблюдается по всему диапазону частот, ставил в программе 2,5 Мгц в симуляторе 2 Мгц, показывает правильно.

...заметил странную особенность : при работе программы с частотой 10 МГц а в протеусе в опциях контроллера выставлено 8 МГц - температура датчика отображается корректно во всем диапазоне температур! Картинки тоже ок. Это только у меня так?

У меня такого нет, так что эту тему не рыл. А так конечно интересно было бы поработать с цветным дислеем.

Жаль, конечно. Но спасибо и за это!
Вопрос немножко не по теме, думаю будет интерестен не только мне - а есть наработки с дисплеем на контроллере LS020 от Siemens CX65?

Отлично! Заметил что протеус хреново работает с датчиком 18b20, иногда нормально показываем, иногда чёрти-что.
С данной библиотекой никак( выше я описал принцип вывода информации на дисплей, она происходит побайтно и поэтому максимумальная высота знакоместа 8 точек. Придется придумывать свой алгоритм работы с контроллером дисплея.

Проверил все в железе, делал на Меге8, все работает. Спасибо за консультацию. Есть еще вопросик: как создать свой шрифт? Мне нужны цифры почти на весь размер дисплея.

присвоение надо делать наоборот: Y=T1 да и от самой переменной Y можно избавиться, сразу делать преобразование переменной T1: Temp_d=Str(T1)
а так вроде все верно, должно работать. К сожалению нет возможности проверить в железе, а протеус показывает ерунду, так что попробуйте прошить микроконтроллер.Удачи!

Доброго времени суток. Привожу обещанный код:

$regfile = "m16def.dat"

'This is v2.0 with support for printing bitmap images.

$crystal = 8000000
$hwstack = 32 ' default
$swstack = 8 ' default
$framesize = 52 ' minimum for this library. Increase for your application needs!

Dim Strstring As String * 14 'Just used for this demo
Dim C As Byte
Dim Temp_d As String * 10
Dim Sign_d As String * 10
Dim Y As Byte

Config 1wire = Portb.2
Dim Byte0 As Byte
Dim Byte1 As Byte
Dim Sign As String * 1
Dim T1 As Byte
Dim T2 As Byte
Dim I As Integer

Dim T As Byte

Config Portd.7 = Output
D3310dc Alias Portd.7

Config Portb.0 = Output
D3310ce Alias Portb.0

Config Portb.7 = Output
D3310re Alias Portb.7

'Configure SPI in soft mode
Config Spi = Soft , Din = Portb.1 , Dout = Portd.6 , Ss = None , Clock = Portd.5

'Initialise Spi
Spiinit

$include "3310init.bas"

'Initialise the display
Call D3310reset
Call D3310init
Call D3310clear

'Main program loop
Do
1wreset

If Err = 1 Then 'если при опросе небыло ответа ставим флаг ошибки

Call D3310clear
Call D3310position(3 , 3) 'назначаем позицию на индикаторе
Call D3310print( "No signal")

Wait 1

Else ' иначе, если ошибки не было, продолжаем опрос датчика

1wwrite &HCC ' Выдаем команду чтения ПЗУ
1wwrite &H44 ' Запуск измерения

Waitms 750 ' Ждем окончания преобразования

1wreset
1wwrite &HCC
1wwrite &HBE ' Команда чтения ОЗУ датчика

Byte0 = 1wread() ' Читаем нулевой байт

Byte1 = 1wread() ' Читаем первый байт

If Byte1 > 248 Then ' Проверка на отрицательность температуры
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1
Sign = "-"

Else
Sign = "+"
End If

T1 = Byte0 / 16 ' Сдвигаем нулевой байт вправо на 4 бита (2*2*2*2=16)
T2 = Byte1 * 16 ' Сдвигаем первый байт влево на 4 бита (2*2*2*2=16)

T1 = T1 + T2 ' Формируем результат для вывода на дисплей

' *** Коррекция полученных значений

If Sign = "-" Then ' для корректного вывода отрицательных температур
T1 = T1 + 1
End If

If Sign = "+" And T1 = 0 Then ' убираем знак "+" с нулевой температуры
Sign = " "
End If
T1 = Y

Temp_d = Str(y)

' *** Выводим результат на дисплей

Rem Температура
Call D3310clear
Call D3310position(1 , 1)
Call D3310print(temp_d)

Wait 1
End If

Loop

Stop

$include "3310end.bas"

...только не смейтесь - это пока "гадкий утенок"

перед записью дисплей очищается? а вообще да, лучше выложите код.

...код тоже остался на работе.
Проблема в отображении температуры. При подключении (в протеусе пока) индикатора 2х16 - все нормально. А при использовании дисплея от Нокии - какие-то случайные цифры. После выходных выложу наброски программы.

Теперь только в понедельник, ибо все на работе, а я в пятницу решил отдохнуть. А что не получается ? Или пришлите код, посмотрим...

...а можно взглянуть на код. А то я снова в тупике((

Спасибо, суть идеи поймана, на днях попробую.

Нужно из цифрового значения сделать строчное:

Пример:

Dim x as string*10 'значение для вывода
Dim y as byte ' значение для счета ваших данных

тело программы, по итогам получаем значение y

x= str(y)

Call D3310position(6 , 3) 'назначаем позицию на индикаторе
Call D3310print(x) 'выводим

или так :

Call D3310position(2 , 3) 'назначаем позицию на индикаторе
Call D3310print("Var:") 'выводим слово Var

Call D3310position(6 , 3) 'назначаем позицию на индикаторе
Call D3310print(x) 'выводим значение x

Выведется:
Var:значение

Вот примерно так.

Спасибо ! Он у меня практически закончен - с картинками, максимумом и минимумом, вообще сам в восторге !

Без проблем, но только после 6 июля, когда из отпуска выйду - я этим на работе занимался, все там кроме собственно девайса - он на выявлении глюков дома.

привет всем!
А можно взглянуть на исходник термометра? Сейчас занимаюся тем же, только для бойлера. Не получается выводить на индикатор цифровые значения. Хотелось бы взглянуть как это реализовано у вас

Поздравляю ! Теперь сможете фиксировать аномальную летнюю жару, это скоро будет актуально
Просмотрел тему на радиокоте с вашим термометром, зачетно получилось =)

Доброго времени суток !
Спасибо, символ градуса получился.
Сделал на основе ваших примеров термометр с выводом на этот экран, только добавил отображение десятых долей градуса и максимум/минимум за время измерения. На меге8, работает !"

Спасибо за разъяснения !

Можно вот этим. Расставляешь единички как надо и сгенерированный код копируешь в 3310end.bas, там думаю все ясно будет, если что спрашивай.

Доброго времени суток !

Спасибо за ответ !

А как вывести символ градуса (маленький кружок вверху) ?
Нельзя ли поподробнее про свои символы ? К примеру нужен символ 2х2 знакоместа...

Спасибо !

Высота фиксирована 7 пикселей на шрифт +1 пиксель на межстрочное расстояние, итого 8 пикселей на одну строку. Связано с тем, что запись в контроллер дисплея идет побайтно - отправили один байт, закрасили один столбик, и так 6 раз (5 на символ +1 на отступ). Поэтому надо будет выводить как картинку или рисовать свои символы, разбивать на части и эти части выводить в разных строках. Другого пока придумать не смог

Доброго времени суток !
А возможно ли вывести буквы и цифры размером больше, чем в Вашем примере ?
Или размер символов фиксирован ?
Спасибо !