Codes sources Pascal344 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Compilateur : Borland Pascal.

Un kit de développement de jeux Zelda-like sous DOS. Contient également deux programmes d'import/export pour gérer les sprites depuis et vers un bitmap Windows.

Création d'une icône à partir d'une image au format PNG, avec Lazarus et BGRABitmap.

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

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.

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

Catégorie : nombres complexes.
Le programme ZCircle montre un algorithme de recherche du zéro.
Ce document (en anglais) explique le programme dans tous ses détails.

Ref.: "BASIC Scientific Subroutines, Vol. II" de F.R. Ruckdeschel, BYTE/McGRAWW-HILL, 1981.

Voici un petit exemple de dessin d'un masque avec un pinceau à bords doux et opacité variable.

Dans la démo, ce masque sert à retoucher localement une photo (luminosité, contraste, saturation).
Il s'agit d'un masque noir, donc les corrections ne seront visibles qu'avec une opacité de pinceau supérieure à zéro.

La bibliothèque bgrabitmap n'est pas fournie dans le zip.
Si vous rencontrez un problème de compilation, supprimez "bgrabitmappack" dans le fichier project1.lpr

Merci aux programmeurs et auteurs de tutoriels pour cette bibliothèque.

Merci d'avance pour vos remarques.

Thierry

Unité permettant d'utiliser les fonctionnalités du timer du BIOS au moyen de l'objet TTimer ou bien de la fonction SetTimer.

Permet notamment de créer des gestionnaires en arrière-plan, avec une fréquence d'appel définissable par l'utilisateur.
Présence de la fonction Rdtsc pour effectuer des mesures de précision pour les calculs de durées.

Ensemble de programmes en Pascal qui accomplissent les opérations suivantes :

Lire un fichier SVG (l'image d'une fleur de lys), en extraire les données et fabriquer une unité en Pascal les contenant. Recréer des images au moyen de ces données (l'image de la fleur de lys, l'image des points seuls, l'image des point reliés par des droites). Superposer les images précédentes. En partant d'une des images précédentes, créer une image avec un effet de volume et d'ombre.

Les données sont les coordonnées des points pour tracer la fleur de lys.

Compilateur : Turbo Pascal.

Unité implémentant l'objet TIniFile de Delphi permettant de gérer les fichiers ini.

Dessin et rotation d'un visage en 3D par lissage Gouraud.

Compilateur : Turbo Pascal.

Un magnifique solitaire en mode graphique se jouant à la souris. Nécessite un vrai DOS pour tourner de manière optimale.

TextView est une application permettant de visualiser rapidement le contenu des fichiers texte d'un dossier.

Compilateur : Borland Pascal.

Ce programme (sous Windows) permet de récupérer des données sur une disquette défectueuse. Il peut combiner les portions valides des deux copies de la FAT pour reconstituer la séquence des secteurs d'un fichier ou d'un répertoire.

Sujets intéressants :
- Parcours d'une FAT 12 bits,
- Utilisation de fenêtres enfants et de dialogues non modaux,
- Dialogues Windows standard d'enregistrement de fichier, de choix de police de caractères et de choix de couleurs.

Lecteur de musique en ligne de commande basé sur SDL_mixer.

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.

Une unité bien pratique qui contient les fonctions

function StringToInt(s : string) : integer;
function IntToString(i : integer) : string;
procedure fenetre(X1 : integer; Y1 : integer; X2 : integer; Y2 : integer); (fenetre a double bordure)
procedure dec(i : integer; a : integer); decrementer
procedure centrer(s : string; y : integer); centre une chaine pour un y donné
procedure instcolorln(i :string;e : byte;b : byte); couleur sur une ligne e=nouvelle couleur et b = ancienne couleur
procedure instcolor(i :string;e : byte;b:byte); la même chose sans aller à la ligne
procedure pleinecran;
function on_click_button(x1,y1,x2,y2:integer):boolean; a faire marcher ^^
pr ... Voir la suite

Cette mini-application pour Android affiche le temps restant entre une date de référence et maintenant. Elle a éré réalisée avec le framework LAMW sous Lazarus.
Il est possible de moduler le compte à rebours selon son envie, du nombre d'années au nombre de secondes, de choisir la couleur de l'affichage et la taille de la police de caractères. Si les heures ou minutes ou secondes sont affichées, un timer en affiche le décompte.

Cette application sert de prétexte pour présenter l'utilisation du composant jPreferences, qui permet de sauvegarder des données de configuration un peu à la manière d'un fichier INI sous Windows, mais sans devoir gérer aucun fichier.

Composants utilisés :

• jMen ... Voir la suite

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Il s'agit d'une calculatrice effectuant des opérations sur des entiers longs sous forme de chaînes, utilisant l'unité PCalcFun.

Ref.: "Turbo Pascal for Windows - Techniques and Utilities" de Neil J. Rubenking, PC Magazine & ZD Press, 1992.

Durandal est un très simple programme d'échecs, avec une interface UCI, capable de jouer aux échecs traditionnels, aux échecs aléatoires de Fischer et aux échecs Capablanca.

Il joue quasi instantanément et n'est pas fort du tout, mais joue des coups relativement sensés.

Il a sa propre interface graphique intégrée, permettant de jouer aux échecs Capablanca. L'interface graphique est un projet Lazarus.