Et nemt opstartsprogram til analyse af nybegynder

hvad mener du ?? skal jeg/vi lave et program til dig eller hvad ? forstår det ikke helt :/

OK. Det var nærmest for at se hvordan en der kan programmere ville lave sådant et eksempel. Jeg ville så kigge på "kildeteksten" for at forstå hvordan det er lavet.. så ja, hvis du har tid/lyst, ville jeg blive glad for et sådant lille læreeksempel.

M.v.h.

Hans H.

Arbejder på sagen :p

Skal jeg kommentere koden sårn det er lidt lettere og forstå??? og kaste en .exe fil på min hp sårn du kan se programmet?

Det må sige...der er hurtig respons her på "eksperten"... :)

Hans H.

M.h.t. kommentarer ville være helt fint.

Tjaah plejer at være hurtigere men nu er det jo også den 23 december :p

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Diameter1: TEdit;
    Label1: TLabel;
    Result1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Radius1: TEdit;
    Label3: TLabel;
    Result2: TEdit;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;    // skal altid være der :P
  diameter: string;  // Angriver alle strengene
  result: string;
  pi: string;
  radius:integer;
  resultx:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
pi := '3,14';    // sætter pi til 3,14
diameter := Diameter1.Text;        // sætter strengen diameter til dens value
result := FloatToStr(StrToInt(diameter) * StrToFloat (pi));        // ganger Diameter*pi
result1.Text := result; // udskriver result ( streng ) i editboxen "result1"
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
radius := StrToInt(Radius1.Text);  // Angriver radius dens value
resultx := FloatToStr(radius * radius * 3.14 );      // radius*radius*pi
Result2.Text := resultx // Udskriver resultx ( strengen )  i editboxen  "Result"
end;

end.

så laver du bare 2 knapper med caption  "Beregn" og så laver du 4 editboxe start med at lave 1 og name := 'Diameter1' og lav entil med name := 'radius1';
og så laver du 2 edit boxe  1 med navnet  result1  og den anden  result2

Tak for hjælpen. Jeg vil prøve at taste det ind og se hvad der sker......

http://www.bacher.friserverplads.dk/Cirkle.zip - Lidt nemmere at overskue :p