Форум: "Потрепаться";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
ВнизСаоздание АмперМетра Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c