Надо перегнать код с Delphi в CBuilder
29.05.2013, 07:16. Показов 908. Ответов 0
Пожалуйста помогите перегнать исходник цифровых часов Delphi в CBuilder
| 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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, DateUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, Menus;
type
TForm1 = class(TForm)
Timer1: TTimer;
MainMenu1: TMainMenu;
N1: TMenuItem;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
message WM_GETMINMAXINFO;
public
{ Public declarations }
end;
const //задаем константы для описания цифр (необходимо для прорисовки)
dig1 = 'BC';
dig2 = 'ABGED';
dig3 = 'ABGCD';
dig4 = 'FGBC';
dig5 = 'AFGCD';
dig6 = 'AFGEDC';
dig7 = 'ABC';
dig8 = 'ABCDEFG';
dig9 = 'FABGCD';
dig0 = 'ABCDEF';
// Цвет горящих сегментов
ColorOn: Tcolor = clBlue;
// Цвет погашенных сенментов
ColorOff: TColor = clltGray;
var
Form1: TForm1;
Hndl: HDC;
ts:string;
Hour,Min,Sec: word; // Время
Hour_1,Hour_2,Min_1,Min_2,Sec_1,Sec_2:string; //переменные, содержащие отдельные символы времени
Hst,Mst,Sst:string; //переменные, содержащие строковое значение времени
a,b,c,d,e,f:string;
implementation
{$R *.dfm}
// Задаем максимальные и минимальные значения размеры окна
procedure TForm1.WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
begin
Message.MinMaxInfo^.ptMinTrackSize := Point(400, 155);
Message.MinMaxInfo^.ptMaxTrackSize := Point(600, 300);
end;
//Работа с текущим системным временем
procedure Calc_time();//определяем текущее системное время
begin
Hour := HourOf(Now);
Min := MinuteOf(Now);
Sec := SecondOf(Now);
if Hour < 10 //если значение меньше 10, то прибавляем впереди 0
then Hst := '0'+IntToStr(Hour)
else Hst := IntToStr(Hour);
if Min < 10
then Mst := '0'+IntToStr(Min)
else Mst := IntToStr(Min);
if Sec < 10
then Sst := '0'+IntToStr(Sec)
else Sst := IntToStr(Sec);
end;
//пример парсинга строк
procedure parstime(); //парсим занчение времени целью разбить часы/минуты/секунды на одиночные цыфры
begin
Hour_1:=Hst[1];
Hour_2:=Hst[2];
Min_1:=Mst[1];
Min_2:=Mst[2];
Sec_1:=Sst[1];
Sec_2:=Sst[2];
end;
procedure Time_dig();
begin
if Hour_1='0'then
a:=dig0;
if Hour_1='1' then
a:=dig1;
if Hour_1='2' then
a:=dig2;
if Hour_1='3' then
a:=dig3;
if Hour_1='4' then
a:=dig4;
if Hour_1='5' then
a:=dig5;
if Hour_1='6' then
a:=dig6;
if Hour_1='7' then
a:=dig7;
if Hour_1='8' then
a:=dig8;
if Hour_1='9' then
a:=dig9;
if Hour_2='0'then
b:=dig0;
if Hour_2='1'then
b:=dig1;
if Hour_2='2'then
b:=dig2;
if Hour_2='3'then
b:=dig3;
if Hour_2='4'then
b:=dig4;
if Hour_2='5'then
b:=dig5;
if Hour_2='6'then
b:=dig6;
if Hour_2='7'then
b:=dig7;
if Hour_2='8'then
b:=dig8;
if Hour_2='9'then
b:=dig9;
if Min_1='0' then
c:=dig0;
if Min_1='1' then
c:=dig1;
if Min_1='2' then
c:=dig2;
if Min_1='3' then
c:=dig3;
if Min_1='4' then
c:=dig4;
if Min_1='5' then
c:=dig5;
if Min_1='6' then
c:=dig6;
if Min_1='7' then
c:=dig7;
if Min_1='8' then
c:=dig8;
if Min_1='9' then
c:=dig9;
if Min_2='0' then
d:=dig0;
if Min_2='1' then
d:=dig1;
if Min_2='2' then
d:=dig2;
if Min_2='3' then
d:=dig3;
if Min_2='4' then
d:=dig4;
if Min_2='5' then
d:=dig5;
if Min_2='6' then
d:=dig6;
if Min_2='7' then
d:=dig7;
if Min_2='8' then
d:=dig8;
if Min_2='9' then
d:=dig9;
if Sec_1='0' then
e:=dig0;
if Sec_1='1' then
e:=dig1;
if Sec_1='2' then
e:=dig2;
if Sec_1='3' then
e:=dig3;
if Sec_1='4' then
e:=dig4;
if Sec_1='5' then
e:=dig5;
if Sec_1='6' then
e:=dig6;
if Sec_1='7' then
e:=dig7;
if Sec_1='8' then
e:=dig8;
if Sec_1='9' then
e:=dig9;
if Sec_2='0' then
f:=dig0;
if Sec_2='1' then
f:=dig1;
if Sec_2='2' then
f:=dig2;
if Sec_2='3' then
f:=dig3;
if Sec_2='4' then
f:=dig4;
if Sec_2='5' then
f:=dig5;
if Sec_2='6' then
f:=dig6;
if Sec_2='7' then
f:=dig7;
if Sec_2='8' then
f:=dig8;
if Sec_2='9' then
f:=dig9;
end;
//прорисовка точек на форме
procedure t4k(); //рисуем точки разделения
begin
Form1.Canvas.Pen.Width:=Trunc(6);
Form1.Canvas.MoveTo(129,70);
Form1.Canvas.LineTo(129,70);
Form1.Canvas.MoveTo(129,20);
Form1.Canvas.LineTo(129,20);
Form1.Canvas.MoveTo(259,70);
Form1.Canvas.LineTo(259,70);
Form1.Canvas.MoveTo(259,20);
Form1.Canvas.LineTo(259,20);
end;
procedure t4kon(); //зажигаем точки
begin
ts:='1';
Form1.Canvas.Pen.Color:=ColorOn;
t4k()
end;
// процедура, рисующая на форме, на канве семисегментные индикаторы
// параметры (координаты, размер) задаются при вызове данной процедуры
procedure Display7Seg(SegStr: string; x, y: integer; Scale: extended; hndl:
hdc);
var
// Canvas на который выводится изображение
Canvas1: TCanvas;
// Координаты выводимого сегмента
x1, x2, y1, y2: integer;
begin
// Создаем Canvas
Canvas1 := TCanvas.Create;
// Проверяем масштаб и если он меньше 1 присваиваем ему 1
if Scale < 1 then
scale := 1;
// Укажем что вывод осуществляется на Canvas переданный в параметрах
Canvas1.Handle := Hndl;
// Установим толщину линий сегментов равной масштабу
Canvas1.Pen.Width := Trunc(Scale);
// Пересчитаем координаты вывода с учетом масштаба для всех сегментов
{A}
x1 := Trunc(x + 1 * scale);
x2 := Trunc(x1 + 5 * scale);
y1 := y;
y2 := y;
if StrPos(Pchar(SegStr), 'A') <> nil then
Canvas1.Pen.Color := ColorOn
else
Canvas1.Pen.Color := ColorOff;
Canvas1.MoveTo(x1, y1);
Canvas1.LineTo(x2, y2);
{G}
y1 := Trunc(y + 6 * Scale);
y2 := y1;
if StrPos(Pchar(SegStr), 'G') <> nil then
Canvas1.Pen.Color := ColorOn
else
Canvas1.Pen.Color := ColorOff;
Canvas1.MoveTo(x1, y1);
Canvas1.LineTo(x2, y2);
{D}
y1 := Trunc(y + 12 * Scale);
y2 := y1;
if StrPos(Pchar(SegStr), 'D') <> nil then
Canvas1.Pen.Color := ColorOn
else
Canvas1.Pen.Color := ColorOff;
Canvas1.MoveTo(x1, y1);
Canvas1.LineTo(x2, y2);
{F}
x1 := x;
x2 := x;
y1 := Trunc(y + 1 * scale);
y2 := Trunc(y + 5 * scale);
if StrPos(Pchar(SegStr), 'F') <> nil then
Canvas1.Pen.Color := ColorOn
else
Canvas1.Pen.Color := ColorOff;
Canvas1.MoveTo(x1, y1);
Canvas1.LineTo(x2, y2);
{E}
y1 := Trunc(y + 7 * scale);
y2 := Trunc(y + 11 * scale);
if StrPos(Pchar(SegStr), 'E') <> nil then
Canvas1.Pen.Color := ColorOn
else
Canvas1.Pen.Color := ColorOff;
Canvas1.MoveTo(x1, y1);
Canvas1.LineTo(x2, y2);
{C}
x1 := Trunc(x + 7 * scale);
x2 := x1;
if StrPos(Pchar(SegStr), 'C') <> nil then
Canvas1.Pen.Color := ColorOn
else
Canvas1.Pen.Color := ColorOff;
Canvas1.MoveTo(x1, y1);
Canvas1.LineTo(x2, y2);
{B}
y1 := Trunc(y + 1 * scale);
y2 := Trunc(y + 5 * scale);
if StrPos(Pchar(SegStr), 'B') <> nil then
Canvas1.Pen.Color := ColorOn
else
Canvas1.Pen.Color := ColorOff;
Canvas1.MoveTo(x1, y1);
Canvas1.LineTo(x2, y2);
// После вывода последнего сегмента освободим Canvas
Canvas1.Free;
end;
//ТАЙМЕР
procedure TForm1.Timer1Timer(Sender: TObject);//таймер, под его командованием происходит работа всей программы :)
begin
Calc_time(); //вызов процедуры
parstime(); //вызов процедуры
Time_dig(); //вызов процедуры
Hndl:= Form1.Canvas.Handle;
Display7Seg(a,10,10,6,Hndl); //рисуем первый индикатор
Display7Seg(b,75,10,6,Hndl); //рисуем второй индикатор
Display7Seg(c,140,10,6,Hndl); //рисуем третий индикатор
Display7Seg(d,205,10,6,Hndl); //рисуем четвертый индикатор
Display7Seg(e,270,10,6,Hndl); //рисуем пятый индикатор
Display7Seg(f,335,10,6,Hndl); //рисуем шестой индикатор
t4kon();
end;
//создание формы
procedure TForm1.FormCreate(Sender: TObject);
begin
Calc_time(); //при создании формы приложения вычисляем время
//Form1.KeyPreview := True;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
Close;
end;
end. |
|
Какой из Unit1.hpp будет правильней?
1
Кликните здесь для просмотра всего текста
| C++ | 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
104
105
106
107
108
109
110
111
112
| // Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved
// (DO NOT EDIT: machine generated header) 'Unit1.pas' rev: 6.00
#ifndef Unit1HPP
#define Unit1HPP
#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp> // Pascal unit
#include <ComCtrls.hpp> // Pascal unit
#include <Buttons.hpp> // Pascal unit
#include <ExtCtrls.hpp> // Pascal unit
#include <StdCtrls.hpp> // Pascal unit
#include <Dialogs.hpp> // Pascal unit
#include <Forms.hpp> // Pascal unit
#include <Controls.hpp> // Pascal unit
#include <Graphics.hpp> // Pascal unit
#include <Classes.hpp> // Pascal unit
#include <Variants.hpp> // Pascal unit
#include <DateUtils.hpp> // Pascal unit
#include <SysUtils.hpp> // Pascal unit
#include <Messages.hpp> // Pascal unit
#include <Windows.hpp> // Pascal unit
#include <SysInit.hpp> // Pascal unit
#include <System.hpp> // Pascal unit
//-- user supplied -----------------------------------------------------------
namespace Unit1
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TForm1;
class PASCALIMPLEMENTATION TForm1 : public Forms::TForm
{
typedef Forms::TForm inherited;
published:
Extctrls::TTimer* Timer1;
Menus::TMainMenu* MainMenu1;
Menus::TMenuItem* N1;
void __fastcall Timer1Timer(System::TObject* Sender);
void __fastcall FormCreate(System::TObject* Sender);
void __fastcall N1Click(System::TObject* Sender);
private:
HIDESBASE MESSAGE void __fastcall WMGetMinMaxInfo(Messages::TWMGetMinMaxInfo &Message);
public:
#pragma option push -w-inl
/* TCustomForm.Create */ inline __fastcall virtual TForm1(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomForm.CreateNew */ inline __fastcall virtual TForm1(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomForm.Destroy */ inline __fastcall virtual ~TForm1(void) { }
#pragma option pop
public:
#pragma option push -w-inl
/* TWinControl.CreateParented */ inline __fastcall TForm1(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
#pragma option pop
};
//-- var, const, procedure ---------------------------------------------------
#define dig1 "BC"
#define dig2 "ABGED"
#define dig3 "ABGCD"
#define dig4 "FGBC"
#define dig5 "AFGCD"
#define dig6 "AFGEDC"
#define dig7 "ABC"
#define dig8 "ABCDEFG"
#define dig9 "FABGCD"
#define dig0 "ABCDEF"
extern PACKAGE Graphics::TColor ColorOn;
extern PACKAGE Graphics::TColor ColorOff;
extern PACKAGE TForm1* Form1;
extern PACKAGE HDC Hndl;
extern PACKAGE AnsiString ts;
extern PACKAGE Word Hour;
extern PACKAGE Word Min;
extern PACKAGE Word Sec;
extern PACKAGE AnsiString Hour_1;
extern PACKAGE AnsiString Hour_2;
extern PACKAGE AnsiString Min_1;
extern PACKAGE AnsiString Min_2;
extern PACKAGE AnsiString Sec_1;
extern PACKAGE AnsiString Sec_2;
extern PACKAGE AnsiString Hst;
extern PACKAGE AnsiString Mst;
extern PACKAGE AnsiString Sst;
extern PACKAGE AnsiString a;
extern PACKAGE AnsiString b;
extern PACKAGE AnsiString c;
extern PACKAGE AnsiString d;
extern PACKAGE AnsiString e;
extern PACKAGE AnsiString f;
} /* namespace Unit1 */
using namespace Unit1;
#pragma option pop // -w-
#pragma option pop // -Vx
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // Unit1 |
|
или 2
Кликните здесь для просмотра всего текста
| C++ | 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
| #ifndef Unit1H
#define Unit1H
#include <System.hpp>
#include <windows.hpp>
#include <messages.hpp>
#include <sysutils.hpp>
#include <dateutils.hpp>
#include <variants.hpp>
#include <classes.hpp>
#include <graphics.hpp>
#include <controls.hpp>
#include <forms.hpp>
#include <dialogs.hpp>
#include <stdctrls.hpp>
#include <extctrls.hpp>
#include <buttons.hpp>
#include <comctrls.hpp>
#include <menus.hpp>
class TForm1;
class TForm1: public TForm {
typedef TForm inherited;
public:
TTimer Timer1;
TMainMenu MainMenu1;
TMenuItem N1;
void __fastcall Timer1Timer( TObject* Sender );
void __fastcall FormCreate( TObject* Sender );
void __fastcall N1Click( TObject* Sender );
private:
/* Private declarations */
MESSAGE void __fastcall WMGetMinMaxInfo( TWMGetMinMaxInfo& Message ) /*# WM_GETMINMAXINFO */;
public:
/* Public declarations */
private:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_GETMINMAXINFO, TWMGetMinMaxInfo, WMGetMinMaxInfo)
END_MESSAGE_MAP( TForm )
}; //задаем константы для описания цифр (необходимо для прорисовки)
const char dig1[] = "BC";
const char dig2[] = "ABGED";
const char dig3[] = "ABGCD";
const char dig4[] = "FGBC";
const char dig5[] = "AFGCD";
const char dig6[] = "AFGEDC";
const char dig7[] = "ABC";
const char dig8[] = "ABCDEFG";
const char dig9[] = "FABGCD";
const char dig0[] = "ABCDEF";
// Цвет горящих сегментов
extern Tcolor ColorOn;
// Цвет погашенных сенментов
extern Tcolor ColorOff;
extern TForm1* Form1;
extern HDC Hndl;
extern String ts;
extern WORD Hour, Min, Sec; // Время
extern String Hour_1, Hour_2, Min_1, Min_2, Sec_1, Sec_2; //переменные, содержащие отдельные символы времени
extern String Hst, Mst, Sst; //переменные, содержащие строковое значение времени
extern String a, b, c, d, e, f;
#endif // Unit1H |
|
Добавлено через 14 минут
А вот main.cpp
Кликните здесь для просмотра всего текста
| C++ | 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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
| #include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma resource "*.dfm"
#include <System.hpp>
// Цвет горящих сегментов
Tcolor ColorOn = clBlue;
// Цвет погашенных сенментов
Tcolor ColorOff = clltGray;
TForm1* Form1 = NULL;
HDC Hndl;
String ts;
WORD Hour = 0, Min = 0, Sec = 0;
String Hour_1, Hour_2, Min_1, Min_2, Sec_1, Sec_2;
String Hst, Mst, Sst;
String a, b, c, d, e, f;
// Задаем максимальные и минимальные значения размеры окна
void __fastcall TForm1::WMGetMinMaxInfo( TWMGetMinMaxInfo& Message )
{
Message.MinMaxInfo.ptMinTrackSize = Point( 400, 155 );
Message.MinMaxInfo.ptMaxTrackSize = Point( 600, 300 );
}
//Работа с текущим системным временем
void __fastcall Calc_time( )//определяем текущее системное время
{
Hour = HourOf( Now );
Min = MinuteOf( Now );
Sec = SecondOf( Now );
if //если значение меньше 10, то прибавляем впереди 0
( Hour < 10 )
Hst = "0" + IntToStr( Hour );
else
Hst = IntToStr( Hour );
if ( Min < 10 )
Mst = "0" + IntToStr( Min );
else
Mst = IntToStr( Min );
if ( Sec < 10 )
Sst = "0" + IntToStr( Sec );
else
Sst = IntToStr( Sec );
}
//пример парсинга строк
void __fastcall parstime( ) //парсим занчение времени целью разбить часы/минуты/секунды на одиночные цыфры
{
Hour_1 = Hst[1];
Hour_2 = Hst[2];
Min_1 = Mst[1];
Min_2 = Mst[2];
Sec_1 = Sst[1];
Sec_2 = Sst[2];
}
void __fastcall Time_dig( )
{
if ( Hour_1 == "0" )
a = dig0;
if ( Hour_1 == "1" )
a = dig1;
if ( Hour_1 == "2" )
a = dig2;
if ( Hour_1 == "3" )
a = dig3;
if ( Hour_1 == "4" )
a = dig4;
if ( Hour_1 == "5" )
a = dig5;
if ( Hour_1 == "6" )
a = dig6;
if ( Hour_1 == "7" )
a = dig7;
if ( Hour_1 == "8" )
a = dig8;
if ( Hour_1 == "9" )
a = dig9;
if ( Hour_2 == "0" )
b = dig0;
if ( Hour_2 == "1" )
b = dig1;
if ( Hour_2 == "2" )
b = dig2;
if ( Hour_2 == "3" )
b = dig3;
if ( Hour_2 == "4" )
b = dig4;
if ( Hour_2 == "5" )
b = dig5;
if ( Hour_2 == "6" )
b = dig6;
if ( Hour_2 == "7" )
b = dig7;
if ( Hour_2 == "8" )
b = dig8;
if ( Hour_2 == "9" )
b = dig9;
if ( Min_1 == "0" )
c = dig0;
if ( Min_1 == "1" )
c = dig1;
if ( Min_1 == "2" )
c = dig2;
if ( Min_1 == "3" )
c = dig3;
if ( Min_1 == "4" )
c = dig4;
if ( Min_1 == "5" )
c = dig5;
if ( Min_1 == "6" )
c = dig6;
if ( Min_1 == "7" )
c = dig7;
if ( Min_1 == "8" )
c = dig8;
if ( Min_1 == "9" )
c = dig9;
if ( Min_2 == "0" )
d = dig0;
if ( Min_2 == "1" )
d = dig1;
if ( Min_2 == "2" )
d = dig2;
if ( Min_2 == "3" )
d = dig3;
if ( Min_2 == "4" )
d = dig4;
if ( Min_2 == "5" )
d = dig5;
if ( Min_2 == "6" )
d = dig6;
if ( Min_2 == "7" )
d = dig7;
if ( Min_2 == "8" )
d = dig8;
if ( Min_2 == "9" )
d = dig9;
if ( Sec_1 == "0" )
e = dig0;
if ( Sec_1 == "1" )
e = dig1;
if ( Sec_1 == "2" )
e = dig2;
if ( Sec_1 == "3" )
e = dig3;
if ( Sec_1 == "4" )
e = dig4;
if ( Sec_1 == "5" )
e = dig5;
if ( Sec_1 == "6" )
e = dig6;
if ( Sec_1 == "7" )
e = dig7;
if ( Sec_1 == "8" )
e = dig8;
if ( Sec_1 == "9" )
e = dig9;
if ( Sec_2 == "0" )
f = dig0;
if ( Sec_2 == "1" )
f = dig1;
if ( Sec_2 == "2" )
f = dig2;
if ( Sec_2 == "3" )
f = dig3;
if ( Sec_2 == "4" )
f = dig4;
if ( Sec_2 == "5" )
f = dig5;
if ( Sec_2 == "6" )
f = dig6;
if ( Sec_2 == "7" )
f = dig7;
if ( Sec_2 == "8" )
f = dig8;
if ( Sec_2 == "9" )
f = dig9;
}
//прорисовка точек на форме
void __fastcall t4k( ) //рисуем точки разделения
{
Form1->Canvas.Pen.Width = Trunc( 6 );
Form1->Canvas.MoveTo( 129, 70 );
Form1->Canvas.LineTo( 129, 70 );
Form1->Canvas.MoveTo( 129, 20 );
Form1->Canvas.LineTo( 129, 20 );
Form1->Canvas.MoveTo( 259, 70 );
Form1->Canvas.LineTo( 259, 70 );
Form1->Canvas.MoveTo( 259, 20 );
Form1->Canvas.LineTo( 259, 20 );
}
void __fastcall t4kon( ) //зажигаем точки
{
ts = "1";
Form1->Canvas.Pen.Color = ColorOn;
t4k( );
}
// процедура, рисующая на форме, на канве семисегментные индикаторы
// параметры (координаты, размер) задаются при вызове данной процедуры
void __fastcall Display7Seg( String SegStr, int x, int y, long double Scale, HDC Hndl )
{
// Canvas на который выводится изображение
TCanvas Canvas1;
// Координаты выводимого сегмента
int x1 = 0, x2 = 0, y1 = 0, y2 = 0;
// Создаем Canvas
Canvas1 = TCanvas.Create;
// Проверяем масштаб и если он меньше 1 присваиваем ему 1
if ( Scale < 1 )
Scale = 1;
// Укажем что вывод осуществляется на Canvas переданный в параметрах
Canvas1.Handle = Hndl;
// Установим толщину линий сегментов равной масштабу
Canvas1.Pen.Width = Trunc( Scale );
// Пересчитаем координаты вывода с учетом масштаба для всех сегментов
/*A*/
x1 = Trunc( x + 1 * Scale );
x2 = Trunc( x1 + 5 * Scale );
y1 = y;
y2 = y;
if ( StrPos( SegStr.c_str(), 'A' ) != NULL )
Canvas1.Pen.Color = ColorOn;
else
Canvas1.Pen.Color = ColorOff;
Canvas1.MoveTo( x1, y1 );
Canvas1.LineTo( x2, y2 );
/*G*/
y1 = Trunc( y + 6 * Scale );
y2 = y1;
if ( StrPos( SegStr.c_str(), 'G' ) != NULL )
Canvas1.Pen.Color = ColorOn;
else
Canvas1.Pen.Color = ColorOff;
Canvas1.MoveTo( x1, y1 );
Canvas1.LineTo( x2, y2 );
/*D*/
y1 = Trunc( y + 12 * Scale );
y2 = y1;
if ( StrPos( SegStr.c_str(), 'D' ) != NULL )
Canvas1.Pen.Color = ColorOn;
else
Canvas1.Pen.Color = ColorOff;
Canvas1.MoveTo( x1, y1 );
Canvas1.LineTo( x2, y2 );
/*F*/
x1 = x;
x2 = x;
y1 = Trunc( y + 1 * Scale );
y2 = Trunc( y + 5 * Scale );
if ( StrPos( SegStr.c_str(), 'F' ) != NULL )
Canvas1.Pen.Color = ColorOn;
else
Canvas1.Pen.Color = ColorOff;
Canvas1.MoveTo( x1, y1 );
Canvas1.LineTo( x2, y2 );
/*E*/
y1 = Trunc( y + 7 * Scale );
y2 = Trunc( y + 11 * Scale );
if ( StrPos( SegStr.c_str(), 'E' ) != NULL )
Canvas1.Pen.Color = ColorOn;
else
Canvas1.Pen.Color = ColorOff;
Canvas1.MoveTo( x1, y1 );
Canvas1.LineTo( x2, y2 );
/*C*/
x1 = Trunc( x + 7 * Scale );
x2 = x1;
if ( StrPos( SegStr.c_str(), 'C' ) != NULL )
Canvas1.Pen.Color = ColorOn;
else
Canvas1.Pen.Color = ColorOff;
Canvas1.MoveTo( x1, y1 );
Canvas1.LineTo( x2, y2 );
/*B*/
y1 = Trunc( y + 1 * Scale );
y2 = Trunc( y + 5 * Scale );
if ( StrPos( SegStr.c_str(), 'B' ) != NULL )
Canvas1.Pen.Color = ColorOn;
else
Canvas1.Pen.Color = ColorOff;
Canvas1.MoveTo( x1, y1 );
Canvas1.LineTo( x2, y2 );
// После вывода последнего сегмента освободим Canvas
Canvas1.Free;
}
//ТАЙМЕР
void __fastcall TForm1::Timer1Timer( TObject* Sender )//oaeia?, iia aai eiiaiaiaaieai i?ienoiaeo ?aaioa anae i?ia?aiiu :)
{
Calc_time( ); //вызов процедуры
parstime( ); //вызов процедуры
Time_dig( ); //вызов процедуры
Hndl = Form1->Canvas.Handle;
Display7Seg( a, 10, 10, 6, Hndl ); //рисуем первый индикатор
Display7Seg( b, 75, 10, 6, Hndl ); //рисуем второй индикатор
Display7Seg( c, 140, 10, 6, Hndl ); //рисуем третий индикатор
Display7Seg( d, 205, 10, 6, Hndl ); //рисуем четвертый индикатор
Display7Seg( e, 270, 10, 6, Hndl ); //рисуем пятый индикатор
Display7Seg( f, 335, 10, 6, Hndl ); //рисуем шестой индикатор
t4kon( );
}
//создание формы
void __fastcall TForm1::FormCreate( TObject* Sender )
{
Calc_time( ); //при создании формы приложения вычисляем время
//Form1.KeyPreview := True;
}
void __fastcall TForm1::N1Click( TObject* Sender )
{
Close;
} |
|
0
|
(
