Programmation visuelle en Delphi

L'étude des méthodes de programmation visuelle en Delphi.

Groupe: Construire les graphiques de fonctions; ;

Le code source:

unité graphique;

Interface

utilisations

Windows, Messages, SysUtils, Classes, Graphiques, contrôles, les formes, les boîtes de dialogue,

StdCtrls, TeEngine, Série, ExtCtrls, TeeProcs, graphique;

type

TForm1=class (TForm)

Saisie1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Chart1: TChart;

SERIES1: TLineSeries;

Series2: TLineSeries;

Series3: TLineSeries;

Button1: TButton;

La procédure Button1Click (Sender: TObject);

privé

{déclarations privées}

publique

{Déclarations publiques}

fin;

var

Form1: TForm1;

mise en œuvre

{$ R * .DFM}

La procédure TForm1.Button1Click (Sender: TObject);

VAR T0, les savoirs traditionnels, Q, W, Y1, Y2, Y3: REAL;

i, H: réel;

commencer

Q:=StrToFloat (Edit1.Text);

W:=StrToFloat (Edit2.Text);

H:=StrToFloat (Edit3.Text);

T0:=StrToFloat (Edit4.Text);

TK:=StrToFloat (Edit5.Text);

i:=T0;

Series1.Clear;

Series2.Clear;

Series3.Clear;

lorsque i lt;=TK do

commencer

Y1:=exp (-Q * i) * sin (W * i);

Y2:=- exp (-Q * i);

Y3:=exp (-Q * i);

Series1.AddXY (i, Y1, '', clTeeColor);

Series2.AddXY (i, Y2, '', clTeeColor);

Series3.AddXY (i, Y3, '', clTeeColor);

i:=i + h;

fin;

fin;

fin.

Le apparence de l'application:



Publications similaires:


© 2014–2015 materiel-pedagogique.com | E-mail