Вычисление скорости печати (символов / мин)

@cyxAL · Регистрация: 26.05.2013

Author24 — интернет-сервис помощи студентам

СРОЧНО НУЖНА ПРОГРАММА В ДЕЛФИ 7 КОТОРАЯ ВЫЧИСЛЯЕТ СКОРОСТЬ ПЕЧАТАНИЯ В МИНУТУ(*символов/мин)! программа должна содержать поле TMemo кнопку TButton (Старт) и видимый таймер при истечении минуты пограмма должна остановиться и вывести результат на экран.

@cotseec · 26.05.2013, 12:47

и в чем беда?

@cyxAL · 26.05.2013, 12:49 **[ТС]**

я без понятий как ее написать

Добавлено через 44 секунды
я знаю из чего она должна состоять а код ее не знаю

@cotseec · 26.05.2013, 12:50

начинайте писать, будут зачатки кода - будет помощь, если совсем никак - фриланс в помощь

@cyxAL · 26.05.2013, 12:55 **[ТС]**

мне нужно знать как при нажатии кнопки активировать поле для набора текста и как остановить набор текста после истечения минуты и выведения результата

@cotseec · 26.05.2013, 13:05

Сообщение от cyxAL

активировать поле для набора текста

если это мемо, то либо либо (зависит от того, как оно "деактивировано")

Delphi

1 2	Memo1.ReadOnly:=false; Memo1.Enabled:=true;

+включение таймера

Сообщение от cyxAL

как остановить набор текста после истечения минуты

в таймере отсчет, по истечении минуты - операции обратные "активации"+выключение таймера

@volvo · 26.05.2013, 13:05

При нажатии кнопки запускаешь минутный таймер, и выставляешь полю для набора текста Enabled := True. Пользователь может вводить текст. Как таймер сработал - считаешь, сколько символов было набрано, печатаешь результат и снова отключаешь Enabled полю ввода, вместе с таймером.

@cyxAL · 26.05.2013, 13:58 **[ТС]**

прописал я этот код все равно курсор при нажатии кнопки не выставляется

@volvo · 26.05.2013, 14:02

Правильно, фокус-то при нажатии кнопки, и есть на кнопке. Передай фокус в Memo:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Enabled := true;
  Memo1.SetFocus;
end;

@cyxAL · 26.05.2013, 14:52 **[ТС]**

Все вроде сделал осталось последнее как подсчитать символы в Mеmo и вывести результат?

@volvo · 26.05.2013, 15:34

Так что ж ты делал-то всё это время? Первое, что надо было делать - это считать, сколько символов успел ввести пользователь, и только потом наводить красоту на форме!!!

Delphi

1	Memo1.Lines.Add('Введено символов: ' + IntToStr(Length(Memo1.Text)));

@Cyborg Drone · 21.07.2015, 17:12

Комментарий модератора

Создана тема во фрилансе: https://www.cyberforum.ru/orde... 79042.html

Эта тема закрыта.

@FIL · 21.07.2015, 20:01

Не по теме:

Сообщение от Cyborg Drone

Создана тема во фрилансе

Причем создана 2 года назад))

@cyxAL 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 10
	26.05.2013, 14:52 [ТС]	10
	Все вроде сделал осталось последнее как подсчитать символы в Mеmo и вывести результат? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	26.05.2013, 12:47	2
	и в чем беда? 0

@cyxAL 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 10
	26.05.2013, 12:49 [ТС]	3
	я без понятий как ее написать Добавлено через 44 секунды я знаю из чего она должна состоять а код ее не знаю 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	26.05.2013, 12:50	4
	начинайте писать, будут зачатки кода - будет помощь, если совсем никак - фриланс в помощь 0

@cyxAL 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 10
	26.05.2013, 12:55 [ТС]	5
	мне нужно знать как при нажатии кнопки активировать поле для набора текста и как остановить набор текста после истечения минуты и выведения результата 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	26.05.2013, 13:05	7
	При нажатии кнопки запускаешь минутный таймер, и выставляешь полю для набора текста Enabled := True. Пользователь может вводить текст. Как таймер сработал - считаешь, сколько символов было набрано, печатаешь результат и снова отключаешь Enabled полю ввода, вместе с таймером. 0

@cyxAL 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 10
	26.05.2013, 13:58 [ТС]	8
	прописал я этот код все равно курсор при нажатии кнопки не выставляется 0

@FIL
	21.07.2015, 20:01 Вычисление скорости печати (символов / мин) #13
	Не по теме: Сообщение от Cyborg Drone Создана тема во фрилансе Причем создана 2 года назад)) 0