Codes sources Pascal341 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Compilateur : Borland Pascal.

Un programme de Triple Yahtzee (un jeu de dés) permettant d'illustrer l'interface MDI (une fenêtre enfant par joueur) et l'utilisation de ressources de différents types (icônes, bitmaps, tables de chaînes, dialogues, menus, tables d'accélérateurs).

Compilateur : Borland Pascal.

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

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.

Projet MSEide+MSEgui d'Alexander Artyomov.

Très simple application qui permet de noter des anniversaires dans une grille, en face du jour de l'année. Les données sont enregistrées automatiquement quand on ferme l'application.

Exemple intéressant d'utilisation de la classe TStringGrid de MSEgui.

Malgré qu'il ne puisse concourir, darrylsite a réalisé un système de chat à l'occasion du défi Pascal 2010.
Le choix de la technologie, des outils et de la plateforme étaient entièrement libres.

Le logiciel se nomme Palabre.

Pour compiler pour Linux, il suffit de changer gtk2 en gtk dans l'option du compilateur.

Le protocole de communication est basé sur un protocole RPC-JSON qui permet d'envoyer des objets sérialisés (en JSON) sur le réseau.

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

Compilateur : Turbo Pascal for Windows.

Catégorie : problèmes arithmétiques.
Ce programme factorise un nombre entier.

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

Clone de Tetris basé sur la bibliothèque SDL2.

Ski Jump International est un jeu de saut à ski, initialement développé pour le système d'exploitation DOS, puis porté vers Linux et Windows au moyen de la bibliothèque SDL2.

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.

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

Compilation de plasmas (au nombre de 6), très colorés et très rapides.

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

Un effet de tunnel avec texture.

Exemple d'utilisation de la bibliothèque BGRABitmap. Animation représentant le mouvement d'un corps sur une trajectoire elliptique.

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.

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