Prev Next Up Title Contents Index

Valmis ohjelma


Seuraavana vielä täydelliset listaukset valmiin malliohjelman eri tiedostoista (hakemistossa autol). Itse kirjoitetut tai muutetut osat varjostettu.

autol.dpr - projetitiedosto

	program Autol;
	
	uses
	  Forms,
	  Autolask in 'AUTOLASK.PAS' {Autolaskuri};
	
	{$R *.RES}
	
	begin
	  Application.CreateForm(TAutolaskuri, Autolaskuri);
	  Application.Run;
	end.

autolask.pas - autolaskuri-lomakeluokan määrittely ja toteutus

	
	unit Autolask;
	
	interface
	
	uses
	  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
	  Forms, Dialogs, StdCtrls;
	
	type
	  TAutolaskuri = class(TForm)
	    ButtonHA: TButton;
	    ButtonKA: TButton;
	    LabelHA: TLabel;
	    LabelKA: TLabel;
	    ButtonNollaa: TButton;
	    procedure ButtonHAClick(Sender: TObject);
	    procedure ButtonNollaaClick(Sender: TObject);
	    procedure ButtonKAClick(Sender: TObject);
	  private
	    { Private declarations }
	  public
	    { Public declarations }
	  end;
	
	var
	  Autolaskuri: TAutolaskuri;
	
	implementation
	
	{$R *.DFM}
	
	procedure TAutolaskuri.ButtonHAClick(Sender: TObject);
	begin
	  LabelHA.Caption := IntToStr(StrToInt(LabelHA.Caption)+1);
	end;
	
	procedure TAutolaskuri.ButtonKAClick(Sender: TObject);
	begin
	  LabelKA.Caption := IntToStr(StrToInt(LabelKA.Caption)+1);
	end;
	
	procedure TAutolaskuri.ButtonNollaaClick(Sender: TObject);
	begin
	  LabelHA.Caption := '0';
	  LabelKA.Caption := '0';
	end;
	
	end.
Seuraavassa lomakkeen listauksessa tummennetut osat ovat niitä, joita on muutettu Object Inspectorissa. Luonnollisesti kunkin komponentin paikkaa ja kokoa on muutettu oletuksesta, mutta tämä on tehty siirtämällä komponenttia hiirellä.

autolask.dfm - autolaskuri-lomake, komponenttien ominaisuudet

	object Autolaskuri: TAutolaskuri
	  Left = 190
	  Top = 90
	  Width = 435
	  Height = 300
	  Caption = 'Autolaskuri'
	  Font.Color = clWindowText
	  Font.Height = -13
	  Font.Name = 'System'
	  Font.Style = []
	  PixelsPerInch = 96
	  TextHeight = 16
	  object LabelHA: TLabel
	    Left = 40
	    Top = 104
	    Width = 145
	    Height = 29
	    Alignment = taRightJustify
	    AutoSize = False
	    Caption = '0'
	    Color = clAqua
	    Font.Color = clBlack
	    Font.Height = -24
	    Font.Name = 'Arial'
	    Font.Style = [fsBold]
	    ParentColor = False
	    ParentFont = False
	  end
	  object LabelKA: TLabel
	    Left = 208
	    Top = 104
	    Width = 145
	    Height = 29
	    Alignment = taRightJustify
	    AutoSize = False
	    Caption = '0'
	    Color = clAqua
	    Font.Color = clBlack
	    Font.Height = -24
	    Font.Name = 'Arial'
	    Font.Style = [fsBold]
	    ParentColor = False
	    ParentFont = False
	  end
	  object ButtonHA: TButton
	    Left = 40
	    Top = 32
	    Width = 145
	    Height = 49
	    Caption = '&Henkilöautoja'
	    TabOrder = 0
	    OnClick = ButtonHAClick
	  end
	  object ButtonKA: TButton
	    Left = 208
	    Top = 32
	    Width = 145
	    Height = 49
	    Caption = '&Kuorma-autoja'
	    TabOrder = 1
	    OnClick = ButtonKAClick
	  end
	  object ButtonNollaa: TButton
	    Left = 96
	    Top = 168
	    Width = 193
	    Height = 57
	    Caption = '&Nollaa'
	    TabOrder = 2
	    OnClick = ButtonNollaaClick
	  end
	end

Tehtävä 1.1 Polkupyörät

Lisää ohjelmaan myös polkupyörien laskeminen.


Prev Next Up Title Contents Index