Скачать: CL | DM;

Саоздание АмперМетра   Найти похожие ветки 

← →
Ruslan   (2003-05-12 05:50) [0]

Есть проблема: надо создать амперметр да так чтоб значения каждую секунду проверялись и стрелка если надо меняла свое положение!..
Помогите люди добрые может компонент какой есть хороший

---

← →
MBo ©   (2003-05-12 06:24) [1]

компонент для чего? Отображения значения или опроса железа?
Для отображения есть, к примеру, TGauge в палитре samples, а по второму - никакой информации ты не дал.

---

← →
Переяслов Григорий ©   (2003-05-12 09:48) [2]

Можешь воспользоваться цифровым - выводить значения папаметра в Label-е.

---

← →
Ruslan   (2003-05-12 18:29) [3]

>MBo ©
Мне надо именно так чтоб стрелка была и она металась по циферблату

---

← →
ferrik ©   (2003-05-12 19:11) [4]

Я не совсем понял но может это...
procedure TForm1.Timer1Timer(Sender: TObject);
var
a:real;
xc,yc,k:integer;
begin
xc:=320;
yc:=240;
k:=50;
form1.Repaint;
a:=random(314)/100+3.14;
with form1.Canvas do
begin
Ellipse(xc-k,yc-k,xc+k,yc+k);
MoveTo(xc,yc);
LineTo(round(cos(a)*k+xc),round(sin(a)*k+yc));
moveto(xc-k,yc);
Lineto(xc+k,yc);
end;
end;

---

← →
Ruslan   (2003-05-12 20:18) [5]

>ferrik ©
Да... мечется она конечно неплохо, но я под словом "мечется" подразумевал то, что она должна постоянно проверять значение переменной и если оно изменилось, то перемещать стрелку "амперметра" в необходимое положение..!

---

← →
ferrik ©   (2003-05-12 20:26) [6]

Всё как на ладони бери нужный угол A и всё

---

← →
Ru ©   (2003-05-13 12:35) [7]

а откуда данные берем? из пальца?

---

← →
Sergo ©   (2003-05-13 12:50) [8]

VarianWorkshop

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c