Саоздание АмперМетра

← →
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 ©
Да... мечется она конечно неплохо, но я под словом "мечется" подразумевал то, что она должна постоянно проверять значение переменной и если оно изменилось, то перемещать стрелку "амперметра" в необходимое положение..!

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

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

VarianWorkshop

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