Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
KostyaKorneev
0 / 0 / 0
Регистрация: 20.04.2015
Сообщений: 1
1

Столбчатая диаграмма - Добавить возможность масштабирования по нажатию кнопок клавиатуры

26.05.2015, 22:00. Просмотров 173. Ответов 0
Метки нет (Все метки)

Здравствуйте. Помогите добавить возможность масштабирования по нажатию кнопок клавиатуры (вверх и вниз).


Pascal
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
30
31
32
33
34
35
36
37
38
39
40
41
program Graf_1;
 
uses
  GraphABC;
 
const
  dx = 25; 
  j =2;
  k = 10;
 
var
  i, t, xm, ym,x: integer;
  color: color;
begin
  MaximizeWindow;
  xm := WindowWidth div j-(WindowWidth div j div 4);
  ym := WindowHeight div j+(WindowHeight div j div 4);
  SetPenWidth(3);
  SetPenColor(clgreen);
  Line(xm, ym - 20, xm*2 - 20, ym - 20); {ось OX}
  Line(xm, 20, xm, ym - 20); {ось OY}
  SetFontSize(15);
  //TextOut(xm - 15, ym - 25, '0');
  //TextOut(xm-1, 0, 'Y');
  //TextOut(xm*2 - 25, ym - 45, 'X');
  x:=xm;
  
  
  while i < (xm-2*dx) do
  begin
    T := Random(ym-50);
    if T > 50 then t := t - 50;
    color := clrandom;
    SetPenColor(color);
    Setbrushcolor(color);
    Rectangle(x + 3, (ym - 22), x + dx, (ym - 28 - t));
    x := x + dx;
    i := i + dx;
  end;
  
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 22:00
Ответы с готовыми решениями:

Столбчатая диаграмма
Здравствуйте помогите чайнику, вот код программы, она выводит одномерный массив и по нему...

Столбчатая диаграмма
Задана последовательность 10-ти целых чисел (каждое число в диапазоне от 0 до 20). Вывести на экран...

Столбчатая диаграмма (гистограмма)
Столбчатая диаграмма (гистограмма) представляет собой набор прямоугольников, основания которых...

Столбчатая диаграмма
Может у кого-то есть аналог. Программа запрашивает сколько столбцов, и поочередно вбиваются данные...

Горизонтальная столбчатая диаграмма
Подскажите, пожалуйста, как нарисовать столбчатую диаграмму (горизонтальную), которая будет...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2015, 22:00

Столбчатая диаграмма (гистограмма)
даны семь действительных чисел а1...а7. Построить гистограмму для этих значений. для большей...

Разработка приложения "Столбчатая диаграмма": заполнить данные DataGridView загрузить данные в программу
Пожалуйста, мне нужно заполнить данные DataGridView для диаграммы и загрузить данные в диаграмму.

Имитация нажатия кнопок клавиатуры нажатиями кнопок в окне
Скажите,как заменить нажатие кнопок клавиатуры на нажатие кнопок в окне?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru