Программирование BASCOM
Меню сайта
Категории каталога
Мои статьи [114]
Наш опрос
Оцените мой сайт
Всего ответов: 1171
Главная » Статьи » Мои статьи

USB термометр на 2 датчика
После любезного разрешения Петра перепечатать его статью с USB термометром пришлось разобратся с кодом. В результате чего родился, я думаю, полезный девайс. Это термометр на 2 датчика, облагороженный печатной платой.
 
 
Схема несколько отличается со стороны подключения к USB - используются стабилитроны на 3,6 вольта.
 
 
Печатная плата с одной стороны снабжена разъёмом для подключения стандартным принтерным шнуром к USB, а с другой - зажимом для подключения второго датчика.
 
 
Первый датчик впаян в плату. Контроллер установлен на панельке.
 
В архиве - печатная плата (Sprint Layout 5.0), схема (sPlan 7.0), исходный код и файл прошивки для контроллера на Bascom, софт со стороны компьютера на VB.NET и C#. Особая благодарность Петру за его библиотеку HID_Lib_PB.dll, при помощи которой и организован обмен между контроллером и компьютером. Она была разработана в среде PureBasic 4.41 на основе исходного кода библиотеки пользовательских функций HID_Lib для PureBasic. Со временем планирую добавить софт и на VB.
 
Пётр по просьбе пользователей написал софт на PureBasic.
Проверено на реальном устройстве!
 
zoom4ik  нашёл проблему - на Windows7 не заработало ( пишет отказ, код 10..).
И он же с ней разобрался, за что ему респект и всё прочее!
Количество конечных точек для этого интерфейса (исключая нулевую)  было две, а должна быть 1!
Нужно изменить код так:
Const _usb_ifaceendpoints = 1 

Категория: Мои статьи | Добавил: bascom (17.05.2010)
Просмотров: 16814 | Комментарии: 33
Всего комментариев: 321 2 3 »
32  
Каким программатором прошивать?

31  
Как калибруете датчики ?

30  
такая проблемма, 2-й датчик отключается при температуре -16,3. При этом пишет "нет датчика". на -16,2 все опять работает... Это только у меня так?

29  
тоесть биты в программаторе CodeVisionAVR? Народ подскажите.

28  
А для win Xp подойдет? и можно скинуть скиншоты для компилятора CodeVisionAVR C Compiler. Зарании благодарен.

27  
Установил баском
нашел где нужно сделать изменения, изменил вообще невидит датчики температуры.
сделал вот так:
If Flaginputtermo = 1 Then
Flaginputtermo = 0

'îïðîñ 1 äàò÷èêà
If W_1wire >= 1 Then
1wverify Dsid1(1)
1wwrite &HBE
1wire_array(1) = 1wread()
1wire_array(2) = 1wread()
Else
1wire_array(1) = 254
1wire_array(2) = 254
End If
'îïðîñ 2 äàò÷èêà
If W_1wire >= 2 Then
1wverify Dsid2(1)
1wwrite &HBE
1wire_array(3) = 1wread()
1wire_array(4) = 1wread()
Else
1wire_array(3) = 254
1wire_array(4) = 254
End If

1wreset ' reset the bus
1wwrite &HCC ' skip rom
1wwrite &H44
If 1wire_array(9) = Crc8(1wire_array(1) , 8) Then

If _usb_tx_status2._usb_txc = 1 Then ' Convert T
_usb_tx_buffer2(2) = 1wire_array(1)
_usb_tx_buffer2(3) = 1wire_array(2)
_usb_tx_buffer2(4) = 1wire_array(3)
_usb_tx_buffer2(5) = 1wire_array(4)

Call Usb_send(_usb_tx_status2 , 4)
End If
End If

Что не так?


26  
А где приобрести сие чудо можно и за скока?

25  
Уважаемые а кто нибуть может выложить исправленную прошивку чтобы -0,1С убрать. А то я незнаком с Баском. Заранее благодарю!

23  
Разобрался.. было 2

Количество конечных точек для этого интерфейса (исключая нулевую)
Const _usb_ifaceendpoints = 1


24  
Ну вот и здорово. Добавлю в конце статьи, а то при увеличении комментариев трудно искать будет.

21  
На семерке не заработало(( пишет отказ, код 10.. Кто нибудь решил проблемму??

22  
http://purebasic.mybb.ru/viewtopic.php?id=46
Здесь проблема решена. Берите код и сравнивайте участки, связанные с репортами, передачей и инициализацией ЮСБ. У меня сейчас совсем для этого нет времени.

1-10 11-20 21-24
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Copyright Radan Studio © 2017