[C++] Тенис

[ordoss]

Хотел написать теннис, но для начала решил реализовать простое вертикальное отбивание шарика от платформы и стенки.
Создал два обьекта TShape ball(10x10) и platform(10x100) на области 200х400:

while(ball->Top != 190)
	{
	if (ball->Top == 170 && ball->Left + 10 <= platform->Left + 100 && ball->Left >= platform->Left)
		while (ball->Top != 0)
			ball->Top -= 10;
	if (ball->Top == 0)
		while (ball->Top != 170 || ball->Top != 190)
			ball->Top += 10;
	}

Программа успешно компилируется, но окно програмы не появляется, в чем проблема?

[Selestis]

Ну так явно присылать надо было не обработку коллизий, а создание окна, правда ведь? Код в студию

[ordoss]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	while(ball->Top != 190)
	{
	if (ball->Top == 170 && ball->Left + 10 <= platform->Left + 100 && ball->Left >= platform->Left)
		while (ball->Top != 0)
			ball->Top -= 10;
	if (ball->Top == 0)
		while (ball->Top != 170 || ball->Top != 190)
			ball->Top += 10;
	}

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
	if (GetAsyncKeyState(VK_LEFT) && platform->Left > 0)
		platform->Left -= 10;
	if (GetAsyncKeyState(VK_RIGHT) && platform->Left < Form1->ClientWidth - 100)
		platform->Left += 10;
}
//---------------------------------------------------------------------------

[Гром]

В конструктор пихать цикл? Еще бы оно появилось!
Создайте на форме таймер и пихайте цикл в него, а конструктор уж оставьте пустым.

[ordoss]

Гром, да, спасибо. Теперь отбивание работает.
Но появился другой вопрос, как мне динамически создавать на форме обьекты TShape?

[Гром]

TShape* MyShape = new TShape;

Не знаю, что за класс, обычно VCL'вским компонентам надо еще указывать свойство Parent - другой компонент, на котором они располагаются.

[ordoss]

[BCC32 Error] Unit1.cpp(34): E2285 Could not find a match for 'TShape::TShape()'

не работает

[ordoss]

все, разобрался