|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2010, 16:43 | #1 |
Новичок
Джуниор
Регистрация: 20.05.2010
Сообщений: 1
|
Не просто тетрис
Мля... На курсовую надо написать тетрис... Да не просто классический, а из букв... Вот мозг ломаю, что да как сделать...
|
26.05.2010, 02:47 | #2 |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
пусть у тебя падают edit`ы ( по таймеру меняй их свойство Top и если нажата стрелка вправо\влево , то и свойство Left) и присваивай им рандомно буквы, то есть edit1.Text:=chr(65+random(30))
и запоминай в определённый массив запоминай координаты этих эдитов.так же отдельную процедуру создай для проверки одинаковых букв по вертикали и горизонтали. создай такую переменную tetris: record edits:array of Tedit; bykva:char; koordinatX,koordinatY: integer; end; и переменную n: integer=0; счётчик edit`ов для каждого едита нужно будет писать n:=n+1; setLength(tetris.edits,n); tetris.edits[i-1]:= Tedit.Create; потом их Top, Left и Visible заполнить нужно и передвигать пока она не дошла либо до конца формы, либо до кокаого то едита. во ти всё. даже лучше label
Если помог, проси поставить минус. Будь оригинален!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Тетрис | k1r1ch | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 2 | 02.01.2010 12:20 |
Паскальный тетрис | ZzaYo | Помощь студентам | 2 | 07.08.2009 17:31 |
Мой тетрис | Виталий Серов | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 2 | 31.05.2009 01:23 |
Тетрис на VBA | TheHolyDemon | Microsoft Office Excel | 4 | 30.05.2009 11:37 |
массив и тетрис | sid | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 04.04.2007 14:41 |