Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Un logiciel complet de topographie spéléologique réalisé avec Lazarus, l'environnement de développement multiplateforme de Free Pascal.

NumSums est un petit jeu de réflexion réalisé avec le framework LAMW.

Dans une grille (3 niveaux : 6x6, 7x7 ou 8x8), il faut trouver les nombres dont la somme donne les totaux des lignes et des colonnes. À l'aide du crayon, vous sélectionnez un nombre, tandis qu'avec la gomme vous l'effacez. Attention que vous ne pouvez faire qu'une seule erreur ! Pour basculer entre le mode "crayon" et le mode "gomme", il suffit de presser l'image dans la barre supérieure.
Pour vous aider dans votre réflexion, à l'aide du point d'interrogation, vous pouvez marquer un nombre comme étant potentiellement à garder ou potentiellement à effacer.
La grille en cours est automatiquement sauvegardée.

Composants utilisés ... Voir la suite

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

Qu’est-ce qu'un caractère et quelles sont les fonctions les plus courantes permettant de les manipuler.
L'application d'exemple est un petit utilitaire affichant, par blocs de 256, tous les caractères Unicode au format UTF-16, avec la possibilité de copier l'un d'entre eux dans le presse-papier (image 1).
Dans le laboratoire, vous êtes invité(e) à créer trois routines outils pour l'analyse des caractères (image 2) :

• une fonction qui détermine si le caractère fourni en entrée est un chiffre ;
• une fonction qui détermine s ... Voir la suite

Qui n’a jamais eu à parcourir un répertoire où s’accumulaient les fichiers sources divers en regrettant de ne pas avoir un aperçu de leur contenu et un minimum de renseignements sur leurs attributs ? PASInfos est un petit utilitaire entièrement autonome et portable qui permet justement, par simple glisser/déposer, d’afficher le contenu de fichiers sources issus de différents langages de programmation, ainsi que des informations sur ces fichiers.

S'il est particulièrement adapté aux paquets et projets Lazarus et Delphi, PASInfos accepte de nombreux formats pour l’affichage avec coloration syntaxique : fichiers Pascal, C, C++, Java, Javascript, Perl, HTML, XML, CSS, PHP, TeX, SQL, Python, Batch, Basic, INI, PO, texte brut e ... Voir la suite

Simple client FTP basé sur WinInet.

Version Lazarus d'un projet Delphi de Damien Leveugle.

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.

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.

Interface pour cartes graphiques avec capacités VBE 1.0/1.2/2.0 (Video Electronics Standards Association - Bios Extensions).
Cartes VBE 3.0 reconnues mais nouvelles capacités non exploitées (ces capacités ne présentent qu'un intérêt limité, et ne sont même pas supportées par toutes les nouvelles cartes graphiques).

Support des resolutions SVGA suivantes :

• 320 x 200 - 4, 8, 15, 16, 24, 32 bits
• 320 x 240 - 4, 8, 15, 16, 24, 32 bits
• 512 x 384 - 4, 8, 15, 16, 24, 32 bits
• 640 x 400 - 4, 8, 15, 16, 24, 32 bits
• 640 x 480 - 4, 8, 15, 16, 24, 32 bits
• 800 x 600 - 4, 8, 15, 16, 24, 32 bits
• 1024 x 768 - 4, 8, 15, 16, 24, 32 bits
• 1280 x 1024 - 4, 8, 15, 16, 24, ... Voir la suite

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Il s'agit d'un parser permettant d'analyser des expressions mathématiques telles que :
A=10/4
B=25.478
F=A*X^2+B*X+C
25.75*2+1.784
2*pi*R...
Supporte également les fonctions atan, cos, exp, log, root, sin, tan.

Ref.: "Advanced Turbo C" de Herbert Schildt, Borland-Osborne/McGraw-Hill, Berkeley, USA, 1987.

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

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

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.

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

Les sources complètes en Pascal de PhotoShop 1.0.1

Disponibles sur le Computer History Museum

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.

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 construire des expressions numériques, en maîtrisant l’ordre de priorité des opérations.
L'exemple d'application résout une équation du type AX² + BX + C = 0.

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.

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