- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
Я в 2006 году учился работать на Дельфи.
var
Form1: TForm1; f:file of byte; rb,re:array[0..6,0..10] of byte;
rb1,re1:array[1..6] of byte;h:shortint;go:boolean;
tm:array[0..6,0..1,0..10] of record
h,m:byte;
end;
...
procedure prnt1;
var t:string;
begin
{Вывод времени уроков и перемен на форму. Начало 0,1. 11 уроков 2-23}
str(rb1[h],t);
form1.edit1.text:=t;
str(re1[h],t);
form1.edit2.text:=t;
str(rb[h,0],t);
form1.edit3.text:=t;
str(re[h,0],t);
form1.edit4.text:=t;
str(rb[h,1],t);
form1.edit5.text:=t;
...
form1.edit21.text:=t;
str(re[h,9],t);
form1.edit22.text:=t;
str(rb[h,10],t);
form1.edit23.text:=t;
end;
...
procedure prnt2;
var t1,t2,t3,t4:string;a1,a2,b1,b2,c,d:integer;
begin
{Вывод списка уроков из текстового файла на форму}
val(form1.edit1.text,a1,c);
val(form1.edit2.text,a2,c);
rb1[h]:=a1;
re1[h]:=a2;
{1 урок}
b1:=a1;
b2:=a2;
val(form1.edit3.text,d,c);
rb[h,0]:=d;
b2:=b2+d;
if b2>=60 then
begin
b1:=b1+1;
b2:=b2-60;
end;
str(a1,t1);
str(a2,t2);
if a2<10 then t2:='0'+t2;
str(b1,t3);
str(b2,t4);
if b2<10 then t4:='0'+t4;
tm[h,0,0].h:=a1;
tm[h,0,0].m:=a2;
tm[h,1,0].h:=b1;
tm[h,1,0].m:=b2;
form1.label15.Caption:=t1+':'+t2+' - '+t3+':'+t4;
val(form1.edit4.text,d,c);
re[h,0]:=d;
b2:=b2+d;
if b2>=60 then
begin
b1:=b1+1;
b2:=b2-60;
end;
{2 урок}
a1:=b1;
a2:=b2;
val(form1.edit5.text,d,c);
rb[h,1]:=d;
b2:=b2+d;
if b2>=60 then
begin
b1:=b1+1;
b2:=b2-60;
end;
str(a1,t1);
str(a2,t2);
и т.д. (так 11 уроков и перемен по 30 строк)
{Сохранение в базу данных под названием zvonok.ini :-) }
val(form1.edit1.text,rb1[h],d);
val(form1.edit2.text,re1[h],d);
val(form1.edit3.text,rb[h,0],d);
val(form1.edit4.text,re[h,0],d);
val(form1.edit5.text,rb[h,1],d);
val(form1.edit6.text,re[h,1],d);
val(form1.edit7.text,rb[h,2],d);
val(form1.edit8.text,re[h,2],d);
val(form1.edit9.text,rb[h,3],d);
val(form1.edit10.text,re[h,3],d);
и так до 11-го урока
Программа для подачи сигналов секретарю, что пора дать звонок на урок или на перемену.