Codes sources Pascal339 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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.

Version DOS du logiciel Raytrace 1.0 écrit pour Windows en Delphi par Cyrille Favreau.

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

Il s'agit d'un code de calcul topométrique pour la spéléologie. L'intérêt pour le programmeur consiste en l'implémentation d'une base de données en mémoire.

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.
Résolution d'équation diophantienne ax+by = c (a,b,c,x,y étant des nombres entiers).

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

L'équation ax + by = c, où les coefficients a, b, et c, sont trois entiers relatifs et où les inconnues x et y sont entiers relatifs, est une des équations diophantiennes les plus simples à résoudre. Sa résolution s'appuie sur l'algorithme d'Euclide, le théorème de Bachet-Bézout et le théorème de Gauss. Dans l'ensemble des entiers relatifs, une telle équation possède, ou bien aucune solution, ou bien une infinité de solutions. Lorsque les coefficients et ... Voir la suite

Prototype d'un jeu du serpent pour Lazarus. Utilise les bibliothèques BGRABitmap et BASS.

Le serpent se dirige avec les flèches du clavier. On appuie sur Échap pour fermer l'application.

Le jeu est inachevé ! Les points ne sont pas comptés. Le serpent peut passer sur lui-même...

Introduction à la bibliothèque Cairo.

Dessiner un cœur avec 4 courbes de Bézier.

https://www.dil.univ-mrs.fr/~regis/CM-CAIRO/

Permet la recherche d'un chemin sur une grille pouvant contenir différents obstacles, plus ou moins franchissables.
Exploite un des algorithmes les plus puissants dans ce domaine : l'algorithme A* ("A star").
Compatible Dos et Windows.

Très puissant, le A* a néanmoins ses faiblesses : il consomme une quantite non négligeable de mémoire, et le calcul d'un itinéraire peut prendre du temps sur les cartes vastes.
L'unité n'a ete adaptée que pour fonctionner sur une carte découpée en cases carrées ; elle peut toutefois être modifiée pour l'étude de cases hexagonales.

Configuration minimale nécessaire :

• Processeur 8086/8088 ou supérieur
  Turbo Pascal 7.0+ ou Borland Pascal 7.0+
  Package objet d ... Voir la suite

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

Ce programme convertit les bases 2, 3, 4, 5, 6, 7, 8, 9, 10 et l'hexadécimal.

Exemples : base 3 > base 7 - base 5 > hexadécimal - hexadécimal > base 2, etc.

Compilateur : Virtual Pascal.

Le code source suivant utilise la fonction SHFileOperation de la bibliothèque Shell32.dll. La fonction n'étant pas déclarée par défaut dans l'unité Windows de Virtual Pascal, il faut la déclarer comme external, avec la convention d'appel StdCall.

Dans la structure de type LPSHFILEOPSTRUCT utilisée, il faut utiliser l'option FO_DELETE comme paramètre wFunc et FOF_ALLOWUNDO comme flag.

Bonjour tout le monde.
En tant que joueur d'échecs (1654 ELO FIDE en Avril 2017) et amateur en programmation, j'ai eu l'idée de créer mon propre jeu d'échecs. Avant de me lancer, j'ai fait des recherches sur Internet et j'ai trouvé beaucoup d'exemples mais soit ils sont trop compliqués pour être compris soit leurs codes sont trop longs (> 2 000 lignes). Alors j'ai voulu avoir un exemple très simple juste pour débuter; un exemple qui montre juste comment déplacer les pièces et comment générer un coup sans se soucier du gain ou des tactiques gagnantes et cela avec le minimum de code possible.
Je me suis décidé alors à créer moi-même ce que je cherchais : VALISOACHESS est alors né.

Développeur : Valisoa Jean Hervé
Déb ... Voir la suite

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

Crée l'effet d'une lentille (zoom). Contrôlé à la souris.

Un superbe effet de tunnel (la texture est crée automatiquement : c'est un effet de plasma).

Un effet de tunnel avec texture.

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.

Essai d'une fonction permettant de déterminer si une application Windows donnée est un programme d'échecs supportant le protocole UCI et, le cas échéant, de connaître le nom du moteur et celui de son auteur.

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.