Subversion Repositories svnkaklik

Compare Revisions

No changes between revisions

Ignore whitespace Rev 5 → Rev 6

/programy/delphi/prenos/PORT.DLL
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/prenos/PORTINC.PAS
0,0 → 1,46
unit PORTINC;
 
interface
 
uses windows;
 
const THEDLL='PORT.DLL';
Procedure DELAY(i:WORD); stdcall; external THEDLL;
Procedure TIMEINIT; stdcall; external THEDLL;
Function TIMEREAD: DWORD; stdcall; external THEDLL;
Procedure DELAYUS(i:DWORD); stdcall; external THEDLL;
Procedure TIMEINITUS; stdcall; external THEDLL;
Function TIMEREADUS: DWORD; stdcall; external THEDLL;
Procedure OUTPORT(PortAddr:Word; Data:byte); stdcall; external THEDLL;
Function INPORT(PortAddr:Word):Byte;stdcall; external THEDLL;
Function OPENCOM(S:PCHAR):Integer;stdcall; external THEDLL;
Function READBYTE:Integer;stdcall; external THEDLL;
Procedure SENDBYTE(d:WORD);stdcall; external THEDLL;
Procedure DTR(d:WORD);stdcall; external THEDLL;
Procedure RTS(d:WORD);stdcall; external THEDLL;
Procedure TXD(d:WORD);stdcall; external THEDLL;
Function CTS:Integer;stdcall; external THEDLL;
Function DSR:Integer;stdcall; external THEDLL;
Function RI:Integer;stdcall; external THEDLL;
Function DCD:Integer;stdcall; external THEDLL;
Procedure REALTIME(d:BOOLEAN);stdcall; external THEDLL;
Function SOUNDSETRATE(Rate:DWORD):DWORD; stdcall; external THEDLL;
Function SOUNDGETRATE:DWORD; stdcall; external THEDLL;
Function SOUNDBUSY:Boolean; stdcall; external THEDLL;
Function SOUNDIS:Boolean; stdcall; external THEDLL;
Procedure SOUNDIN(Puffer:Pchar;Size:DWORD); stdcall; external THEDLL;
Procedure SOUNDOUT(Puffer:Pchar;Size:DWORD); stdcall; external THEDLL;
Function SOUNDGETBYTES:DWORD; stdcall; external THEDLL;
Function SOUNDSETBYTES(B:DWORD):DWORD; stdcall; external THEDLL;
Procedure SOUNDCAPIN; stdcall; external THEDLL;
Procedure SOUNDCAPOUT; stdcall; external THEDLL;
Function JOYX:DWORD;stdcall; external THEDLL;
Function JOYY:DWORD;stdcall; external THEDLL;
Function JOYZ:DWORD;stdcall; external THEDLL;
Function JOYR:DWORD;stdcall; external THEDLL;
Function JOYBUTTON:DWORD;stdcall; external THEDLL;
 
implementation
 
end.
 
/programy/delphi/prenos/PORTINC.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/prenos/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/prenos/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/prenos/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/prenos/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/prenos/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/prenos/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/prenos/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/prenos/Unit1.dfm
0,0 → 1,135
object Form1: TForm1
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'KAKLIK'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 224
Top = 16
Width = 41
Height = 16
Caption = 'Label1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Button1: TButton
Left = 168
Top = 136
Width = 105
Height = 105
Caption = '1'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 312
Top = 144
Width = 105
Height = 97
Caption = '0'
TabOrder = 1
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left = 104
Top = 40
Width = 17
Height = 17
TabOrder = 2
end
object CheckBox3: TCheckBox
Left = 104
Top = 72
Width = 17
Height = 17
Caption = 'object CheckBox1: TCheckBox'
TabOrder = 3
end
object StaticText1: TStaticText
Left = 72
Top = 40
Width = 24
Height = 17
Caption = 'TxD'
TabOrder = 4
end
object StaticText2: TStaticText
Left = 72
Top = 72
Width = 26
Height = 17
Caption = 'DcD'
TabOrder = 5
end
object Edit1: TEdit
Left = 216
Top = 56
Width = 129
Height = 21
TabOrder = 6
Text = '11'
end
object Button3: TButton
Left = 368
Top = 48
Width = 81
Height = 33
Caption = 'Odeslat'
TabOrder = 7
OnClick = Button3Click
end
object CheckBox2: TCheckBox
Left = 104
Top = 104
Width = 17
Height = 17
Caption = 'object CheckBox1: TCheckBox'
TabOrder = 8
end
object StaticText3: TStaticText
Left = 72
Top = 104
Width = 27
Height = 17
Caption = 'DTR'
TabOrder = 9
end
object Button4: TButton
Left = 136
Top = 104
Width = 25
Height = 25
Caption = '0'
TabOrder = 10
OnClick = Button4Click
end
object Button5: TButton
Left = 184
Top = 104
Width = 25
Height = 25
Caption = '1'
TabOrder = 11
OnClick = Button5Click
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 72
Top = 160
end
end
/programy/delphi/prenos/Unit1.pas
0,0 → 1,96
unit Unit1;
 
interface
 
uses
Portinc,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Tabs, ComCtrls;
 
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
CheckBox3: TCheckBox;
StaticText1: TStaticText;
StaticText2: TStaticText;
Timer1: TTimer;
Edit1: TEdit;
Button3: TButton;
Label1: TLabel;
CheckBox2: TCheckBox;
StaticText3: TStaticText;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
TXD (1);
CheckBox1.Checked:=True;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
TXD(0);
CheckBox1.Checked:=False;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
OPENCOM (Pchar('COM1,1200,N,8,'));
Timer1.Interval:=1;
Timer1.Enabled:=True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if DCD=1 then CheckBox3.Checked:=True
else CheckBox3.Checked:=False
end;
 
procedure TForm1.Button3Click(Sender: TObject);
// var i,c:integer;
 
// b:string;
begin
// b:=Edit1.Text;
// for c:=1 to len(b)
//b:=Edit1.Text[c];
//ord (i,b);
//SENDBYTE (i);
//edit1.text:=i
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
DTR (1);
CheckBox2.Checked:=True;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
DTR(0);
CheckBox2.Checked:=False;
end;
 
end.
/programy/delphi/prenos/Unit1.~dfm
0,0 → 1,101
object Form1: TForm1
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'KAKLIK'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 224
Top = 16
Width = 41
Height = 16
Caption = 'Label1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Button1: TButton
Left = 168
Top = 136
Width = 105
Height = 105
Caption = '1'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 312
Top = 144
Width = 105
Height = 97
Caption = '0'
TabOrder = 1
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left = 104
Top = 40
Width = 17
Height = 17
TabOrder = 2
end
object CheckBox3: TCheckBox
Left = 104
Top = 72
Width = 17
Height = 17
Caption = 'object CheckBox1: TCheckBox'
TabOrder = 3
end
object StaticText1: TStaticText
Left = 72
Top = 40
Width = 24
Height = 17
Caption = 'TxD'
TabOrder = 4
end
object StaticText2: TStaticText
Left = 72
Top = 72
Width = 26
Height = 17
Caption = 'DcD'
TabOrder = 5
end
object Edit1: TEdit
Left = 216
Top = 56
Width = 129
Height = 21
TabOrder = 6
Text = '11'
end
object Button3: TButton
Left = 368
Top = 48
Width = 81
Height = 33
Caption = 'Odeslat'
TabOrder = 7
OnClick = Button3Click
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 72
Top = 160
end
end
/programy/delphi/prenos/Unit1.~pas
0,0 → 1,78
unit Unit1;
 
interface
 
uses
Portinc,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Tabs, ComCtrls;
 
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
CheckBox3: TCheckBox;
StaticText1: TStaticText;
StaticText2: TStaticText;
Timer1: TTimer;
Edit1: TEdit;
Button3: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
TXD (1);
CheckBox1.Checked:=True;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
TXD(0);
CheckBox1.Checked:=False;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
OPENCOM (Pchar('COM1,1200,N,8,'));
Timer1.Interval:=1;
Timer1.Enabled:=True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if DCD=1 then CheckBox3.Checked:=True
else CheckBox3.Checked:=False
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var i,c:integer;
 
b:string;
begin
b:=Edit1.Text;
for c:=1 to len(b)
b:=Edit1.Text[c];
ord (i,b);
SENDBYTE (i);
edit1.text:=i
end;
 
end.
/programy/delphi/prenos/ovladac.dfm
0,0 → 1,41
object Form1: TForm1
Left = 252
Top = 104
Width = 544
Height = 375
Caption = 'Spr'#225'vce'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object MainMenu1: TMainMenu
Left = 16
Top = 8
object Nastaven1: TMenuItem
Caption = 'Nastaven'#237
object Uloit1: TMenuItem
Caption = 'Ulo'#382'it'
Enabled = False
end
object Pospusteni1: TMenuItem
Caption = 'Po spusteni'
object Ohlsitse1: TMenuItem
Caption = 'Ohl'#225'sit se'
Enabled = False
end
end
object Ohlen1: TMenuItem
Caption = 'Ohl'#225#353'en'#237
end
end
object Exit1: TMenuItem
Caption = 'Exit'
end
end
end
/programy/delphi/prenos/ovladac.pas
0,0 → 1,31
unit ovladac;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
 
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Nastaven1: TMenuItem;
Uloit1: TMenuItem;
Pospusteni1: TMenuItem;
Ohlsitse1: TMenuItem;
Ohlen1: TMenuItem;
Exit1: TMenuItem;
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.
/programy/delphi/prenos/ovladac.~dfm
0,0 → 1,41
object Form1: TForm1
Left = 252
Top = 104
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 = []
Menu = MainMenu1
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object MainMenu1: TMainMenu
Left = 16
Top = 8
object Nastaven1: TMenuItem
Caption = 'Nastaven'#237
object Uloit1: TMenuItem
Caption = 'Ulo'#382'it'
Enabled = False
end
object Pospusteni1: TMenuItem
Caption = 'Po spusteni'
object Ohlsitse1: TMenuItem
Caption = 'Ohl'#225'sit se'
Enabled = False
end
end
object Ohlen1: TMenuItem
Caption = 'Ohl'#225#353'en'#237
end
end
object Exit1: TMenuItem
Caption = 'Exit'
end
end
end
/programy/delphi/prenos/ovladac.~pas
0,0 → 1,31
unit ovladac;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
 
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Nastaven1: TMenuItem;
Uloit1: TMenuItem;
Pospusteni1: TMenuItem;
Ohlsitse1: TMenuItem;
Ohlen1: TMenuItem;
Exit1: TMenuItem;
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.
/programy/delphi/prenos/spravce.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/prenos/spravce.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/prenos/spravce.dpr
0,0 → 1,13
program spravce;
 
uses
Forms,
ovladac in 'ovladac.pas' {Form1};
 
{$R *.res}
 
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
/programy/delphi/prenos/spravce.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/prenos/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