Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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

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

Il s'agit d'un jeu de Triple Yahtzee à plusieurs joueurs sur un même poste.

Le projet n'utilise que des composants ultra-classiques, à l'exception du composant Iphtml dont le paquetage Turbopower_Ipro est fourni avec le code source. Il a été réécrit en "tout objet" en mettant en application les notions détaillées dans les excellents tutoriels de Gilles Vasseur sur la POO (dont vous trouvez les liens ci-dessous).

Bon amusement !

Gestionnaire de procédures appellées à intervalles réguliers (procédures d'arrière-plan).

Fichiers requis :

• BGPH.PAS
  L'unité contenant toutes les déclarations des procédures/fonctions externes gérant la procédure d'arrière plan.
• BGPH.ASM
  Contient le code des procédures/fonctions utilisés par l'unité BGPH.PAS.
• BGPH.OBJ
  Résultat de la compilation du fichier BGPH.ASM utilisé par l'unité BGPH.PAS.

Exemple de code :

• BGPDEMO.PAS
  Simple démonstration des procédures et fonctions de géstion de procédures appelées à intervalles réguliers.

Développé à l'aide de :

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

Crée un effet de bumping (livré avec l'image).

Programme qui affiche la date et le saint du jour.

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

• Gestion d'un tas XMS pour une utilisation plus aisée ;
• Ajout du type flux TXMSStream compatible avec tous les autres flux présents dans l'unité Objects ;
• Gestion avancée des erreurs pour éviter au maximum les plantages ;
• Support des langues française et anglaise pour les erreurs.

Le verrouillage des blocs XMS peut se révéler très aléatoire et doit de ce fait être surveillé de très près.
Il est impossible de verrouiller des blocs d'une taille supérieure à un mégaoctet. En effet, le verrouillage a pour but de ramener en mémoire basse un bloc de mémoire étendue, donc dans le premier mégaoctet. Il est donc évidemment impossible de placer un bloc ... Voir la suite

Bonjour.
Vous trouverez deux composants dans l'unité ThColorspal :

TThPalette : palette de couleurs sous forme de grille.

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

TThColorCreator : création de nouvelles nuances, composant contenant une barre de plage de couleurs, une barre de luminosité, 3 barres RGB

Testé sous Win7, Win8, Linux mint

Les deux composants peuvent être utilisés conjointement pour se confectionner un dialogue de couleurs personnalisé.
Le zip contient un programme demo (rien à installer, les composants sont créés dynamiquement) ainsi qu'un programme "p ... Voir la suite

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

Collection de petits programmes utilisant l'unité WinGraph, testés avec Free Pascal 2.6.4.

Nombre de ces programmes ont été originellement écrits pour l'unité Graph de Turbo Pascal.

Le sujet du défi 2009 était de réaliser un résolveur de grilles de Sudoku pouvant être compilé au minimum pour Windows et Linux.

Compilateur : Turbo Pascal.

Routines pour jouer de la musique sur le haut-parleur du PC, écrites par Foyal S. Carter.

Compilateur : Turbo Pascal.

Unité regroupant diverses fonctions de gestion de fichiers.

Compilateur : Turbo Pascal.

Jeu du Serpent, jusqu'à 4 joueurs. Le but est d'esquiver les obstacles en blanc, la trace des autres joueurs ainsi que sa propre trace.

Dessine une carte en 3D.

Un petit outil qui affiche les caractéristiques d'une police de caractères, avec une représentation visuelle des différentes valeurs.