IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Клавиатурный тренажёр, Помогите доделать
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской
Реальное имя: Einar

Репутация: -  0  +


Здрасте люди! Помогите пожалуйста доделать игру, она должна быть в графическом режиме.
В архиве мой недоделок (tren(graph).pas) и образец по котораму я делаю в текстовом режиме (tren(txt).pas).
Помагите пожалуйста.


Прикрепленные файлы
Прикрепленный файл  nedodelok.rar ( 63.79 килобайт ) Кол-во скачиваний: 181
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 618
Пол: Мужской

Репутация: -  24  +


Первое, что бросилось в глаза:
case ch of
'q': ch:='q'; 'w': ch:='w'; 'e': ch:='e'; 'r': ch:='r'; 't': ch:='t';
'y': ch:='y'; 'u': ch:='u'; 'i': ch:='i'; 'o': ch:='o'; 'p': ch:='p';
'a': ch:='a'; 's': ch:='s'; 'd': ch:='d'; 'f': ch:='f'; 'g': ch:='g';
'h': ch:='h'; 'j': ch:='j'; 'k': ch:='k'; 'l': ch:='l'; 'z': ch:='z';
'x': ch:='x'; 'c': ch:='c'; 'v': ch:='v'; 'b': ch:='b'; 'n': ch:='n';
'm': ch:='m';
end;
Это что? На всякий случай? blink.gif

Потом, непонятно, что ты хочешь. С чем конкретно помочь? Не знаешь, как преобразовать число в строку для вывода через outtext? Вот функция:
function IntToStr(i: Longint): String;
var
s: String;
begin
Str(i, s) ;
IntToStr := s;
end;
Не знаешь, почему буквы отображаются криво? Не надо их каждый раз рисовать поверх, надо стирать сперва.


--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.10.2020 11:07
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name