Accueil > > > LES FILTRES RLC SOUS DELPHI 7
 LES FILTRES RLC SOUS DELPHI 7
 Information sur la source
 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
- 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
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
 Historique
- 30 juillet 2010 12:11:26 :
- Rajout du fichier .exe
- 30 juillet 2010 12:34:21 :
- modif nom
- 02 août 2010 10:40:09 :
- retrait de fichiers
- 02 août 2010 13:30:10 :
- Rajout de exe
- 02 août 2010 14:25:43 :
- retrait fichiers
- 02 août 2010 14:30:03 :
- Ajout exe
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Filtres successifs dans une base de données [ par juan ]
Bjour tous, je cherche à filtrer plusiseurs fois successivement une base de donnée (pas simultanément genre table1.filter := 'nom=juan and voiture = r
Filtres multicritères [ par stampe ]
Bonsoir à tous,Est-il possible, à l'aide de filtres, de créer une zone de recherche multicritères à partir d'une table ? Je m'explique ; j'ai 5 champs
Filtres sur un DbGrid (TQuery.filter) [ par orelien ]
Bonjour,J'aimerais appliquer un filtre sur un DbGrid relié à un TQuery à l'aide de la propriété "filter". Le filtre est définit par l'utilisateur dans
Filtres [ par kallamou ]
Bonsoir!J'ai un probleme de filtre dans mes tables.Je veux filtrer d'une tables Contrat les contrats durant un mois donné.Je veux mettre le filtr
Les filtres et les accents [ par beroyak ]
Bonjour! J'ai un problème avec les accents lors du filtrage avec un Tdataset. En effet à l'instar de la casse (majuscule minuscule) je veux rendre mes
|
Derniers Blogs
 [HS] CHROME 6 + MOI = COUP DE GUEULE ![HS] CHROME 6 + MOI = COUP DE GUEULE ! par JeremyJeanson
Attention, le poste qui suit n'est pas la complainte d'une personne : Qui n'aime pas Chrome. D'un anti Google. D'un développeur qui a un poil énorme dans la main. Ceux qui me fréquentent savent que je change de navigateur favori tous les 2 ou 3 mois afin ...
Cliquez pour lire la suite de l'article par JeremyJeanson [WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7 par Audrey
Lors de la réalisation de ma 2ème application Windows Phone 7, j'ai souhaité utiliser un WrapPanel pour afficher plusieurs photos. Mais le contrôle WrapPanel ne fait pas parti de la liste des contrôles inclus dans le SDK de la version Beta des outils pour...
Cliquez pour lire la suite de l'article par Audrey [WP7] BESOIN D'AVOIR DES DONNéES EN CACHE[WP7] BESOIN D'AVOIR DES DONNéES EN CACHE par Nicolas
Les développeurs ASP.NET ont l'habitude de mettre des données en cache pour éviter de requêter a chaque fois la base de données. Et il est toujours utilie de penser que vos utilisateurs mobiles n'ont pas troujours une super connexion 3G/WIFI et un for...
Cliquez pour lire la suite de l'article par Nicolas [TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION[TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION par cyril
Lorsque l'on créé un Work Item dans TFS, il est possible de le classer dans un "area" et dans une "iteration". Dans la plupart des types de projet, un "area" correspond à une catégorie, une "iteration" à un numéro de version. Il est possible de cré...
Cliquez pour lire la suite de l'article par cyril SQL : FONCTIONS D'AGRéGATION MIN/MAX ET VALEURS NULLSQL : FONCTIONS D'AGRéGATION MIN/MAX ET VALEURS NULL par coq
Les fonctions d'agrégation comme MIN et MAX ignorent les valeurs NULL présentes dans le jeu de données sur lequel porte leur calcul, d'où le fameux message d'avertissement : Warning: Null value is eliminated by an aggregate or other SET operation...
Cliquez pour lire la suite de l'article par coq
Logiciels
 Bureau de Gestion - ERP Devis Facturation (2.02)BUREAU DE GESTION - ERP DEVIS FACTURATION (2.02)
- Version gratuite du 10/06/2010
Le Bureau de Gestion est un logiciel dédié à la gestion de l'en...
Cliquez pour télécharger Bureau de Gestion - ERP Devis Facturation sDEVIS-FACTURES vlPRO (3.8.0)SDEVIS-FACTURES VLPRO (3.8.0)sDEVIS-FACTURES vlPRO a été mis au point pour permettre besoins des particuliers, créateurs, entr... Cliquez pour télécharger sDEVIS-FACTURES vlPRO LettresFaciles (5.6.0)LETTRESFACILES (5.6.0)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles MyPlanning 2010 (5.6.0)MYPLANNING 2010 (5.6.0)MyPlanning 2010 permet de créer des plannings sous la représentation de diagrammes. Plannings pré... Cliquez pour télécharger MyPlanning 2010 Emicsoft Mac DVD en iPad Convertisseur (3.1.16)EMICSOFT MAC DVD EN IPAD CONVERTISSEUR (3.1.16)Emicsoft Mac DVD en iPad Convertisseur, logiciel professionnel de convertir les fichiers DVD en i... Cliquez pour télécharger Emicsoft Mac DVD en iPad Convertisseur
|