| /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 |
| /programy/delphi/Hello.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/Hello.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/Hello.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/Hello.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/Hello_p.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/Hello_p.dfm |
|---|
| 0,0 → 1,23 |
| object Form1: TForm1 |
| Left = 263 |
| Top = 111 |
| Width = 277 |
| Height = 185 |
| 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 Label1: TLabel |
| Left = 80 |
| Top = 64 |
| Width = 55 |
| Height = 13 |
| Caption = 'Hello World' |
| end |
| end |
| /programy/delphi/Hello_p.pas |
|---|
| 0,0 → 1,25 |
| unit Hello_p; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls; |
| type |
| TForm1 = class(TForm) |
| Label1: TLabel; |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.dfm} |
| end. |
| /programy/delphi/download/Download Manager 0.0.1.2/Clanek.url |
|---|
| 0,0 → 1,2 |
| [InternetShortcut] |
| URL=http://gds.oceany.cz/index.php?clanek= |
| /programy/delphi/download/Download Manager 0.0.1.2/DOWNLOAD.DPR |
|---|
| 0,0 → 1,15 |
| program download; |
| uses |
| Forms, |
| Downloader in 'Downloader.pas' {Form1}, |
| SaveDialog in 'SaveDialog.pas' {Form2}; |
| {$R *.RES} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.CreateForm(TForm2, Form2); |
| Application.Run; |
| end. |
| /programy/delphi/download/Download Manager 0.0.1.2/DOWNLOAD.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/download/Download Manager 0.0.1.2/DOWNLOAD.dof |
|---|
| 0,0 → 1,75 |
| [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=0 |
| 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 |
| MinStackSize=16384 |
| MaxStackSize=1048576 |
| ImageBase=4194304 |
| ExeDescription= |
| [Directories] |
| OutputDir= |
| UnitOutputDir= |
| SearchPath= |
| Packages=vclx30;VCL30;vcldb30;vcldbx30;inetdb30;inet30;VclSmp30;Qrpt30;teeui30;teedb30;tee30;dss30;IBEVNT30 |
| Conditionals= |
| DebugSourceDirs= |
| UsePackages=0 |
| [Parameters] |
| RunParams= |
| HostApplication= |
| [Version Info] |
| IncludeVerInfo=1 |
| AutoIncBuild=0 |
| MajorVer=0 |
| MinorVer=0 |
| Release=1 |
| Build=1 |
| Debug=0 |
| PreRelease=0 |
| Special=0 |
| Private=0 |
| DLL=0 |
| Locale=1029 |
| CodePage=1250 |
| [Version Info Keys] |
| CompanyName=GAME Developer |
| FileDescription= |
| FileVersion=0.0.1.1 |
| InternalName= |
| LegalCopyright=Roman Schulz |
| LegalTrademarks=Roman Schulz |
| OriginalFilename=Downloader.exe |
| ProductName=Download Manager |
| ProductVersion=1.0.0.0 |
| Comments=Tento program je freeware. Pùvodnì byl urèen pro soukromé pouití, pro jeho úspìnost byl uvolnìn jako freeware. Více informací, zdrojové kódy a popis programu najdete na http://gds.oceany.cz |
| /programy/delphi/download/Download Manager 0.0.1.2/Diskuse.url |
|---|
| 0,0 → 1,2 |
| [InternetShortcut] |
| URL=http://gds.oceany.cz/forum.php?clanek= |
| /programy/delphi/download/Download Manager 0.0.1.2/Downloader.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/download/Download Manager 0.0.1.2/Downloader.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/download/Download Manager 0.0.1.2/Downloader.pas |
|---|
| 0,0 → 1,493 |
| // ****************************************************************************** |
| // This source has been created by Roman Schulz, 2002. |
| // Visit my web-site at http://gds.oceany.cz for more info |
| // ****************************************************************************** |
| unit Downloader; |
| interface |
| uses |
| Windows, ShellAPI, Messages, SysUtils, Graphics, Forms, Dialogs, Classes, |
| StdCtrls, isp3, Menus, INIFiles, OleCtrls, Controls, FileCtrl, Registry, |
| ComObj, ActiveX, ShlObj, ComCtrls, ExtCtrls, Gauges; |
| const |
| WM_TRAYAPPNOTIFY = WM_USER; // vlastní identifikátor zprávy |
| type |
| TForm1 = class(TForm) |
| Edit1: TEdit; |
| ListBox1: TListBox; |
| Button1: TButton; |
| Button2: TButton; |
| Label1: TLabel; |
| MainMenu1: TMainMenu; |
| File1: TMenuItem; |
| Exit1: TMenuItem; |
| Help1: TMenuItem; |
| About1: TMenuItem; |
| SearchforHelpOn1: TMenuItem; |
| Reset1: TMenuItem; |
| AutoSave1: TMenuItem; |
| Zobrazen1: TMenuItem; |
| dn1: TMenuItem; |
| PopupMenu1: TPopupMenu; |
| Konec1: TMenuItem; |
| Zobrazit1: TMenuItem; |
| Trayicon1: TMenuItem; |
| Skrtformul1: TMenuItem; |
| Skrtformul2: TMenuItem; |
| Download1: TMenuItem; |
| Hledatnainternetu1: TMenuItem; |
| Button3: TButton; |
| PidatdoSTARTmenu1: TMenuItem; |
| Pidatnaplochu1: TMenuItem; |
| StatusBar1: TStatusBar; |
| Timer1: TTimer; |
| Gauge1: TGauge; |
| Vceoaplikaci1: TMenuItem; |
| procedure Edit1KeyDown(Sender: TObject; var Key: Word; |
| Shift: TShiftState); |
| procedure Button2Click(Sender: TObject); |
| procedure HTTP1StateChanged(Sender: TObject; State: Smallint); |
| procedure Button1Click(Sender: TObject); |
| procedure ListBox1Click(Sender: TObject); |
| procedure AutoSave1Click(Sender: TObject); |
| procedure Exit1Click(Sender: TObject); |
| procedure FormClose(Sender: TObject; var Action: TCloseAction); |
| procedure SearchforHelpOn1Click(Sender: TObject); |
| procedure dn1Click(Sender: TObject); |
| procedure ZkratkyVypnuty; |
| procedure ZkratkyZapnuty; |
| procedure FormDestroy(Sender: TObject); |
| procedure Trayicon1Click(Sender: TObject); |
| procedure Zobrazit1Click(Sender: TObject); |
| procedure Skrtformul1Click(Sender: TObject); |
| procedure About1Click(Sender: TObject); |
| procedure CreateLink(WorkingDirectory,FileName,Arguments: String;TargetLinkFile: WideString; |
| Description,IconPath: String;IconIdex: Integer); |
| procedure AddToStart(Sender: TObject); |
| procedure AddToDesktop(Sender: TObject); |
| procedure Timer1Timer(Sender: TObject); |
| procedure HTTP1Error(Sender: TObject; Number: Smallint; |
| var Description: WideString; Scode: Integer; const Source, |
| HelpFile: WideString; HelpContext: Integer; |
| var CancelDisplay: WordBool); |
| private |
| Download_file, Zobrazeni: String; |
| Busy: boolean; |
| Settings: TINIFile; |
| NotifyIconData: TNotifyIconData; // data pro ikonu |
| Time: Dword; |
| Sekund, BytesTransferredLast: Integer; |
| procedure WMTrayAppNotify(var M: TMessage); message WM_TRAYAPPNOTIFY; |
| public |
| Destination: String; |
| protected |
| procedure WMHotKey(var Message: TMessage); message WM_HOTKEY; |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| uses SaveDialog; |
| {$R *.DFM} |
| // ****************************************************************************** |
| // Rutiny download manageru |
| // ****************************************************************************** |
| //Reset |
| procedure TForm1.Button1Click(Sender: TObject); |
| var i, dummy: integer; |
| //param: DWord; |
| begin |
| //Monost vypnutí vekerých klávesových zkratek ve Win9x |
| //Param := 0; |
| //SystemParametersInfo(SPI_SETFASTTASKSWITCH, UINT(not false), @Param, 0); |
| // ALT+TAB, CTRL+ESC |
| //SystemParametersInfo(SPI_SCREENSAVERRUNNING, UINT(not false), @Param, 0); |
| // CTRL+ALT+DEL |
| //Vlozi zacatek internetove adresy |
| Edit1.text := 'http://'; |
| //Stornujeme stahování |
| if HTTP1.Busy then HTTP1.Cancel; |
| Busy := false; |
| Label1.caption := 'Pøipraven na stahování'; |
| //Skrytí task baru |
| ShowWindow(Application.Handle, SW_HIDE); //schová aplikaci z taskbaru |
| //Nacteni hodnot z konfiguracniho souboru |
| Settings:=TIniFile.Create((ExtractFilePath(Application.ExeName))+'settings.cfg'); |
| //Nacteni cile ukládání |
| Destination := Settings.ReadString('Options','Destination',ExtractFilePath(Application.ExeName)); |
| //Kde se ma zobrazit ikonka |
| Zobrazeni := Settings.ReadString('Options','Zobrazeni','TRAY_ICON'); |
| if Zobrazeni = 'TRAY_ICON' then Trayicon1Click(Sender) |
| else if Zobrazeni = 'NONE' then dn1Click(Sender) |
| else Trayicon1Click(Sender); |
| //Vymazani celeho mema |
| for i:=1 to ListBox1.Items.Count do ListBox1.Items.Delete(0); |
| end; |
| //Stahuj |
| procedure TForm1.Button2Click(Sender: TObject); |
| var i:integer; |
| FileName:string; |
| begin |
| if (ListBox1.Items.Count <> 0) then |
| if (Busy = false) then begin |
| Download_file := ListBox1.Items.Strings[0]; |
| //Ziskani jmena souboru z internetove adresy |
| for i:=0 to Length(Download_file) do |
| if (Download_file[i]<>'/') then FileName := FileName + Download_file[i] |
| else FileName:=''; |
| //Stavový label |
| Label1.caption:='Stahování souboru: '+Download_file; |
| Time := GetTickCount; |
| HTTP1.GetDoc(Download_file, '', Destination + FileName); |
| Busy := true; |
| end; |
| end; |
| //Neco se stalo... |
| procedure TForm1.HTTP1StateChanged(Sender: TObject; State: Smallint); |
| begin |
| if (State=6) then begin |
| Label1.Caption:='Stahování souboru '+Download_file+' dokonèeno'; |
| ListBox1.Items.Delete(0); |
| Busy := false; |
| Gauge1.Progress := 0; |
| StatusBar1.Panels[0].Text := 'Staeno celkem '+inttostr(round(HTTP1.DocOutput.BytesTransferred/1024))+' kB, '+inttostr(8*round(HTTP1.DocOutput.BytesTransferred/(GetTickCount-Time)))+' kbps'; |
| ShowMessage('Poadavek splnìn'); |
| end; |
| end; |
| //Prace s listboxem |
| procedure TForm1.ListBox1Click(Sender: TObject); |
| var i: integer; |
| begin |
| for i := 0 to (ListBox1.Items.Count - 1) do begin |
| if ListBox1.Selected[i] then |
| begin |
| Edit1.Text := ListBox1.Items.Strings[i]; |
| ListBox1.Items.Delete(i); |
| end; |
| end; |
| end; |
| //Po stisknuti enteru se data prenesou do listboxu |
| procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; |
| Shift: TShiftState); |
| begin |
| if (key=13) then begin |
| ListBox1.Items.Add(Edit1.Text); |
| Edit1.Text:='http://'; |
| end; |
| end; |
| //Zobrazeni formulare s cestou pro ulozeni souboru |
| procedure TForm1.AutoSave1Click(Sender: TObject); |
| begin |
| Form1.enabled:=false; |
| Form2.visible:=true; |
| end; |
| procedure TForm1.Timer1Timer(Sender: TObject); |
| var BytesTransferred: integer; |
| begin |
| if busy then begin |
| //Updatování pozice ukazatele |
| BytesTransferred := HTTP1.DocOutput.BytesTransferred; |
| Gauge1.MaxValue := HTTP1.DocOutput.BytesTotal; |
| Gauge1.Progress := BytesTransferred; |
| //Pøenosová rychlost B/s |
| StatusBar1.Panels[2].text := inttostr(round(((BytesTransferred - BytesTransferredLast)/(Timer1.interval/1000))))+' B/s'; |
| BytesTransferredLast := BytesTransferred; |
| //Pocet prenesenych bytu, procento stahování a pøenosová rychlost v kbps |
| if (HTTP1.DocOutput.BytesTotal <> 0)then |
| StatusBar1.Panels[0].text := inttostr(round(BytesTransferred/1024))+' kB z ' |
| +inttostr(round(HTTP1.DocOutput.BytesTotal/1024))+' kB = ' |
| +inttostr(round(100*(BytesTransferred/1024)/(HTTP1.DocOutput.BytesTotal/1024)))+' % =' |
| +inttostr(8*round(BytesTransferred/(GetTickCount-Time)))+' kbps'; |
| //doba stahování |
| Sekund := round((GetTickCount-Time)/1000); |
| StatusBar1.Panels[1].text := inttostr(trunc(sekund/3600))+'hodin, '+inttostr(trunc(sekund/60-60*trunc(sekund/3600)))+'minut, '+inttostr(trunc(sekund)-60*(trunc(sekund/60-60*trunc(sekund/3600))))+'sekund'; |
| end; |
| end; |
| procedure TForm1.HTTP1Error(Sender: TObject; Number: Smallint; |
| var Description: WideString; Scode: Integer; const Source, |
| HelpFile: WideString; HelpContext: Integer; var CancelDisplay: WordBool); |
| begin |
| ShowMessage('Vyskytla se chyba: '+Description); |
| end; |
| // ****************************************************************************** |
| // Procedury pro zobrazení a skrytí ze system tray |
| // ****************************************************************************** |
| //Zobrazení v tray icon |
| procedure TForm1.Trayicon1Click(Sender: TObject); |
| begin |
| //Deaktivace klavesovych zkratek |
| ZkratkyZapnuty; |
| // nastavíme jednotlivé poloky |
| with NotifyIconData do |
| begin |
| cbSize := SizeOf(NotifyIconData); |
| Wnd := Handle; |
| uID := 0; |
| uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP; |
| uCallbackMessage := WM_TRAYAPPNOTIFY; |
| hIcon := Application.Icon.Handle; |
| szTip:='Pokusná tray aplikace'; |
| end; |
| // pøidáme ikonu na litu |
| Shell_NotifyIcon(NIM_ADD, @NotifyIconData); |
| Zobrazeni := 'TRAY_ICON'; |
| end; |
| //Nezobrazovat nikde |
| procedure TForm1.dn1Click(Sender: TObject); |
| begin |
| //Oznameni o aktivaci klavesovych zkratek |
| ShowMessage('Program lze aktivovat klávesovou zkratkou CTRL+F7'); |
| ZkratkyZapnuty; |
| // odebereme ikonu z lity |
| Shell_NotifyIcon(NIM_DELETE, @NotifyIconData); |
| Zobrazeni := 'NONE'; |
| end; |
| //Zobrazit formuláø |
| procedure TForm1.Zobrazit1Click(Sender: TObject); |
| begin |
| Form1.visible := true; |
| end; |
| //Skrýt formuláø |
| procedure TForm1.Skrtformul1Click(Sender: TObject); |
| begin |
| Form1.visible := false; |
| end; |
| //Události nad System Tray ikonou |
| procedure TForm1.WMTrayAppNotify(var M: TMessage); |
| var |
| P: TPoint; |
| begin |
| with M do |
| case lParam of |
| WM_LBUTTONUP: // levé tlaèítko |
| Application.MessageBox('Na ikonì bylo kliknuto!', 'Tray', 0); |
| WM_RBUTTONUP: // pravé tlaèítko |
| begin |
| GetCursorPos(P); // získáme souøadnice kurzoru |
| PopupMenu1.Popup(P.X, P.Y); // a zobrazíme na nich menu |
| end; |
| end; |
| end; |
| // ****************************************************************************** |
| // Nastavení klávesových zkratek |
| // ****************************************************************************** |
| procedure TForm1.WMHotKey(var Message: TMessage); |
| begin |
| Form1.visible := true; |
| end; |
| procedure TForm1.ZkratkyVypnuty(); |
| begin |
| UnregisterHotKey(Handle,131632); |
| end; |
| procedure TForm1.ZkratkyZapnuty(); |
| begin |
| RegisterHotKey(Handle,131632,MOD_CONTROL{Control,Alt,Shift,Start},VK_F7{èíslo klávesy}); |
| end; |
| // ****************************************************************************** |
| // Pøidání programu do START menu a na plochu |
| // ****************************************************************************** |
| procedure TForm1.CreateLink(WorkingDirectory,FileName,Arguments: String;TargetLinkFile: WideString; |
| Description,IconPath: String;IconIdex: Integer); |
| var |
| MyObject : IUnknown; |
| MySLink : IShellLink; |
| MyPFile : IPersistFile; |
| begin |
| MyObject := CreateComObject(CLSID_ShellLink); |
| MySLink := MyObject as IShellLink; |
| MyPFile := MyObject as IPersistFile; |
| with MySLink do |
| begin |
| SetArguments (PChar(Arguments )); |
| SetPath (PChar(FileName)); |
| SetWorkingDirectory(PChar(WorkingDirectory)); |
| SetDescription (PChar(Description)); |
| SetIconLocation (PChar(IconPath), IconIdex); |
| end; |
| If Not DirectoryExists(ExtractFileDir(TargetLinkFile)) then CreateDir(ExtractFileDir(TargetLinkFile)); |
| MyPFile.Save(PWChar(TargetLinkFile),False); |
| MySLink := Nil; |
| MyPFile := Nil; |
| MyObject := Nil; |
| end; |
| procedure TForm1.AddToStart(Sender: TObject); |
| var MyReg: TRegIniFile; |
| Directory: WideString; |
| begin |
| MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); |
| Directory := MyReg.ReadString('Shell Folders','Start Menu','')+ |
| '\Programy\Download Manager\'; |
| //Zástupce na program |
| CreateLink(ExtractFilePath(Application.ExeName), |
| Application.ExeName, |
| '', |
| Directory+'Download Manager v0.0.1.1.lnk', |
| 'Download Manager v0.0.1.1', |
| Application.ExeName, |
| 0); |
| //Zástupce na homepage GAME Developer Serveru |
| CreateLink(ExtractFilePath(Application.ExeName), |
| ExtractFilePath(Application.ExeName)+'Homepage.url', |
| '', |
| Directory+'GAME Developer Server.lnk', |
| 'Server o programování v DirectX a OpenGL hlavnì v Delphi a C/C++.', |
| '', |
| 0); |
| //Zástupce na clanek o Download Manageru |
| CreateLink(ExtractFilePath(Application.ExeName), |
| ExtractFilePath(Application.ExeName)+'Clanek.url', |
| '', |
| Directory+'Zdrojové kódy a popis Download Manageru.lnk', |
| 'Stáhnìte si zdarma zdrojové kódy a popis Download Manageru', |
| '', |
| 0); |
| //Zástupce na diskusi o Download Manageru |
| CreateLink(ExtractFilePath(Application.ExeName), |
| ExtractFilePath(Application.ExeName)+'Diskuse.url', |
| '', |
| Directory+'Diskuse o Download Manageru.lnk', |
| 'Zajímá vás, co si o tomto programu myslí i jiní uivatelé?', |
| '', |
| 0); |
| MyReg.Free; |
| end; |
| procedure TForm1.AddToDesktop(Sender: TObject); |
| var MyReg: TRegIniFile; |
| Directory: WideString; |
| begin |
| MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); |
| Directory := MyReg.ReadString('Shell Folders','Desktop',''); |
| CreateLink(ExtractFilePath(Application.ExeName), |
| Application.ExeName, |
| '', |
| Directory+'\Download Manager.lnk', |
| 'Download Manager', |
| Application.ExeName, |
| 0); |
| MyReg.Free; |
| end; |
| // ****************************************************************************** |
| // Ukonèení programu |
| // ****************************************************************************** |
| procedure TForm1.FormDestroy(Sender: TObject); |
| begin |
| // odebereme ikonu z lity |
| Shell_NotifyIcon(NIM_DELETE, @NotifyIconData); |
| end; |
| procedure TForm1.Exit1Click(Sender: TObject); |
| begin |
| Close; |
| end; |
| procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); |
| begin |
| Settings.WriteString('Options','Destination',Destination); |
| Settings.WriteString('Options','Zobrazeni',Zobrazeni); |
| Settings.Free; |
| end; |
| //Odkaz na moje internetove stranky |
| procedure TForm1.SearchforHelpOn1Click(Sender: TObject); |
| begin |
| if (ShellExecute(0,'open',Pchar('http://gds.oceany.cz/index.php'),nil,nil,Sw_ShowNormal)<35) |
| then ShowMessage('Dolo k chybì k pøipojení na internetový server'); |
| end; |
| procedure TForm1.About1Click(Sender: TObject); |
| begin |
| ShowMessage('Download Manager v. 0.0.1.1'+chr(13)+'Copyright: Roman Schulz'+chr(13)+'Tento program je freeware'+chr(13)+chr(13)+'Popis a zdrojáky: GAME Developer Server'+chr(13)+'http://gds.oceany.cz'); |
| end; |
| end. |
| // ****************************************************************************** |
| // This source has been created by Roman Schulz, 2002. |
| // Visit my web-site at http://gds.oceany.cz for more info |
| // ****************************************************************************** |
| /programy/delphi/download/Download Manager 0.0.1.2/Downloader.~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/download/Download Manager 0.0.1.2/Downloader.~pas |
|---|
| 0,0 → 1,494 |
| // ****************************************************************************** |
| // This source has been created by Roman Schulz, 2002. |
| // Visit my web-site at http://gds.oceany.cz for more info |
| // ****************************************************************************** |
| unit Downloader; |
| interface |
| uses |
| Windows, ShellAPI, Messages, SysUtils, Graphics, Forms, Dialogs, Classes, |
| StdCtrls, isp3, Menus, INIFiles, OleCtrls, Controls, FileCtrl, Registry, |
| ComObj, ActiveX, ShlObj, ComCtrls, ExtCtrls, Gauges; |
| const |
| WM_TRAYAPPNOTIFY = WM_USER; // vlastní identifikátor zprávy |
| type |
| TForm1 = class(TForm) |
| Edit1: TEdit; |
| ListBox1: TListBox; |
| Button1: TButton; |
| Button2: TButton; |
| HTTP1: THTTP; |
| Label1: TLabel; |
| MainMenu1: TMainMenu; |
| File1: TMenuItem; |
| Exit1: TMenuItem; |
| Help1: TMenuItem; |
| About1: TMenuItem; |
| SearchforHelpOn1: TMenuItem; |
| Reset1: TMenuItem; |
| AutoSave1: TMenuItem; |
| Zobrazen1: TMenuItem; |
| dn1: TMenuItem; |
| PopupMenu1: TPopupMenu; |
| Konec1: TMenuItem; |
| Zobrazit1: TMenuItem; |
| Trayicon1: TMenuItem; |
| Skrtformul1: TMenuItem; |
| Skrtformul2: TMenuItem; |
| Download1: TMenuItem; |
| Hledatnainternetu1: TMenuItem; |
| Button3: TButton; |
| PidatdoSTARTmenu1: TMenuItem; |
| Pidatnaplochu1: TMenuItem; |
| StatusBar1: TStatusBar; |
| Timer1: TTimer; |
| Gauge1: TGauge; |
| Vceoaplikaci1: TMenuItem; |
| procedure Edit1KeyDown(Sender: TObject; var Key: Word; |
| Shift: TShiftState); |
| procedure Button2Click(Sender: TObject); |
| procedure HTTP1StateChanged(Sender: TObject; State: Smallint); |
| procedure Button1Click(Sender: TObject); |
| procedure ListBox1Click(Sender: TObject); |
| procedure AutoSave1Click(Sender: TObject); |
| procedure Exit1Click(Sender: TObject); |
| procedure FormClose(Sender: TObject; var Action: TCloseAction); |
| procedure SearchforHelpOn1Click(Sender: TObject); |
| procedure dn1Click(Sender: TObject); |
| procedure ZkratkyVypnuty; |
| procedure ZkratkyZapnuty; |
| procedure FormDestroy(Sender: TObject); |
| procedure Trayicon1Click(Sender: TObject); |
| procedure Zobrazit1Click(Sender: TObject); |
| procedure Skrtformul1Click(Sender: TObject); |
| procedure About1Click(Sender: TObject); |
| procedure CreateLink(WorkingDirectory,FileName,Arguments: String;TargetLinkFile: WideString; |
| Description,IconPath: String;IconIdex: Integer); |
| procedure AddToStart(Sender: TObject); |
| procedure AddToDesktop(Sender: TObject); |
| procedure Timer1Timer(Sender: TObject); |
| procedure HTTP1Error(Sender: TObject; Number: Smallint; |
| var Description: WideString; Scode: Integer; const Source, |
| HelpFile: WideString; HelpContext: Integer; |
| var CancelDisplay: WordBool); |
| private |
| Download_file, Zobrazeni: String; |
| Busy: boolean; |
| Settings: TINIFile; |
| NotifyIconData: TNotifyIconData; // data pro ikonu |
| Time: Dword; |
| Sekund, BytesTransferredLast: Integer; |
| procedure WMTrayAppNotify(var M: TMessage); message WM_TRAYAPPNOTIFY; |
| public |
| Destination: String; |
| protected |
| procedure WMHotKey(var Message: TMessage); message WM_HOTKEY; |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| uses SaveDialog; |
| {$R *.DFM} |
| // ****************************************************************************** |
| // Rutiny download manageru |
| // ****************************************************************************** |
| //Reset |
| procedure TForm1.Button1Click(Sender: TObject); |
| var i, dummy: integer; |
| //param: DWord; |
| begin |
| //Monost vypnutí vekerých klávesových zkratek ve Win9x |
| //Param := 0; |
| //SystemParametersInfo(SPI_SETFASTTASKSWITCH, UINT(not false), @Param, 0); |
| // ALT+TAB, CTRL+ESC |
| //SystemParametersInfo(SPI_SCREENSAVERRUNNING, UINT(not false), @Param, 0); |
| // CTRL+ALT+DEL |
| //Vlozi zacatek internetove adresy |
| Edit1.text := 'http://'; |
| //Stornujeme stahování |
| if HTTP1.Busy then HTTP1.Cancel; |
| Busy := false; |
| Label1.caption := 'Pøipraven na stahování'; |
| //Skrytí task baru |
| ShowWindow(Application.Handle, SW_HIDE); //schová aplikaci z taskbaru |
| //Nacteni hodnot z konfiguracniho souboru |
| Settings:=TIniFile.Create((ExtractFilePath(Application.ExeName))+'settings.cfg'); |
| //Nacteni cile ukládání |
| Destination := Settings.ReadString('Options','Destination',ExtractFilePath(Application.ExeName)); |
| //Kde se ma zobrazit ikonka |
| Zobrazeni := Settings.ReadString('Options','Zobrazeni','TRAY_ICON'); |
| if Zobrazeni = 'TRAY_ICON' then Trayicon1Click(Sender) |
| else if Zobrazeni = 'NONE' then dn1Click(Sender) |
| else Trayicon1Click(Sender); |
| //Vymazani celeho mema |
| for i:=1 to ListBox1.Items.Count do ListBox1.Items.Delete(0); |
| end; |
| //Stahuj |
| procedure TForm1.Button2Click(Sender: TObject); |
| var i:integer; |
| FileName:string; |
| begin |
| if (ListBox1.Items.Count <> 0) then |
| if (Busy = false) then begin |
| Download_file := ListBox1.Items.Strings[0]; |
| //Ziskani jmena souboru z internetove adresy |
| for i:=0 to Length(Download_file) do |
| if (Download_file[i]<>'/') then FileName := FileName + Download_file[i] |
| else FileName:=''; |
| //Stavový label |
| Label1.caption:='Stahování souboru: '+Download_file; |
| Time := GetTickCount; |
| HTTP1.GetDoc(Download_file, '', Destination + FileName); |
| Busy := true; |
| end; |
| end; |
| //Neco se stalo... |
| procedure TForm1.HTTP1StateChanged(Sender: TObject; State: Smallint); |
| begin |
| if (State=6) then begin |
| Label1.Caption:='Stahování souboru '+Download_file+' dokonèeno'; |
| ListBox1.Items.Delete(0); |
| Busy := false; |
| Gauge1.Progress := 0; |
| StatusBar1.Panels[0].Text := 'Staeno celkem '+inttostr(round(HTTP1.DocOutput.BytesTransferred/1024))+' kB, '+inttostr(8*round(HTTP1.DocOutput.BytesTransferred/(GetTickCount-Time)))+' kbps'; |
| ShowMessage('Poadavek splnìn'); |
| end; |
| end; |
| //Prace s listboxem |
| procedure TForm1.ListBox1Click(Sender: TObject); |
| var i: integer; |
| begin |
| for i := 0 to (ListBox1.Items.Count - 1) do begin |
| if ListBox1.Selected[i] then |
| begin |
| Edit1.Text := ListBox1.Items.Strings[i]; |
| ListBox1.Items.Delete(i); |
| end; |
| end; |
| end; |
| //Po stisknuti enteru se data prenesou do listboxu |
| procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; |
| Shift: TShiftState); |
| begin |
| if (key=13) then begin |
| ListBox1.Items.Add(Edit1.Text); |
| Edit1.Text:='http://'; |
| end; |
| end; |
| //Zobrazeni formulare s cestou pro ulozeni souboru |
| procedure TForm1.AutoSave1Click(Sender: TObject); |
| begin |
| Form1.enabled:=false; |
| Form2.visible:=true; |
| end; |
| procedure TForm1.Timer1Timer(Sender: TObject); |
| var BytesTransferred: integer; |
| begin |
| if busy then begin |
| //Updatování pozice ukazatele |
| BytesTransferred := HTTP1.DocOutput.BytesTransferred; |
| Gauge1.MaxValue := HTTP1.DocOutput.BytesTotal; |
| Gauge1.Progress := BytesTransferred; |
| //Pøenosová rychlost B/s |
| StatusBar1.Panels[2].text := inttostr(round(((BytesTransferred - BytesTransferredLast)/(Timer1.interval/1000))))+' B/s'; |
| BytesTransferredLast := BytesTransferred; |
| //Pocet prenesenych bytu, procento stahování a pøenosová rychlost v kbps |
| if (HTTP1.DocOutput.BytesTotal <> 0)then |
| StatusBar1.Panels[0].text := inttostr(round(BytesTransferred/1024))+' kB z ' |
| +inttostr(round(HTTP1.DocOutput.BytesTotal/1024))+' kB = ' |
| +inttostr(round(100*(BytesTransferred/1024)/(HTTP1.DocOutput.BytesTotal/1024)))+' % =' |
| +inttostr(8*round(BytesTransferred/(GetTickCount-Time)))+' kbps'; |
| //doba stahování |
| Sekund := round((GetTickCount-Time)/1000); |
| StatusBar1.Panels[1].text := inttostr(trunc(sekund/3600))+'hodin, '+inttostr(trunc(sekund/60-60*trunc(sekund/3600)))+'minut, '+inttostr(trunc(sekund)-60*(trunc(sekund/60-60*trunc(sekund/3600))))+'sekund'; |
| end; |
| end; |
| procedure TForm1.HTTP1Error(Sender: TObject; Number: Smallint; |
| var Description: WideString; Scode: Integer; const Source, |
| HelpFile: WideString; HelpContext: Integer; var CancelDisplay: WordBool); |
| begin |
| ShowMessage('Vyskytla se chyba: '+Description); |
| end; |
| // ****************************************************************************** |
| // Procedury pro zobrazení a skrytí ze system tray |
| // ****************************************************************************** |
| //Zobrazení v tray icon |
| procedure TForm1.Trayicon1Click(Sender: TObject); |
| begin |
| //Deaktivace klavesovych zkratek |
| ZkratkyZapnuty; |
| // nastavíme jednotlivé poloky |
| with NotifyIconData do |
| begin |
| cbSize := SizeOf(NotifyIconData); |
| Wnd := Handle; |
| uID := 0; |
| uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP; |
| uCallbackMessage := WM_TRAYAPPNOTIFY; |
| hIcon := Application.Icon.Handle; |
| szTip:='Pokusná tray aplikace'; |
| end; |
| // pøidáme ikonu na litu |
| Shell_NotifyIcon(NIM_ADD, @NotifyIconData); |
| Zobrazeni := 'TRAY_ICON'; |
| end; |
| //Nezobrazovat nikde |
| procedure TForm1.dn1Click(Sender: TObject); |
| begin |
| //Oznameni o aktivaci klavesovych zkratek |
| ShowMessage('Program lze aktivovat klávesovou zkratkou CTRL+F7'); |
| ZkratkyZapnuty; |
| // odebereme ikonu z lity |
| Shell_NotifyIcon(NIM_DELETE, @NotifyIconData); |
| Zobrazeni := 'NONE'; |
| end; |
| //Zobrazit formuláø |
| procedure TForm1.Zobrazit1Click(Sender: TObject); |
| begin |
| Form1.visible := true; |
| end; |
| //Skrýt formuláø |
| procedure TForm1.Skrtformul1Click(Sender: TObject); |
| begin |
| Form1.visible := false; |
| end; |
| //Události nad System Tray ikonou |
| procedure TForm1.WMTrayAppNotify(var M: TMessage); |
| var |
| P: TPoint; |
| begin |
| with M do |
| case lParam of |
| WM_LBUTTONUP: // levé tlaèítko |
| Application.MessageBox('Na ikonì bylo kliknuto!', 'Tray', 0); |
| WM_RBUTTONUP: // pravé tlaèítko |
| begin |
| GetCursorPos(P); // získáme souøadnice kurzoru |
| PopupMenu1.Popup(P.X, P.Y); // a zobrazíme na nich menu |
| end; |
| end; |
| end; |
| // ****************************************************************************** |
| // Nastavení klávesových zkratek |
| // ****************************************************************************** |
| procedure TForm1.WMHotKey(var Message: TMessage); |
| begin |
| Form1.visible := true; |
| end; |
| procedure TForm1.ZkratkyVypnuty(); |
| begin |
| UnregisterHotKey(Handle,131632); |
| end; |
| procedure TForm1.ZkratkyZapnuty(); |
| begin |
| RegisterHotKey(Handle,131632,MOD_CONTROL{Control,Alt,Shift,Start},VK_F7{èíslo klávesy}); |
| end; |
| // ****************************************************************************** |
| // Pøidání programu do START menu a na plochu |
| // ****************************************************************************** |
| procedure TForm1.CreateLink(WorkingDirectory,FileName,Arguments: String;TargetLinkFile: WideString; |
| Description,IconPath: String;IconIdex: Integer); |
| var |
| MyObject : IUnknown; |
| MySLink : IShellLink; |
| MyPFile : IPersistFile; |
| begin |
| MyObject := CreateComObject(CLSID_ShellLink); |
| MySLink := MyObject as IShellLink; |
| MyPFile := MyObject as IPersistFile; |
| with MySLink do |
| begin |
| SetArguments (PChar(Arguments )); |
| SetPath (PChar(FileName)); |
| SetWorkingDirectory(PChar(WorkingDirectory)); |
| SetDescription (PChar(Description)); |
| SetIconLocation (PChar(IconPath), IconIdex); |
| end; |
| If Not DirectoryExists(ExtractFileDir(TargetLinkFile)) then CreateDir(ExtractFileDir(TargetLinkFile)); |
| MyPFile.Save(PWChar(TargetLinkFile),False); |
| MySLink := Nil; |
| MyPFile := Nil; |
| MyObject := Nil; |
| end; |
| procedure TForm1.AddToStart(Sender: TObject); |
| var MyReg: TRegIniFile; |
| Directory: WideString; |
| begin |
| MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); |
| Directory := MyReg.ReadString('Shell Folders','Start Menu','')+ |
| '\Programy\Download Manager\'; |
| //Zástupce na program |
| CreateLink(ExtractFilePath(Application.ExeName), |
| Application.ExeName, |
| '', |
| Directory+'Download Manager v0.0.1.1.lnk', |
| 'Download Manager v0.0.1.1', |
| Application.ExeName, |
| 0); |
| //Zástupce na homepage GAME Developer Serveru |
| CreateLink(ExtractFilePath(Application.ExeName), |
| ExtractFilePath(Application.ExeName)+'Homepage.url', |
| '', |
| Directory+'GAME Developer Server.lnk', |
| 'Server o programování v DirectX a OpenGL hlavnì v Delphi a C/C++.', |
| '', |
| 0); |
| //Zástupce na clanek o Download Manageru |
| CreateLink(ExtractFilePath(Application.ExeName), |
| ExtractFilePath(Application.ExeName)+'Clanek.url', |
| '', |
| Directory+'Zdrojové kódy a popis Download Manageru.lnk', |
| 'Stáhnìte si zdarma zdrojové kódy a popis Download Manageru', |
| '', |
| 0); |
| //Zástupce na diskusi o Download Manageru |
| CreateLink(ExtractFilePath(Application.ExeName), |
| ExtractFilePath(Application.ExeName)+'Diskuse.url', |
| '', |
| Directory+'Diskuse o Download Manageru.lnk', |
| 'Zajímá vás, co si o tomto programu myslí i jiní uivatelé?', |
| '', |
| 0); |
| MyReg.Free; |
| end; |
| procedure TForm1.AddToDesktop(Sender: TObject); |
| var MyReg: TRegIniFile; |
| Directory: WideString; |
| begin |
| MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); |
| Directory := MyReg.ReadString('Shell Folders','Desktop',''); |
| CreateLink(ExtractFilePath(Application.ExeName), |
| Application.ExeName, |
| '', |
| Directory+'\Download Manager.lnk', |
| 'Download Manager', |
| Application.ExeName, |
| 0); |
| MyReg.Free; |
| end; |
| // ****************************************************************************** |
| // Ukonèení programu |
| // ****************************************************************************** |
| procedure TForm1.FormDestroy(Sender: TObject); |
| begin |
| // odebereme ikonu z lity |
| Shell_NotifyIcon(NIM_DELETE, @NotifyIconData); |
| end; |
| procedure TForm1.Exit1Click(Sender: TObject); |
| begin |
| Close; |
| end; |
| procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); |
| begin |
| Settings.WriteString('Options','Destination',Destination); |
| Settings.WriteString('Options','Zobrazeni',Zobrazeni); |
| Settings.Free; |
| end; |
| //Odkaz na moje internetove stranky |
| procedure TForm1.SearchforHelpOn1Click(Sender: TObject); |
| begin |
| if (ShellExecute(0,'open',Pchar('http://gds.oceany.cz/index.php'),nil,nil,Sw_ShowNormal)<35) |
| then ShowMessage('Dolo k chybì k pøipojení na internetový server'); |
| end; |
| procedure TForm1.About1Click(Sender: TObject); |
| begin |
| ShowMessage('Download Manager v. 0.0.1.1'+chr(13)+'Copyright: Roman Schulz'+chr(13)+'Tento program je freeware'+chr(13)+chr(13)+'Popis a zdrojáky: GAME Developer Server'+chr(13)+'http://gds.oceany.cz'); |
| end; |
| end. |
| // ****************************************************************************** |
| // This source has been created by Roman Schulz, 2002. |
| // Visit my web-site at http://gds.oceany.cz for more info |
| // ****************************************************************************** |
| /programy/delphi/download/Download Manager 0.0.1.2/Homepage.url |
|---|
| 0,0 → 1,2 |
| [InternetShortcut] |
| URL=http://gds.oceany.cz/index.php |
| /programy/delphi/download/Download Manager 0.0.1.2/SETTINGS.CFG |
|---|
| 0,0 → 1,3 |
| [Options] |
| Destination=D:\ |
| Zobrazeni=NONE |
| /programy/delphi/download/Download Manager 0.0.1.2/SaveDialog.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/download/Download Manager 0.0.1.2/SaveDialog.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/download/Download Manager 0.0.1.2/SaveDialog.pas |
|---|
| 0,0 → 1,77 |
| // ****************************************************************************** |
| // This source has been created by Roman Schulz, 2002. |
| // Visit my web-site at http://gds.oceany.cz for more info |
| // ****************************************************************************** |
| unit SaveDialog; |
| interface |
| uses |
| SysUtils, Dialogs, Forms, Controls, Classes, StdCtrls; |
| type |
| TForm2 = class(TForm) |
| Edit1: TEdit; |
| Button1: TButton; |
| Button2: TButton; |
| Label1: TLabel; |
| Button3: TButton; |
| procedure Button1Click(Sender: TObject); |
| procedure FormCreate(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure Button3Click(Sender: TObject); |
| private |
| Destination: string; |
| end; |
| var |
| Form2: TForm2; |
| implementation |
| uses Downloader; |
| {$R *.DFM} |
| //setup |
| procedure TForm2.FormCreate(Sender: TObject); |
| begin |
| Destination := Form1.destination; |
| Edit1.text := Form1.Destination; |
| end; |
| //OK |
| procedure TForm2.Button1Click(Sender: TObject); |
| begin |
| Form1.Destination := Edit1.Text; |
| Form1.enabled := true; |
| Form2.visible := false; |
| end; |
| //Reset |
| procedure TForm2.Button2Click(Sender: TObject); |
| begin |
| Form1.Destination := Destination; |
| Form1.enabled := true; |
| Form2.visible := false; |
| end; |
| //Default |
| procedure TForm2.Button3Click(Sender: TObject); |
| begin |
| Form1.Destination := ExtractFilePath(Application.ExeName); |
| Edit1.text := ExtractFilePath(Application.ExeName); |
| end; |
| end. |
| // ****************************************************************************** |
| // This source has been created by Roman Schulz, 2002. |
| // Visit my web-site at http://gds.oceany.cz for more info |
| // ****************************************************************************** |
| /programy/delphi/download/Download Manager 0.0.1.2/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 |
| /programy/delphi/download/download.zip |
|---|
| 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/download/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 |
| /programy/delphi/hello/Hello_p.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/hello/Hello_p.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/hello/Hello_p.dpr |
|---|
| 0,0 → 1,13 |
| program Hello_p; |
| uses |
| Forms, |
| Unit1 in 'Unit1.pas' {Hlavni_Formular}; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(THlavni_Formular, Hlavni_Formular); |
| Application.Run; |
| end. |
| /programy/delphi/hello/Hello_p.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/hello/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/hello/Unit1.dfm |
|---|
| 0,0 → 1,32 |
| object Hlavni_Formular: THlavni_Formular |
| Left = 336 |
| Top = 120 |
| Width = 289 |
| Height = 172 |
| Caption = 'Prvn'#205' Program' |
| Color = clBtnFace |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clGreen |
| Font.Height = -33 |
| Font.Name = 'Times New Roman' |
| Font.Style = [fsBold] |
| OldCreateOrder = False |
| PixelsPerInch = 96 |
| TextHeight = 37 |
| object Label1: TLabel |
| Left = 56 |
| Top = 16 |
| Width = 175 |
| Height = 37 |
| Caption = 'Hello World' |
| end |
| object Button1: TButton |
| Left = 48 |
| Top = 88 |
| Width = 193 |
| Height = 49 |
| Caption = 'Tla'#269#237'tko' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| end |
| /programy/delphi/hello/Unit1.pas |
|---|
| 0,0 → 1,41 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls; |
| type |
| THlavni_Formular = class(TForm) |
| Label1: TLabel; |
| Button1: TButton; |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Hlavni_Formular: THlavni_Formular; |
| implementation |
| {$R *.dfm} |
| procedure THlavni_Formular.Button1Click(Sender: TObject); |
| begin |
| if Tlacitko.Caption='èesky' then |
| begin |
| Label1.Caption:='Ahoj Vichni!'; |
| Tlacitko.Caption:='English'; |
| end |
| else |
| begin |
| Label1.Caption:='Hello World!'; |
| Tlacitko.Caption:='èesky'; |
| end; |
| end. |
| /programy/delphi/hello/Unit1.~dfm |
|---|
| 0,0 → 1,16 |
| object Hlavni_Formular: THlavni_Formular |
| Left = 343 |
| Top = 199 |
| Width = 289 |
| Height = 172 |
| Caption = 'Prvn'#205' Program' |
| 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 |
| end |
| /programy/delphi/hello/Unit1.~pas |
|---|
| 0,0 → 1,24 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs; |
| type |
| THlavni_Formular = class(TForm) |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Hlavni_Formular: THlavni_Formular; |
| implementation |
| {$R *.dfm} |
| end. |
| /programy/delphi/hello/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 |
| /programy/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/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/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/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/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/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/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/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/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/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/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/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/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/mlzic/mlzic2/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/mlzic/mlzic2/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/mlzic/mlzic2/Blikac.pas |
|---|
| 0,0 → 1,71 |
| 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; |
| ScrollBar2: TScrollBar; |
| Edit2: TEdit; |
| StaticText1: TStaticText; |
| StaticText2: TStaticText; |
| CheckBox1: TCheckBox; |
| procedure ScrollBar1Change(Sender: TObject); |
| procedure FormCreate(Sender: TObject); |
| procedure Timer1Timer(Sender: TObject); |
| procedure ScrollBar2Change(Sender: TObject); |
| procedure CheckBox1Click(Sender: TObject); |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.DFM} |
| var Vystup: Integer; |
| procedure TForm1.ScrollBar1Change(Sender: TObject); |
| begin |
| Edit1.Text := floattostr(Scrollbar1.Position)+ ' us'; |
| end; |
| procedure TForm1.ScrollBar2Change(Sender: TObject); |
| begin |
| Edit2.Text := floattostr(Scrollbar2.Position)+ ' us'; |
| end; |
| procedure TForm1.FormCreate(Sender: TObject); |
| begin |
| OpenCom (Pchar('COM1:9600,N,8,1')); |
| //!!!! |
| Timer1.Enabled := true; |
| Vystup := 0; |
| Timer1.Interval := 1000; |
| end; |
| procedure TForm1.Timer1Timer(Sender: TObject); |
| var n: integer; |
| begin |
| for n:=1 to 5000000 div(Scrollbar1.Position+Scrollbar2.Position) do |
| begin |
| DTR (1); |
| // RTS (1); |
| // delayus(Scrollbar1.Position); |
| DTR (0); |
| // RTS (0); |
| // delayus(Scrollbar2.Position); |
| end; |
| DTR (0); |
| RTS (0); |
| end; |
| procedure TForm1.CheckBox1Click(Sender: TObject); |
| begin |
| if CheckBox1.Checked then DTR (1) else DTR(0); |
| end; |
| end. |
| /programy/delphi/mlzic/mlzic2/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/mlzic/mlzic2/Blikac.~pas |
|---|
| 0,0 → 1,71 |
| 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; |
| ScrollBar2: TScrollBar; |
| Edit2: TEdit; |
| StaticText1: TStaticText; |
| StaticText2: TStaticText; |
| CheckBox1: TCheckBox; |
| procedure ScrollBar1Change(Sender: TObject); |
| procedure FormCreate(Sender: TObject); |
| procedure Timer1Timer(Sender: TObject); |
| procedure ScrollBar2Change(Sender: TObject); |
| procedure CheckBox1Click(Sender: TObject); |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.DFM} |
| var Vystup: Integer; |
| procedure TForm1.ScrollBar1Change(Sender: TObject); |
| begin |
| Edit1.Text := floattostr(Scrollbar1.Position)+ ' us'; |
| end; |
| procedure TForm1.ScrollBar2Change(Sender: TObject); |
| begin |
| Edit2.Text := floattostr(Scrollbar2.Position)+ ' us'; |
| end; |
| procedure TForm1.FormCreate(Sender: TObject); |
| begin |
| OpenCom (Pchar('COM1:9600,N,8,1')); |
| //!!!! |
| Timer1.Enabled := true; |
| Vystup := 0; |
| Timer1.Interval := 1000; |
| end; |
| procedure TForm1.Timer1Timer(Sender: TObject); |
| var n: integer; |
| begin |
| for n:=1 to 5000000 div(Scrollbar1.Position+Scrollbar2.Position) do |
| begin |
| DTR (1); |
| // RTS (1); |
| // delayus(Scrollbar1.Position); |
| DTR (0); |
| // RTS (0); |
| // delayus(Scrollbar2.Position); |
| end; |
| DTR (0); |
| RTS (0); |
| end; |
| procedure TForm1.CheckBox1Click(Sender: TObject); |
| begin |
| if CheckBox1.Checked then DTR (1) else DTR(0); |
| end; |
| end. |
| /programy/delphi/mlzic/mlzic2/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/mlzic/mlzic2/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/mlzic/mlzic2/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/mlzic/mlzic2/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/mlzic/mlzic2/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/mlzic/mlzic2/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/mlzic/mlzic2/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/mlzic/mlzic2/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/mlzic/mlzic2/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 |
| /programy/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 |
| /programy/delphi/motor/LPTMot.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/motor/LPTMot.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/motor/LPTMot.pas |
|---|
| 0,0 → 1,340 |
| unit LPTMot; |
| interface |
| uses PORTINC, |
| Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| StdCtrls, ExtCtrls; |
| type |
| TForm1 = class(TForm) |
| Button1: TButton; |
| Button2: TButton; |
| Edit1: TEdit; |
| RadioButton1: TRadioButton; |
| RadioButton2: TRadioButton; |
| RadioButton3: TRadioButton; |
| RadioButton4: TRadioButton; |
| Button3: TButton; |
| Button4: TButton; |
| Label1: TLabel; |
| Timer1: TTimer; |
| Timer2: TTimer; |
| Button5: TButton; |
| Button6: TButton; |
| Button7: TButton; |
| Button8: TButton; |
| Timer3: TTimer; |
| CheckBox1_4: TCheckBox; |
| CheckBox1_5: TCheckBox; |
| CheckBox1_6: TCheckBox; |
| CheckBox1_7: TCheckBox; |
| Button9: TButton; |
| procedure FormCreate(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure Edit1Change(Sender: TObject); |
| procedure RadioButton1Click(Sender: TObject); |
| procedure RadioButton2Click(Sender: TObject); |
| procedure RadioButton3Click(Sender: TObject); |
| procedure RadioButton4Click(Sender: TObject); |
| procedure Button3Click(Sender: TObject); |
| procedure Button4Click(Sender: TObject); |
| procedure Timer1Timer(Sender: TObject); |
| procedure Button5Click(Sender: TObject); |
| procedure Button6Click(Sender: TObject); |
| procedure Button8Click(Sender: TObject); |
| procedure Button7Click(Sender: TObject); |
| procedure Timer3Timer(Sender: TObject); |
| procedure Button9Click(Sender: TObject); |
| end; |
| var |
| Form1: TForm1; |
| krok1, krok2, krok3 : Byte; |
| msteps: integer; |
| smer: byte; |
| const BA = $378; { LPT1 } |
| vpravo = true; |
| vlevo = false; |
| mspeed = 10; |
| implementation |
| {$R *.DFM} |
| procedure Motor1 (vpravo : Boolean); |
| begin |
| if vpravo then begin |
| krok1 := krok1 * 2; |
| if krok1 = 16 then krok1 := 1 |
| end else begin |
| krok1 := krok1 div 2; |
| if krok1 = 0 then krok1 := 8; |
| end; |
| OutPort(BA, krok1 + 16 * krok2); |
| end; |
| procedure Motor2 (vpravo : Boolean); |
| begin |
| if vpravo then begin |
| krok2 := krok2 * 2; |
| if krok2 = 16 then krok2 := 1 |
| end else begin |
| krok2 := krok2 div 2; |
| if krok2 = 0 then krok2 := 8; |
| end; |
| OutPort(BA, krok1 + 16 * krok2); |
| end; |
| procedure Motor3 (vpravo : Boolean); |
| begin |
| if vpravo then begin |
| krok3 := krok3 * 2; |
| if krok3 = 16 then krok3 := 1 |
| end else begin |
| krok3 := krok3 div 2; |
| if krok3 = 0 then krok3 := 8; |
| end; |
| OutPort(BA+2, krok3 XOR 11); |
| end; |
| function spinac1: Boolean; |
| begin |
| if (InPort(BA+1) and 8) = 0 then spinac1 := true else spinac1 := false; |
| end; |
| function spinac2: Boolean; |
| begin |
| if (InPort(BA+1) and 16) = 0 then spinac2 := true else spinac2 := false; |
| end; |
| function spinac3: Boolean; |
| begin |
| if (InPort(BA+1) and 32) = 0 then spinac3 := true else spinac3 := false; |
| end; |
| procedure nulpoloha; |
| begin |
| repeat |
| Motor1(vlevo); |
| delay (5); |
| until spinac1; |
| repeat |
| Motor2(vlevo); |
| delay (5); |
| until spinac2; |
| repeat |
| Motor3(vlevo); |
| delay (5); |
| until spinac3; |
| end; |
| procedure pohyb1; |
| var N : Word; |
| begin |
| for n:= 1 to 100 do begin { 100 krokù } |
| Motor1 (vpravo); |
| Motor2 (vpravo); { vechny motory } |
| Motor3 (vpravo); |
| delay (5); { rychle } |
| end; |
| for n:= 1 to 100 do begin { 100 krokù } |
| Motor1 (vpravo); { jen motor 1 } |
| delay (10); { pomalu } |
| end; |
| delay(1000); { klid 1s } |
| for n:= 1 to 100 do begin { 100 krokù } |
| Motor1 (vlevo); |
| Motor2 (vlevo); { vechny motory } |
| Motor3 (vlevo); |
| delay(5); { rychle } |
| end; |
| for n:= 1 to 100 do begin { 100 krokù } |
| Motor1 (vlevo); { jen motor 1 } |
| delay (10); { pomalu } |
| end; |
| delay (1000); { klid 1s } |
| end; |
| procedure TForm1.FormCreate(Sender: TObject); |
| var ble: integer; |
| begin |
| OpenCom (Pchar('LPT1:')); |
| krok1 := 1; |
| krok2 := 1; |
| krok3 := 1; |
| OutPort (BA,0); |
| val(Edit1.Text,msteps,ble); |
| end; |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| nulpoloha; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| begin |
| pohyb1; |
| end; |
| procedure TForm1.Edit1Change(Sender: TObject); |
| var |
| ble:integer; |
| begin |
| val(Edit1.Text,msteps,ble); |
| end; |
| procedure TForm1.RadioButton1Click(Sender: TObject); |
| begin |
| OutPort(BA, 1); |
| end; |
| procedure TForm1.RadioButton2Click(Sender: TObject); |
| begin |
| OutPort(BA, 2); |
| end; |
| procedure TForm1.RadioButton3Click(Sender: TObject); |
| begin |
| OutPort(BA, 4); |
| end; |
| procedure TForm1.RadioButton4Click(Sender: TObject); |
| begin |
| OutPort(BA, 8); |
| end; |
| procedure TForm1.Button3Click(Sender: TObject); |
| var n:integer; |
| begin |
| for n:=1 to msteps do |
| begin |
| OutPort(BA, 5); |
| delay(mspeed); |
| OutPort(BA, 6); |
| delay(mspeed); |
| OutPort(BA, 10); |
| delay(mspeed); |
| OutPort(BA, 9); |
| delay(mspeed); |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Button4Click(Sender: TObject); |
| var n:integer; |
| begin |
| for n:=1 to msteps do |
| begin |
| OutPort(BA, 9); //1 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 10); //8 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 6); //2 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 5); //4 |
| delay (mspeed); { pomalu } |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Timer1Timer(Sender: TObject); |
| begin |
| if (smer and 1)=1 then |
| Button4Click(Sender) |
| else |
| Button3Click(Sender); |
| inc(smer); |
| end; |
| procedure TForm1.Button5Click(Sender: TObject); |
| begin |
| Timer1.Enabled:=true; |
| Timer2.Enabled:=true; |
| end; |
| procedure TForm1.Button6Click(Sender: TObject); |
| begin |
| Timer1.Enabled:=false; |
| Timer2.Enabled:=false; |
| end; |
| procedure TForm1.Button8Click(Sender: TObject); |
| var n:integer; |
| begin |
| for n:=1 to msteps do |
| begin |
| OutPort(BA, 1); //1 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 8); //8 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 2); //2 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 4); //4 |
| delay (mspeed); { pomalu } |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Button7Click(Sender: TObject); |
| var n:integer; |
| begin |
| for n:=1 to msteps do |
| begin |
| OutPort(BA, 4); //1 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 2); //8 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 8); //2 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 1); //4 |
| delay (mspeed); { pomalu } |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Timer3Timer(Sender: TObject); |
| var |
| n : integer; |
| begin |
| n := InPort(BA+1); |
| IF $10 = n and $10 then |
| CheckBox1_4.Checked := false else CheckBox1_4.Checked := true; |
| IF $20 = n and $20 then |
| CheckBox1_5.Checked := false else CheckBox1_5.Checked := true; |
| IF $40 = n and $40 then |
| CheckBox1_6.Checked := false else CheckBox1_6.Checked := true; |
| IF $80 = n and $80 then |
| CheckBox1_7.Checked := true else CheckBox1_7.Checked := false; |
| end; |
| procedure run(turns:integer; speed:integer); |
| var n:integer; |
| begin |
| for n:=1 to turns do |
| begin |
| OutPort(BA, 1); |
| delay (speed); { pomalu } |
| OutPort(BA, 2); |
| delay (speed); { pomalu } |
| OutPort(BA, 4); |
| delay (speed); { pomalu } |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Button9Click(Sender: TObject); |
| var n: integer; |
| begin |
| for n:=35 downto 20 do run(2,n); |
| run(70,20); |
| end; |
| end. |
| /programy/delphi/motor/LPTMot.~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/motor/LPTMot.~pas |
|---|
| 0,0 → 1,340 |
| unit LPTMot; |
| interface |
| uses PORTINC, |
| Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| StdCtrls, ExtCtrls; |
| type |
| TForm1 = class(TForm) |
| Button1: TButton; |
| Button2: TButton; |
| Edit1: TEdit; |
| RadioButton1: TRadioButton; |
| RadioButton2: TRadioButton; |
| RadioButton3: TRadioButton; |
| RadioButton4: TRadioButton; |
| Button3: TButton; |
| Button4: TButton; |
| Label1: TLabel; |
| Timer1: TTimer; |
| Timer2: TTimer; |
| Button5: TButton; |
| Button6: TButton; |
| Button7: TButton; |
| Button8: TButton; |
| Timer3: TTimer; |
| CheckBox1_4: TCheckBox; |
| CheckBox1_5: TCheckBox; |
| CheckBox1_6: TCheckBox; |
| CheckBox1_7: TCheckBox; |
| Button9: TButton; |
| procedure FormCreate(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure Edit1Change(Sender: TObject); |
| procedure RadioButton1Click(Sender: TObject); |
| procedure RadioButton2Click(Sender: TObject); |
| procedure RadioButton3Click(Sender: TObject); |
| procedure RadioButton4Click(Sender: TObject); |
| procedure Button3Click(Sender: TObject); |
| procedure Button4Click(Sender: TObject); |
| procedure Timer1Timer(Sender: TObject); |
| procedure Button5Click(Sender: TObject); |
| procedure Button6Click(Sender: TObject); |
| procedure Button8Click(Sender: TObject); |
| procedure Button7Click(Sender: TObject); |
| procedure Timer3Timer(Sender: TObject); |
| procedure Button9Click(Sender: TObject); |
| end; |
| var |
| Form1: TForm1; |
| krok1, krok2, krok3 : Byte; |
| msteps: integer; |
| smer: byte; |
| const BA = $378; { LPT1 } |
| vpravo = true; |
| vlevo = false; |
| mspeed = 10; |
| implementation |
| {$R *.DFM} |
| procedure Motor1 (vpravo : Boolean); |
| begin |
| if vpravo then begin |
| krok1 := krok1 * 2; |
| if krok1 = 16 then krok1 := 1 |
| end else begin |
| krok1 := krok1 div 2; |
| if krok1 = 0 then krok1 := 8; |
| end; |
| OutPort(BA, krok1 + 16 * krok2); |
| end; |
| procedure Motor2 (vpravo : Boolean); |
| begin |
| if vpravo then begin |
| krok2 := krok2 * 2; |
| if krok2 = 16 then krok2 := 1 |
| end else begin |
| krok2 := krok2 div 2; |
| if krok2 = 0 then krok2 := 8; |
| end; |
| OutPort(BA, krok1 + 16 * krok2); |
| end; |
| procedure Motor3 (vpravo : Boolean); |
| begin |
| if vpravo then begin |
| krok3 := krok3 * 2; |
| if krok3 = 16 then krok3 := 1 |
| end else begin |
| krok3 := krok3 div 2; |
| if krok3 = 0 then krok3 := 8; |
| end; |
| OutPort(BA+2, krok3 XOR 11); |
| end; |
| function spinac1: Boolean; |
| begin |
| if (InPort(BA+1) and 8) = 0 then spinac1 := true else spinac1 := false; |
| end; |
| function spinac2: Boolean; |
| begin |
| if (InPort(BA+1) and 16) = 0 then spinac2 := true else spinac2 := false; |
| end; |
| function spinac3: Boolean; |
| begin |
| if (InPort(BA+1) and 32) = 0 then spinac3 := true else spinac3 := false; |
| end; |
| procedure nulpoloha; |
| begin |
| repeat |
| Motor1(vlevo); |
| delay (5); |
| until spinac1; |
| repeat |
| Motor2(vlevo); |
| delay (5); |
| until spinac2; |
| repeat |
| Motor3(vlevo); |
| delay (5); |
| until spinac3; |
| end; |
| procedure pohyb1; |
| var N : Word; |
| begin |
| for n:= 1 to 100 do begin { 100 krokù } |
| Motor1 (vpravo); |
| Motor2 (vpravo); { vechny motory } |
| Motor3 (vpravo); |
| delay (5); { rychle } |
| end; |
| for n:= 1 to 100 do begin { 100 krokù } |
| Motor1 (vpravo); { jen motor 1 } |
| delay (10); { pomalu } |
| end; |
| delay(1000); { klid 1s } |
| for n:= 1 to 100 do begin { 100 krokù } |
| Motor1 (vlevo); |
| Motor2 (vlevo); { vechny motory } |
| Motor3 (vlevo); |
| delay(5); { rychle } |
| end; |
| for n:= 1 to 100 do begin { 100 krokù } |
| Motor1 (vlevo); { jen motor 1 } |
| delay (10); { pomalu } |
| end; |
| delay (1000); { klid 1s } |
| end; |
| procedure TForm1.FormCreate(Sender: TObject); |
| var ble: integer; |
| begin |
| OpenCom (Pchar('LPT1:')); |
| krok1 := 1; |
| krok2 := 1; |
| krok3 := 1; |
| OutPort (BA,0); |
| val(Edit1.Text,msteps,ble); |
| end; |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| nulpoloha; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| begin |
| pohyb1; |
| end; |
| procedure TForm1.Edit1Change(Sender: TObject); |
| var |
| ble:integer; |
| begin |
| val(Edit1.Text,msteps,ble); |
| end; |
| procedure TForm1.RadioButton1Click(Sender: TObject); |
| begin |
| OutPort(BA, 1); |
| end; |
| procedure TForm1.RadioButton2Click(Sender: TObject); |
| begin |
| OutPort(BA, 2); |
| end; |
| procedure TForm1.RadioButton3Click(Sender: TObject); |
| begin |
| OutPort(BA, 4); |
| end; |
| procedure TForm1.RadioButton4Click(Sender: TObject); |
| begin |
| OutPort(BA, 8); |
| end; |
| procedure TForm1.Button3Click(Sender: TObject); |
| var n:integer; |
| begin |
| for n:=1 to msteps do |
| begin |
| OutPort(BA, 5); |
| delay(mspeed); |
| OutPort(BA, 6); |
| delay(mspeed); |
| OutPort(BA, 10); |
| delay(mspeed); |
| OutPort(BA, 9); |
| delay(mspeed); |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Button4Click(Sender: TObject); |
| var n:integer; |
| begin |
| for n:=1 to msteps do |
| begin |
| OutPort(BA, 9); //1 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 10); //8 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 6); //2 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 5); //4 |
| delay (mspeed); { pomalu } |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Timer1Timer(Sender: TObject); |
| begin |
| if (smer and 1)=1 then |
| Button4Click(Sender) |
| else |
| Button3Click(Sender); |
| inc(smer); |
| end; |
| procedure TForm1.Button5Click(Sender: TObject); |
| begin |
| Timer1.Enabled:=true; |
| Timer2.Enabled:=true; |
| end; |
| procedure TForm1.Button6Click(Sender: TObject); |
| begin |
| Timer1.Enabled:=false; |
| Timer2.Enabled:=false; |
| end; |
| procedure TForm1.Button8Click(Sender: TObject); |
| var n:integer; |
| begin |
| for n:=1 to msteps do |
| begin |
| OutPort(BA, 1); //1 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 8); //8 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 2); //2 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 4); //4 |
| delay (mspeed); { pomalu } |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Button7Click(Sender: TObject); |
| var n:integer; |
| begin |
| for n:=1 to msteps do |
| begin |
| OutPort(BA, 4); //1 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 2); //8 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 8); //2 |
| delay (mspeed); { pomalu } |
| OutPort(BA, 1); //4 |
| delay (mspeed); { pomalu } |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Timer3Timer(Sender: TObject); |
| var |
| n : integer; |
| begin |
| n := InPort(BA+1); |
| IF $10 = n and $10 then |
| CheckBox1_4.Checked := false else CheckBox1_4.Checked := true; |
| IF $20 = n and $20 then |
| CheckBox1_5.Checked := false else CheckBox1_5.Checked := true; |
| IF $40 = n and $40 then |
| CheckBox1_6.Checked := false else CheckBox1_6.Checked := true; |
| IF $80 = n and $80 then |
| CheckBox1_7.Checked := true else CheckBox1_7.Checked := false; |
| end; |
| procedure run(turns:integer; speed:integer); |
| var n:integer; |
| begin |
| for n:=1 to turns do |
| begin |
| OutPort(BA, 1); |
| delay (speed); { pomalu } |
| OutPort(BA, 2); |
| delay (speed); { pomalu } |
| OutPort(BA, 4); |
| delay (speed); { pomalu } |
| end; |
| OutPort(BA, 0); |
| end; |
| procedure TForm1.Button9Click(Sender: TObject); |
| var n: integer; |
| begin |
| for n:=40 downto 10 do run(2,n); |
| run(1000,10); |
| end; |
| end. |
| /programy/delphi/motor/Lptmotp.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/motor/Lptmotp.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=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= |
| 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=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/motor/Lptmotp.dpr |
|---|
| 0,0 → 1,13 |
| program Lptmotp; |
| uses |
| Forms, |
| LPTMot in 'LPTMot.pas' {Form1}; |
| {$R *.RES} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.Run; |
| end. |
| /programy/delphi/motor/Lptmotp.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/motor/Lptmotp.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/motor/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/motor/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/motor/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/motor/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 |
| /programy/delphi/osciloskop/OBRAZOVKA.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/osciloskop/OBRAZOVKA.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/osciloskop/OBRAZOVKA.dpr |
|---|
| 0,0 → 1,15 |
| program OBRAZOVKA; |
| uses |
| Forms, |
| Unit1 in 'Unit1.pas' {Form1}, |
| Unit2 in 'Unit2.pas' {Form2}; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.CreateForm(TForm2, Form2); |
| Application.Run; |
| end. |
| /programy/delphi/osciloskop/OBRAZOVKA.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/osciloskop/OBRAZOVKA.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/osciloskop/OBRAZOVKA.~dpr |
|---|
| 0,0 → 1,17 |
| program OBRAZOVKA; |
| uses |
| Forms, |
| Unit1 in 'Unit1.pas' {Form1}, |
| Unit2 in 'Unit2.pas' {Form2}, |
| ble in 'ble.pas' {Form3}; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.CreateForm(TForm2, Form2); |
| Application.CreateForm(TForm3, Form3); |
| Application.Run; |
| end. |
| /programy/delphi/osciloskop/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/osciloskop/Unit1.dfm |
|---|
| 0,0 → 1,118 |
| object Form1: TForm1 |
| Left = 181 |
| Top = 138 |
| Width = 557 |
| Height = 387 |
| 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 Obrazovka: TPaintBox |
| Left = 64 |
| Top = 8 |
| Width = 455 |
| Height = 256 |
| Color = clBtnFace |
| ParentColor = False |
| OnPaint = obrazovkaShow |
| end |
| object vykreslit: TButton |
| Left = 88 |
| Top = 304 |
| Width = 65 |
| Height = 33 |
| Caption = 'vykreslit' |
| TabOrder = 0 |
| OnClick = vykreslitClick |
| end |
| object Button2: TButton |
| Left = 8 |
| Top = 16 |
| Width = 49 |
| Height = 25 |
| Caption = 's'#237't'#711 |
| TabOrder = 1 |
| OnClick = Button2Click |
| end |
| object reset: TButton |
| Left = 8 |
| Top = 296 |
| Width = 57 |
| Height = 41 |
| Caption = 'Reset' |
| TabOrder = 2 |
| OnClick = resetClick |
| end |
| object vypis: TButton |
| Left = 8 |
| Top = 48 |
| Width = 49 |
| Height = 25 |
| Caption = 'v'#253'pis' |
| TabOrder = 3 |
| OnClick = vypisClick |
| end |
| object Posuv: TScrollBar |
| Left = 168 |
| Top = 312 |
| Width = 201 |
| Height = 16 |
| Max = 637 |
| PageSize = 0 |
| TabOrder = 4 |
| OnChange = PosuvChange |
| end |
| object ScrollBar2: TScrollBar |
| Left = 64 |
| Top = 272 |
| Width = 455 |
| Height = 17 |
| Max = 455 |
| PageSize = 0 |
| TabOrder = 5 |
| OnChange = ScrollBar2Change |
| end |
| object ScrollBar3: TScrollBar |
| Left = 528 |
| Top = 8 |
| Width = 17 |
| Height = 256 |
| Kind = sbVertical |
| Max = 256 |
| PageSize = 0 |
| TabOrder = 6 |
| OnChange = ScrollBar3Change |
| end |
| object zoom: TScrollBar |
| Left = 416 |
| Top = 304 |
| Width = 121 |
| Height = 17 |
| Max = 6 |
| Min = 1 |
| PageSize = 0 |
| Position = 1 |
| TabOrder = 7 |
| OnChange = zoomChange |
| end |
| object StaticText1: TStaticText |
| Left = 464 |
| Top = 328 |
| Width = 39 |
| Height = 20 |
| Caption = 'Zoom' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -13 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| TabOrder = 8 |
| end |
| end |
| /programy/delphi/osciloskop/Unit1.pas |
|---|
| 0,0 → 1,213 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, ExtCtrls, OleCtrls, VCFI, Menus; |
| type |
| TForm1 = class(TForm) |
| vykreslit: TButton; |
| Button2: TButton; |
| reset: TButton; |
| vypis: TButton; |
| Obrazovka: TPaintBox; |
| Posuv: TScrollBar; |
| ScrollBar2: TScrollBar; |
| ScrollBar3: TScrollBar; |
| zoom: TScrollBar; |
| StaticText1: TStaticText; |
| procedure vykreslitClick(Sender: TObject); |
| procedure obrazovkaShow(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure resetClick(Sender: TObject); |
| procedure vypisClick(Sender: TObject); |
| procedure ScrollBar2Change(Sender: TObject); |
| procedure ScrollBar3Change(Sender: TObject); |
| procedure zoomChange(Sender: TObject); |
| procedure PosuvChange(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| procedure smazat; |
| { Public declarations } |
| end; |
| const |
| MAX=455; |
| pametMAX=6*MAX; |
| var |
| Form1: TForm1; |
| PobrazovkaYMIN: array [0..MAX] of word; |
| PobrazovkaYMAX: array [0..MAX] of word; |
| pamet: array[0..pametMAX{,0..pametMAX}]of word; |
| implementation |
| uses Unit2; |
| {$R *.dfm} |
| procedure Tform1.smazat; |
| begin |
| Form1.Canvas.Pen.Mode:=pmNop; |
| Form1.Obrazovka.Canvas.Brush.Color:=clblack; |
| Form1.Obrazovka.Canvas.Rectangle(0,0,455,256); |
| Form1.Obrazovka.Canvas.Pen.Color:=cllime; |
| end; |
| procedure Draw; |
| var |
| x: word; |
| begin |
| Form1.Obrazovka.Canvas.MoveTo(0,PobrazovkaYMAX[0]); |
| for x:=1 to MAX do |
| begin |
| Form1.Obrazovka.Canvas.LineTo(x,PobrazovkaYMAX[x]); |
| Form1.Obrazovka.Canvas.LineTo(x,PobrazovkaYMIN[x]); |
| end |
| end; |
| procedure TForm1.vykreslitClick(Sender: TObject); |
| (* ble:extended;*) |
| var i,x: integer; |
| begin |
| smazat; |
| for x:=0 to pametMAX do |
| begin |
| pamet[x]:=random(200); //round((sin(x/1)*100)+100); |
| end; |
| PosuvChange(Self); |
| end; |
| procedure TForm1.obrazovkaShow(Sender: TObject); |
| begin |
| smazat; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| var n: integer; |
| begin |
| n:=0; |
| while n<256 do |
| begin |
| Obrazovka.Canvas.Pen.Color:=clYellow; |
| Obrazovka.Canvas.MoveTo(0,n); |
| Obrazovka.Canvas.LineTo(455,n); |
| n:=n+70; |
| end; |
| n:=0; |
| while n<455 do |
| begin |
| Obrazovka.Canvas.Pen.Color:=clSilver; |
| Obrazovka.Canvas.MoveTo(n,0); |
| Obrazovka.Canvas.LineTo(n,455); |
| n:=n+70; |
| end; |
| Obrazovka.Canvas.Pen.Color:=cllime |
| end; |
| procedure TForm1.resetClick(Sender: TObject); |
| var j:word; |
| begin |
| smazat; |
| for j:=0 to MAX do |
| PobrazovkaYMIN[j]:=0; |
| PobrazovkaYMAX[j]:=0; |
| for j:=0 to pametMAX do |
| pamet[j]:=0; |
| end; |
| procedure TForm1.vypisClick(Sender: TObject); |
| var faut:TextFile; |
| x:word; |
| ble: string; |
| begin |
| Form2.ShowModal; |
| if Form2.Edit1.Text<>'' then |
| begin |
| AssignFile(faut,Form2.Edit1.Text); |
| Rewrite(faut); |
| for x:=0 to 455 do |
| begin |
| str(x,ble); |
| Write(faut,'x='+ble+','); |
| str(PobrazovkaYMIN[x],ble); |
| Write(faut,'Ymin='+ble+','); |
| str(PobrazovkaYMAX[x],ble); |
| Writeln(faut,'Ymax='+ble+'; '); |
| end; |
| CloseFile(faut); |
| end |
| end; |
| procedure TForm1.ScrollBar2Change(Sender: TObject); |
| var |
| xold:word; |
| zoom: integer; |
| code: integer; |
| begin |
| xold:=ScrollBar2.Position; |
| Obrazovka.Canvas.Pen.Color:=clred; |
| Obrazovka.Canvas.Pen.Mode:=pmNotXor; |
| Form1.Obrazovka.Canvas.MoveTo(xold,Obrazovka.Height); |
| Form1.Obrazovka.Canvas.LineTo(xold,0); |
| end; |
| procedure TForm1.ScrollBar3Change(Sender: TObject); |
| var |
| x,y:word; |
| begin |
| obrazovka.Canvas.Pen.Color:=clred; |
| obrazovka.Canvas.Pen.Mode:=pmNotXor; |
| Form1.obrazovka.Canvas.MoveTo(0,ScrollBar3.Position); |
| Form1.obrazovka.Canvas.LineTo(obrazovka.Width,ScrollBar3.Position); |
| obrazovka.Canvas.Pen.Mode:=pmNop; |
| end; |
| procedure TForm1.zoomChange(Sender: TObject); |
| var |
| zoom, Xpamet, Xobraz, i, Ymax, Ymin : word; |
| begin |
| zoom:=Form1.zoom.Position; |
| Xpamet:=Posuv.Position; |
| Xobraz:=0; |
| while Xpamet < pametMAX do |
| begin |
| Ymax:=pamet[Xpamet]; |
| Ymin:=pamet[Xpamet]; |
| for i:=Xpamet to Xpamet+(zoom-1) do |
| begin |
| if pamet[Xpamet]<Ymin then Ymin:=pamet[Xpamet] |
| else if pamet[Xpamet]>Ymax then Ymax:=pamet[Xpamet] |
| end; |
| end; |
| smazat; |
| Draw; |
| end; |
| procedure TForm1.PosuvChange(Sender: TObject); |
| begin |
| Posuv.Max:=pametMAX-MAX; |
| zoomChange(Self); |
| end; |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| smazat; |
| end; |
| end. |
| /programy/delphi/osciloskop/Unit1.~dfm |
|---|
| 0,0 → 1,118 |
| object Form1: TForm1 |
| Left = 181 |
| Top = 138 |
| Width = 557 |
| Height = 387 |
| 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 Obrazovka: TPaintBox |
| Left = 64 |
| Top = 8 |
| Width = 455 |
| Height = 256 |
| Color = clBtnFace |
| ParentColor = False |
| OnPaint = obrazovkaShow |
| end |
| object vykreslit: TButton |
| Left = 88 |
| Top = 304 |
| Width = 65 |
| Height = 33 |
| Caption = 'vykreslit' |
| TabOrder = 0 |
| OnClick = vykreslitClick |
| end |
| object Button2: TButton |
| Left = 8 |
| Top = 16 |
| Width = 49 |
| Height = 25 |
| Caption = 's'#237't'#711 |
| TabOrder = 1 |
| OnClick = Button2Click |
| end |
| object reset: TButton |
| Left = 8 |
| Top = 296 |
| Width = 57 |
| Height = 41 |
| Caption = 'Reset' |
| TabOrder = 2 |
| OnClick = resetClick |
| end |
| object vypis: TButton |
| Left = 8 |
| Top = 48 |
| Width = 49 |
| Height = 25 |
| Caption = 'v'#253'pis' |
| TabOrder = 3 |
| OnClick = vypisClick |
| end |
| object Posuv: TScrollBar |
| Left = 168 |
| Top = 312 |
| Width = 201 |
| Height = 16 |
| Max = 637 |
| PageSize = 0 |
| TabOrder = 4 |
| OnChange = PosuvChange |
| end |
| object ScrollBar2: TScrollBar |
| Left = 64 |
| Top = 272 |
| Width = 455 |
| Height = 17 |
| Max = 455 |
| PageSize = 0 |
| TabOrder = 5 |
| OnChange = ScrollBar2Change |
| end |
| object ScrollBar3: TScrollBar |
| Left = 528 |
| Top = 8 |
| Width = 17 |
| Height = 256 |
| Kind = sbVertical |
| Max = 256 |
| PageSize = 0 |
| TabOrder = 6 |
| OnChange = ScrollBar3Change |
| end |
| object zoom: TScrollBar |
| Left = 416 |
| Top = 304 |
| Width = 121 |
| Height = 17 |
| Max = 6 |
| Min = 1 |
| PageSize = 0 |
| Position = 1 |
| TabOrder = 7 |
| OnChange = zoomChange |
| end |
| object StaticText1: TStaticText |
| Left = 464 |
| Top = 328 |
| Width = 39 |
| Height = 20 |
| Caption = 'Zoom' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -13 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| TabOrder = 8 |
| end |
| end |
| /programy/delphi/osciloskop/Unit1.~pas |
|---|
| 0,0 → 1,213 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, ExtCtrls, OleCtrls, VCFI, Menus; |
| type |
| TForm1 = class(TForm) |
| vykreslit: TButton; |
| Button2: TButton; |
| reset: TButton; |
| vypis: TButton; |
| Obrazovka: TPaintBox; |
| Posuv: TScrollBar; |
| ScrollBar2: TScrollBar; |
| ScrollBar3: TScrollBar; |
| zoom: TScrollBar; |
| StaticText1: TStaticText; |
| procedure vykreslitClick(Sender: TObject); |
| procedure obrazovkaShow(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure resetClick(Sender: TObject); |
| procedure vypisClick(Sender: TObject); |
| procedure ScrollBar2Change(Sender: TObject); |
| procedure ScrollBar3Change(Sender: TObject); |
| procedure zoomChange(Sender: TObject); |
| procedure PosuvChange(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| procedure smazat; |
| { Public declarations } |
| end; |
| const |
| MAX=455; |
| pametMAX=6*MAX; |
| var |
| Form1: TForm1; |
| PobrazovkaYMIN: array [0..MAX] of word; |
| PobrazovkaYMAX: array [0..MAX] of word; |
| pamet: array[0..pametMAX{,0..pametMAX}]of word; |
| implementation |
| uses Unit2; |
| {$R *.dfm} |
| procedure Tform1.smazat; |
| begin |
| Form1.Canvas.Pen.Mode:=pmNot; |
| Form1.Obrazovka.Canvas.Brush.Color:=clblack; |
| Form1.Obrazovka.Canvas.Rectangle(0,0,455,256); |
| Form1.Obrazovka.Canvas.Pen.Color:=cllime; |
| end; |
| procedure Draw; |
| var |
| x: word; |
| begin |
| Form1.Obrazovka.Canvas.MoveTo(0,PobrazovkaYMAX[0]); |
| for x:=1 to MAX do |
| begin |
| Form1.Obrazovka.Canvas.LineTo(x,PobrazovkaYMAX[x]); |
| Form1.Obrazovka.Canvas.LineTo(x,PobrazovkaYMIN[x]); |
| end |
| end; |
| procedure TForm1.vykreslitClick(Sender: TObject); |
| (* ble:extended;*) |
| var i,x: integer; |
| begin |
| smazat; |
| for x:=0 to pametMAX do |
| begin |
| pamet[x]:=random(200); //round((sin(x/1)*100)+100); |
| end; |
| PosuvChange(Self); |
| end; |
| procedure TForm1.obrazovkaShow(Sender: TObject); |
| begin |
| smazat; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| var n: integer; |
| begin |
| n:=0; |
| while n<256 do |
| begin |
| Obrazovka.Canvas.Pen.Color:=clYellow; |
| Obrazovka.Canvas.MoveTo(0,n); |
| Obrazovka.Canvas.LineTo(455,n); |
| n:=n+70; |
| end; |
| n:=0; |
| while n<455 do |
| begin |
| Obrazovka.Canvas.Pen.Color:=clSilver; |
| Obrazovka.Canvas.MoveTo(n,0); |
| Obrazovka.Canvas.LineTo(n,455); |
| n:=n+70; |
| end; |
| Obrazovka.Canvas.Pen.Color:=cllime |
| end; |
| procedure TForm1.resetClick(Sender: TObject); |
| var j:word; |
| begin |
| smazat; |
| for j:=0 to MAX do |
| PobrazovkaYMIN[j]:=0; |
| PobrazovkaYMAX[j]:=0; |
| for j:=0 to pametMAX do |
| pamet[j]:=0; |
| end; |
| procedure TForm1.vypisClick(Sender: TObject); |
| var faut:TextFile; |
| x:word; |
| ble: string; |
| begin |
| Form2.ShowModal; |
| if Form2.Edit1.Text<>'' then |
| begin |
| AssignFile(faut,Form2.Edit1.Text); |
| Rewrite(faut); |
| for x:=0 to 455 do |
| begin |
| str(x,ble); |
| Write(faut,'x='+ble+','); |
| str(PobrazovkaYMIN[x],ble); |
| Write(faut,'Ymin='+ble+','); |
| str(PobrazovkaYMAX[x],ble); |
| Writeln(faut,'Ymax='+ble+'; '); |
| end; |
| CloseFile(faut); |
| end |
| end; |
| procedure TForm1.ScrollBar2Change(Sender: TObject); |
| var |
| xold:word; |
| zoom: integer; |
| code: integer; |
| begin |
| xold:=ScrollBar2.Position; |
| Obrazovka.Canvas.Pen.Color:=clred; |
| Obrazovka.Canvas.Pen.Mode:=pmNotXor; |
| Form1.Obrazovka.Canvas.MoveTo(xold,Obrazovka.Height); |
| Form1.Obrazovka.Canvas.LineTo(xold,0); |
| Obrazovka.Canvas.Pen.Mode:=pmNot; |
| end; |
| procedure TForm1.ScrollBar3Change(Sender: TObject); |
| var |
| x,y:word; |
| begin |
| obrazovka.Canvas.Pen.Color:=clred; |
| obrazovka.Canvas.Pen.Mode:=pmNotXor; |
| Form1.obrazovka.Canvas.MoveTo(0,ScrollBar3.Position); |
| Form1.obrazovka.Canvas.LineTo(obrazovka.Width,ScrollBar3.Position); |
| obrazovka.Canvas.Pen.Mode:=pmNop; |
| end; |
| procedure TForm1.zoomChange(Sender: TObject); |
| var |
| zoom, Xpamet, Xobraz, i, Ymax, Ymin : word; |
| begin |
| zoom:=Form1.zoom.Position; |
| Xpamet:=Posuv.Position; |
| Xobraz:=0; |
| while Xpamet < pametMAX do |
| begin |
| Ymax:=pamet[Xpamet]; |
| Ymin:=pamet[Xpamet]; |
| for i:=Xpamet to Xpamet+(zoom-1) do |
| begin |
| if pamet[Xpamet]<Ymin then Ymin:=pamet[Xpamet] |
| else if pamet[Xpamet]>Ymax then Ymax:=pamet[Xpamet] |
| end; |
| end; |
| smazat; |
| Draw; |
| end; |
| procedure TForm1.PosuvChange(Sender: TObject); |
| begin |
| Posuv.Max:=pametMAX-MAX; |
| zoomChange(Self); |
| end; |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| smazat; |
| end; |
| end. |
| /programy/delphi/osciloskop/Unit2.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/osciloskop/Unit2.dfm |
|---|
| 0,0 → 1,56 |
| object Form2: TForm2 |
| Left = 266 |
| Top = 110 |
| Width = 364 |
| Height = 111 |
| Caption = 'Form2' |
| 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 Edit1: TEdit |
| Left = 56 |
| Top = 16 |
| Width = 249 |
| Height = 21 |
| TabOrder = 0 |
| OnEnter = Button1Click |
| end |
| object Button1: TButton |
| Left = 56 |
| Top = 48 |
| Width = 97 |
| Height = 25 |
| Caption = 'OK' |
| TabOrder = 1 |
| OnClick = Button1Click |
| end |
| object Button2: TButton |
| Left = 184 |
| Top = 48 |
| Width = 97 |
| Height = 25 |
| Caption = 'Storno' |
| TabOrder = 2 |
| OnClick = Button2Click |
| end |
| object StaticText1: TStaticText |
| Left = 8 |
| Top = 16 |
| Width = 51 |
| Height = 20 |
| Caption = 'Adresa:' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -13 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| TabOrder = 3 |
| end |
| end |
| /programy/delphi/osciloskop/Unit2.pas |
|---|
| 0,0 → 1,51 |
| unit Unit2; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls; |
| type |
| TForm2 = class(TForm) |
| Edit1: TEdit; |
| Button1: TButton; |
| Button2: TButton; |
| StaticText1: TStaticText; |
| procedure enter(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form2: TForm2; |
| implementation |
| uses Unit1; |
| {$R *.dfm} |
| procedure TForm2.enter(Sender: TObject); |
| begin |
| Edit1.Text; |
| end; |
| procedure TForm2.Button1Click(Sender: TObject); |
| begin |
| Close; |
| end; |
| procedure TForm2.Button2Click(Sender: TObject); |
| begin |
| Edit1.Text:=''; |
| Close; |
| end; |
| end. |
| /programy/delphi/osciloskop/Unit2.~dfm |
|---|
| 0,0 → 1,55 |
| object Form2: TForm2 |
| Left = 266 |
| Top = 110 |
| Width = 364 |
| Height = 111 |
| Caption = 'Form2' |
| 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 Label1: TLabel |
| Left = 8 |
| Top = 16 |
| Width = 47 |
| Height = 16 |
| Caption = 'Adresa:' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -13 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| end |
| object Edit1: TEdit |
| Left = 56 |
| Top = 16 |
| Width = 249 |
| Height = 21 |
| TabOrder = 0 |
| OnEnter = Button1Click |
| end |
| object Button1: TButton |
| Left = 56 |
| Top = 48 |
| Width = 97 |
| Height = 25 |
| Caption = 'OK' |
| TabOrder = 1 |
| OnClick = Button1Click |
| end |
| object Button2: TButton |
| Left = 184 |
| Top = 48 |
| Width = 97 |
| Height = 25 |
| Caption = 'Storno' |
| TabOrder = 2 |
| OnClick = Button2Click |
| end |
| end |
| /programy/delphi/osciloskop/Unit2.~pas |
|---|
| 0,0 → 1,51 |
| unit Unit2; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls; |
| type |
| TForm2 = class(TForm) |
| Edit1: TEdit; |
| Button1: TButton; |
| Button2: TButton; |
| Label1: TLabel; |
| procedure enter(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form2: TForm2; |
| implementation |
| uses Unit1; |
| {$R *.dfm} |
| procedure TForm2.enter(Sender: TObject); |
| begin |
| Edit1.Text; |
| end; |
| procedure TForm2.Button1Click(Sender: TObject); |
| begin |
| Close; |
| end; |
| procedure TForm2.Button2Click(Sender: TObject); |
| begin |
| Edit1.Text:=''; |
| Close; |
| end; |
| end. |
| /programy/delphi/osciloskop/ble.doc |
|---|
| 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/osciloskop/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 |
| /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 |
| /programy/delphi/pokus/pokus.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/pokus/pokus.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/pokus/pokus.dpr |
|---|
| 0,0 → 1,13 |
| program pokus; |
| uses |
| Forms, |
| pokus_p in 'pokus_p.pas'; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.Run; |
| end. |
| /programy/delphi/pokus/pokus.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/pokus/pokus.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/pokus/pokus.~dpr |
|---|
| 0,0 → 1,13 |
| program pokus; |
| uses |
| Forms, |
| pokus_p in 'pokus_p.pas' {Form1}; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.Run; |
| end. |
| /programy/delphi/pokus/pokus_p.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/pokus/pokus_p.dfm |
|---|
| 0,0 → 1,41 |
| 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 Button1: TButton |
| Left = 168 |
| Top = 112 |
| Width = 185 |
| Height = 65 |
| Caption = 'pip' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| object RadioButton1: TRadioButton |
| Left = 224 |
| Top = 216 |
| Width = 113 |
| Height = 17 |
| Caption = 'pip' |
| TabOrder = 1 |
| end |
| object CheckBox1: TCheckBox |
| Left = 264 |
| Top = 32 |
| Width = 97 |
| Height = 17 |
| Caption = 'CheckBox1' |
| TabOrder = 2 |
| end |
| end |
| /programy/delphi/pokus/pokus_p.pas |
|---|
| 0,0 → 1,41 |
| unit pokus_p; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ComCtrls, StdCtrls, Buttons; |
| type |
| TForm1 = class(TForm) |
| Button1: TButton; |
| RadioButton1: TRadioButton; |
| CheckBox1: TCheckBox; |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.dfm} |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| if CheckBox1.Checked = true then |
| begin |
| ShowMessage('ble'); |
| RadioButton1.Checked := false; |
| end |
| else |
| RadioButton1.Checked := true; |
| Beep; |
| end; |
| end. |
| /programy/delphi/pokus/pokus_p.~dfm |
|---|
| 0,0 → 1,41 |
| 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 Button1: TButton |
| Left = 168 |
| Top = 112 |
| Width = 185 |
| Height = 65 |
| Caption = 'pip' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| object RadioButton1: TRadioButton |
| Left = 224 |
| Top = 216 |
| Width = 113 |
| Height = 17 |
| Caption = 'pip' |
| TabOrder = 1 |
| end |
| object CheckBox1: TCheckBox |
| Left = 264 |
| Top = 32 |
| Width = 97 |
| Height = 17 |
| Caption = 'CheckBox1' |
| TabOrder = 2 |
| end |
| end |
| /programy/delphi/pokus/pokus_p.~pas |
|---|
| 0,0 → 1,41 |
| unit pokus_p; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ComCtrls, StdCtrls; |
| type |
| TForm1 = class(TForm) |
| Button1: TButton; |
| RadioButton1: TRadioButton; |
| CheckBox1: TCheckBox; |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.dfm} |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| if CheckBox1.Checked = true then |
| begin |
| ShowMessage('ble'); |
| RadioButton1.Checked := false; |
| end |
| else |
| RadioButton1.Checked := true; |
| Beep; |
| end; |
| end. |
| /programy/delphi/pokus/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 |
| /programy/delphi/pokus1/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/pokus1/Unit1.dfm |
|---|
| 0,0 → 1,33 |
| object Teplomer: TTeplomer |
| Left = 192 |
| Top = 107 |
| Width = 544 |
| Height = 375 |
| Caption = 'Teplomer' |
| 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 PaintBox1: TPaintBox |
| Left = 32 |
| Top = 16 |
| Width = 473 |
| Height = 256 |
| Color = clMenu |
| ParentColor = False |
| end |
| object Button1: TButton |
| Left = 416 |
| Top = 296 |
| Width = 75 |
| Height = 25 |
| Caption = 'Zobrazit' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| end |
| /programy/delphi/pokus1/Unit1.pas |
|---|
| 0,0 → 1,53 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ExtCtrls, StdCtrls; |
| type |
| PoleTeplot = array [1..544] of byte; |
| type |
| TTeplomer = class(TForm) |
| PaintBox1: TPaintBox; |
| Button1: TButton; |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Teplomer: TTeplomer; |
| Teplota: PoleTeplot; |
| const |
| sirka = 473; |
| vyska = 256; |
| implementation |
| {$R *.dfm} |
| procedure TTeplomer.Button1Click(Sender: TObject); |
| var |
| i: byte; |
| n: integer; |
| begin |
| i:=0; |
| for n:=1 to sirka do |
| begin |
| Teplota[n] := i; |
| i:=i+1; |
| end; |
| PaintBox1.Canvas.brush.color := clWhite; |
| PaintBox1.Canvas.Rectangle(0,0,sirka,vyska); |
| for n:=1 to sirka do |
| PaintBox1.Canvas.Pixels[n,Teplota[n]] := clBlack; |
| end; |
| end. |
| /programy/delphi/pokus1/Unit1.~dfm |
|---|
| 0,0 → 1,33 |
| object Teplomer: TTeplomer |
| Left = 192 |
| Top = 107 |
| Width = 544 |
| Height = 375 |
| Caption = 'Teplomer' |
| 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 PaintBox1: TPaintBox |
| Left = 32 |
| Top = 16 |
| Width = 473 |
| Height = 256 |
| Color = clMenu |
| ParentColor = False |
| end |
| object Button1: TButton |
| Left = 416 |
| Top = 296 |
| Width = 75 |
| Height = 25 |
| Caption = 'Zobrazit' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| end |
| /programy/delphi/pokus1/Unit1.~pas |
|---|
| 0,0 → 1,53 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ExtCtrls, StdCtrls; |
| type |
| PoleTeplot = array [1..544] of byte; |
| type |
| TTeplomer = class(TForm) |
| PaintBox1: TPaintBox; |
| Button1: TButton; |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Teplomer: TTeplomer; |
| Teplota: PoleTeplot; |
| const |
| sirka = 473; |
| vyska = 256; |
| implementation |
| {$R *.dfm} |
| procedure TTeplomer.Button1Click(Sender: TObject); |
| var |
| i: byte; |
| n: integer; |
| begin |
| i:=0; |
| for n:=1 to sirka do |
| begin |
| Teplota[n] := i; |
| i:=i+1; |
| end; |
| PaintBox1.Canvas.brush.color := clGreen; |
| PaintBox1.Canvas.Rectangle(0,0,sirka,vyska); |
| for n:=1 to sirka do |
| PaintBox1.Canvas.Pixels[n,Teplota[n]] := clBlack; |
| end; |
| end. |
| /programy/delphi/pokus1/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 |
| /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 |
| /programy/delphi/radar/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/radar/Unit1.dfm |
|---|
| 0,0 → 1,51 |
| object Form1: TForm1 |
| Left = 186 |
| Top = 145 |
| 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 PaintBox1: TPaintBox |
| Left = 118 |
| Top = 8 |
| Width = 256 |
| Height = 256 |
| end |
| object Button1: TButton |
| Left = 256 |
| Top = 288 |
| Width = 153 |
| Height = 41 |
| Caption = 'nakresli' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| object Button2: TButton |
| Left = 32 |
| Top = 280 |
| Width = 153 |
| Height = 33 |
| Caption = 'Button2' |
| TabOrder = 1 |
| OnClick = Button2Click |
| end |
| object ScrollBar1: TScrollBar |
| Left = 376 |
| Top = 8 |
| Width = 17 |
| Height = 256 |
| Kind = sbVertical |
| Max = 256 |
| PageSize = 0 |
| TabOrder = 2 |
| OnChange = ScrollBar1Change |
| end |
| end |
| /programy/delphi/radar/Unit1.pas |
|---|
| 0,0 → 1,62 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, ExtCtrls, ToolWin, ComCtrls; |
| type |
| TForm1 = class(TForm) |
| PaintBox1: TPaintBox; |
| Button1: TButton; |
| Button2: TButton; |
| ScrollBar1: TScrollBar; |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure ScrollBar1Change(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.dfm} |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| with PaintBox1 do begin |
| Canvas.Brush.Color := clRed; |
| Canvas.Brush.Style := bsDiagCross; |
| Canvas.Ellipse(0, 0, PaintBox1.Width, PaintBox1.Height); |
| end; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| var Y: Integer; |
| begin |
| { first call FillRect to paint the surface of the form. |
| this removes any previously drawn lines (and anything else!) |
| PaintBox1.Canvas.FillRect(ClientRect);} |
| PaintBox1.Canvas.MoveTo(0, 0); |
| PaintBox1.Canvas.LineTo(PaintBox1.Width,PaintBox1.Height); |
| end; |
| procedure TForm1.ScrollBar1Change(Sender: TObject); |
| begin |
| PaintBox1.Canvas.MoveTo(0,ScrollBar1.Position); |
| PaintBox1.Canvas.LineTo(256,ScrollBar1.Position); |
| end; |
| end. |
| /programy/delphi/radar/Unit1.~dfm |
|---|
| 0,0 → 1,40 |
| object Form1: TForm1 |
| Left = 186 |
| Top = 145 |
| 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 PaintBox1: TPaintBox |
| Left = 118 |
| Top = 8 |
| Width = 256 |
| Height = 256 |
| end |
| object Button1: TButton |
| Left = 256 |
| Top = 288 |
| Width = 153 |
| Height = 41 |
| Caption = 'nakresli' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| object Button2: TButton |
| Left = 32 |
| Top = 280 |
| Width = 153 |
| Height = 33 |
| Caption = 'Button2' |
| TabOrder = 1 |
| OnClick = Button2Click |
| end |
| end |
| /programy/delphi/radar/Unit1.~pas |
|---|
| 0,0 → 1,53 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, ExtCtrls, ToolWin, ComCtrls; |
| type |
| TForm1 = class(TForm) |
| PaintBox1: TPaintBox; |
| Button1: TButton; |
| Button2: TButton; |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.dfm} |
| procedure TForm1.Button1Click(Sender: TObject); |
| begin |
| with PaintBox1 do begin |
| Canvas.Brush.Color := clRed; |
| Canvas.Brush.Style := bsDiagCross; |
| Canvas.Ellipse(0, 0, PaintBox1.Width, PaintBox1.Height); |
| end; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| var Y: Integer; |
| begin |
| { first call FillRect to paint the surface of the form. |
| this removes any previously drawn lines (and anything else!) } |
| PaintBox1.Canvas.FillRect(ClientRect); |
| PaintBox1.Canvas.MoveTo(0, 0); |
| PaintBox1.Canvas.LineTo(PaintBox1.Width,PaintBox1.Height); |
| end; |
| end. |
| /programy/delphi/radar/radar.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/radar/radar.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/radar/radar.dpr |
|---|
| 0,0 → 1,13 |
| program radar; |
| uses |
| Forms, |
| Unit1 in 'Unit1.pas' {Form1}; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.Run; |
| end. |
| /programy/delphi/radar/radar.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/radar/radar.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/radar/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 |
| /programy/delphi/sonda/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/sonda/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/sonda/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/sonda/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/sonda/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/sonda/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/sonda/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/sonda/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/sonda/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/sonda/Unit1.dfm |
|---|
| 0,0 → 1,63 |
| object Form1: TForm1 |
| Left = 77 |
| Top = 142 |
| 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 Label1: TLabel |
| Left = 40 |
| Top = 40 |
| Width = 96 |
| Height = 29 |
| Caption = 'Vlchkost:' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -23 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| end |
| object Label2: TLabel |
| Left = 48 |
| Top = 88 |
| Width = 89 |
| Height = 29 |
| Caption = 'Teplota:' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -23 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| end |
| object Edit1: TEdit |
| Left = 144 |
| Top = 48 |
| Width = 73 |
| Height = 21 |
| TabOrder = 0 |
| end |
| object Edit2: TEdit |
| Left = 144 |
| Top = 96 |
| Width = 73 |
| Height = 21 |
| ParentShowHint = False |
| ShowHint = False |
| TabOrder = 1 |
| end |
| object Timer1: TTimer |
| OnTimer = Timer1Timer |
| Left = 104 |
| Top = 64 |
| end |
| end |
| /programy/delphi/sonda/Unit1.pas |
|---|
| 0,0 → 1,59 |
| unit Unit1; |
| interface |
| uses |
| PORTINC,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, ExtCtrls; |
| type |
| TForm1 = class(TForm) |
| Label1: TLabel; |
| Label2: TLabel; |
| Timer1: TTimer; |
| Edit1: TEdit; |
| Edit2: TEdit; |
| procedure Timer1Timer(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.DFM} |
| function citac (Kanal : Integer) : Word; |
| var hodnota_portu : Byte; |
| begin |
| if Kanal=1 then hodnota_portu := 1; { A0 } |
| if Kanal=2 then hodnota_portu := 2; { A1 } |
| RealTime (true); |
| TimeInitus; |
| OutPort($201,0); { Timer-Reset } |
| While((InPort ($201) and hodnota_portu) = hodnota_portu) |
| and (TimeReadus < 10000)do; |
| citac:=TimeReadus; |
| RealTime (false); |
| end; |
| procedure TForm1.Timer1Timer(Sender: TObject); |
| const |
| stupen = 1.75; |
| var |
| teplota :real; |
| begin |
| Edit1.Text := FloatToStr(citac(1)) + ' %'; |
| teplota:=86; |
| teplota:=teplota-citac(2); |
| teplota:=teplota / stupen ; |
| Edit2.Text := FloatToStr(teplota) + ' °C'; |
| end; |
| end. |
| /programy/delphi/sonda/Unit1.~dfm |
|---|
| 0,0 → 1,63 |
| object Form1: TForm1 |
| Left = 77 |
| Top = 142 |
| 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 Label1: TLabel |
| Left = 40 |
| Top = 40 |
| Width = 96 |
| Height = 29 |
| Caption = 'Vlchkost:' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -23 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| end |
| object Label2: TLabel |
| Left = 48 |
| Top = 88 |
| Width = 89 |
| Height = 29 |
| Caption = 'Teplota:' |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -23 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| ParentFont = False |
| end |
| object Edit1: TEdit |
| Left = 144 |
| Top = 48 |
| Width = 73 |
| Height = 21 |
| TabOrder = 0 |
| end |
| object Edit2: TEdit |
| Left = 144 |
| Top = 96 |
| Width = 73 |
| Height = 21 |
| ParentShowHint = False |
| ShowHint = False |
| TabOrder = 1 |
| end |
| object Timer1: TTimer |
| OnTimer = Timer1Timer |
| Left = 104 |
| Top = 64 |
| end |
| end |
| /programy/delphi/sonda/Unit1.~pas |
|---|
| 0,0 → 1,59 |
| unit Unit1; |
| interface |
| uses |
| PORTINC,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, ExtCtrls; |
| type |
| TForm1 = class(TForm) |
| Label1: TLabel; |
| Label2: TLabel; |
| Timer1: TTimer; |
| Edit1: TEdit; |
| Edit2: TEdit; |
| procedure Timer1Timer(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.DFM} |
| function citac (Kanal : Integer) : Word; |
| var hodnota_portu : Byte; |
| begin |
| if Kanal=1 then hodnota_portu := 1; { A0 } |
| if Kanal=2 then hodnota_portu := 2; { A1 } |
| RealTime (true); |
| TimeInitus; |
| OutPort($201,0); { Timer-Reset } |
| While((InPort ($201) and hodnota_portu) = hodnota_portu) |
| and (TimeReadus < 10000)do; |
| citac:=TimeReadus; |
| RealTime (false); |
| end; |
| procedure TForm1.Timer1Timer(Sender: TObject); |
| const |
| stupen = 1.75; |
| var |
| teplota :real; |
| begin |
| Edit1.Text := FloatToStr(citac(1)) + ' %'; |
| teplota:=98; |
| teplota:=teplota-citac(2); |
| teplota:=teplota / stupen ; |
| Edit2.Text := FloatToStr(citac(2)) + ' °C'; |
| end; |
| end. |
| /programy/delphi/sonda/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 |
| /programy/delphi/telephone_card/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/telephone_card/reader.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/telephone_card/reader.dof |
|---|
| 0,0 → 1,83 |
| [FileVersion] |
| Version=6.0 |
| [Compiler] |
| A=8 |
| 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= |
| 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=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/telephone_card/reader.dpr |
|---|
| 0,0 → 1,14 |
| program reader; |
| uses |
| Forms, |
| Spinac in '..\..\..\..\Delphi4\Spinac.pas' {Form1}, |
| Portinc in '..\..\..\..\Delphi4\Portinc.pas'; |
| {$R *.RES} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.Run; |
| end. |
| /programy/delphi/telephone_card/reader.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/telephone_card/reader.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/telephone_card/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 |
| /programy/delphi/teplomer/Portinc.pas |
|---|
| 0,0 → 1,39 |
| 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 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(buffer:Pchar;Size:DWORD); stdcall; external THEDLL; |
| Procedure SOUNDOUT(buffer: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/teplomer/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/teplomer/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/teplomer/Project1.dpr |
|---|
| 0,0 → 1,13 |
| program Project1; |
| uses |
| Forms, |
| Unit1 in '..\pokus1\Unit1.pas' {Teplomer}; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.CreateForm(TTeplomer, Teplomer); |
| Application.Run; |
| end. |
| /programy/delphi/teplomer/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/teplomer/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/teplomer/teplomer1/Project2.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/teplomer/teplomer1/Project2.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/teplomer/teplomer1/Project2.dpr |
|---|
| 0,0 → 1,11 |
| program Project2; |
| uses |
| Forms; |
| {$R *.res} |
| begin |
| Application.Initialize; |
| Application.Run; |
| end. |
| /programy/delphi/teplomer/teplomer1/Project2.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/teplomer/teplomer1/Project2.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/teplomer/teplomer1/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/teplomer/teplomer1/Unit1.dfm |
|---|
| 0,0 → 1,16 |
| 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 |
| end |
| /programy/delphi/teplomer/teplomer1/Unit1.pas |
|---|
| 0,0 → 1,25 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs; |
| type |
| TForm1 = class(TForm) |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| implementation |
| {$R *.dfm} |
| end. |
| /programy/delphi/teplomer/teplomer1/Unit1.~dfm |
|---|
| 0,0 → 1,42 |
| 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 PaintBox1: TPaintBox |
| Left = 32 |
| Top = 16 |
| Width = 473 |
| Height = 256 |
| Color = clMenu |
| ParentColor = False |
| end |
| object Button1: TButton |
| Left = 416 |
| Top = 296 |
| Width = 75 |
| Height = 25 |
| Caption = 'Zobrazit' |
| TabOrder = 0 |
| OnClick = Button1Click |
| end |
| object Button2: TButton |
| Left = 320 |
| Top = 296 |
| Width = 75 |
| Height = 25 |
| Caption = 'Button2' |
| TabOrder = 1 |
| OnClick = Button2Click |
| end |
| end |
| /programy/delphi/teplomer/teplomer1/Unit1.~pas |
|---|
| 0,0 → 1,59 |
| unit Unit1; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, ExtCtrls, StdCtrls,PORTINC, ComCtrls; |
| type |
| PoleTeplot = array [1..544] of byte; |
| type |
| TForm1 = class(TForm) |
| PaintBox1: TPaintBox; |
| Button1: TButton; |
| Button2: TButton; |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| private |
| { Private declarations } |
| public |
| { Public declarations } |
| end; |
| var |
| Form1: TForm1; |
| Teplota: PoleTeplot; |
| SouborTeplot: File of byte; |
| implementation |
| {$R *.dfm} |
| procedure TForm1.Button1Click(Sender: TObject); |
| var |
| i: byte; |
| n: integer; |
| begin |
| i:=0; |
| for n:=1 to 544 do |
| begin |
| Teplota[n] := i; |
| i:=(i+1) mod 256; |
| end; |
| end; |
| procedure TForm1.Button2Click(Sender: TObject); |
| var |
| o: byte |
| p: byte |
| begin |
| { Function OPENCOM "COM1,1200,N,8,1" |
| for o:=1 to 50 do |
| begin |
| ProgressBar1:= p |
| p:=(p+1) |
| end; } |
| end; |
| end. |
| /programy/delphi/teplomer/teplomer1/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 |
| /programy/delphi/teplomer/teploty.dat |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| /teplomer/vssver.scc |
|---|
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /programy/delphi/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 |