Контроль за объектами |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Контроль за объектами |
Sanekkk1 |
10.01.2015 15:37
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация: 0 |
Здравствуйте, помогите исправить программу. Сейчас программа выводит точки, но они не управляются клавишами (вверх, вниз, вправо, влево), при нажатии на кнопки они просто рандомно переставляются. Как сделать чтобы их движении соответствовало нажатой кнопке.
Uses Crt,Graph; Сообщение отредактировано: Sanekkk1 - 10.01.2015 15:38 |
Федосеев Павел |
10.01.2015 18:18
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Код {$mode TP} program tak_023; uses WinCrt, Graph; const Path_of_driver = 'F:\BGI'; type TPoint = object x, y: integer; color: word; procedure Init(InitX, InitY: integer; col: word); procedure Hide; procedure Draw; procedure SetX(NewX: integer); procedure SetY(NewY: integer); function GetX: integer; function GetY: integer; procedure Move(NewX, NewY: integer); procedure RMove(NewX, NewY: integer); end; procedure TPoint.Init(InitX, InitY: integer; col: word); begin x := InitX; y := InitY; color := col; end; procedure TPoint.Hide; begin PutPixel(x, y, GetBkColor); // SetColor(GetBkColor); // Circle(x, y, 10); end; procedure TPoint.Draw; begin PutPixel(x, y, color); // SetColor(color); // Circle(x, y, 10); end; function TPoint.GetX: integer; begin GetX := x; end; function TPoint.GetY: integer; begin GetY := y; end; procedure TPoint.SetX(NewX: integer); begin x := NewX; end; procedure TPoint.SetY(NewY: integer); begin y := NewY; end; procedure TPoint.Move(NewX, NewY: integer); begin Hide; x := NewX; y := NewY; Draw; end; procedure TPoint.RMove(NewX, NewY: integer); begin Self.move(x + NewX, y + NewY); end; procedure Coords(a: char; var NewX, NewY: integer; h: integer); begin if a = #0 then begin a := readkey; case a of #80: begin Inc(NewY, h); if NewY > GetMaxY - 20 then NewY := 20; end; #75: begin Dec(NewX, h); if NewX < 10 then NewX := GetMaxX - 10; end; #77: begin Inc(NewX, h); if NewX > GetMaxX - 10 then NewX := 10; end; #72: begin Dec(NewY, h); if NewY < 20 then NewY := GetMaxY - 20; end; end; end; end; procedure dCoords(a: char; var dX, dY: integer; h: integer); begin dX := 0; dY := 0; if a = #0 then begin a := readkey; case a of #80: begin dY := h; end; #75: begin dX := -h; end; #77: begin dX := h; end; #72: begin dY := -h; end; end; end; end; var gd, gm, NewX, NewY, h, i: integer; a: char; mas: array[1..100] of TPoint; grError: integer; begin Randomize; // gd := Detect; gd := VGA; gm := VGAHi; InitGraph(gd, gm, Path_of_driver); grError := GraphResult; if grError <> grok then begin Write('error:', GraphErrorMsg(grError)); halt; end; NewX := GetMaxX div 2; NewY := GetMaxY div 2; h := 2; for i := low(mas) to high(mas) do begin mas[i].Init(Random(GetMaxX) + 1, Random(GetMaxY) + 1, random(5) + 1); mas[i].Draw; end; repeat repeat until KeyPressed; a := readkey; dCoords(a, NewX, NewY, h); for i := low(mas) to high(mas) do mas[i].RMove(NewX, NewY); until a = #27; closegraph; end. У меня нет TurboPascal - только FreePascal (FPC) - почти полный эквивалент в режиме совместимости. Поэтому, что-то я изменил "под себя" (CRT на WinCRT, что-то ещё) - надеюсь разберёшься. Что я изменил по делу: 1. Цикл обработки клавиатуры и прорисовки. 2. В объект добавил RMove - относительное перемещение. 3. Убрал переменную tp. 4. В цикле проинициализировал каждый экземпляр объекта. 5. При нажатии на клавишу все экземпляры сдвигаются на h. Нужно добавить освобождение объекта - пусть даже и пустое. Не переключайся во время работы между режимами (текст/графика) - там есть особенности (=чудеса, баги, фичи) - рассказывать долго, да и не нужно. Работай в графике (OutText). Что будет непонятно - спрашивай. |
Текстовая версия | 29.09.2024 9:05 |