Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

Bonjour à tous,

Voici un petit programme sans prétention inspiré du jeu de puzzle.
En fait, il s'agit de retrouver les pièces manquantes dans une image.

Image : vos propres photos (dessins) au format jpeg ou png.
Nombre de pièces : de 54 à 150.

Ce programme requiert la bibliothèque BGRABitmap.
Testé sous Windows 7, 8 et Linux Mint.

Un fichier jpeg est joint (format 3:2) pour votre premier jeu. Consultez l'aide au préalable.

Merci d'avance pour vos commentaires.

Thierry

VALISOA 0.0.1

Développeur : Valisoa Jean Hervé
Type : Intelligence Artificielle
Début de programmation : 05/12/2018
Langage de programmation : Pascal
Compilateur : FreePascal 3.0.4
Version : 0.0.1
Licence : BSD

Voici la liste de ce que Valisoa peut faire :

1- Compter le nombre des mots, des caractères et des espaces dans la réponse d'utilisateur.
2- Conjuguer un verbe du premier groupe au mode indicatif en temps présent.
3- Construire aléatoirement une phrase simple : sujet + verbe conjugué.

Amélioration à rajouter

1- Détecter s'il y a un ou plusieurs mots non français dans la réponse d'utilisateur.
2- Détecter s'il y a un verbe dans la répo ... Voir la suite

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.

Le sujet du défi Pascal 2010 est de réaliser un système de chat.
Le choix de la technologie, des outils et même de la plateforme sont entièrement libres.

Système de Chat, en mode Serveur-Client
Développé sous Delphi 2005, à l'aide d'Indy 10. Composants principaux : TIdTCPClient et TIdTCPServer. TJvRichEdit utilisé pour l'affichage du texte formatté et des smileys.
Contient les sources

Fonctionnalités
- Echange de texte contenant des smileys
- Changement de statuts
- Personnalisation de la couleur du texte
- Liste d'amis avec possibilité d'ignorer des membres
- Possibilité d'envoyer des messages à partir du serveur

A venir :
- Mode multi salons, et conversati ... Voir la suite

Dessin animé d'un pendule. Exemple d'utilisation de la bibliothèque Cairo dans une application fenêtrée.

Version 2023, multiplateforme.

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.

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

Comment reconnaître et employer une énumération, une structure très utile pour rendre le code plus lisible et plus sécurisé.
L'exemple complet consiste en la création d'une calculatrice (image 1).
Dans le laboratoire, vous êtes invité(e) à réaliser une petite application dans laquelle un contrôle peut être déplacé à volonté à l'exécution, dans la fenêtre principale (image 2).

Compilateur : Delphi.

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

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

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

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.

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.

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

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

Compilateur : Turbo Pascal.

Ce programme réalise la compression par l'algorithme de Huffman dynamique. L'intérêt est donc qu'il n'y a qu'un seul parcours du fichier source et pas de dictionnaire transmis dans le fichier compressé.

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

Bonjour à tous.

Le tri alphabétique ne se fait pas correctement dans un TStringList lorsque des chaines contiennent des caractères accentués.
En attendant une implémentation dans une version ultérieure de Lazarus, voici de quoi vous dépanner.
Deux manières :
a) utiliser TLatinStringList (dans le zip) qui est dérivé de TStringList avec simplement un override de la fonction DoCompareText : remplacement, pour le tri, des caractères accentués par leur correspondant non accentué. L'avantage est que, pour une liste triée, l'ajout de nouvelles chaines va directement se faire au bon endroit. L'inconvénient est que les fonctions Find et IndexOf (qui utilisent DoCompareText) ne vont plus distinguer "élève" de "élevé". Ce qui ... Voir la suite

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 !