Codes sources Pascal337 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Compilateur : Turbo Pascal.

Voici un programme qui affiche une horloge assortie d'un kaléidoscope changeant toutes les 20 secondes.

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

Un programme permettant de créer des cartes en utilisant l'effet Plasma et les fractales de Mandelbrot.

Compilateur : Borland Pascal.

Il s'agit d'un utilitaire permettant de contrôler le volume du son de la carte Sound Blaster 16.

Compilateur : Turbo Pascal.

Voici un programme qui m'a été fort utile à l'époque de MS-DOS : XDEL - Supprime un ou plusieurs fichiers.

Utilisation :

XDEL [/Options] [Lecteur:][Chemin]Fichier[...] [/Options]

[Lecteur:][Chemin]Fichier Fichier(s) à supprimer
(caractères génériques si plusieurs)

Options :

/P Demande confirmation avant de supprimer un fichier
/R Recherche dans les sous-répertoires

/A=|+[attrs] Traite|Inclue les fichiers dotés des attributs spécifiés
(A)rchive, cac(H)é, lectu(R)e seule, (S)ystème

/DA[jj.mm.aa] Traite les fichiers dont la date est >= à jj.mm.aa
/DB[jj.mm.aa] Traite les fichiers dont la d ... Voir la suite

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme permet d'effectuer des opérations arthmétiques en bases 2 à 36.

Ref.: "Mathématiques en Turbo-Pascal" de M. Ducamp et A. Reverchon, Eyrolles, Paris, 1988.

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme teste si un nombre entier est premier ou pas.

Ref.: "Mathématiques par l'informatique individuelle" de H. Lehning et D. Jakubowicz, Masson, Paris, 1982.

Compilateur : Turbo Pascal for Windows.

Catégorie : nombres complexes.
Unité Complex2 : opérations élémentaires sur les nombres complexes.

Compilateur : Turbo Pascal for Windows.

Catégorie : nombres complexes.
Programme de démonstration de comptage de racines complexes.

Ref.: "BASIC Scientific Subroutines, Vol. II" de F.R. Ruckdeschel, BYTE/McGRAWW-HILL, 1981.

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.

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

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.

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