Delphi & Pascal786 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Support de la norme USB 1.1 pour Turbo Pascal 7.

L'archive comprend :

• USB.PAS : routines USB de base ;
• PCI.PAS : accès aux périphériques PCI ;
• DUTILS.PAS : utilitaires ;
• HUBDISCO.PAS : programme d'exemple.

C'est un composant libellé dont le texte est orientable et étirable NOTES : Installation:

Installer le composant TOrLabel contenu dans le fichier UOrLabel.PASUtilisation: comme un label mais avec quelques changements :

- la propriété Font n'existe pas, utilisez OrFont

- OrFont.Orient définit la rotation par pas de 0,1 degré

- OrLabel ne fonctionne qu'avec des polices TrueType

- Alignement/WordWarp etc n'existent pas...Remarques:

TOrFont n'est pas descendante de TFont, elle ne peut donc pas être assignée à un autre composant. Mais vous pouvez l'utiliser dans vos propres composants : voir la méthode Paint du TOrLabel pour l'utilisation du TOrFont.

TOrFont et TOrLabel ... Voir la suite

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Comment manipuler les nombres réels représentés par la technique de la virgule flottante.
L'application d'exemple illustre le calcul approché du nombre Π à partir de la somme 1 - 1/3 + 1/5 - 1/7 + 1/9 etc. (méthode de Leibniz-Grégory), avec dessin d'un graphique (image 1).
Dans le laboratoire, vous êtes invité(e) à réaliser :

• une application similaire à l'exemple mais utilisant la méthode de calcul de Nilakantha ;
• une application calculant la puissance entière d'un nombre réel (image 2) ;
• une application d ... Voir la suite

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Qu’est-ce qu'un caractère et quelles sont les fonctions les plus courantes permettant de les manipuler.
L'application d'exemple est un petit utilitaire affichant, par blocs de 256, tous les caractères Unicode au format UTF-16, avec la possibilité de copier l'un d'entre eux dans le presse-papier (image 1).
Dans le laboratoire, vous êtes invité(e) à créer trois routines outils pour l'analyse des caractères (image 2) :

• une fonction qui détermine si le caractère fourni en entrée est un chiffre ;
• une fonction qui détermine s ... Voir la suite

SJRDUnits est un package runtime qui contient des tas de routines et classes diverses. Pour pouvoir vous y repérer, elles sont réparties en plusieurs unités selon leur catégorie.

Ainsi vous retrouverez des classes de liste dans l'unité SjrdLists, et des routines de chaînes dans l'unité SjrdStrUtils. Les routines n'appartenant à aucune de ces catégories ont été séparées en deux unités, la première, SjrdUsual, contenant les routines les plus utilisées et la seconde, SjrdExtra, contenant celles utilisées plus rarement.

Bonjour à tous.

Le tri alphabétique ne se fait pas correctement dans un TStringList lorsque des chaines contiennent des caractères accentués.
En attendant une implémentation dans une version ultérieure de Lazarus, voici de quoi vous dépanner.
Deux manières :
a) utiliser TLatinStringList (dans le zip) qui est dérivé de TStringList avec simplement un override de la fonction DoCompareText : remplacement, pour le tri, des caractères accentués par leur correspondant non accentué. L'avantage est que, pour une liste triée, l'ajout de nouvelles chaines va directement se faire au bon endroit. L'inconvénient est que les fonctions Find et IndexOf (qui utilisent DoCompareText) ne vont plus distinguer "élève" de "élevé". Ce qui ... Voir la suite

Le sujet du défi 2009 était de réaliser un résolveur de grilles de Sudoku pouvant être compilé au minimum pour Windows et Linux. Il s'agit du projet du vainqueur.

Compilateur : Turbo Pascal.

Une compilation d'unités diverses, écrites par Tom Hanlin :

Unit Archives : routines de visualisation du contenu de fichiers de plusieurs formats d'archives
Unit BCD : opérations sur les nombres BCD (Binary-Coded Decimal)
Unit Equipmt : routines de détermination de l'environnement matériel et logiciel
Unit ExtMath : fonctions mathématiques étendues
Unit Joystick : routines de gestion du joystick
Unit Keyboard : routines de gestion du clavier
Unit Mouse : routines de gestion de la souris
Unit Music : langage permettant de jouer de la musique plus simplement que les fonctions de base du Pascal
Unit Strings : routines de compression, cryptage, recherches, ... Voir la suite

Voici un programme que j'ai fait sur Delphi qui dessine des objets fractals.
Dans l'application, "profondeur" désigne le niveau de récursivité, pour un grand dessin entre 10 et 15.
Entrez aussi les coordonnées x y et j de la procédure pose (la position initiale de la tortue x y , pour l'angle j, l'angle dans lequel est orientée la tortue il vaut mieux j=0).
Le "langage" Logo fait dessiner un crayon (la tortue) :

• la procédure "pose" place la tortue aux coordonnées x et y et l'oriente selon un angle j ;
• la procédure "trace" fait avancer la tortue d'une longueur l ;
• la procédure "tourne" fait tourner la tortue sur elle-même d'un angle j ;
• la procédure "dragon" qui dessine la fractale est récurs ... Voir la suite

Comment gérer une fiche dans une DLL.

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Que sont les booléens et les expressions booléennes ? Comment les utiliser dans vos programmes ?
L'application d'exemple est un évaluateur d'expressions logiques. Les fonctionnalités RAD de Lazarus sont bien mises en évidence.

Exemple de transfert de fichier avec les composants TServerSocket et TClientSocket. NOTES : Le transfert de fichier n'est pas optimisé, mais ce n'était pas le but de cet exemple qui est en premier de montrer l'utilisation des composants.

Utilisation :

Sur le serveur il suffit d'appuyer sur le bouton ouvrir.

Sur un client il faut renseigner l'adresse ip du serveur et ensuite appuyer sur le bouton "Envoyer".Le client se connecte au serveur, transfert le fichier par bloc et se déconnecte. Le serveur n'accepte qu'un seul fichier à la fois, ce n'est pas une limitation du TServerSocket mais de l'application.

Demonstration de l'utilisation de la fonction API CopyFileEx avec une procédure de rappel. NOTES : Ce programme montre l'utilisation de la fonction CopyFileEx avec une fonction de rappel ( CallBack ). Cette fonction est utilisée pour mettre à jour un ProgressBar.Ce programme a été testé et amélioré par DelphiProg.Attention : CopyFileEx n'est pas compatible avec Windows95, Windows98 et WindowsMe.

Il a été testé avec Windows 2000 mais doit fonctionner avec WindowsNT et Windows XP.

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Initiation au graphisme.
L'application d'exemple est la réalisation de l'animation d'un attelage écossais, c'est-à-dire un mécanisme roratif doté d'un ergot qui permet de transformer un mouvement circulaire en mouvement rectiligne.
Dans le laboratoire, il s'agit d'apporter des améliorations à cette application.

Fonction semblable à ShellExecute retourne le handle du programme exécuté.
La démo montre comment utiliser la fonction pour intégrer un programme simple dans une form. Cette fonction n'est pas valable avec des programmes possédant un splash screen. Elle ne fonctionne pas avec Explore.exe non plus...

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Comment construire des expressions numériques, en maîtrisant l’ordre de priorité des opérations.
L'exemple d'application résout une équation du type AX² + BX + C = 0.

Version 3.0.0.1 - 17/12/2005.

XN Resource Editor est l'émanation actuelle de PE Resource Explorer.
Outre les fonctionnalités habituelles d'un éditeur de ressources, il permet d'éditer les propriétés des composants Delphi.

Cette unité permet au programme de s'effacer lui-même.

Comment mettre un TProgressBar dans un TStatusBar.

Je vous propose un petit jeu en 3D réalisé avec Delphi et Firemonkey. Il s'agit du projet que j'ai présenté lors de l'étape française de la tournée européenne Delphi 2017 qui s'est tenue à Paris le 17 mai 2017 et organisée par la société Barnsten.

L'objectif du jeu est d'emmener la balle vers la zone d'arrivée. Pour ce faire, il faut incliner le plateau à l'aide :

• des flèches de direction du clavier
• ou du mini joystick virtuel
• ou du capteur de mouvement si votre appareil en est équipé
  

Le jeu dispose de 3 niveaux jouables. Il s'agit d'un exemple de manipulation de la 3D, des materials, des lumières, des caméras et des animations fournis en standard avec Firemonkey.
Le projet a été ... Voir la suite