Codes sources Pascal347 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Dessine une carte en 3D.

Compilateur : Borland Pascal.

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

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.

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.

Simple jeu de morpion utilisant l'algorithme Minimax. Traduction en Pascal d'un programme de Bernard Helmstetter.

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

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.

Programme générant l'image d'une spirale de Théodore avec la bibliothèque BGRABitmap.

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

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.

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.