|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.04.2009, 18:35 | #1 |
Форумчанин
Регистрация: 28.04.2009
Сообщений: 112
|
Управление внешними устройствами средствами Delphi
Это листинг программы-вольтметра, которая считывает инф-ю с модуля подключенного к компу и и выдает кол-во вольт.
Как переделать эту прогу, чтобы она считывала инф-ю с датчиков модуля подключенного к компу и выводила состояние датчиков на экран, например, ЕСЛИ ДАТЧИК СРАБОТАЛ, то картинка на форме отображается красным цветом. Код:
Последний раз редактировалось rpy3uH; 29.04.2009 в 19:58. |
29.04.2009, 19:41 | #2 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 62
|
ну ты кадр
чуток разберись в коде.... найди там строку где меняются значения и поставь УСЛОВИЕ при изменений значений, менять форме цвет... Сразу скажу в коде не разбирался, но суть в этом if DATCHIK>0 then Form1.color:=clBtnFace; DATCHIK- переменная (просто привел пример) |
29.04.2009, 20:32 | #3 |
Форумчанин
Регистрация: 28.04.2009
Сообщений: 112
|
На тему проги "Пароль". Я все также вставил как у тебя в свою прогу, но при запуске экзэшника вылетает ошибка, а потом все нормально, Как от ошибки избавиться?
|
29.04.2009, 20:37 | #4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
какая ошибка, на какой строке?
ты хоть чтото сам собираешься делать? Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
29.04.2009, 20:46 | #5 |
Форумчанин
Регистрация: 28.04.2009
Сообщений: 112
|
Ошибка НЕ В СТРОКЕ!!!, а на экране
|
29.04.2009, 22:58 | #6 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
блин я удивляюсь нежеланию чтото самому делать..
за тебя делать не намерен, своих проблем хватает, но помочь могу... так вот, как я понимаю этот код выводит значение в Эдит, так? мой тебе совет воспользуйся Бряками и трассировкой и поймешь, какие строки выводят это значения и куда(то есть где надо заменить) Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
03.05.2009, 17:36 | #7 |
Форумчанин
Регистрация: 28.04.2009
Сообщений: 112
|
Меня интересует эта часть кода, как ее изменить
procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD);stdcall; begin ReadFile(CommHandle, BinBuf, 128, NumberWritten, nil); if(NumberWritten > 0) then begin p := BinBuf; for i:=1 to NumberWritten do begin //************** if (p^ = '#') then begin if(StrLComp(p, PChar('#ADC,'), 4) = 0) then begin p := p + 5; StrLCopy(ADC_Res, p, 4); ADCFloat := (StrToInt(ADC_Res)/1024)*5; Form1.Edit2.Text := FloatToStr(ADCFloat); end; inc(p); end //**************** end; Как переделать эту прогу, чтобы она считывала инф-ю с датчиков модуля подключенного к компу и выводила состояние датчиков на экран, например, ЕСЛИ ДАТЧИК СРАБОТАЛ, то картинка на форме отображается красным цветом. |
03.05.2009, 22:04 | #8 |
Регистрация: 03.05.2009
Сообщений: 8
|
Добрый день или вечер Мужики.
Дайте пожалуйста совет чаго почитать или помогите обьясните но только по проще я только начинаю вникать в это дело, мне надо каким нибуть образом подключать датчики и считывать с них информацию а на другие датчики отправлять задания. проблема в том что, как изготовить плату и написать дрова под них? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как средствами Delphi опросить USB порты? | beegl | Общие вопросы Delphi | 3 | 24.03.2009 17:40 |
Работа с внешними устройствами через COM порт | Georgios | Помощь студентам | 11 | 11.02.2009 15:59 |
Может ли Excel, управлять внешними устройствами | valerij | Microsoft Office Excel | 5 | 28.01.2009 06:42 |
Управление системными устройствами в Делфи | )Игнат( | Общие вопросы Delphi | 1 | 07.09.2008 12:13 |
Управление устройствами компьютера | ilmar | Помощь студентам | 5 | 22.07.2008 16:04 |