Codes sources Pascal347 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Puissance 4 de Fabien Torre.

Version Lazarus par Roland Chastain.

Compilé avec Lazarus 1.6.2.

L'intérêt de ce programme réside, d'une part, dans l'utilisation du composant TStringGrid, qu'on a détourné de sa finalité initiale, pour en faire une grille de "Puissance 4". La propriété DefaultDrawing a été réglée à FALSE, de sorte que le dessin des cellules est intégralement effectué par la méthode Redessiner. Par ce moyen on se débarrasse du carré en pointillés qui d'ordinaire marque la cellule sélectionnée. En contrepartie, il faut dessiner même les cases vides.

Mais l'intérêt du programme réside surtout dans la partie "intelligence artificielle", et dans la mise en œuvre de l'algorithme "MinMax". < ... Voir la suite

Dessin et rotation d'un visage en 3D par lissage Gouraud.

Programme pour générer des engrenages au format Dxf
largement inspiré du logiciel GenDxf existant et diponible avec ses sources en rapideQ (basic objet) à l'adresse : http://technoargia.free.fr/cms2/?Techno:CFAO:GenDxf

Code source en Free Pascal - Lazarus pour windows
Bibliothèque dxf incluse

L'objectif était : Permettre de fabriquer un engrenage droit par une imprimante 3D, ou de découper un engrenage avec une fraise 3 taillles

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.

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.

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme d'analyse combinatoire permet d'effectuer des opérations telles que Factorielle N, Combinaison C(n,p) et Permutation A(n,p).

Ref.: "Mathématiques en Turbo-Pascal" de M. Ducamp et A. Reverchon, Eyrolles, Paris, 1988.

Cette mini-application pour Android affiche le temps restant entre une date de référence et maintenant. Elle a éré réalisée avec le framework LAMW sous Lazarus.
Il est possible de moduler le compte à rebours selon son envie, du nombre d'années au nombre de secondes, de choisir la couleur de l'affichage et la taille de la police de caractères. Si les heures ou minutes ou secondes sont affichées, un timer en affiche le décompte.

Cette application sert de prétexte pour présenter l'utilisation du composant jPreferences, qui permet de sauvegarder des données de configuration un peu à la manière d'un fichier INI sous Windows, mais sans devoir gérer aucun fichier.

Composants utilisés :

• jMen ... Voir la suite

Je vous propose ma première réalisation avec lazarus.
Windows tools select permet d’accéder directement aux services et applications qui permettent de configurer windows (administration, services, gestion disques, registre, veille, arrêt, affichage, souris, périphériques etc).
Ce logiciel permet également d’ajouter d’autre applications et de créer des raccourcis.

Unité permettant d'accéder à la mémoire XMS :

• Gestion d'un tas XMS pour une utilisation plus aisée ;
• Ajout du type flux TXMSStream compatible avec tous les autres flux présents dans l'unité Objects ;
• Gestion avancée des erreurs pour éviter au maximum les plantages ;
• Support des langues française et anglaise pour les erreurs.

Le verrouillage des blocs XMS peut se révéler très aléatoire et doit de ce fait être surveillé de très près.
Il est impossible de verrouiller des blocs d'une taille supérieure à un mégaoctet. En effet, le verrouillage a pour but de ramener en mémoire basse un bloc de mémoire étendue, donc dans le premier mégaoctet. Il est donc évidemment impossible de placer un bloc ... 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

K-Tools est un ensemble d'unités et d'applications écrites par Bruno Kostrzewa :

Unit UDrivers : gestion du clavier et de la souris
Unit UTextScr : gestion de l'écran en mode texte
Unit UMem : gestion de la mémoire
Unit UImprim : gestion de l'imprimante
Unit OTableau : objets liés aux tableaux dynamiques
Unit OFile : objets liés aux fichiers
Unit OBinFile : objets liés aux fichiers avec mémoire tampon
Unit OFText : objets liés aux fichiers textes
Unit OFHelp : objets liés aux fichiers d'aide
Unit OFWrite : objets liés aux fichiers .wri (Write for Windows)
Unit OFSwag : objets liés aux fichiers swag
Unit OFZip : objets liés aux fichiers . ... Voir la suite

Un petit outil qui affiche les caractéristiques d'une police de caractères, avec une représentation visuelle des différentes valeurs.

Compilateur : Turbo Pascal.

Il s'agit d'une unité regroupant diverses fonctions, dont certaines pour transformer une chaîne en entier et vice-versa et une pour inverser une chaîne.

Unité permettant la gestion des matrices de taille quelconque, afin d'effectuer du calcul numérique réel.

Calcul matriciel standard supporte : addition, multiplication, calcul de la transposée, de l'inverse, du rang, du déterminant.
Ajout de calcul matriciel optimisé 3D sur matrices 4x4 : addition, multiplication, transposée, transformation d'un point, création des matrices de zoom, translation et rotation.

Attention : les lignes et colonnes des matrices sont indexées à partir de 1, et on indique toujours en premier l'index de la ligne. Ainsi, si M est une matrice, alors M.GetCell(3, 2) renverra la valeur placée ligne 3, colonne 2.

L'objet TMatrix est peu adapté aux calculs 3D. On lui préfèrera l ... Voir la suite

Interface pour cartes graphiques avec capacités VBE 1.0/1.2/2.0 (Video Electronics Standards Association - Bios Extensions).
Cartes VBE 3.0 reconnues mais nouvelles capacités non exploitées (ces capacités ne présentent qu'un intérêt limité, et ne sont même pas supportées par toutes les nouvelles cartes graphiques).

Support des resolutions SVGA suivantes :

• 320 x 200 - 4, 8, 15, 16, 24, 32 bits
• 320 x 240 - 4, 8, 15, 16, 24, 32 bits
• 512 x 384 - 4, 8, 15, 16, 24, 32 bits
• 640 x 400 - 4, 8, 15, 16, 24, 32 bits
• 640 x 480 - 4, 8, 15, 16, 24, 32 bits
• 800 x 600 - 4, 8, 15, 16, 24, 32 bits
• 1024 x 768 - 4, 8, 15, 16, 24, 32 bits
• 1280 x 1024 - 4, 8, 15, 16, 24, ... Voir la suite

Compilateur : Turbo Pascal.

Ce programme permet de créer des tableaux de 64 LEDS (8 lignes x 8 colonnes) pour faires des petites animations qui seront affichées sur le PC à l'aide du programme MYSLIDE (et pourquoi pas à l'aide 2 microcontroleurs PIC (1 en X et 1 en Y) et de 64 LEDs bicolores).

PASHeader permet d'insérer des en-têtes dans des fichiers Pascal, individuellement ou par lot. Il offre une panoplie d'outils pour automatiser et/ou simplifier les processus de choix des fichiers à traiter, de création et de gestion des en-têtes et de modèles, ainsi que d'exécution des insertions et substitutions.

Les fichiers qui font partie de projets ou de paquets Lazarus et Delphi sont automatiquement extraits pour être traités. Si elles existent, les informations de version des projets et paquets Lazarus peuvent elles aussi être extraites automatiquement.

Entièrement écrit en Pascal à partir de Lazarus, le programme fonctionne sous Linux et Windows, en anglais ou en français. En plus du code source, le proj ... Voir la suite

Compilateur : Borland Pascal.

Carnet d'adresses et répertoire téléphonique. Le programme peut servir de serveur DDE pour une autre application (un modèle de document WinWord 6 accompagne d'ailleurs le source).

Sujets intéressants : Dialogues Windows standard de choix de police de caractères et de choix de couleurs, impression de listings et d'étiquettes.

Écrit en Lazarus 3.6. Ne devrait pas poser de problème pour l'adapter en Free Pascal ou Delphi.

C'est un compteur digital, avec ses fonctions classiques permettant d'interrompre le comptage précis à tout moment, de le reprendre ou de le réinitialiser.

Bonjour.
Vous trouverez deux composants dans l'unité ThColorspal :

TThPalette : palette de couleurs sous forme de grille.

• ajout et suppression de couleurs
• ordonnancement des couleurs par drag and drop
• sauvegarde et chargement des palettes créées

TThColorCreator : création de nouvelles nuances, composant contenant une barre de plage de couleurs, une barre de luminosité, 3 barres RGB

Testé sous Win7, Win8, Linux mint

Les deux composants peuvent être utilisés conjointement pour se confectionner un dialogue de couleurs personnalisé.
Le zip contient un programme demo (rien à installer, les composants sont créés dynamiquement) ainsi qu'un programme "p ... Voir la suite