Codes sources Pascal345 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.

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

Il s'agit du portage sous Android du jeu MS-DOS BoloBall de Soleau Software.

Le jeu a deux phases : dans la première phase, faites tomber des boules dans une grille garnie de bonus, de cases bloquantes, de pièges, de déviations. Plus une boule descend bas, plus elle rapportera de points. Quand une flèche de déviation est touchée, sa direction s'inverse pour l'éventuelle boule suivante. Quand une boule tombe dans un piège (un vortex), elle réapparaît aléatoirement dans un autre vortex. Le maximum de points est atteint quand une boule atteint le bas de la grille. Dans la seconde phase, les cases bloquantes sont effacées et les boules qui étaient bloquées poursuivent leur descente.

Composants utilisés :

< ... Voir la suite

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

Ceci est un logiciel de dactylographie que j'ai créé pour que je puisse faire de " Fast and the furious " non pas avec des voitures mais avec des claviers.

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.
Ce programme crée la liste de tous les nombres premiers de 1 à N.

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.

Permet l'évaluation d'expression algébrique sous forme numérique et le tracé de la représentation graphique associée.

Support des fonctions standard, trigonométriques, hyperboliques, logiques ainsi que certaines fonctions utiles.
Possibilité d'ajouter ses propres constantes et fonctions afin de rendre l'unité polyvalente.
Support des caractères spéciaux dans les noms des fonctions et constantes (notamment û, ý, ã, ò, ó, ö, ì, ÿ, etc) !

L'unité n'accepte aucune omission. Ainsi, toutes les opérations doivent figurer dans l'expression, notamment les signes de multiplication.
L'évaluation étant numérique, il convient de porter une attention toute particulière aux ensembles de définition des fonctions et aux ... Voir la suite

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.

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

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.

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.

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

Compilateur : Turbo Pascal.

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

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

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

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.