Codes sources Pascal329 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Calendrier perpétuel par Frédéric Hardy.

Programme qui affiche le calendrier de l'année courante (y compris les fêtes catholiques mobiles), et éventuellement des années précédentes ou suivantes.

Le programme permet également de créer et d'éditer pour chaque année un fichier personnel des événements importants.

Le programme, originellement publié en 1993, dans le magazine Réponse Micro, a été retouché pour être compatible avec l'unité ptcGraph.

Compilateur : Turbo Pascal.

Jeu de Snake en mode graphique.

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

Il s'agit d'un mini-éditeur de texte réalisé avec le framework LAMW sous Lazarus.

Il permet de créer un nouveau fichier, ouvrir un fichier existant et le modifier et permet d'enregistrer le fichier modifié éventuellement sous un autre nom et dans un autre dossier. Il est possible de changer la taille des caractères affichés.

Composants utilisés :

• jMenu (menu principal) ;
• jOpenDialog (pour sélectionner un fichier à ouvrir) ;
• jSelectDirectoryDialog (pour sélectionner un nouveau dossier) ;
• jDialogYN (pour confirmer la sauvegarde du fichier) ;
• jEditText (l'éditeur, configuré comme un TMemo) ;
• jPanel (panneau au bas de l'é ... 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

Application graphique permettant d'essayer des expressions régulières.
Projet Lazarus basé sur le composant RichMemo et sur l'unité RegExpr de Free Pascal.
Compilé pour Windows avec Lazarus 1.6.

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.

Compilateur : Turbo Pascal.

Un superbe programme de dessin, en mode graphique (jusqu'en 1024x768) s'utilisant à la souris. Permet de gérer des images haute définition. Nécessite un vrai DOS ou un bon émulateur pour tourner de manière optimale.

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

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

Apprenez à créer, modifier et sauvegarder des fichiers quelconques en utilisant les méthodes offertes par les différents composants de Lazarus - mais aussi en dehors de ces méthodes, avec une approche résolument moderne de la gestion de fichiers : les flux de données (« streams » en anglais). Les routines classiques du Pascal sont succinctement abordées.
l'application d'exemple permet d'analyser des fichiers MIDI (image 1).
Dans le laboratoire, vous êtes invite(e) à réaliser les applications suivantes :

• un convertisseur d ... Voir la suite

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

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

Petite application de jeu de bandit manchot pour Windows développée avec Lazarus et utilisant la bibliothèque cards.dll de Microsoft.

La rotation des cartes se fait en utilisant un système de temporisation et le tirage pseudo-aléatoire est basé sur la fonction Random.

Le jeu consiste à obtenir une des combinaisons gagnantes pour voir son crédit augmenter. Toutes les combinaisons n'ont pas la même valeur. Celle qui permet le gain maximal est le carré d’as.

A l'ouverture de l'application, le joueur bénéficie d'un crédit de 10 essais pour obtenir une combinaison gagnante et ainsi une augmentation de crédit qui permettra de poursuivre le jeu.

Pour jouer, le joueur doit cliquer sur le levier pour l'ac ... Voir la suite

Bonjour à tous,

Voici un petit programme sans prétention inspiré du jeu de puzzle.
En fait, il s'agit de retrouver les pièces manquantes dans une image.

Image : vos propres photos (dessins) au format jpeg ou png.
Nombre de pièces : de 54 à 150.

Ce programme requiert la bibliothèque BGRABitmap.
Testé sous Windows 7, 8 et Linux Mint.

Un fichier jpeg est joint (format 3:2) pour votre premier jeu. Consultez l'aide au préalable.

Merci d'avance pour vos commentaires.

Thierry

Compilateur : Free Pascal.

Un jeu de mots croisés réalisé dans le cadre d'un TP.

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.

Ce programme réalise la compression par l'algorithme de Huffman dynamique. L'intérêt est donc qu'il n'y a qu'un seul parcours du fichier source et pas de dictionnaire transmis dans le fichier compressé.

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

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.

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