В этом уроке я научу вас как можно передвигать обьекты по форме с помощью клавиш...
--------------------------
Начнём.
1)Создайте новый проект File> New> Application
2)Теперь киньте на форму объект TShape
3)После этого выбираем в Object TreeView форму (Form1)
4)В Object inspector на вкладке Events ищем свойство OnKeyDown и щёлкаем на него 2 раза.
5)В созданной процедуре пишем код (я рекомендую вам не просто копировать а понять как это работает!)
Цитата: if key=VK_UP then Shape1.Top:=Shape1.Top-2; Этот код будет двигат фигуру Shape1 на 2 пиксела вверх!
---------------------------
Попробуйте сами написать движение вниз, вправо, влево...
Позже и это будет показано!
Урок #2 Двигаем фигуру как хотим!!!
Добавьте в свою программу этот код и ваша фигура будет двигаться по всей форме!
Цитата: unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Shape1: TShape;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_UP then Shape1.Top:=Shape1.Top-2;
if key=VK_LEFT then Shape1.Left:=Shape1.Left-2;
if key=VK_DOWN then Shape1.Top:=Shape1.Top+2;
if key=VK_RIGHT then Shape1.Left:=Shape1.Left+2;
end;
end.
Урок №3
--------------------
Как вы уже поняли фигура может двигаться куда попало...даже за пределы формы... а это не очень то и хорошо =)...
Давайте вместе напишем код который будет ограничевать движение фигуры влево и вправо...
---------------------
Попробуйте написать вашу программу вот так:
Код: unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Shape1: TShape;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if( Key = VK_RIGHT ) and ( shape1.Left + shape1.Width <= Form1.ClientWidth-7 ) then shape1.Left := shape1.Left+7;
if (key = VK_LEFT)and(shape1.Left>=3) then shape1.Left:=shape1.Left-7;
end;
end. ---------------------
и уже TShape не будет убегать за границы формы! Но будет двигаться
только влево и вправо...попробуйте сделать самостоятельно так чтобы
TShape не выходил за границы формы сверху и снизу + самостоятельно
разберите код...возникнут вопросы задавайте их в этой теме...
---------------------
Сначала хотелось бы сказать спасибо модератору за эту тему т.к. лично мне она очень помогает. =)
Теперь, собственно, к вопросам.()
1.Я не понял смысла этого кода, можешь объяснить?. У меня
по оси x объект стал двигаться быстрее, а когда начинал выходить за
пределы формы двигался с обычной скоростью. Не надо ли вставить что-то
подобное ,чтобы он не мог выйти за пределы формы:
Код: if (Key=VK_RIGHT) and (Shape1.Left+Shape1.Width)>=Form1.ClientWidth
then Shape1.Left:=Shape1.Left
if (Key=VK_LEFT) and (Shape1.Left<0)
then Shape1.Left:=Shape1.Left Или же переписать основной код вот так:
Код: if (key=VK_UP) and (Shape1.Top>=0)
then Shape1.Top:=Shape1.Top-2;
if (key=VK_LEFT) and (Shape1.Left>=0)
then Shape1.Left:=Shape1.Left-2;
if (key=VK_DOWN) and (shape1.Top + shape1.Height <= Form1.ClientHeight)
then Shape1.Top:=Shape1.Top+2;
if (key=VK_RIGHT) and (shape1.Left + shape1.Width <= Form1.ClientWidth)
then Shape1.Left:=Shape1.Left+2; У меня это работает.
2.Можно по-подробнее о событии OnKeyDown ? В частности что за параметры передаются переменными Key, Shift?
Key - код клавиши, UNICOD вроде передаётся.
Shift - передаётся состояние клавишь Shift, Alt, Ctrl (нажаты или нет)
Нажми f1 (справка в делфе) и введи OnKeyDown,TWinControl там полностью описание есть + есть ссылка Virtual Key codes - там тоже много полезного.
немного усложнив эту конструкцию становится интереснее Код: procedure
TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);begin case Key of VK_LEFT: begin
Image1.Picture.Bitmap.LoadFromFile(left.bmp); if image1.Left > 0 then
image1.Left:=Image1.Left-image1.Width; end; VK_RIGHT: begin
Image1.Picture.Bitmap.LoadFromFile(right.bmp); if
image1.Left+image1.Width < ClientWidth then
image1.Left:=Image1.Left+image1.Width; end; VK_UP: begin
Image1.Picture.Bitmap.LoadFromFile(top.bmp); if image1.Top > 0 then
image1.Top:=Image1.top-image1.Height; end; VK_DOWN: begin
Image1.Picture.Bitmap.LoadFromFile(bottom.bmp); if not
(image1.Top+Image1.Height > ClientHeight) then
image1.top:=Image1.Top+image1.Height; end; VK_SPACE: begin
paintbox1.Canvas.Rectangle(image1.Left+2,image1.top+2,
image1.Left+image1.Width-1,image1.Top+image1.Height-1); end; VK_ESCAPE:
begin Sendmessage(handle,WM_CLOSE,0,0); end; end; caption:=X:
+IntToStr(image1.Left div image1.Width)+ Y: + IntToStr(image1.top div
image1.Height);end;procedure TForm1.Timer1Timer(Sender: TObject);vari:
Integer;cols,rows: Byte;beginif sender is ttimer
thenpaintbox1.Canvas.Create;paintbox1.Canvas.Brush.Color:=clLime;cols:=(panel1.Width
div 50)+1;rows:=(panel1.Height div 50)+1;for i:=0 to cols
dobeginPaintBox1.Canvas.MoveTo((i mod
cols)*50,0);PaintBox1.Canvas.LineTo((i mod
cols)*50,panel1.Height);end;for i:=0 to rows
dobeginPaintBox1.Canvas.MoveTo(0,(i mod
rows)*50);PaintBox1.Canvas.LineTo(panel1.Width,(i mod rows)*50);end;
timer1.Enabled:=false;end;procedure TForm1.FormKeyPress(Sender: TObject;
var Key: Char);begincase ord(key) of 49:
paintbox1.Canvas.Brush.Color:=clRed; 50:
paintbox1.Canvas.Brush.Color:=clBlack; 51:
paintbox1.Canvas.Brush.Color:=clYellow; 52:
paintbox1.Canvas.Brush.Color:=clLime; 53:
paintbox1.Canvas.Brush.Color:=clWhite; end;end; рисуем 4 имаги, пусть стрелочки, в разных направлениях, вверх, вниз, лево, право.. Х=50, Y=50 таймер для избежания падения фокуса на какой-нить из контролов, потом стрелочка ваша ездить не будет. в
конечном итоге ваша стрелочка будет бегать по клеточному полю и
принажатии на пробел будет закрашивать клеточки цветом. ах да! на форму
кинуть панель а на неё paintbox не забудте и image -- ваша стрелочка! зы-Shift это прежде всего множество из (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble), обращаться надо к ним через
квадратные скобочки -- if shift = [ssShift] then ... if shift =
[ssShift,ssAlt] then... пробуй
У
меня назрел такой вопрос: при движении объекта с помощью клавиш
появляется такой эффект, что, когда я зажимаю кнопку (например
стрелочку), то объект сдвинется на n пикселов (где n это шаг, который
задаётся заранее), затем остановится на, приблезительно, 0.5 с, а потом
начинает нормально двигаться. Разумеется в игре такое движение
неприемлемо, и хотелось бы знать как это устранить.
И второй вопрос заключается в том, что двигается объект слишком
отрывисто (я предполагаю, что это из-за медленного действия компьютера,
несмотря на то, что у меня очень мощная машина). Хотелось бы узнать, как
сделать движение более плавным.
причина
задержки скорее всего в настройках винды (есть иакой параметр - сколько
времени держиться клавиша зажатой прежде чем применить к ней залипание)
Выход я вижу в том что бы отключить опцию в настройках виндовс (скорее
всего через реестр), а по выходу из игры снова включать. Или создать
обработчик OnKeyDown, который приводит логическую переменную движения в
соответствуующую сторону в True и OnKeyUp - все переменные движения в
False, а движения обрабатывать в таймере.
А торможением возможно называешь мерцание объекта, если да попробуй использоватьпараметр
Form1.AlphaBlend:=True;
Цитата:
У меня назрел такой вопрос: при движении объекта с помощью клавиш
появляется такой эффект, что, когда я зажимаю кнопку (например
стрелочку), то объект сдвинется на n пикселов (где n это шаг, который
задаётся заранее), затем остановится на, приблезительно, 0.5 с, а потом
начинает нормально двигаться. Разумеется в игре такое движение
неприемлемо, и хотелось бы знать как это устранить. http://programmersforum.ru/showthread.php?t=982
Посмотри там последний пост, мож подойдет...
Цитата: Сообщение от Speeker А торможением возможно называешь мерцание объекта, если да попробуй использоватьпараметр
Form1.AlphaBlend:=True; Я попробовал вставить это в
процедуру, но единственым изменением стало то, что форма 1 раз моргнула
черным цветом и всё. Всё остальное осталось без изменений.
Далее назрел вопрос. Как сделать, чтобы можно было вставить в программу
какой-то код (не в процедуры, которые находятся в модуле). Например, я
сделал пятнашки и нужно, чтобы условие победы отслеживалось не при
каком-то событии, а постоянно. Цитата: Например, я сделал пятнашки и нужно, чтобы условие победы отслеживалось не при каком-то событии, а постоянно Хм... Я что-то не понимаю: как может наступить победа, если ничего не произошло? Ну в крайнем случае через таймер можно.
У
меня может быть огромное кол-во различных событий, которые приводят к
победе, при этом в случае победы реализуется большой механизм. Это
получается, что мне в каждую процедуру надо вствить один и тот же код?
Даже если оформить это все в отдельную процедуру и вставлять только её
название, но если событий более ста?
Значит перемудрил
2Yogurt:
Попробую, вам уважаемый помочь! Представив вам разсосанный сорец пятнашек! Назовём это урок №4 для начинающего!
Код: { Игра "15"}
unit game15_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormPaint(Sender: TObject);
// эти объявления вставлены сюда вручную
procedure ShowPole;
procedure Mixer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
H = 4; W = 4; // размер поля - 4х4
CH = 64; CW = 64; // размер клеток - 16х16
var
// правильное расположение фишек
stp : array[1..H, 1..W] of byte =
(( 1, 2, 3, 4),
( 5, 6, 7, 8),
( 9,10,11,12),
(13,14,15, 0));
// игровое поле
pole: array[1..H, 1..W] of byte;
ex,ey: integer; // координаты пустой клетки
// новая игра
procedure NewGame;
var
i,j: integer;
begin
// исходное (правильное) положение
for i:=0 to H+1 do
for j:=0 to W+1 do
pole[i,j] := stp[i,j];
Form1.Mixer; // перемешать фишки
Form1.ShowPole; // отобразить поле
end;
// проверяет, расположены ли
// фишки в нужном порядке
function Finish: boolean;
var
row,col: integer;
i: integer;
begin
row :=1; col :=1;
Finish := True; // пусть фишки в нужном порядке
for i:=1 to 15 do
begin
if pole[row,col] <> i then
begin
Finish:= False;
break;
end;
// к следующей клетке
if col < 4
then inc(col)
else begin
col :=1;
inc(row);
end;
end;
end;
// "перемещает" фишку в соседнюю пустую клетку,
// если она есть, конечно
procedure Move(cx,cy: integer);
// cx,cy - клетка, в которой игрок сделал щелчок
var
r: integer; // выбор игрока
begin
// проверим, возможен ли обмен
if not (( abs(cx-ex) = 1) and (cy-ey = 0) or
( abs(cy-ey) = 1) and (cx-ex = 0))
then exit;
// Обмен. Переместим фишку из x,y в ex,ey
Pole[ey,ex] := Pole[cy,cx];
Pole[cy,cx] := 0;
ex:=cx;
ey:=cy;
// отрисовать поле
Form1.ShowPole;
if Finish then
begin
r := MessageDlg(Цель достигнута!+ #13+
Еще раз?,mtInformation,[mbYes,mbNo],0);
if r = mrNo then Form1.Close; // завершить работу программы
end;
//end;
end;
// щелчок в клетке
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
cx,cy: integer; // координаты клетки
begin
// преобразуем координаты мыши в координаты клетки
cx := Trunc(X / CW) + 1;
cy := Trunc(Y / CH) + 1;
Move(cx,cy);
end;
// выводит игровое поле
procedure TForm1.ShowPole;
var
i,j: integer;
x,y: integer; // x,y - координаты вывода
// текста в клетке
begin
// сетка: вертикальные линии
for i:= 1 to W - 1 do
begin
Canvas.MoveTo(i*CW,0);
Canvas.LineTo(i*CW,ClientHeight);
end;
// сетка: горизонтальные линии
for i:= 1 to H - 1 do
begin
Canvas.MoveTo(0,i*CH);
Canvas.LineTo(ClientWidth,i*CH);
end;
// содержимое клеток
// x,y - координаты вывода текста
for i:= 1 to H do
begin
y:=(i-1)*CH + 15;
for j:=1 to W do
begin
x:= (j-1)*CW + 15;
case Pole[i,j] of
0: Canvas.TextOut(x,y,);
1..9: Canvas.TextOut(x,y, +IntToStr(Pole[i,j])+ );
10..15: Canvas.TextOut(x,y,IntToStr(Pole[i,j]));
end;
end;
end;
end;
// "перемешивает" фишки
procedure TForm1.Mixer;
var
x1,y1: integer; // пустая клетка
x2,y2: integer; // эту переместить в пустую
d: integer;// направление, относительно пустой
i: integer;
begin
x1:=4;
y1:=4;
randomize;
for i:= 1 to 150 do
begin
repeat
x2:=x1;
y2:=y1;
d:=random(4)+1;
case d of
1: dec(x2);
2: inc(x2);
3: dec(y2);
4: inc(y2);
end;
until (x2>=1) and (x2<=4) and (y2>=1) and (y2<=4);
// здесь определили фишку, которую
// надо переместить в пустую клетку
Pole[y1,x1] := Pole[y2,x2];
Pole[y2,x2] := 0;
x1:=x2;
y1:=y2;
end;
// запомним координаты пустой клетки
ex:= x1;
ey:= y1;
end;
// обработка события OnCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientWidth := CW * W;
ClientHeight := CH * H;
Canvas.Font.Name := Times New Roman;
Canvas.Font.Size := 22;
NewGame;
end;
// обработка события OnPaint
procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.ShowPole;
end;
end.
Урок № 5
Отдельный класс игрушек прадставлен, так называемыми игрушками на
развитие памяти! Вот попробуем написать одну из таких! Что она будет
делать!? А практически ни чего особенно сложно, просто запускаем прогу
она на секунду показывает число, а потом число пропадает и появляется
окно для ввода числа, там мы его по памяти вводим и если мы правильно
ввели, то показывается следующее, а если неправильно, то следующее число
будет показано после звукового сигнала об ошибке! Вот откоментированный
исходник игры а ниже архив с исходником! Код: unit memory_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
const
KC = 5; // разрядность числа (кол-во цифр)
LT = 10; // количество чисел (длинна теста)
var
numb: integer; // число, которое должен запомнить испытуемый
right: integer; // количество правильно запомненных чисел
n: integer;// счетчик чисел
{$R *.dfm}
// генерирует k - разрядное число
function GetNumb(k: integer) : integer;
var
n: integer; // генерируемое число
i: integer;
begin
// процедура генерирует число по разрядам
// начиная со старшего
n:= Random(9)+1; // старший разряд не может быть нулем
// остальные разряды
for i := 1 to (k-1) do
n := n*10 + Random(10);
GetNumb := n;
end;
// создание формы
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Visible := False; // скрыть поле ввода Edit1
Edit1.MaxLength := KC; // кол-во символов, которое можно ввести
Label1.WordWrap := True; // разрешить перенос слов на следующую строку
Label1.Caption :=
Сейчас на экране будут появляться числа. +
Вы должны запомнить число, набрать его на клавиатуре и нажать <Enter>;
Button1.Caption := Начать;
Timer1.Enabled := False; // таймер остановлен
Timer1.Interval := 1000; // время показа числа - 1 секунда
right := 0; // кол-во правильных
n := 0; // счетчик чисел
Randomize;// инициализация ГСЧ
end;
// щелчок на кнопке "Начать/Завершить"
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = Завершить then
Form1.Close; // закрыть окно программы
if Button1.Caption = Начать then
begin
Button1.Caption := Завершить;
Button1.Visible := False; // скрыть кнопку
// кнопка Button1 станет доступной после того
// как испытание закончится
Label1.Caption := ;
Label1.Font.Size := 24; // размер шрифта поля Label1
Edit1.Font.Size := 24; // размер шрифта поля Edit1
// сгенерировать и вывести число
numb := GetNumb(KC);
Label1.Caption := IntToStr(numb);
Timer1.Enabled := True; // запуск таймера
// процедура обработки сигнала от таймера
// "сотрет" число
end;
end;
// обработка события таймера
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False; // остановить таймер
Label1.Visible := False; // скрыть число
Edit1.Visible := True; // сделать доступным поле Edit1
Edit1.SetFocus;// установить курсор в поле Edit1
end;
// нажатие клавиш в поле Edit1
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
igrok: integer; // число, которое ввел испытуемый
begin
case Key of
0..9,#8: ; // клавиши "0"-"9",<Backspace>
#13: // клавиша <Enter>
begin
igrok := StrToInt(Edit1.Text);
if (igrok = numb)
then right := right + 1;
n := n + 1; // счетчик чисел
Edit1.Text := ;
Edit1.Visible := False; // скрыть поле Edit1
if n < LT then
begin
numb := GetNumb(KC); // сгенерировать следующее число
Label1.Caption := IntToStr(numb); // отобразить число
Label1.Visible := True;
Timer1.Enabled := True; // пуск таймера
end
else begin
// испытание закончено
// вывести результат
Label1.Font.Size := 10;
Label1.Caption := Результат: + #13 +
Показано чисел: + IntToStr(LT) + #13 +
Правильных: + IntToStr(right);
Label1.Visible := True;
Button1.Visible := True; // показывается кнопка "Завершить"
end;
end;
else Key := Chr(0);
end;
end;
end.
Урок №6!
Теперь попробуем написать игрушку развивающую реакцию! Суть её
заключается в следующем, на экране появляются смайлики и на м нужно
успавать по ним кликать курсором! В конце выдаётся результат о
попаданиях и промахах!
Вот откоментированный исходник игры "Тир":
Код: unit tir_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer: TTimer;
Label1: TLabel;
Button1: TButton;
procedure TimerTimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
{ *****************************
объявление процедур помещено сюда,
чтобы процедуры имели прямой доступ
к форме, на которой они рисуют
****************************** }
procedure PaintFace(x,y: integer); // рисует рожицу
procedure EraseFace(x,y: integer); // стирает рожицу
end;
var
Form1: TForm1;
fx,fy: integer; // координаты рожицы
n: integer; // количество щелчков кнопкой мыши
p: integer; // количество попаданий
implementation
// рисует рожицу
procedure TForm1.PaintFace(x,y: integer);
begin
Canvas.Pen.Color := clBlack;// цвет линий
Canvas.Brush.Color := clYellow; // цвет закраски
// рисуем рожицу
Canvas.Ellipse(x,y,x+30,Y+30); // лицо
Canvas.Ellipse(x+9,y+10,x+11,y+13); // левый глаз
Canvas.Ellipse(x+19,y+10,x+21,y+13); // правый глаз
Canvas.Arc(x+4,y+4,x+26,y+26,x,y+20,x+30,y+20); // улыбка
end;
// стирает рожицу
procedure TForm1.EraseFace(x,y: integer);
begin
// зададим цвет границы и цвет закраски,
// совпадающий с цветом формы. По умолчанию
// цвет формы - clBtnFace (см. в Object Inspector)
Canvas.Pen.Color := clBtnFace; // цвет окружности
Canvas.Brush.Color := clBtnFace; // цвет закраски
Canvas.Ellipse(x,y,x+30,y+30);
end;
{$R *.dfm}
procedure TForm1.TimerTimer(Sender: TObject);
begin
EraseFace(fx,fy);
// новое положение рожицы
fx:= Random(ClientWidth-30); // 30 - это диаметр рожицы
fy:= Random(ClientHeight-30);
PaintFace(fx,fy);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// исходное положение рожицы
fx:=100;
fy:=100;
Randomize; // инициализация генератора
// случайных чисел
end;
// нажатие клавиши мыши
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inc(n); // кол-во щелчков
if (x > fx) and (x < fx+30) and
(y > fy) and (y < fy+30)
then begin
// щелчок по рожице
inc(p);
end;
if n = 10 then
begin
// игра закончена
Timer.Enabled := False; // остановить таймер
ShowMessage(Выстрелов: 10. Попаданий: +
IntToStr(p)+.);
EraseFace(fx,fy);
Label1.Visible := True;
Button1.Visible := True;
// теперь кнопка и сообщение снова видны
end;
end;
// щелчок на кнопке Ok
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible := False; // скрыть сообщение
Button1.Visible := False; // скрыть кнопку
Timer.Enabled := True; // пуск таймера
end;
end. А это полностью исходник игры!
Урок №7
Практчески любой и каждый уважающий себя человек в своей жизни хотя бы
раз играл в эту занимательную стратегическую игрушку - Морской бой!
Исходник не такой простой, как в предыдущих примерах, но и не сложный,
разобраться при желании можно! При желании вы можете дороботать игру
добавив новые стили игры (их существует огромное множество)! Можно
доработать стратегию компа! А можно просто оптимизировать (а скорей
адаптировать) интерфейс под себя!
Игра в принципе работает, но компьютер довольно просто рвёт!...
Урок №8
Немного теории по особенностям создания игр разных жанров!
Anim_Games.rar - Анимация в компьютерных играх;
Arcade_Games.rar - Аркадные игры;
Prikluch_Games.rar - Приключеньческие игры.
Урок №9
А вот исходник более серьёзной и весьма увлекательной игрухи! Игра
называется "Линии"! Цель игры методом передвиженя кружков необходимо
поставить в ряд 4 и более кружка одного цвета, при этом они исчезают!
При каждом ходе появляется несколько новых кружков. Игра заканчивается
когда заканчивается место на игровом поле! Что бы передвинуть кружок,
надо по нему щёлкнуть, а потом щёлкнуть по месту назначения, но при том
условии что кружок сможет доехать до места назначения не перепрыгивая
(хотя можно обходить) через другие кружки! В общем кому интересно
разберитесь с исходником, он там не сложный, а кому не очень это
интересно, советую поиграть!!!
Урок №10
Вот пример того как можно работать с возможностями 3D в Delphi!
Простенький мануальнчик с примером исходника! Цитата: Сообщение от execom Урок №10
Вот пример того как можно работать с возможностями 3D в Delphi!
Простенький мануальнчик с примером исходника! Заинтересовало, а готовых исходников нет?
Урок №11
Вот исходник программы работы с 3D объектом, его можно вращать, и изменять его размер!
Урок №12
Что такое OpenGL?
В этом уроке мы поговорим о том, что вообще такое OpenGL, для чего это
нужно. Для начала, вы должны неплохо знать ОС Windows, а также язык Си++
(в данном случае, Visual C++, так как мы будем работать именно в этой
среде разработки).
Итак, OpenGL (Открытая Графическая Библиотека) - это программный
интерфейс (API) для разработки приложений с использованием 2D и 3D
графики.
OpenGL стоит как бы между аппаратным обеспечением, и пользовательским уровнем.
Основные особенности этой библиотеки являються:
Стабильность:
Это означает, что дополнение в OpenGL реализуется так, что бы сохранить совместимость с более старым программным обеспечением.
Переносимость (независимость):
Код программы, которую вы написали, скажем, под Windows, можно легко
перенести на Linux и другие ОС. То есть, OpenGL не зависит от какой ни
будь операционной системы, как, например DirectX.
Простота в использовании:
Приложения, написанные с помощью OpenGL, имеют сравнительно небольшой
объем кода. Также эта библиотека имеет понятный интерфейс. И разобраться
в коде программы очень просто.
Ну и наконец OpenGL это отраслевой стандарт, т.е. вы можете взять исходники и сделать на их юызе что-нибудь своё.
Основные возможности OpenGL:
· Набор базовых примитивов: точки, линии, многоугольники и т.п.
· Видовые и координатные преобразования
· Удаление невидимых линий и поверхностей (z-буфер)
· Использование сплайнов для построения линий и поверхностей
· Наложение текстуры и применение освещения
· Добавление специальных эффектов: тумана, изменение прозрачности,
смешивание цветов (blending), устранение ступенчатости (anti-aliasing). Я
думаю, что всех этих достоинств достаточно для того, чтобы выбрать
OpenGL для создания 3D графики (игр, в частности).
Урок №13
Основные термины и понятия компьютерной графики.
Рендеринг- это процесс подготовки, выдачи (прорисовки)
изображения на экран. В общем, это все действия, которые связаны с
выдачей картинки на экран.
Буфер- это область для временного хранения данных.
Двойная буферизация- это один из способов рендеринга, при котором
существует два буфера. Содержимое первого (переднего) буфера (front
buffer) показываеться на экран и вы видите какое то изображение. В это
время на заднем буфере (back buffer) подготавливается следующий кадр
(рисуется). Когда кадр на заднем буфере готов, тогда передний и задний
буфер меняются местами. И затем все это повторяется. С помощью такой
технологии избегается мерцание экрана.
Пиксель- это наименьшая точка, которую можно различить на экране. Он является единицей двухмерного изображения.
Камера- это не то, что вы подумали… Камера- это место, из которого вы смотрите на экран.
Трансформация- нахождение координат точки в заданной системе
координат, используя координаты точки в другой системе (это переносы,
или вращения). При трансформации положение точки не меняется.
Мировая система координат- это система координат, которая
считается неподвижной. Обычно относительно этой системы координат
задаются положение камеры, и объектов.
Примитив- это основная единица, из которой строятся сложные
объекты. Примитивом может быть: точка, линия, треугольник, или что ни
будь подобное…
Z-buffer- также часто вместо этого слова употребляется слово
Буфер Глубины (Depth Buffer). Это буфер величиной с экран, в котором
хранятся Z координаты пикселей. Z-ось добавляет третью величину-
глубину.
Матрица- в компьютерной графике, это массив чисел (обычно 4х4), который содержит значения векторов систем координат.
Проекция- это перевод координат из пространства (камеры) на экран, или с 3х мерных координат в 2х мерные.
Урок 15
Интересный пример по проецированию курсора мыши на 3-х мерную
поверхность! Данный пример будет интересен как новичкам, так и
профессионалам.
Урок №16
Данный исходник программы для игры в Русские шашки! Причем соперник имеет достаточно высокий интелект!
Я пытаюсь сделать арканоид, уже прописал физику мяча, но не могу теперь описать движение платформы.
записал всё как в вашем первом уроке в том же юните, и ничего не происходит.
З.Ы: в чистом юните всё работает.
Памагити!!!
Цитата: unit Horray;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, XPStyleActnCtrls, ActnList, ActnMan;
type
TForm1 = class(TForm)
Shape1: TShape;
Shape2: TShape;
ZGMI: TButton;
procedure ZGMIClick(Sender: TObject);
private
public
procedure HandleMessages(var Msg: tMsg; var Handled: Boolean);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ZGMIClick(Sender: TObject);
begin
while (Shape1.Left + Shape1.Width < Form1.Width) and (shape1.Top > 5) do
begin
shape1.Top := shape1.top -5;
Shape1.Left:= Shape1.Left + 5;
Sleep(10);
Form1.Refresh;
end;
if Shape1.Left + Shape1.Width < Form1.Width then
while Shape1.Left + Shape1.Width < Form1.Width do
begin
shape1.Top := shape1.top +5;
Shape1.Left:= Shape1.Left + 5;
Sleep(10);
Form1.Refresh;
end
else
while shape1.Top > 5 do
begin
shape1.Top := shape1.top -5;
Shape1.Left:= Shape1.Left -5;
Sleep(10);
Form1.Refresh;
end;
if Shape1.Left + Shape1.Width = Form1.Width then
while shape1.top< form1.height - shape1.height do
begin
shape1.Top := shape1.top +5;
Shape1.Left:= Shape1.Left -5;
Sleep(10);
Form1.Refresh;
end
else
while (shape1.top< form1.height - shape1.height) and (Shape1.Left > 0) do
begin
shape1.Top := shape1.top +5;
Shape1.Left:= Shape1.Left -5;
Sleep(10);
Form1.Refresh;
end;
while shape1.top< form1.height - shape1.height do
begin
shape1.Top := shape1.top +5;
Shape1.Left:= Shape1.Left +5;
Sleep(10);
Form1.Refresh;
end;
end;
procedure tForm1.HandleMessages(var Msg: tMsg; var Handled: Boolean);
begin
if (Msg.Message = WM_KeyDown) and
(Msg.wParam in [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT]) then
begin
case Msg.wParam of
VK_UP: ShowMessage;
VK_DOWN: ShowMessage;
VK_LEFT: ShowMessage;
VK_RIGHT: ShowMessage;
end;
Handled := True;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := HandleMessages;
end;
end.
Остальное сам допишешь
ПАСИИИИБ!!!!!!!!!!!!!
ну а с моей то что? люди,
да что с вами, при всём желании у вас не получится создать более или
менее нормальную игру используя VCL, идеальный вариат - это DirectDraw,
но для некоторых он может показаться сложным, для 2D игр есть
альтернатива, для начала учите WinApi, затем создаете форму сами(то есть
пишете всё ручками) при этом у вас не будет ненужных бордеров и в
полноэкранном режипе панель задач не будет вам мешать, затем создаёте
переменные в которые вы будете грузить картинки, и пользуемся функцией
BitBlt() для копирования фрагментов изображений, при этом у вас не будет
ни остановок ни мерцания (если вы создаёте "оконную" игру форму сами
можете не писать, но вот размер вашего приложения будет о-го-го какой)
Horny,
я с вами полностью согласен насчет создания игр с помощью средств DX,
но для начинающих игроделов очень тяжело сразу взять и начать писать
своё детище на DX, я веду к тому, что следует начинать с простого и
постепенно двигаться к большему.
Тоже согласен с комрадом Kostia,
...начинается все с элементарного Image, затем переход на Canvas
(буферизация, вставка Bitmap), затем Win API (GDI), а уже к концу
DirectX, вершина - ассемблер. Почему так? , ...потому, что нужно пройти
весь путь, только тогда можно понять принципы и выбрать методы для
решения конкретной задачи. Иногда можно обойтись и приметивными
методами, если они удовлетворяют условию.
А где же OpenGL? Ей нет места в вашей иерархии?
Да, и мне кажется не стоит путать понятия создание игр и создание графических библиотек.
Какое имеет отношение ассемблер к созданию игр???
Цитата: Сообщение от mutabor А где же OpenGL? Ей нет места в вашей иерархии? Иерархии небыло, просто пример продвижения. Эт как захочется, но основные части показаны ИМХО. Цитата: Сообщение от mutabor Какое имеет отношение ассемблер к созданию игр??? Самое прямое, там где нужна скорость, там и ассемблер, отрицать глупо
Подскажите плз как сделать так, чтобы при нажатии на форму персонаж шел туда куда было нажато))???
Есть
событие OnMouseUp в нем переменные х и у в которые передаются
координаты мыши. Соответственно туда и перемещаеш своего персонажа...
Спс нада будет попробывать
Подскажите
как обрабатывать сразу несколько клавишь, вот например в аркаде, надо
одновременно жать W и D (вперёд и вправо). Как это реализовать?
Цитата: Сообщение от Speeker Есть
событие OnMouseUp в нем переменные х и у в которые передаются
координаты мыши. Соответственно туда и перемещаеш своего персонажа... Спс
помогло! Но у меня еще вопрос) Как сделать что бы обьект плавно шел к
точке в которую нажал?? просто может я неправильно написал: if button = mbleft then shape1.Left:=x; shape1.Top:=y; или нужно воспользоваться таймером? если да то как? Цитата: Сообщение от Simply-Art Подскажите
как обрабатывать сразу несколько клавишь, вот например в аркаде, надо
одновременно жать W и D (вперёд и вправо). Как это реализовать? Код: var
Key: tkeyboardstate; i: integer;begin form1.Caption:=;
windows.GetKeyboardState(key); for i:=0 to 255 do if
(key[i]=128)or(key[i]=129)then form1.Caption:=form1.Caption+
+inttostr(i);end; Попробуй в таймере.
Pfent, вот примерчик. Все грубо, установи смещение на картинку и будет идти туда куда ткнул мышью.
Огромное спасибо за пример
Пользоваться
таймером. там прописать что то типа если координата х больше левфт то
лефт=лефт+1.... то же самое с у, кроме того может быть такое что
добавлять надо не единицу... можно попробовать реализовать это через
уравнение прямой...
Вот вам в качестве урока по созданию логических игр (это не РПГ =).
Исходник игры кликомания (коллапс) на Дельфи.
http://www.programmersforum.ru/attac...4&d=1196863119
|
