КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Практическая работа № 17 Вывод табличных данных
Begin Begin Implementation Var Private Type
TForm1 = class(TForm) Edit1: TEdit;
Edit2: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Image1: TImage; Image2: TImage; Label1: TLabel; Label2: TLabel;
procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject);
{ Private declarations } public { Public declarations } end; Form1: TForm1;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); begin
Edit1.Text:= ''; Edit2.Text:= ''; Image1.Canvas.Pen.Color:= clRed; Image1.Canvas.Brush.Color:= clWhite; Image1.Canvas.Rectangle(10,1,23,360); Image2.Canvas.Pen.Color:= clBlue; Image2.Canvas.Brush.Color:= clWhite; Image2.Canvas.Rectangle(10,1,23,360); end;
procedure TForm1.Button2Click(Sender: TObject); var a, b, c: real;
a:= StrToFloat(Edit1.Text); if (a > 0) or (a < 100) then b:= 1.8 * a + 32;i f a > 100 then b:= 212; i f a < 0 then b:= 32; Edit2.Text:= FloatToStr(b);
Image1.Canvas.Pen.Color:= clRed; Image1.Canvas.Brush.Color:= clWhite; Image1.Canvas.Rectangle(10,1,23,360); Image1.Canvas.Pen.Color:= clRed; Image1.Canvas.Brush.Color:= clRed; Image1.Canvas.Rectangle(10,round(360-a),23,360); Image2.Canvas.Pen.Color:= clBlue; Image2.Canvas.Brush.Color:= clWhite; Image2.Canvas.Rectangle(10,1,23,360); Image2.Canvas.Pen.Color:= clBlue; Image2.Canvas.Brush.Color:= clBlue; Image2.Canvas.Rectangle(10,round(360-b),23,360);
end;
procedure TForm1.Button1Click(Sender: TObject); var a, c, d: real;
c:= StrToFloat(Edit2.Text); if (c > 32) or (c < 212) then d:= (c - 32)/1.8; if c < 32 then d:= 0; if c > 212 then d:= 100;Edit1.Text:= FloatToStr(d);
Image2.Canvas.Pen.Color:= clBlue; Image2.Canvas.Brush.Color:= clWhite; Image2.Canvas.Rectangle(10,1,23,360); Image2.Canvas.Pen.Color:= clBlue; Image2.Canvas.Brush.Color:= clBlue; Image2.Canvas.Rectangle(10,round(360-c),23,360); Image1.Canvas.Pen.Color:= clRed; Image1.Canvas.Brush.Color:= clWhite; Image1.Canvas.Rectangle(10,1,23,360); Image1.Canvas.Pen.Color:= clRed; Image1.Canvas.Brush.Color:= clRed; Image1.Canvas.Rectangle(10,round(360-d),23,360);
end;
procedure TForm1.Button3Click(Sender: TObject); begin
Edit1.Text:= ''; Edit2.Text:= ''; Image1.Canvas.Pen.Color:= clRed; Image1.Canvas.Brush.Color:= clWhite; Image1.Canvas.Rectangle(10,1,23,360); Image2.Canvas.Pen.Color:= clBlue; Image2.Canvas.Brush.Color:= clWhite; Image2.Canvas.Rectangle(10,1,23,360); end;
procedure TForm1.Button4Click(Sender: TObject); begin
Close; end; procedure TForm1.Edit1Enter(Sender: TObject); begin
Button2.Visible:= true; Button1.Visible:= False;
end;
procedure TForm1.Edit2Enter(Sender: TObject); begin
Button1.Visible:= True; Button2.Visible:= False; end; end.
На одной из знаменитых гравюр Альбрехта Дюрера изображен магический квадрат. Одним из его свойств является то, что суммы по всем столбцам, строкам и диагоналям равны.
Цель работы -создать программу,рассчитывающую суммы по столбцам и строкамвводимых чисел.
Рис. 61.
1. Добавить на форму сетку – компонент StringGrid. Этот компонент служит для ввода и вывода табличных данных. 2. Необходимо ввести данные и описать событие реагирования на их ввод. В свойстве Options установите пункт Editing, иначе сетка будет доступной только для чтения. Теперь при запуске программы можно вводить текст.
3. Щелкнув мышкой в Инспекторе Объектов, описать обработчик события OnSelectCell, которое возникает, когда пользователь выбирает какую-либо ячейку для редактирования.
4. Теперь при запуске программы и выборе ячейки в заголовке формы отображается информация о столбце и строке ввода. 5. Таким образом, в разделе uses возникла ссылка на модуль Grids, в котором описаны компоненты сеток. В описании класса формы добавилась переменная – ссылка на компонент сетки, а также описание метода – обработчика события. Сам обработчик описан уже в разделе implementation. 6. Обработать событие, возникающее, когда пользователь пытается выделить какую-нибудь ячейку.
procedure Tform1.StringGrid1SelectCell(Sender: Tobject; Acol, Arow: Integer; var CanSelect: Boolean);
Дата добавления: 2017-02-01; Просмотров: 81; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |