Программирование BASCOM Суббота, 23.11.2024, 01:44


Приветствую Вас Гость | RSS


Главная | Регистрация | Вход
Меню сайта
Категории каталога
Мои статьи [115]
Наш опрос
Оцените мой сайт
Результаты | Архив опросов
Всего ответов: 1294
Главная » Статьи » Мои статьи
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)
Просмотров: 20319 | Комментарии: 33
Всего комментариев: 321 2 3 »
32 Chipset  
0
Каким программатором прошивать?

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

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

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

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

27 User  
0
Установил баском
нашел где нужно сделать изменения, изменил вообще невидит датчики температуры.
сделал вот так:
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 Николай  
0
А где приобрести сие чудо можно и за скока?

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

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

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


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

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

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

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