Codes sources Pascal346 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Un jeu du Snake banal avec la SDL et compilé avec Lazarus sous Win XP.

Points Positifs :

• Gestion des événements, du son et de la SDL (pointeurs...) et algorithme du Snake;
• Programme structuré (je m'étais lancé dans la POO au début mais sans succès);
• Graphique pas mal :) fait sous Paint ^^ (c'est pas évident du 16x16 pixels sous Paint);
• La SDL est portable donc, logiquement, le code est portable.

Points à finir :

• Quand vous perdez, obligation de quitter pour relancer le jeu;
• Pas de gestion du score;
• Pas de gestion d'erreurs (s'il y a un problème, le programme se plante en utilisant les messages classiques de Windows);
• Pas de gestion du temps (au début, ... Voir la suite

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme convertit un nombre d'une base A vers une base B, A et B étant compris entre 2 et 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 permet de calculer le plus grand commun diviseur (PGCD) et le plus petit commun multiple (PPCM) de plusieurs nombres entiers.

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

Code source extrait du livre J'apprends à programmer en Pascal Objet avec l'environnement de développement Lazarus.

Qu’est-ce qu'un caractère et quelles sont les fonctions les plus courantes permettant de les manipuler.
L'application d'exemple est un petit utilitaire affichant, par blocs de 256, tous les caractères Unicode au format UTF-16, avec la possibilité de copier l'un d'entre eux dans le presse-papier (image 1).
Dans le laboratoire, vous êtes invité(e) à créer trois routines outils pour l'analyse des caractères (image 2) :

• une fonction qui détermine si le caractère fourni en entrée est un chiffre ;
• une fonction qui détermine s ... Voir la suite

Cette petite application permet de chronométrer le temps d'infusion de votre thé. Il est possible de chronométrer jusqu'à 5 thés simultanément. Selon le thé choisi, l'application enverra un signal sonore et visuel dès que le temps minimal d'infusion puis le temps maximal seront atteints.

Les composants suivant ont été utilisés :

• un jToneGenerator, permettant de produire deux sortes de bips ;
• 5 jTimer, produisant un tic d'horloge chaque seconde ;
• 5 jPanel identiques, contenant respectivement :
• un jSwitchButton, permettant d'activer le chronomètre associé ;
• un jTextView, affichant le chronomètre ;
• un jToggleButton, permettant de déma ... Voir la suite

Écrit en Lazarus 3.6. Ne devrait pas poser de problème pour l'adapter en Free Pascal ou Delphi.

C'est un compteur digital, avec ses fonctions classiques permettant d'interrompre le comptage précis à tout moment, de le reprendre ou de le réinitialiser.

Fonction qui convertit un nombre entier (de un à 4 294 967 295) en mots français.

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

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

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

Compilateur : Turbo Pascal.

Ce programme permet de créer des tableaux de 64 LEDS (8 lignes x 8 colonnes) pour faires des petites animations qui seront affichées sur le PC à l'aide du programme MYSLIDE (et pourquoi pas à l'aide 2 microcontroleurs PIC (1 en X et 1 en Y) et de 64 LEDs bicolores).

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.

Compilateur : Borland Pascal.

Carnet d'adresses et répertoire téléphonique. Le programme peut servir de serveur DDE pour une autre application (un modèle de document WinWord 6 accompagne d'ailleurs le source).

Sujets intéressants : Dialogues Windows standard de choix de police de caractères et de choix de couleurs, impression de listings et d'étiquettes.

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.

==== VALISOA MORPION 1.0 ====

L'objectif du jeu est d'aligner trois pions de même couleur sur la ligne horizontale ou verticale ou diagonale. Le premier joueur à avoir aligné
ses trois pions est le vainqueur.

Type : jeu de morpion
Développeur : Valisoa Jean Hervé
Version : 1.0
Date de sortie : 15/01/2018
Langage de programmation : Pascal
Compilateur : FreePascal 3.0.4
OS : Windows
Profondeur de calcul : 7 demi-coups
Algorithme utilisé : MinMax

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

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'un parser permettant d'analyser des expressions mathématiques telles que :
A=10/4
B=25.478
F=A*X^2+B*X+C
25.75*2+1.784
2*pi*R...
Supporte également les fonctions atan, cos, exp, log, root, sin, tan.

Ref.: "Advanced Turbo C" de Herbert Schildt, Borland-Osborne/McGraw-Hill, Berkeley, USA, 1987.

Formatage de code source en Pascal. Outil en ligne de commande dérivé de DelForExp d'Egbert van Nes.

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