/programy/delphi/DELPHI/mlzic/Blikac.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/DELPHI/mlzic/Blikac.dfm |
---|
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/DELPHI/mlzic/Blikac.pas |
---|
0,0 → 1,44 |
unit Blikac; |
interface |
uses PortInc,Windows, Messages, SysUtils, Classes, |
Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; |
type |
TForm1 = class(TForm) |
ScrollBar1: TScrollBar; Edit1: TEdit; |
Timer1: TTimer; |
procedure ScrollBar1Change(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
procedure Timer1Timer(Sender: TObject); |
end; |
var |
Form1: TForm1; |
implementation |
{$R *.DFM} |
var Vystup: Integer; |
procedure TForm1.ScrollBar1Change(Sender: TObject); |
begin |
Edit1.Text := floattostr(Scrollbar1.Position)+ ' ms'; |
Timer1.Interval := Scrollbar1.Position |
end; |
procedure TForm1.FormCreate(Sender: TObject); |
begin |
OpenCom (Pchar('COM1:9600,N,8,1')); |
Timer1.Enabled := true; |
Vystup := 0; |
end; |
procedure TForm1.Timer1Timer(Sender: TObject); |
begin |
Vystup := (Vystup + 1) AND 1; |
DTR (Vystup); |
RTS (Vystup); |
end; |
end. |
/programy/delphi/DELPHI/mlzic/Blikac.~dfm |
---|
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/DELPHI/mlzic/Blikac.~pas |
---|
0,0 → 1,44 |
unit Blikac; |
interface |
uses PortInc,Windows, Messages, SysUtils, Classes, |
Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; |
type |
TForm1 = class(TForm) |
ScrollBar1: TScrollBar; Edit1: TEdit; |
Timer1: TTimer; |
procedure ScrollBar1Change(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
procedure Timer1Timer(Sender: TObject); |
end; |
var |
Form1: TForm1; |
implementation |
{$R *.DFM} |
var Vystup: Integer; |
procedure TForm1.ScrollBar1Change(Sender: TObject); |
begin |
Edit1.Text := floattostr(Scrollbar1.Position)+ ' ms'; |
Timer1.Interval := Scrollbar1.Position |
end; |
procedure TForm1.FormCreate(Sender: TObject); |
begin |
OpenCom (Pchar('COM2:9600,N,8,1')); |
Timer1.Enabled := true; |
Vystup := 0; |
end; |
procedure TForm1.Timer1Timer(Sender: TObject); |
begin |
Vystup := (Vystup + 1) AND 1; |
DTR (Vystup); |
RTS (Vystup); |
end; |
end. |
/programy/delphi/DELPHI/mlzic/Blikacp.cfg |
---|
0,0 → 1,33 |
-$A+ |
-$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 |
/programy/delphi/DELPHI/mlzic/Blikacp.dof |
---|
0,0 → 1,83 |
[Compiler] |
A=1 |
B=0 |
C=1 |
D=1 |
E=0 |
F=0 |
G=1 |
H=1 |
I=1 |
J=1 |
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= |
[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=1031 |
CodePage=1252 |
[Version Info Keys] |
CompanyName= |
FileDescription= |
FileVersion=1.0.0.0 |
InternalName= |
LegalCopyright= |
LegalTrademarks= |
OriginalFilename= |
ProductName= |
ProductVersion=1.0.0.0 |
Comments= |
/programy/delphi/DELPHI/mlzic/Blikacp.dpr |
---|
0,0 → 1,13 |
program Blikacp; |
uses |
Forms, |
Blikac in 'Blikac.pas' {Form1}; |
{$R *.RES} |
begin |
Application.Initialize; |
Application.CreateForm(TForm1, Form1); |
Application.Run; |
end. |
/programy/delphi/DELPHI/mlzic/Blikacp.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/DELPHI/mlzic/Blikacp.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/DELPHI/mlzic/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/DELPHI/mlzic/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/DELPHI/mlzic/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/DELPHI/mlzic/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 |