Codes sources Pascal337 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Compilateur : MIDlet Pascal

J'ai developpé avec MIDlet Pascal le jeu des Tours de Hanoï, une première version avec 4 disques totalement jouable sur téléphones portables.

Pour ceux qui veulent tester le jeu directement sur leur téléphone, vous pouvez télécharger directement les fichiers JAD et JAR.

Voila un jeu tout simple réalisé avec la SDL, un jeu de labyrinthe où Donkey Kong doit aller manger les bananes (j'ai volé l'idée sur un TP du sdz).
C'est un code commenté (150 lignes de commentaires sur 200 lignes de code), afin de proposer une initiation à la SDL sur un exemple concret.
Les images sont dans le zip, le code est compilé avec Free-Pascal.
Pour le faire marcher, assurez-vous de posséder les librairies de la SDL (les .dll sous Windows et les .so sous Linux).
Bonne lecture et faites moi part de vos avis.

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

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

Cette unité déclare des objets génériques pour la gestion des sprites et des animations en utilisant les fonctionnalites de l'unite Vbe2.

Un mode graphique doit être initialisé avant d'utiliser les objets présents dans cette unité.
Nécessite les unités suivantes :

• Vbe2
• Vbe2Ext
• Xms
• Timer
Voir la suite

Cette unité offre une interface souris à l'unité Vbe2 :

• Support des curseurs Windows 2, 16, 256 et 16 millions de couleurs, statiques (format CUR ou ICO) ou bien animés (format ANI), sans aucun effet de scintillement ;
• Permet d'utiliser la souris pour se déplacer sur une page logique dont la surface est supérieure à celle de l'écran (mode Tracking).

Note : il est possible de changer le curseur par défaut. Pour ce faire, il faut utiliser l'utilitaire BINOBJ, comme ceci :

BINOBJ <NouveauCurseur> VBE2MOUS.OBJ DefaultCursor

Seul <NouveauCurseur> est à modifier en fonction du nom de fichier d ... Voir la suite

Programme pour l'exécution automatisée de l'outil TOUCH.EXE livré avec le compilateur Borland C++ 5.5.1.

Modifie la date de tous les fichiers du répertoire dans lequel le programme est exécuté ou, le cas échéant, de tous les fichiers du dossier passé en paramètre. La nouvelle date est la date courante.

Compilation : Free Pascal, Virtual Pascal.

Testé sous Windows 8.1.

Mise à jour du 20/07/2016.
Le programme a été entièrement réécrit. Il est désormais conçu pour être utilisé avec l'outil TOUCH.EXE livré avec le compilateur Embarcadero C++ 7.20.

Librarie dynamique qui utilise les expressions régulières pour vérifier le format d'une chaîne FEN (1). On peut aussi utiliser directement l'unité Functions (voir TestFunctions.dpr).

Compilation testée : Delphi 7, FreePascal 2.6.4.

L'unité utilisée pour les expressions régulières est disponible à l'adresse suivante :

http://regexpstudio.com/Downloads/regexpr.zip

Toutefois, en ce qui concerne FreePascal, je me suis aperçu après coup que le programme se compilait et fonctionnait aussi bien avec l'unité homonyme (RegExpr.pas) livrée avec le compilateur.

(1) Forsyth-Edwards Notation.

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.

Défi Pascal 2014 - SSFirework

Description

SSFirework est un économiseur d'écran créé par Epitouille dans le cadre du défi pascal 2015. L'économiseur reproduit l'effet de feux d'artifices (firework) en utilisant un moteur de particules très léger.
Il utilise OpenGL et SDL pour le contexte et gère lui-même les évènements ce qui le rend autonome et multi-plateforme.
Le projet comporte 2 unités ainsi que le fichier source principal :

• UWindow.pas : unité permettant de gérer la fenêtre et ses interactions ;
• UFirework.pas : unité contenant la classe Firework et permettant de gérer un feu d'artifice ;
• main.pas : fichier source principal qui appelle la logique du jeu.

Con ... Voir la suite

Défi 2014 - Projet « Galaxie » par Joreveur - version 0.1

Objectif

Comme le sujet est libre, l'écran de veille que je compte réaliser aura comme vocation :

• d'être agréable à regarder ;
• à faire réfléchir avec des citations affichées.

Méthode

• animation simple d'objet rentrant en collision sur le thème Galaxie ;
• affichage d'une citation pouvant changer à chaque collision.

Exclusion

• il n'aura pas pour but de diminuer la consomation electrique ;

il n'aura pas pour but de réduire l'usure de l'écran (à l'époque des LCD qui sont les plus implantés ce
n'est pas essentiel).

Outils retenus ... Voir la suite

Renommage automatique de fichiers.

La bibliothèque Light LCL permet de produire sous Windows des exécutables sensiblement plus petits que ceux produits avec la bibliothèque standard de Lazarus.

Pour utiliser la bibliothèque Light LCL, il suffit d'indiquer le chemin de la bibliothèque dans les options de votre projet. Il est à noter toutefois que seule une petite partie des composants de la LCL est disponible.

La bibliothèque Light LCL est dérivée de la Light VCL d'Arnaud Bouchez, elle-même dérivée de la Light VCL de Paul Toth.

Bonjour

Je vous propose un petit casse-tête amusant datant des années 90, sous forme d'un jeu électronique et transcrit plusieurs fois sous forme d'un programme de jeu. Il s'agit d'éteindre des ampoules en respectant quelques règles.

Les sources sont complets, les dépendances se limitent aux composants standards de la LCL, l'exécutable inclus est un binaire pour Linux 64 bits (Debian). La migration vers une autre plate forme supportant Lazarus ne devrait pas poser de problème.

Je l'ai développé pour le loisir et aussi pour mettre à disposition un exemple d'implémentation d'un jeu simple.

Petit logiciel de redimensionnement d'images en masse développé sous Lazarus.

"Puissance 4" pour Windows.

L'interface graphique est une application Windows faisant directement appel à l'API. La bibliothèque Cairo est utilisée pour le dessin des pions.

L'adversaire artificiel, qui n'est pas très fort, mais joue décemment, utilise les expressions régulières pour une évaluation immédiate de la position après son coup.

Un seul mode de jeu est disponible : humain contre ordinateur. L'humain joue le premier.

Nettoyer dossier projet

Si vous voulez nettoyer le dossier d'un projet, vous pouvez supprimer les fichiers suivants:
.a, .bak, .compiled, .lps, .o, .or, .ppu, .rst

Le dossier lib peut être supprimé sans crainte puisqu'il contient des fichiers binaires compilés.
Le dossier backup peut être suuprimer si vous ne tenez pas à la sauvegarde.

Cette petite application offre la possibilité d'être intégrée dans l'IDE.

Dans le menu "outils" de lazarus allez dans "Configurer les outils externes" et "Ajouter".

Remplissez ainsi les champs de la fenêtre:

Champ Titre: Nettoyer dossier projet (ou autre)
Champ Nom du programme (sous windows): C:\lazarus\fpc\3.2.0\bin\x86_64 ... Voir la suite

Exemples montrant comment dessiner avec la bibliothèque Cairo dans une fenêtre ptcGraph.

Simple application permettant de visionner rapidement les fichiers texte contenus dans un dossier.