Codes sources Pascal345 ressources dans cette catégorie

Sources Pascal, tous compilateurs et toutes plateformes.

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

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

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

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.

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

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

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.

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

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.

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.

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

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.

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

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

Compilateur : Delphi.

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

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

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/

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

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.

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