Уроки по Delphi



         

Урок18. Корректное построение программного кода. Рисование. Построение графика функции - часть 7


Var y:Integer; // ось Y

begin

if x=0 then // если точка в начале координат, то:

   begin

      PaintBox1.Canvas.Brush.Color:=clWhite; // цвет фона белый

      PaintBox1.Canvas.FillRect(ClientRect); // заливка всей рабочей области

   end;

stop:=false; // флаг старта процесса рисования

While not stop do // бесконечный цикл, пока флаг остановки не поднят:

   begin

      if (RadioButton1.Checked)or(CheckBox1.Checked) then // если установлен "Sin" или "Все", то:

         begin

            y:=Round(Sin(pi*x/100)*50)+70; // вычисление положения синусоиды

            PaintBox1.Canvas.Pixels[x,y]:=clBlack; // нарисовать черную точку

         end;

      if (RadioButton2.Checked)or(CheckBox1.Checked) then // если установлен "Cos" или "Все", то:

         begin

            y:=Round(Cos(pi*x/100)*50)+70; // вычисление положения косинусоиды

            PaintBox1.Canvas.Pixels[x,y]:=clBlack; // нарисовать черную точку

         end;

      inc(x); // увеличить значение X на едицину. Аналог X:=X+1

      if x>500 then // если X вышел за пределы PaintBox1, то:

         begin

            x:=0; // установить X на начало координат

            PaintBox1.Canvas.Brush.Color:=clWhite; // Цвет фона белый

            PaintBox1.Canvas.FillRect(ClientRect); // Очистка рабочей области PaintBox1




Содержание  Назад  Вперед