Subversion Repositories svnkaklik

Compare Revisions

No changes between revisions

Ignore whitespace Rev 5 → Rev 6

/programy/delphi/pocitadlo/Project1.cfg
0,0 → 1,35
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files\borland\delphi6\Projects\Bpl"
-LN"c:\program files\borland\delphi6\Projects\Bpl"
/programy/delphi/pocitadlo/Project1.dof
0,0 → 1,89
[FileVersion]
Version=6.0
 
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
 
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
 
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
 
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1029
CodePage=1250
 
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
/programy/delphi/pocitadlo/Project1.dpr
0,0 → 1,13
program Project1;
 
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
/programy/delphi/pocitadlo/Project1.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programy/delphi/pocitadlo/Project1.res
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programy/delphi/pocitadlo/Unit1.dcu
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/programy/delphi/pocitadlo/Unit1.dfm
0,0 → 1,201
object Form1: TForm1
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object SpinEdit1: TSpinEdit
Left = 72
Top = 40
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 0
Value = 50
end
object SpinEdit2: TSpinEdit
Left = 72
Top = 80
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 1
end
object SpinEdit3: TSpinEdit
Left = 72
Top = 120
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 20
end
object SpinEdit4: TSpinEdit
Left = 120
Top = 40
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 3
Value = 4
end
object SpinEdit5: TSpinEdit
Left = 120
Top = 80
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 4
Value = 10
end
object SpinEdit6: TSpinEdit
Left = 120
Top = 120
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 5
Value = 25
end
object SpinEdit7: TSpinEdit
Left = 168
Top = 40
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 6
Value = 5
end
object SpinEdit8: TSpinEdit
Left = 168
Top = 80
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 7
Value = 0
end
object SpinEdit9: TSpinEdit
Left = 168
Top = 120
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 8
Value = 2
end
object SpinEdit10: TSpinEdit
Left = 248
Top = 40
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 9
Value = 0
end
object SpinEdit11: TSpinEdit
Left = 248
Top = 80
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 10
Value = 0
end
object SpinEdit12: TSpinEdit
Left = 248
Top = 120
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 11
Value = 0
end
object SpinEdit13: TSpinEdit
Left = 336
Top = 40
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 12
Value = 0
end
object SpinEdit14: TSpinEdit
Left = 336
Top = 120
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 13
Value = 0
end
object SpinEdit15: TSpinEdit
Left = 216
Top = 184
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 14
Value = 0
end
object SpinEdit16: TSpinEdit
Left = 128
Top = 184
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 15
Value = 0
end
object SpinEdit17: TSpinEdit
Left = 40
Top = 184
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 16
Value = 0
end
object Button1: TButton
Left = 320
Top = 200
Width = 185
Height = 57
Caption = 'Spo'#269#237'tat'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 17
OnClick = Button1Click
end
end
/programy/delphi/pocitadlo/Unit1.pas
0,0 → 1,84
unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;
 
type
TForm1 = class(TForm)
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit3: TSpinEdit;
SpinEdit4: TSpinEdit;
SpinEdit5: TSpinEdit;
SpinEdit6: TSpinEdit;
SpinEdit7: TSpinEdit;
SpinEdit8: TSpinEdit;
SpinEdit9: TSpinEdit;
SpinEdit10: TSpinEdit;
SpinEdit11: TSpinEdit;
SpinEdit12: TSpinEdit;
SpinEdit13: TSpinEdit;
SpinEdit14: TSpinEdit;
SpinEdit15: TSpinEdit;
SpinEdit16: TSpinEdit;
SpinEdit17: TSpinEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var uhlopricka1 : integer;
uhlopricka2 : integer;
radka1,radka2,radka3 : integer ;
sloupec1,sloupec2,sloupec3 : integer;
begin
uhlopricka1:= SpinEdit1.Value*SpinEdit5.Value*SpinEdit9.Value;
SpinEdit14.Value:=uhlopricka1;
 
uhlopricka2:= SpinEdit3.Value*SpinEdit5.Value*SpinEdit7.Value;
SpinEdit13.Value:=uhlopricka2;
 
// radky:
 
radka1:= SpinEdit1.Value*SpinEdit4.Value*SpinEdit7.Value;
SpinEdit10.Value:=radka1;
 
radka2:= SpinEdit2.Value*SpinEdit5.Value*SpinEdit8.Value;
SpinEdit11.Value:=radka1;
 
radka3:= SpinEdit3.Value*SpinEdit6.Value*SpinEdit9.Value;
SpinEdit12.Value:=radka3;
 
// sluopce:
 
sloupec1:= SpinEdit1.Value*SpinEdit2.Value*SpinEdit3.Value;
SpinEdit17.Value:=sloupec1;
 
sloupec2:= SpinEdit4.Value*SpinEdit5.Value*SpinEdit6.Value;
SpinEdit16.Value:=sloupec2;
 
sloupec3:= SpinEdit7.Value*SpinEdit8.Value*SpinEdit9.Value;
SpinEdit15.Value:=sloupec3;
 
 
while radka2<>1000 do
begin
SpinEdit8.Value:=SpinEdit8.Value+1;
end
end;
 
end.
/programy/delphi/pocitadlo/Unit1.~dfm
0,0 → 1,201
object Form1: TForm1
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object SpinEdit1: TSpinEdit
Left = 72
Top = 40
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 0
Value = 0
end
object SpinEdit2: TSpinEdit
Left = 72
Top = 80
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 0
end
object SpinEdit3: TSpinEdit
Left = 72
Top = 120
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 0
end
object SpinEdit4: TSpinEdit
Left = 120
Top = 40
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 3
Value = 0
end
object SpinEdit5: TSpinEdit
Left = 120
Top = 80
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 4
Value = 0
end
object SpinEdit6: TSpinEdit
Left = 120
Top = 120
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 5
Value = 0
end
object SpinEdit7: TSpinEdit
Left = 168
Top = 40
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 6
Value = 0
end
object SpinEdit8: TSpinEdit
Left = 168
Top = 80
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 7
Value = 0
end
object SpinEdit9: TSpinEdit
Left = 168
Top = 120
Width = 33
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 8
Value = 0
end
object SpinEdit10: TSpinEdit
Left = 248
Top = 40
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 9
Value = 0
end
object SpinEdit11: TSpinEdit
Left = 248
Top = 80
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 10
Value = 0
end
object SpinEdit12: TSpinEdit
Left = 248
Top = 120
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 11
Value = 0
end
object SpinEdit13: TSpinEdit
Left = 336
Top = 40
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 12
Value = 0
end
object SpinEdit14: TSpinEdit
Left = 336
Top = 120
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 13
Value = 0
end
object SpinEdit15: TSpinEdit
Left = 216
Top = 184
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 14
Value = 0
end
object SpinEdit16: TSpinEdit
Left = 128
Top = 184
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 15
Value = 0
end
object SpinEdit17: TSpinEdit
Left = 40
Top = 184
Width = 65
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 16
Value = 0
end
object Button1: TButton
Left = 320
Top = 200
Width = 185
Height = 57
Caption = 'Spo'#269#237'tat'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 17
OnClick = Button1Click
end
end
/programy/delphi/pocitadlo/Unit1.~pas
0,0 → 1,78
unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;
 
type
TForm1 = class(TForm)
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit3: TSpinEdit;
SpinEdit4: TSpinEdit;
SpinEdit5: TSpinEdit;
SpinEdit6: TSpinEdit;
SpinEdit7: TSpinEdit;
SpinEdit8: TSpinEdit;
SpinEdit9: TSpinEdit;
SpinEdit10: TSpinEdit;
SpinEdit11: TSpinEdit;
SpinEdit12: TSpinEdit;
SpinEdit13: TSpinEdit;
SpinEdit14: TSpinEdit;
SpinEdit15: TSpinEdit;
SpinEdit16: TSpinEdit;
SpinEdit17: TSpinEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var uhlopricka1 : integer;
uhlopricka2 : integer;
radka1,radka2,radka3 : integer ;
sloupec1,sloupec2,sloupec3 : integer;
begin
uhlopricka1:= SpinEdit1.Value*SpinEdit5.Value*SpinEdit9.Value;
SpinEdit14.Value:=uhlopricka1;
 
uhlopricka2:= SpinEdit3.Value*SpinEdit5.Value*SpinEdit7.Value;
SpinEdit13.Value:=uhlopricka2;
 
// radky:
 
radka1:= SpinEdit1.Value*SpinEdit4.Value*SpinEdit7.Value;
SpinEdit10.Value:=radka1;
 
radka2:= SpinEdit2.Value*SpinEdit5.Value*SpinEdit8.Value;
SpinEdit11.Value:=radka1;
 
radka3:= SpinEdit3.Value*SpinEdit6.Value*SpinEdit9.Value;
SpinEdit12.Value:=radka3;
 
// sluopce:
 
sloupec1:= SpinEdit1.Value*SpinEdit2.Value*SpinEdit3.Value;
SpinEdit17.Value:=sloupec1;
 
sloupec2:= SpinEdit4.Value*SpinEdit5.Value*SpinEdit6.Value;
SpinEdit16.Value:=sloupec2;
 
sloupec3:= SpinEdit7.Value*SpinEdit8.Value*SpinEdit9.Value;
SpinEdit15.Value:=sloupec3;
end;
 
end.
/programy/delphi/pocitadlo/vssver.scc
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property