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