Codes sources Pascal346 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Prototype d'un jeu du serpent pour Lazarus. Utilise les bibliothèques BGRABitmap et BASS.

Le serpent se dirige avec les flèches du clavier. On appuie sur Échap pour fermer l'application.

Le jeu est inachevé ! Les points ne sont pas comptés. Le serpent peut passer sur lui-même...

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 !

Recherche et suppression de doublons sous Windows.

Par doublons on entend des fichiers identiques, même avec des noms différents (mais avec la même extension toutefois).

Le programme DEMO1.PAS recherche des doublons dans un dossier donné pour un fichier donné.
Le programme DEMO2.PAS recherche des doublons dans un dossier donné pour un ensemble de fichiers.
Le programme DEMO3.PAS recherche des doublons pour un ensemble de fichiers et les envoie à la corbeille.
Le programme DEMO4\DEMO.LPR est une application fenêtrée qui permet de rechercher les doublons pour un ensemble de fichiers avec en option la possibilité de les envoyer aussitôt à la corbeille.
Le programme DEMO5\DEMO.LPR fait la même chose que ... Voir la suite

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

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.

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).

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.

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

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

Compilateur : Turbo pascal.

Tennis Tournament Organizer 1.20 : un programme complet de gestion de tournoi de tennis de table sous MS-DOS. Attention, vu l'ancienneté du programme, les règles modernes du tennis de table ne sont pas supportées. L'image de la disquette d'installation, ainsi que le source de programme d'installation, sont également fournis.

Sujets intéressants :

- Menus déroulants et fenêtrage en mode texte,
- Gestion de la souris en mode texte à l'aide des interruptions du BIOS,
- Programmation d'un screen-saver (avec un timer),
- Sauvegarde automatique,
- Système complet d'aide contextuelle,
- Gestion de fichiers texte de très grande taille,
- Impressions,
- ... Voir la suite

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

NumSums est un petit jeu de réflexion réalisé avec le framework LAMW.

Dans une grille (3 niveaux : 6x6, 7x7 ou 8x8), il faut trouver les nombres dont la somme donne les totaux des lignes et des colonnes. À l'aide du crayon, vous sélectionnez un nombre, tandis qu'avec la gomme vous l'effacez. Attention que vous ne pouvez faire qu'une seule erreur ! Pour basculer entre le mode "crayon" et le mode "gomme", il suffit de presser l'image dans la barre supérieure.
Pour vous aider dans votre réflexion, à l'aide du point d'interrogation, vous pouvez marquer un nombre comme étant potentiellement à garder ou potentiellement à effacer.
La grille en cours est automatiquement sauvegardée.

Composants utilisés ... Voir la suite

Qui n’a jamais eu à parcourir un répertoire où s’accumulaient les fichiers sources divers en regrettant de ne pas avoir un aperçu de leur contenu et un minimum de renseignements sur leurs attributs ? PASInfos est un petit utilitaire entièrement autonome et portable qui permet justement, par simple glisser/déposer, d’afficher le contenu de fichiers sources issus de différents langages de programmation, ainsi que des informations sur ces fichiers.

S'il est particulièrement adapté aux paquets et projets Lazarus et Delphi, PASInfos accepte de nombreux formats pour l’affichage avec coloration syntaxique : fichiers Pascal, C, C++, Java, Javascript, Perl, HTML, XML, CSS, PHP, TeX, SQL, Python, Batch, Basic, INI, PO, texte brut e ... Voir la suite