Codes sources Pascal333 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Ce paquetage renferme l'ensemble des unités réalisées par Haypo et disponibles sur son site Turbo Pascal. Il s'agit de la version compilée de ces unités ; les codes sources sont téléchargeables via le lien ci-dessous.

Unités hardware (matériel) :

• Clavier : Gestion du clavier (vérification de la présence d'une touche dans le tampon et lecture d'une touche dans le tampon ou à défaut attend une pression de touche).
• DrvSouris : Gestion hardware de la souris (lecture de sa position, des boutons, changement du curseur...).
• EcranTxt : Gestion de l'écran en mode texte 80x25 caractères et surtout en COULEURS (16 exactement).
• EcranVGA : Gestion de l'écran dans le mode VGA : 320x200 pixels en ... Voir la suite

Hex est un éditeur hexadécimal à code source ouvert, doté de fonctionnalités utiles pour l'analyse des fichiers binaires.

La fonction NumericViewer permet de considérer une séquence d'octets (commençant à partir de l'octet se trouvant sous le curseur) comme une donnée correspondant à un type numérique standard (byte, shortint, word, single, double, real48...), donnée dont on peut alors connaître la valeur.

La fonction RecordViewer permet, suivant le même principe, d'afficher la valeur d'une donnée de type enregistrement.

Enfin, la fonction ObjectViewer permet d'afficher une image.

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

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

uEControls 6.1.2 - 04/02/2018

uEControls est une bibliothèque de contrôles d'instrumentation (boutons, jauges, leds...) open source qui fonctionne aussi bien sous Windows que sous Linux.

Elle s'appuie sur la bibliothèque graphique BGRABitmap.

LazPaint est un logiciel opensource de dessin utilisant la librairie BGRABitmap. Le dessin se fait avec transparence et antialiasing.

Il est possible de faire des sélections de n'importe quelle forme, d'effectuer une rotation de la sélection, et de dessin à l'intérieur. La sélection est aussi en antialiasing, ce qui permet par exemple de dessiner une ellipse avec un bord non crénelé à l'aide d'une sélection.

Des filtres sont inclus, comme des flous et le dessin des contours.

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

Soyez capable d’identifier et d’utiliser des enregistrements étendus, une forme plus moderne des enregistrements simples. Les enregistrements sont éléments très utiles dès qu’il s’agit de rassembler des données de types différents dans une même structure.
L'exemple d'application permet de créer des nombres complexes et de leur appliquer des opérations mathématiques.

Le sujet du défi Pascal 2010 est de réaliser un système de chat.
Le choix de la technologie, des outils et même de la plateforme sont entièrement libres.

Système de Chat, en mode Serveur-Client
Développé sous Delphi 2005, à l'aide d'Indy 10. Composants principaux : TIdTCPClient et TIdTCPServer. TJvRichEdit utilisé pour l'affichage du texte formatté et des smileys.
Contient les sources

Fonctionnalités
- Echange de texte contenant des smileys
- Changement de statuts
- Personnalisation de la couleur du texte
- Liste d'amis avec possibilité d'ignorer des membres
- Possibilité d'envoyer des messages à partir du serveur

A venir :
- Mode multi salons, et conversati ... Voir la suite

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

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

Compilateur : Turbo Pascal.

Une calculatrice en mode graphique, avec gestion de la souris. Il faudra éventuellement modifier le chemin vers les fichiers BGI dans le source.

Il s'agit d'un petit organiseur personnel réalisé avec le framework LAMW sous Lazarus.

Cet organiseur vous permet de créer des projets et de lier ceux-ci à différentes catégories prédéfinies. Pour chaque projet, vous pouvez créer des actions à réaliser, fixer leur importance, leur attribuer une deadline ; vous pouvez les mettre en pause et les réactiver à volonté. Vous pouvez également créer des rappels et des notes. Le SGBD utilisé est SQLite.

Composants utilisés :

• jMenu (menu principal) ;
• jsViewPager (pour feuilleter les onglets de l'écran principal comme un livre) ;
• jListView (les listes de projets, d'actions, etc.) ;
• jsFloatingButton ... Voir la suite

Cette archive contient tous les programmes réalisés par Haypo, disponibles sur son site Turbo Pascal. La plupart d'entre eux nécessitent de télécharger les unités personnelles de Haypo.

TGIFViewer 👀
TGIFViewer composant visuel pour l'affichage d'animations au format GIF (Graphic Interchange Format) avec Free Pascal et Lazarus

Compatibilité : Windows, Linux et MacOS

Capacités de TGIFViewer :

• Chargement depuis un stream, un fichier ou une ressource (fonctions LoadFromStream, LoadFromFile, LoadFromResource)
• Extraction des images brutes (**fonction DisplayRawFrame)
• Extraction des images pré-calculées de l'animation (fonction DisplayFrame )
• Affichage avec ou sans transparence (Transparent)
• Gestion silencieuse de certaines données mal encodées pour permette l'affichage des images sans perturber l'utilisateu ... Voir la suite

Paquet Lazarus YHTML permettant d'écrire des applications HTML5 en Pascal Objet.

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

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme permet de calculer le plus grand commun diviseur (PGCD) et le plus petit commun multiple (PPCM) de plusieurs nombres entiers.

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

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

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

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

Quels sont les types de chaînes de caractères les plus courants et quelles procédures et fonctions permettent de les manipuler.
L'application d'exemple découpera une phrase en mots ; l'utilisateur aura le choix entre un découpage programmé à la main et un découpage assisté par les routines de l'unité StrUtils (image 1).
Dans le laboratoire, voici les applications à réaliser :

• supprimer les espaces en début ou en fin d’une chaîne (image 2) ;
• classer des chaînes (image 3) ;
• un scrutateur de chaînes de cara ... Voir la suite