АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Написание программ обработки событий нажатия на кнопки

Читайте также:
  1. I. Основы применения программы Excel
  2. I. РАБОЧАЯ ПРОГРАММА
  3. II съезд РСДРП. Принятие программы и устава. Возникновение большевизма.
  4. II. Основной ход событий:
  5. V. ПРОГРАММА СОРЕВНОВАНИЙ
  6. Автоматизированная система обработки данных правовой статистики
  7. Алгоритм обработки одного блока сообщения
  8. Алгоритм обработки полости рта при стоматитах
  9. Алгоритмизация и программирование
  10. Алекс сидел за ограждением позади сцены, где фанатов не было, и давал интервью для какой-то программы.
  11. Альтруистические программы поведения
  12. Анализ выполнения федеральной целевой программы «Дети-инвалиды»

Процедура TForm1.Button1Click обрабатывает нажатие кнопки “Установить оси”. Процедура TForm1.Button2Click обрабатывает нажатие кнопки “Построить график”. Для добавления координат точек (X,Y) из таблицы значений в двумерный массив объекта Series k используется процедура Series1.AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; AColor: TColor): Longint;, где AXValue, AYValue – координаты точки по осям X и Y; AXLabel может принимать значение ‘’; AСolor задает цвет линий (если равен clTeeColor, то принимается цвет, определенный при проектировании формы).

Текст программы имеет вид:

 

procedure TForm1.FormCreate(Sender: TObject);

begin

{Установка начальных параметров координатных осей}

Xmin:=0;

Xmax:=2*pi;

Ymin:=-1;

Ymax:=1;

Hx:=pi/2;

Hy:=0.5;

h:=0.01; // Установка шага расчета таблицы

{Вывод данных в окна однострочных редакторов}

Edit1.Text:=FloatToStr(Xmin);

Edit2.Text:=FloatToStr(Xmax);

Edit3.Text:=FloatToStr(Ymin);

Edit4.Text:=FloatToStr(Ymax);

Edit5.Text:=FloatToStr(Hx);

Edit6.Text:=FloatToStr(Hy);

Edit7.Text:=FloatToStr(h);

Chart1.BottomAxis.Automatic:=False;// Отключение автоматического определения // параметров нижней оси

Chart1.BottomAxis.Minimum:=Xmin; // Установка левой границы нижней оси

Chart1.BottomAxis.Maximum:=Xmax; // Установка правой границы нижней оси

Chart1.LeftAxis.Automatic:=False; // Отключение автоматического определения // параметров левой оси

Chart1.LeftAxis.Minimum:=Ymin; // Установка нижней границы левой оси

Chart1.LeftAxis.Maximum:=Ymax; // Установка верхней границы левой оси

Chart1.BottomAxis.Increment:=Hx; // Установка шага разметки по нижней оси

Chart1.LeftAxis.Increment:=Hy; // Установка шага разметки по левой оси

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

{Чтение даннных из окон однострочных редакторов}

Xmin:=StrToFloat(Edit1.Text);

Xmax:=StrToFloat(Edit2.Text);

Ymin:=StrToFloat(Edit3.Text);

Ymax:=StrToFloat(Edit4.Text);

Hx:=StrToFloat(Edit5.Text);

Hy:=StrToFloat(Edit6.Text);

Chart1.BottomAxis.Minimum:=Xmin; // Установка левой границы нижней оси

Chart1.BottomAxis.Maximum:=Xmax; // Установка правой границы нижней оси

Chart1.LeftAxis.Minimum:=Ymin; // Установка нижней границы левой оси

Chart1.LeftAxis.Maximum:=Ymax; // Установка верхней границы левой оси

Chart1.BottomAxis.Increment:=Hx; // Установка шага разметки по нижней оси

Chart1.LeftAxis.Increment:=Hy; // Установка шага разметки по левой оси

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var x,y1,y2: extended;

begin

{Очистка графиков}

Series1.Clear;

Series2.Clear;

Xmin:=StrToFloat(Edit1.Text);

Xmax:=StrToFloat(Edit2.Text);

h:=StrToFloat(Edit7.Text); // Шаг расчета таблицы для графика

x:=Xmin; // Начальное значение по оси X

repeat

y1:=sin(x); // Расчет функции

Series1.AddXY(x,y1,'',clTeeColor); // Вывод точки на график

y2:=cos(x); // Расчет функции

Series2.AddXY(x,y2,'',clTeeColor); // Вывод точки на график

x:=x+h; // Увеличение значения X на величину шага

Until (x>Xmax);

end;

 

end.


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)