Les filtres rlc sous delphi 7

Télécharger le projet
Commenter

Description

Mini projet en mathématique, il permet dobtenir les courbes du gain des filtres RLC du premier ordre et second ordre.
Problème lors de l'impression non résolu et interface et code à pofiner...

Source / Exemple : 


unit FDemo;
2:
3: interface
4:
5: uses
6: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7: Dialogs, ExtCtrls, Printers, StdCtrls, Jpeg, DriveEcran_Imprimante,
8: Menus, Buttons, ComCtrls,Math;
9:
10: type
11: TForm1 = class(TForm)
12: PrintDialog1: TPrintDialog;
13: Label1: TLabel;
14: Label2: TLabel;
15: PrinterSetupDialog1: TPrinterSetupDialog;
16: PaintBox1: TPaintBox;
17: Image1: TImage;
18: Label3: TLabel;
19: Label4: TLabel;
20: GroupBox3: TGroupBox;
21: GroupBox4: TGroupBox;
22: Button4: TButton;
23: Button6: TButton;
24: ChoixECH: TRadioGroup;
25: GroupBox1: TGroupBox;
26: Edit1: TEdit;
27: UpDown1: TUpDown;
28: Mode: TGroupBox;
29: manuel1: TCheckBox;
30: GroupBox2: TGroupBox;
31: TrackBar1: TTrackBar;
32: Edit2: TEdit;
33: Edit3: TEdit;
34: Choix1: TComboBox;
35: MainMenu1: TMainMenu;
36: Fichier1: TMenuItem;
37: Nouveau1: TMenuItem;
38: Ouvrir1: TMenuItem;
39: Enregistrer1: TMenuItem;
40: Imprimer1: TMenuItem;
41: Quitter1: TMenuItem;
42: Apropos1: TMenuItem;
43: Apropos2: TMenuItem;
44: SaveDialog1: TSaveDialog;
45: OpenDialog1: TOpenDialog;
46: procedure FormShow(Sender: TObject);
47: procedure Button1Click(Sender: TObject);
48: procedure FormCreate(Sender: TObject);
49: procedure Button2Click(Sender: TObject);
50: procedure PaintBox1Paint(Sender: TObject);
51: procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
52: Y: Integer);
53: procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
54: Y: Integer);
55: procedure tracer;
56: procedure traitVertical(x:integer);
57: procedure Button3Click(Sender: TObject);
58: procedure BtnImprimanteClick(Sender: TObject);
59: procedure BitBtn1Click(Sender: TObject);
60: procedure Effacer;
61: procedure Button4Click(Sender: TObject);
62: procedure manuel1Click(Sender: TObject);
63: procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
64: procedure TrackBar1Change(Sender: TObject);
65: procedure Imprimer1Click(Sender: TObject);
66: procedure Button6Click(Sender: TObject);
67: procedure Quitter1Click(Sender: TObject);
68: procedure Apropos2Click(Sender: TObject);
69: procedure Enregistrer1Click(Sender: TObject);
70: procedure Ouvrir1Click(Sender: TObject);
71: procedure Nouveau1Click(Sender: TObject); // Contiendra ou fera appel à la
72: // routine d'afichage/impression

Conclusion :


Une interface simple d'utilisation aidant en physique appliquée lors des fonctions transferts
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ccllee)