Codes sources Pascal339 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Écrit en Lazarus 3.6, testé sur Windows. 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.
1. Affichage digital d'un compteur avec des images pour les digits.
2. Un comptage du temps de rafraîchissement de l'affichage est précis et utilise l'horloge interne.
3. Les commandes Start, Pause et Stop sont basées sur une gestion des interruptions du compteur : la solution choisie est Application.ProcessMessages dans la boucle de temporisation pour permettre à l'application de rester réactive.

Compilateur : Borland Pascal.

Voici un player MIDI 100% Pascal. Encore quelques bugs mais c'est assez sympa ! Cette version supporte les cartes Adlib/SB mais aussi le speaker interne. Elle permet de plus de jouer un fichier MIDI en tâche de fond.

Compilateur : Delphi.

Le code source complet d'un jeu librement inspiré du Tetris.
(règlement)

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.

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 projet GVLOGO est né en 2014. Il s'agissait d'implémenter le langage LOGO sur un PC (avec Windows ou Linux).

GVLOGO est un langage de programmation. Il descend de LOGO, lui-même apparu dans les années 60 à la suite de recherches menées par des universitaires du M.I.T. (U.S.A.) autour du mathématicien Seymour Papert.

Peut-être avez-vous utilisé ce langage au cours de votre scolarité en pilotant sur l'écran de l'ordinateur un triangle (baptisé « tortue ») grâce à une série de commandes telles que : AVANCE, RECULE, GAUCHE, DROITE… Comme cette tortue pouvait laisser une trace de son passage, vous obteniez des dessins en programmant ses déplacements. Plus tard, peut-être avez-vous aussi manipulé les listes ... Voir la suite

Dessin animé d'un pendule. Exemple d'utilisation de la bibliothèque Cairo dans une application fenêtrée.

Version 2023, multiplateforme.

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.

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

Comment définir et utiliser les différents types d’entiers, une des formes que prennent les types ordinaux.
L'exemple principal est une application calculant des carrés magiques (image 1).
Dans le laboratoire, vous êtes invité(e) à réaliser les applications suivantes :

• table de multiplication (image 2) ;
• somme des N premiers entiers (image 3) ;
• factorielle d'un nombre entier (image 4).

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

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

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

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

Le sujet du défi 2011 était de réaliser un jeu librement inspiré du célèbre Tetris.

Compilateur : Borland Pascal.

Le squelette d'un petit compilateur Pascal.

Source multi-plateforme d'un jeu de Morpion en Free Pascal.

Compilateur : Turbo Pascal.

Utilitaire didactique permettant de comprendre et d'expérimenter les nombres sous forme binaire, hexadécimale, décimale, les caractères ASCII, etc.
Téléchargez le package et exécutez decobyte.exe.

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

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

Un jeu du Snake banal avec la SDL et compilé avec Lazarus sous Win XP.

Points Positifs :

• Gestion des événements, du son et de la SDL (pointeurs...) et algorithme du Snake;
• Programme structuré (je m'étais lancé dans la POO au début mais sans succès);
• Graphique pas mal :) fait sous Paint ^^ (c'est pas évident du 16x16 pixels sous Paint);
• La SDL est portable donc, logiquement, le code est portable.

Points à finir :

• Quand vous perdez, obligation de quitter pour relancer le jeu;
• Pas de gestion du score;
• Pas de gestion d'erreurs (s'il y a un problème, le programme se plante en utilisant les messages classiques de Windows);
• Pas de gestion du temps (au début, ... Voir la suite