WebSVN – svnkaklik – Path Comparison – / – /programy/delphi/DELPHI/mlzic/ Rev 5 and /programy/delphi/DELPHI/mlzic/ Rev 6

Ignore whitespace Rev 5 → Rev 6

/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 → 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 → 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 → 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 → 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 → 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 → 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

Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 5 → Rev 6