Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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

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

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

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

MATER - Un programme simple de recherche de mat. Valentin Albillo, 1998.

MATER est un programme simple de recherche de mat, implémenté comme une commande MS-DOS. Etant donné 1° une position légale notée au format FEN, 2° la couleur qui a le trait et 3° un nombre de coups, le programme cherche un coup qui aboutit à un mat en un nombre de coups inférieur ou égal à la limite prescrite.

J'avais téléchargé il y a quelques mois le code source de ce programme, ainsi que la page de présentation au format HTM. Or je viens de constater que la page en question est devenue indisponible.
C'est pourquoi je me suis permis d'ajouter le code source et la page de présentation originale dans les sources de developpez.com.

Voir la suite

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

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

Compilateur : Turbo Pascal.

Il s'agit d'une unité regroupant diverses fonctions, dont certaines pour transformer une chaîne en entier et vice-versa et une pour inverser une chaîne.

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

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.

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

Version 2023, multiplateforme.

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.

Bonjour
Je vous propose une petite appli sous Windows en rapport avec Thunderbird.
Elle vous permet de déplacer, sauvegarder ou restaurer le profil et les dossiers locaux de Thunderbird.
L'appi utilise TZipper.

Petit code sans prétention que j'avais fait pour tester un Beep différent de celui du système! Donc faire un son plus sympha. Sous lazarus, on ne dispose pas directement de l'instruction Windows.Beep(440, 100) valable en Delphi et qui permettait de régler la fréquence et la durée...

Utilisation des formats Wav, MP3 et midi en fonction du type de son à produire ou extrait musical
Utilisation des instructions PlaySound, mciSendString

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

Un programme de gestion de bibliothèque en mode graphique : gestion des livres, suivi des prêts, fonctions de recherche.

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/

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

Quels sont les types de chaînes de caractères les plus courants et quelles procédures et fonctions permettent de les manipuler.
L'application d'exemple découpera une phrase en mots ; l'utilisateur aura le choix entre un découpage programmé à la main et un découpage assisté par les routines de l'unité StrUtils (image 1).
Dans le laboratoire, voici les applications à réaliser :

• supprimer les espaces en début ou en fin d’une chaîne (image 2) ;
• classer des chaînes (image 3) ;
• un scrutateur de chaînes de cara ... Voir la suite

Le but de ce jeu de dés est de répartir de la manière la plus efficiente possible, dans une grille de 13 * 3 cases, les résultats de 39 lancers de 5 dés. À chaque tour, vous disposez de trois lancers au maximum, et vous pouvez décider quels dés vous souhaitez conserver ou relancer. À la colonne 2, le total est doublé et à la colonne 3, triplé. Certains objectifs de la grille totalisent certains dés (par exemple, dans la section supérieure, à la ligne "Tous les 5" seuls les dés de valeur 5 sont additionnés), ou tous les dés (par exemple, le full et le carré) ; d'autres (comme le full, les suites, etc.) un forfait en cas de réussite. Le Yahtzee est une combinaison de 5 dés identiques qui rapporte un maximum de points ainsi que des bonus suppl ... Voir la suite

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

Initiation au graphisme.
L'application d'exemple est la réalisation de l'animation d'un attelage écossais, c'est-à-dire un mécanisme roratif doté d'un ergot qui permet de transformer un mouvement circulaire en mouvement rectiligne.
Dans le laboratoire, il s'agit d'apporter des améliorations à cette application.