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
 CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Logiciels
 Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|