Codes sources Pascal329 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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

Unité permettant d'accéder à la mémoire LIM/EMS.

L'utilisation de EMSFreeMem ne doit se faire qu'avec des handles qui ont ete attribués par EMSGetMem. Si vous perdez ces handles, alors la mémoire allouée sera perdue jusqu'au redémarrage de l'ordinateur. Il est impossible de la récupérer. Ne le tentez sous aucun prétexte !
Ne tentez jamais d'utiliser EMSFreeMem avec des handles fictifs, sous peine de pertes mémoires et matérielles, notamment au niveau des disques durs !
L'utilisation de cette unité avec un environnement protégé n'a aucun sens et ne doit pas être tentée, pour eviter tout conflit avec l'interface DPMI.

Configuration minimale nécessaire :

• Processe ... Voir la suite

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

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

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

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

Dessin animé d'un pendule. Exemple d'utilisation de la bibliothèque Cairo.

Cute Albuma est une version améliorée de la manipulation des images faite avec les composants
du paquet 'Graphics 32'.
L'ajout d'un Timer et d'un trackBar permet de contrôler la vitesse de la diffusion automatique des images.
L'ajout d'un CheckBox permet à son tour de choisir entre le mode automatique et le mode manuel.

Les forms archivés sont des forms dont les noms sont stockés dans
un Mémo après l'ouverture de chacun d'eux.

Ainsi en utilisant un bouton UpDown on pourra afficher facilement
les forms dont les nom existent déjà dans ce mémo.

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

Pour mon application GPS qui tourne sur un Raspberry Pi 3B+ avec écran tactile, j'ai eu besoin d'un composant TDrawGrid dont le scrolling pouvait se faire à partir de l'écran tactile comme on le fait sur un smartphone. La barre de scrolling du composant original étant trop étroite pour y avoir un accès facile sur un écran tactile, j'en ai créé un : TChPDrawGrid. Il suffit de scroller avec un doigt sur la liste. Une seule propriété rajoutée: CT la constante de temps d'évanouissement du scrolling.

Testé sur mon Raspberry avec un écran tactile de 7 ".

Compilateur : Virtual Pascal.

Programme permettant de modifier les noms de chemins dans tous les raccourcis du profil local d'un utilisateur de Windows NT/2000/XP (raccourcis du bureau, groupe de programmes, menu démarrer, envoyer vers, documents récents, groupes de programmes de démarrage).

Le programme nécessite l'unité WinShell.

Le source du vainqueur du mini-concours Tic tac toe, un jeu de morpion contre l'ordinateur en mode console sous Win32 et Linux.

Compilateur : Turbo Pascal (plateforme MS-DOS).

Une série de sources d'utilitaires écrits par Jeoffrey Bocquet :

InfoMem 2.0 : informations sur l'occupation de la mémoire et tests
SpeakWav 1.0 : pour jouer un fichier wav sur le haut-parleur du PC
Diskinfos 1.5 : informations générales sur le disque dur et tests
Parquer 2.7 : pour parquer des disques durs
Boot 1.0 : pour booter à chaud, à froid ou sous Windows 3.x
Delp 1.0 : amélioration de la commande del
DelSof 1.0 : effacement de fichiers sauf ceux spécifiés
DelTree 2.0 : amélioration de la commande deltree
TreePlus 1.5 : amélioration de la commande tree
Unit CmdLine : unité d'analyse de paramètres passés en ligne de comma ... Voir la suite

Compilateur : Turbo Pascal.

Gestion d'images au format PCX et création d'images BGI à partir d'images PCX.

Compilateur : Turbo Pascal.

Un Star-breakout en mode graphique. Il faudra éventuellement modifier le chemin vers les fichiers BGI dans le source.

Compilateur : Turbo Pascal.



Programme permettant de savoir si une date est en heure d'hiver ou d'été.

Valable à partir de l'an 2000.

C'est un jeu mathématique qui est en fait une boucle Repeat Until qui génère des nombres aléatoires entre 1 et 10 et il vérifie si votre résultat donné est juste ou faux. S'il est faux, il vous laisse une seconde chance.

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

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