Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Клавиатурный тренажер на с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Дана последовательность расположить её положительные элементы стоящие на нечётных местах по возрастанию http://www.cyberforum.ru/cpp-beginners/thread773180.html
Помогите, пожалуйста. >>Дана последовательность расположить её положительные элементы стоящие на нечётных местах по возрастанию.<< Нужно написать алгоритм на C++ Заранее спасибо добрым людям!
C++ Реализовать вычисление кусочно-заданной функции Реализовать вычисление кусочно-заданной функции : f(x)=\begin{cases} & \text{(ln(1+|x|)/1+x^2+x^4)*e^-2x, if } x\preceq 0 \\ & \text{ \sqrt{1+ctg^2x } ,if } x\epsilon(0,\pi ) \\ &... http://www.cyberforum.ru/cpp-beginners/thread773179.html
Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные C++
Помогите, пожалуйста. >>"Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные."<< Нужно написать алгоритм на C++...
C++ Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные
Помогите, пожалуйста. >>"Дан одномерный массив А, состоящий из N элементов. Сколько значений элементов встречается в массиве по 3 раза?"<< Нужно написать алгоритм на C++ Заранее спасибо добрым...
C++ Изучение С++ http://www.cyberforum.ru/cpp-beginners/thread773170.html
Очень загорелся в изучении с++, учусь только на втором курсе радиотехнического техникума, и учим паскаль, но я уверен в том что он мне не сильно понадобится.... Постепенно конечно на парах буду...
C++ c++ как подсчитать количество записей в файле Есть файл, в нем хранится определенное количество структур размером sizeof(Student), необходимо подсчитать их количество. Пробовал вот так, но на этом месте программа вылетает. ... подробнее

Показать сообщение отдельно
S@M@N
0 / 0 / 0
Регистрация: 23.03.2012
Сообщений: 6
28.01.2013, 20:28  [ТС]
Задали создать приложение Клавиатурный тренажер.У меня есть код на Delphi,а надо перевести на с++!Заранее благодарю!
Раздел INTERFACE выглядит следующим образом:


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls;
 
type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Panel1: TPanel;
Button2: TButton;
Panel2: TPanel;
Button3: TButton;
StatusBar1: TStatusBar;
Timer2: TTimer;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Button3Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
 
var
Form1: TForm1;
count, uncount, x: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Focused;
Panel2.Visible := true;
Panel2.Top := 0;
Randomize;
Panel2.Caption := Chr(Random(26)+97) ;
count := 0;
uncount := 0;
x := 1;
Label1.Caption := 'Level ' + IntToStr(x);
Timer1.Enabled := true;
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Panel2.Caption = key then
begin
Inc(count);
StatusBar1.Panels[1].Text := IntToStr(count);
Panel2.Top := Panel1.Height;
end;
if count = x * 10 then
begin
Inc(x);
Label1.Caption := 'Level ' + IntToStr(x);
if Timer1.Interval <= 250 then Timer1.Interval := Timer1.Interval - 25
else
if Timer1.Interval <= 100 then Timer1.Interval := 100
else
Timer1.Interval := Timer1.Interval - 250;
end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Randomize;
if Panel1.Height > Panel2.Top then
Panel2.Top := Panel2.Top + 20
else
begin
Randomize;
Panel2.Caption := Chr(Random(26)+97);
Panel2.Left := Random(Panel1.Width - Panel2.Width);
Panel2.Top := 0;
nc(uncount);
StatusBar1.Panels[3].Text := IntToStr(uncount)
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled := False;
Panel2.Visible := False;
ShowMessage(IntToStr(count) + ' times correctly!')
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var DateTime: TDateTime;
begin
DateTime := TIME;
StatusBar1.Panels[4].Text := DateToStr(Date) + ' ' + TimeToStr(DateTime);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;
end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru