![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 18
|
![]()
Задача такая, при нажатии кл. „V“ – должен появится симметрический вид, при нажатии кл. „H“ – должен появится горизонтальный вид.Помогите найти ошибку.
![]() procedure номер_4; var graphdriver, graphmode, x1, x2, y1, y2 :integer; ch:char; {----------------------------------------} procedure вид; begin setbkcolor(green); cleardevice; x1:=10; y1:=40; x2:=250; y2:=100; setfillstyle(4, yellow); bar3d(x1,y1,x2,y2,10,true); x1:=160; y1:=200; x2:=410; y2:=250; readln; closegraph; end; {----------------------------------------} procedure вид_h; begin setbkcolor(green); cleardevice; x1:=10; y1:=-40; x2:=250; y2:=-100; setfillstyle(4, yellow); bar3d(x1,y1,x2,y2,10,true); x1:=160; y1:=-200; x2:=410; y2:=-250; readln; closegraph; end; {----------------------------------------} procedure вид_v; begin setbkcolor(green); cleardevice; x1:=-10; y1:=40; x2:=-250; y2:=100; setfillstyle(4, yellow); bar3d(x1,y1,x2,y2,10,true); x1:=-160; y1:=200; x2:=-410; y2:=250; readln; closegraph; end; {----------------------------------------} begin graphdriver:=detect; initgraph (graphdriver,graphmode,''); вид; repeat if keypressed then ch:=readkey; until (ch='h') or (ch='H') or (ch='v') or (ch='V'); if (ch='h') or (ch='H') then вид_h; if (ch='v') or (ch='V') then вид_v; readln; end; |
![]() |
![]() |
![]() |
#2 |
Повелитель Тьмы
Пользователь
Регистрация: 29.10.2006
Сообщений: 95
|
![]()
А в чем собственно проблема, тоесть в чем заключается ошибка?
Я учусь как положено, а положено у меня на всё
![]() |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
![]()
Не знал что в паскале названия процедур можно записывать русскими буквами. Может в этом ошибка. Или это здесь так написано, а в программе по-другому.
Не надо ничего усложнять. Все достаточно тривиально.
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 18
|
![]()
Проблема в том, что при нажатии кнопки «V“ или „H“ рисунок не поворачивается. А, названия процедур записанные русскими буквами, только здесь для понятия.
|
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 22.05.2007
Сообщений: 9,068
|
![]()
нах эти строчки:
x1:=-160; y1:=200; x2:=-410; y2:=250; они же вроде нигде не юзаются... |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 18
|
![]()
Ну да ты прав, они нигде не юзаются….. Но убрав эти строчки проблема не исчезла. При нажатии кнопок «V“ или „H“ вид не меняется.
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 18
|
![]()
Ребята мне на самом деле нужна ваша помощь. Помогите разобраться с этой задачей.
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
![]()
Что-то я даже Uses Graph; не нашёл
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
![]()
Попробуй для начала проверь включился ли режим после инициализации драйвера:
If GraphResult<>grOk then begin Writeln('Ошибка драйвера'); readln; Halt; end; |
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 18.04.2007
Сообщений: 135
|
![]()
У тебя отрицательные координаты идут, вот она и не поворачивает.
Отрицательные координаты это за пределом экрана. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите найти ошибку | Максим_Леонидович | БД в Delphi | 4 | 20.08.2008 23:23 |
Помогите найти ошибку | Dmitriy | Общие вопросы Delphi | 4 | 01.08.2008 23:32 |
Помогите найти ошибку | N!ckeL | Общие вопросы Delphi | 9 | 05.05.2008 14:15 |
Помогите найти ошибку | NeiL | Общие вопросы Delphi | 7 | 04.03.2008 07:14 |
Помогите найти ошибку | Рената | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 05.01.2008 04:29 |