Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Dessin d'une courbe de Bézier avec la bibliothèque BGRABitmap.

L'utilisateur déplace au moyen de la souris les points définissant la courbe. La courbe est redessinée au fur et à mesure.

La gestion des sessions windows, en particulier sous Win10, ne me convenait pas.
J'ai développé une micro application me permettant de fermer windows ou de le rebooter, de clôturer une session, de la verrouiller, de lancer le mode veille le tout à partir du systray.

Le zip contient toutes les sources nécessaires pour être recompilées par vos soins ou être incorporées selon vos besoins.

Il s'agit d'un jeu de Triple Yahtzee à plusieurs joueurs sur un même poste.

Le projet n'utilise que des composants ultra-classiques, à l'exception du composant Iphtml dont le paquetage Turbopower_Ipro est fourni avec le code source. Il a été réécrit en "tout objet" en mettant en application les notions détaillées dans les excellents tutoriels de Gilles Vasseur sur la POO (dont vous trouvez les liens ci-dessous).

Bon amusement !

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

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme convertit un nombre d'une base A vers une base B, A et B étant compris entre 2 et 36.

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

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.

Compilateur : Turbo Pascal.

Une unité implémentant en partie l'objet TStrings de Delphi : une collection de chaînes de caractères aisément accessibles.

Compilateur : Turbo Pascal.

Assez rare, un calendrier allant de la réforme julienne (-44) à +99999, tenant compte de la réforme grégorienne de 1582 (en mode texte).

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

Comment reconnaître et employer une énumération, une structure très utile pour rendre le code plus lisible et plus sécurisé.
L'exemple complet consiste en la création d'une calculatrice (image 1).
Dans le laboratoire, vous êtes invité(e) à réaliser une petite application dans laquelle un contrôle peut être déplacé à volonté à l'exécution, dans la fenêtre principale (image 2).

C'est un programme didactique de jeu d'échecs, adapté de JS-Schach (jeu d'échecs de Jürgen Schlottke).

Cette version du programme propose une interface graphique basée sur la librairie OWL. Le programme a été développé pour Virtual Pascal 2.1.

Mise à jour 21 décembre 2013 : La nouvelle version du jeu inclut le livre d'ouvertures du programme Pro Deo d'Ed Schröder.

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

Les sources complètes en Pascal de PhotoShop 1.0.1

Disponibles sur le Computer History Museum

Compilateur : Turbo Pascal.

Une manière de contourner la barrière de la limite mémoire pour le segment DATA présenté au travers d'un exemple concernant des "matrices-disques", de larges matrices stockées sur le disque dur. A l'appui un fichier PDF expliquant le principe et le programme d'exemple.

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

Simple client FTP basé sur WinInet.

Version Lazarus d'un projet Delphi de Damien Leveugle.

Un programme de gestion de bibliothèque en mode graphique : gestion des livres, suivi des prêts, fonctions de recherche.

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.

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.

Bonjour à tous.

TLinksMemo est directement dérivé de TMemo.
Il permet d'insérer très simplement des liens sous la forme , la cible du lien n'apparaissant pas dans le texte.
La cible du lien peut être une URL, un dossier ou un fichier à ouvrir par le processus de votre OS ou par un programme spécifique.
Pour la création de liens, le composant se suffit à lui-même : nul besoin de procédures externes.

Le zip contient un programme démo : rien à installer au préalable.
Testé sous Windows et Linux mint.

Merci d'avance pour vos commentaires.

Cordialement
Thierry