Codes sources Pascal337 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Compilateur : Turbo Pascal.

Jeu inspiré du célèbre démineur de Windows, sous MS-DOS en mode graphique, avec programmation d'un timer et détournement des interruptions.

La compilation nécessite l'unité TXT.

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.

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.

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

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.

Collections de petits projets MSEide+MSEgui que j'entreprends d'écrire dans le but de me familiariser moi-même avec cet EDI et avec cette bibliothèque.
Le premier projet est une simple visionneuse d'images, qui permet de visionner rapidement les images contenues dans un dossier.

APP28.PAS est une unité pour les applications développées sous Turbo Vision. Cette unité permet d'obtenir, en plus des modes habituels, un écran de 28 lignes.

Le programme iCyberi@ est une petite démo de logiciel de gestion de cyber-café.

Il s'occupe de la gestion des Photocopies , Telephonie et du Surf puis totalise automatiquement les montants consommés et payés puis imprime (HP ,EPSON ,etc...) pour permettre au gérant de voir les dépenses et les gains.

Edité sous Unix\Ubuntu 2.xx \gedit et compilé avec le paquet FPC (peut être aussi compilé avec Turbo 7 , Free Pascal, Lazarus, etc...)

Objectif :
============================
Utilisation de la table ASCII uniquement pour la construction graphique
(il est mis de côté les unites Graph, GLUT (OpenGL), etc...)

KEYS:
============================
-- Appuyer sur (ENTRER) pour Avanc ... 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

Collection de petits programmes utilisant l'unité WinGraph, testés avec Free Pascal 2.6.4.

Nombre de ces programmes ont été originellement écrits pour l'unité Graph de Turbo Pascal.

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.

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.

Écrit en Lazarus 3.6, testé sur Windows. 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.
1. Afficage Digital d'un compteur avec des images pour les digits.
2. Un comptage du temps de rafraichissement de l'affichage est précis et utilise l'horloge interne.
3. Les commandes start, Pause et Stop sont basées sur une gestion des interruptions du compteur : La solution choisie est Application.ProcessMessages dans la boucle de temporisation pour permettre à l'application de rester réactive.

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.