Codes sources Pascal347 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Compilateur : Borland Pascal.

Un programme de Triple Yahtzee (un jeu de dés) permettant d'illustrer l'interface MDI (une fenêtre enfant par joueur) et l'utilisation de ressources de différents types (icônes, bitmaps, tables de chaînes, dialogues, menus, tables d'accélérateurs).

Compilateur : Borland Pascal.

Un moteur 3D façon Wolfenstein ou Doom, version VESA.

Compilateur : Borland Pascal.

Une unité permettant à un programme Windows 16 bits d'appeler des fonctions de l'API Windows 32 bits grâce à la technique du thunking générique.

Voir à ce sujet ce tutoriel sur le thunking générique.

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.

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

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme convertit un nombre d'une base A vers une base B, A et B étant compris entre 2 et 36.

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

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme crée la liste de tous les nombres premiers de 1 à N.

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.

Clone de Tetris basé sur la bibliothèque SDL2.

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

Une belle fractale. Possibilité de zoomer une partie, de changer la palette de couleur, etc.

L'unité DOS70 permet d'utiliser les noms longs de fichiers et d'autres fonctions de MS-DOS 7.x avec Turbo Pascal (versions 5.5 à 7.0).

Permet la recherche d'un chemin sur une grille pouvant contenir différents obstacles, plus ou moins franchissables.
Exploite un des algorithmes les plus puissants dans ce domaine : l'algorithme A* ("A star").
Compatible Dos et Windows.

Très puissant, le A* a néanmoins ses faiblesses : il consomme une quantite non négligeable de mémoire, et le calcul d'un itinéraire peut prendre du temps sur les cartes vastes.
L'unité n'a ete adaptée que pour fonctionner sur une carte découpée en cases carrées ; elle peut toutefois être modifiée pour l'étude de cases hexagonales.

Configuration minimale nécessaire :

• Processeur 8086/8088 ou supérieur
  Turbo Pascal 7.0+ ou Borland Pascal 7.0+
  Package objet d ... Voir la suite

Unité permettant d'accéder à la mémoire LIM/EMS.

L'utilisation de EMSFreeMem ne doit se faire qu'avec des handles qui ont ete attribués par EMSGetMem. Si vous perdez ces handles, alors la mémoire allouée sera perdue jusqu'au redémarrage de l'ordinateur. Il est impossible de la récupérer. Ne le tentez sous aucun prétexte !
Ne tentez jamais d'utiliser EMSFreeMem avec des handles fictifs, sous peine de pertes mémoires et matérielles, notamment au niveau des disques durs !
L'utilisation de cette unité avec un environnement protégé n'a aucun sens et ne doit pas être tentée, pour eviter tout conflit avec l'interface DPMI.

Configuration minimale nécessaire :

• Processe ... Voir la suite

C'est une extension non autonome de l'unité Vbe2.

Elle apporte de nouvelles fonctions pour une gestion encore plus élaborée des graphismes :

• Affichage de figures géometriques avec texture ;
• Support plus évolué des formats d'images Bitmap, Icones, Targa, Gif, Pcx ;
• Détection automatique du type d'image ;
• Possibilité de suivi dans l'avancement du chargement des images ;
• Ajout de fonctions de copie d'images de grande taille ;
• Support de la transparence ;
• Gestion des entrées clavier (ReadLnGr, ...) avec arriere-plan.

Un mode graphique doit etre initialisé avant l'appel d'une des fonctions de cette uni ... Voir la suite

Programme qui convertit une image contenant de petites images rangées en tableau et composant une animation, en une image contenant toutes les petites images sur une seule ligne.

ThColorDialog s'utilise aussi facilement qu'un TColorDialog classique.

Avantages :
chargement et sauvegarde de palettes créées.
ordonnancement des couleurs par drag and drop
ajout et suppression de couleurs

Petite démo (rien à installer)

Remarque : ce composant a été ajouté dans l'unité ThColorsPal dont la première version a déjà été déposée.

Fonction qui convertit un nombre entier (de un à 4 294 967 295) en mots français.

Compilateur : Virtual Pascal.

Le code source suivant utilise la fonction SHFileOperation de la bibliothèque Shell32.dll. La fonction n'étant pas déclarée par défaut dans l'unité Windows de Virtual Pascal, il faut la déclarer comme external, avec la convention d'appel StdCall.

Dans la structure de type LPSHFILEOPSTRUCT utilisée, il faut utiliser l'option FO_DELETE comme paramètre wFunc et FOF_ALLOWUNDO comme flag.

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