Codes sources Pascal335 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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.

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

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.

MATER - Un programme simple de recherche de mat. Valentin Albillo, 1998.

MATER est un programme simple de recherche de mat, implémenté comme une commande MS-DOS. Etant donné 1° une position légale notée au format FEN, 2° la couleur qui a le trait et 3° un nombre de coups, le programme cherche un coup qui aboutit à un mat en un nombre de coups inférieur ou égal à la limite prescrite.

J'avais téléchargé il y a quelques mois le code source de ce programme, ainsi que la page de présentation au format HTM. Or je viens de constater que la page en question est devenue indisponible.
C'est pourquoi je me suis permis d'ajouter le code source et la page de présentation originale dans les sources de developpez.com.

Voir la suite

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

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

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

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

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

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

VALISOA 0.0.1

Développeur : Valisoa Jean Hervé
Type : Intelligence Artificielle
Début de programmation : 05/12/2018
Langage de programmation : Pascal
Compilateur : FreePascal 3.0.4
Version : 0.0.1
Licence : BSD

Voici la liste de ce que Valisoa peut faire :

1- Compter le nombre des mots, des caractères et des espaces dans la réponse d'utilisateur.
2- Conjuguer un verbe du premier groupe au mode indicatif en temps présent.
3- Construire aléatoirement une phrase simple : sujet + verbe conjugué.

Amélioration à rajouter

1- Détecter s'il y a un ou plusieurs mots non français dans la réponse d'utilisateur.
2- Détecter s'il y a un verbe dans la répo ... Voir la suite

Soundex est un algorithme phonétique d'indexation de noms par leur prononciation en anglais britannique. Pour un mot, il génère un code sur 4 caractères (1 lettre et 3 chiffres) qui permet de comparer des mots sur un critère phonétique. Plus d'informations sur Wikipédia.

L'algorithme a été un peu compliqué pour prendre en charge le français en plus de la langue anglaise d'origine. Une étape préalable de conversion des voyelles accentuées est donc ajoutée.

La fonction est libre : vous pouvez donc l'exploiter à votre guise. Si vous découvrez un bogue, merci de m'en faire part. Elle est développée avec Free Pascal mais peut être facilement portée sur un aut ... Voir la suite

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

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.

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.

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.

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