Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

X-Parameters est une application inspirée de la discussion :
https://www.developpez.net/forums/d1756313/environnements-developpement/delphi/bases-donnees/debutant-aide-creation-table/

Elle a pour objet l'inscription de prix de vente d'un produit alimentaire selon plusieurs paramètres :

-L'année
-Le mois
-La zone (dépôt)

Les graphes permettent la visualisation des résultats par Zones, par mois et par années
mais aussi la sauvegarde des images sous forme BMP destinées à l'impression.

Outils:

Lazarus 1.8 RC5
Firebird 2.5.7
Flamerobin

Merci pour votre Intérêt.

Programme calculant la date du dimanche de Pâques pour une année quelconque du calendrier grégorien.

Compilateur : Borland Pascal.

Le squelette d'un petit compilateur Pascal.

Unité permettant la gestion des matrices de taille quelconque, afin d'effectuer du calcul numérique réel.

Calcul matriciel standard supporte : addition, multiplication, calcul de la transposée, de l'inverse, du rang, du déterminant.
Ajout de calcul matriciel optimisé 3D sur matrices 4x4 : addition, multiplication, transposée, transformation d'un point, création des matrices de zoom, translation et rotation.

Attention : les lignes et colonnes des matrices sont indexées à partir de 1, et on indique toujours en premier l'index de la ligne. Ainsi, si M est une matrice, alors M.GetCell(3, 2) renverra la valeur placée ligne 3, colonne 2.

L'objet TMatrix est peu adapté aux calculs 3D. On lui préfèrera l ... Voir la suite

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

Soyez capable d’identifier et d’utiliser des enregistrements étendus, une forme plus moderne des enregistrements simples. Les enregistrements sont éléments très utiles dès qu’il s’agit de rassembler des données de types différents dans une même structure.
L'exemple d'application permet de créer des nombres complexes et de leur appliquer des opérations mathématiques.

Compilateur : Delphi.

Le code source complet d'un jeu librement inspiré du Tetris.
(règlement)

TSlideBar est un composant semblable à TTrackBar, mais au look entièrement personnalisable et indépendant de l'OS.
Dérivé de TGraphicControl, il est donc transparent.
5 styles prédéfinis pour une utilisation rapide + style bsOwnerDraw (dessin dans événement OnPaint).
Soyez créatifs, modifiez ou créez de nouveaux styles. C'est très simple à faire, et je suis à votre disposition pour toute explication.
Le zip comprend une démo (rien à installer).
Testé sous Win7, Win8, Linux mint.

Simple application pour faciliter l'usage de youtube-dl, l'outil de téléchargement de vidéos YouTube.

TGIFViewer 👀
TGIFViewer composant visuel pour l'affichage d'animations au format GIF (Graphic Interchange Format) avec Free Pascal et Lazarus

Compatibilité : Windows, Linux et MacOS

Capacités de TGIFViewer :

• Chargement depuis un stream, un fichier ou une ressource (fonctions LoadFromStream, LoadFromFile, LoadFromResource)
• Extraction des images brutes (**fonction DisplayRawFrame)
• Extraction des images pré-calculées de l'animation (fonction DisplayFrame )
• Affichage avec ou sans transparence (Transparent)
• Gestion silencieuse de certaines données mal encodées pour permette l'affichage des images sans perturber l'utilisateu ... Voir la suite

File Encoding Expert est une application réalisée avec Lazarus, qui utilise trois façons différentes de détecter l'encodage d'un fichier, permettant ainsi de comparer les résultats obtenus, qui ne sont pas toujours concordants !

L'application est bâtie, d'une part, sur la fonction GuessEncoding() de l'unité LConvEncoding de Lazarus ; d'autre part sur une fonction équivalente de Delphi (XE2), préalablement exportée dans une bibliothèque dynamique, pour pouvoir être utilisée dans un programme Lazarus ; enfin sur la bibliothèque Charset Detector :

http://chsdet.sourceforge.net/

Puissance 4 de Fabien Torre.

Version Lazarus par Roland Chastain.

Compilé avec Lazarus 1.6.2.

L'intérêt de ce programme réside, d'une part, dans l'utilisation du composant TStringGrid, qu'on a détourné de sa finalité initiale, pour en faire une grille de "Puissance 4". La propriété DefaultDrawing a été réglée à FALSE, de sorte que le dessin des cellules est intégralement effectué par la méthode Redessiner. Par ce moyen on se débarrasse du carré en pointillés qui d'ordinaire marque la cellule sélectionnée. En contrepartie, il faut dessiner même les cases vides.

Mais l'intérêt du programme réside surtout dans la partie "intelligence artificielle", et dans la mise en œuvre de l'algorithme "MinMax". < ... Voir la suite

Bonjour,
Je vous présente mon jeu de serpent développé en Pascal sous dev-pascal en utilisant l'unité graph.
Le code n'est pas optimisé.
Le but était de montrer à des élèves débutants en programmation comment créer un jeu en Pascal en travaillant un peu avec les graphiques (dessin de cercles, de rectangles...).
Je peux écrire un article explicatif si c'est demandé.
Merci pour vos remarques.

La gestion des sessions windows, en particulier sous Win10, ne me convenait pas.
J'ai développé une micro application me permettant de fermer windows ou de le rebooter, de clôturer une session, de la verrouiller, de lancer le mode veille le tout à partir du systray.

Le zip contient toutes les sources nécessaires pour être recompilées par vos soins ou être incorporées selon vos besoins.

Il s'agit d'un jeu de Triple Yahtzee à plusieurs joueurs sur un même poste.

Le projet n'utilise que des composants ultra-classiques, à l'exception du composant Iphtml dont le paquetage Turbopower_Ipro est fourni avec le code source. Il a été réécrit en "tout objet" en mettant en application les notions détaillées dans les excellents tutoriels de Gilles Vasseur sur la POO (dont vous trouvez les liens ci-dessous).

Bon amusement !

Le sujet du défi 2009 était de réaliser un résolveur de grilles de Sudoku pouvant être compilé au minimum pour Windows et Linux. Il s'agit du projet du vainqueur.

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

Comment définir et utiliser les différents types d’entiers, une des formes que prennent les types ordinaux.
L'exemple principal est une application calculant des carrés magiques (image 1).
Dans le laboratoire, vous êtes invité(e) à réaliser les applications suivantes :

• table de multiplication (image 2) ;
• somme des N premiers entiers (image 3) ;
• factorielle d'un nombre entier (image 4).

Recherche et suppression de doublons sous Windows.

Par doublons on entend des fichiers identiques, même avec des noms différents (mais avec la même extension toutefois).

Le programme DEMO1.PAS recherche des doublons dans un dossier donné pour un fichier donné.
Le programme DEMO2.PAS recherche des doublons dans un dossier donné pour un ensemble de fichiers.
Le programme DEMO3.PAS recherche des doublons pour un ensemble de fichiers et les envoie à la corbeille.
Le programme DEMO4\DEMO.LPR est une application fenêtrée qui permet de rechercher les doublons pour un ensemble de fichiers avec en option la possibilité de les envoyer aussitôt à la corbeille.
Le programme DEMO5\DEMO.LPR fait la même chose que ... 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...

Le projet GVLOGO est né en 2014. Il s'agissait d'implémenter le langage LOGO sur un PC (avec Windows ou Linux).

GVLOGO est un langage de programmation. Il descend de LOGO, lui-même apparu dans les années 60 à la suite de recherches menées par des universitaires du M.I.T. (U.S.A.) autour du mathématicien Seymour Papert.

Peut-être avez-vous utilisé ce langage au cours de votre scolarité en pilotant sur l'écran de l'ordinateur un triangle (baptisé « tortue ») grâce à une série de commandes telles que : AVANCE, RECULE, GAUCHE, DROITE… Comme cette tortue pouvait laisser une trace de son passage, vous obteniez des dessins en programmant ses déplacements. Plus tard, peut-être avez-vous aussi manipulé les listes ... Voir la suite

Programme générant l'image d'une spirale de Théodore avec la bibliothèque BGRABitmap.