Codes sources Pascal347 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

La gestion des sessions windows, en particulier sous Win10, ne me convenait pas.
J'ai développé une micro application me permettant de fermer windows ou de le rebooter, de clôturer une session, de la verrouiller, de lancer le mode veille le tout à partir du systray.

Le zip contient toutes les sources nécessaires pour être recompilées par vos soins ou être incorporées selon vos besoins.

Bonjour
Je vous propose une petite appli sous Windows en rapport avec Thunderbird.
Elle vous permet de déplacer, sauvegarder ou restaurer le profil et les dossiers locaux de Thunderbird.
L'appi utilise TZipper.

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

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

Simple application pour faciliter l'usage de youtube-dl, l'outil de téléchargement de vidéos YouTube.

miniaudio Player

Lit la musique contenue dans le dossier passé en paramètre.

Exemple d'utilisation de la bibliothèque miniaudio.

L'unité *miniaudio_object* provient du projet CPas.

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

Compilateur : Delphi.

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

Les sources complètes en Pascal de PhotoShop 1.0.1

Disponibles sur le Computer History Museum

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.

Jeu de loto

En famille, dans une association, quand on n'a pas de boulier pour tirer les numéros, l'application LazLOTO peut pallier ce manque.

Basée sur la fonction Random, elle propose un tirage pseudo-aléatoire. Il est possible de voir clairement les numéros à l'instant de leur tirage mais aussi ceux qui ont déjà été tirés précédement. En effet, une fois tirés, ils apparaîssent en blanc sur fond noir alors qu'initialement les couleurs sont inversées.

N'oubliez pas de mettre le son.

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.

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

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

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

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.

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

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

Que sont les booléens et les expressions booléennes ? Comment les utiliser dans vos programmes ?
L'application d'exemple est un évaluateur d'expressions logiques. Les fonctionnalités RAD de Lazarus sont bien mises en évidence.

Dessin d'une courbe de Bézier avec la bibliothèque BGRABitmap.

L'utilisateur déplace au moyen de la souris les points définissant la courbe. La courbe est redessinée au fur et à mesure.

Compilateur : Virtual Pascal.

Le programme DirTot affiche de manière récursive le nom de tous les fichiers contenus dans un dossier ainsi que dans ses sous-dossiers.

Ce source est un exemple tiré du tutoriel sur la programmation Win32 avec OWL.