Codes sources Pascal346 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Variante russe du jeu de dames par Evgeniy Korniloff. Originellement écrit pour Turbo Pascal, adapté pour Free Pascal et l'unité ptcGraph.

Pour Turbo Pascal 7.0 ou autre compilateur compatible. Nécessite le package objet de Turbo Pascal (contenant les unités Objects, Strings et Memory).

Cette unité définit le type TList, afin de gérer une liste chaînée d'objets quelconques (ceci inclut l'ajout, la suppression, le remplacement et la recherche d'éléments).
Elle définit également le type TStringList, dérivé de TList, pour gérer une liste de chaînes de caractères. En plus des fonctionnalités précédentes, le type TStringList est en mesure de trier la liste et de vérifier si les chaînes ajoutées ne sont pas déjà présentes dans la liste. Il est également possible d'associer à chaque chaîne un objet quelconque.

Attention : les éléments ajoutés ... 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

Jeu d'échecs en Pascal d'Evgeniy Korniloff. Originellement écrit pour Turbo Pascal, adapté pour Free Pascal et l'unité ptcGraph.

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.

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.

Compilateur : Turbo Pascal.

Ce programme en mode texte (sous MS-DOS) permet d'encoder et de jouer des parties d'échecs en notation internationale.

Sujets intéressants : dessin de caractères ASCII personnalisés pour représenter des pièces d'échecs en mode texte, utilisation de modes textes de plus de 80 colonnes et de plus de 50 lignes.

Compilateur : Turbo Pascal.

Il s'agit d'une unité complète de gestion d'écran en mode texte. Cette unité peut est utilisée en lieu et place de l'unité CRT de Turbo Pascal.

Sujets intéressants :
- Routines de bas niveau de gestion du mode texte,
- Fenêtrage avec possibilité de sauvegarde en mémoire et de restauration du contenu d'une fenêtre,
- Routines de lecture au clavier avec possibilités de filtrage de caractères,
- Activation et désactivation du Ctrl-Break et du Ctrl-C,
- Simulation par le BIOS d'une touche pressée au clavier,
- Réglage du typematic du clavier,
- Possibilité de dessiner sa propre police de caractères,
- Modification du curseur.

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.

Compilateur : Turbo Pascal.

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

Rotation d'un donut en 3D avec un lissage Phong.

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

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.

Programme pour générer des engrenages au format Dxf
largement inspiré du logiciel GenDxf existant et diponible avec ses sources en rapideQ (basic objet) à l'adresse : http://technoargia.free.fr/cms2/?Techno:CFAO:GenDxf

Code source en Free Pascal - Lazarus pour windows
Bibliothèque dxf incluse

L'objectif était : Permettre de fabriquer un engrenage droit par une imprimante 3D, ou de découper un engrenage avec une fraise 3 taillles

Unité permettant d'utiliser la bibliothèque SDL_bgi.

Compatible avec Delphi et avec Free Pascal.