Codes sources Pascal333 ressources dans cette catégorie Sources Pascal, tous compilateurs et toutes plateformes.
Codes sources Pascal
Liste des 333 ressources de cette catégorie
|
|
|
Licence : Gratuit pour usage non commercial
- Publié le 16/02/2013
- Éditeur : Adobe
|
|
|
Un logiciel complet de topographie spéléologique réalisé avec Lazarus, l'environnement de développement multiplateforme de Free Pascal.
|
Logiciel -
Licence : Non renseignée
- Publié le 24/04/2021
- Taille 2185974
- Éditeur : Jean-Pierre Cassou
|
|
|
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
|
Code source -
Licence : Non renseignée
- Publié le 01/05/2024
- Auteur : Jlmat
|
|
|
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 !
|
Licence : GPL
- Publié le 18/09/2016
- Auteur : Alcatîz
|
|
|
Jeu d'échecs en Pascal d'Evgeniy Korniloff. Originellement écrit pour Turbo Pascal, adapté pour Free Pascal et l'unité ptcGraph.
|
Logiciel -
Licence : Non renseignée
- Publié le 19/05/2023
- Auteur : Roland Chastain
|
|
|
Compilateur : Borland Pascal.
Un moteur 3D façon Wolfenstein ou Doom.
|
Licence : Freeware
- Publié le 15/11/2010
- Taille 44,1 Ko
- Auteur : Paul TOTH
|
|
|
Compilateur : Borland Pascal.
Une unité permettant à un programme Windows 16 bits d'appeler des fonctions de l'API Windows 32 bits grâce à la technique du thunking générique.
Voir à ce sujet ce tutoriel sur le thunking générique.
|
Licence : Freeware
- Publié le 16/11/2010
- Taille 10,0 Ko
- Auteur : Alcatîz
|
|
|
Superbe effet avec de l'eau.
|
Licence : Freeware
- Publié le 28/02/2016
- Auteur : haypo
|
|
|
Un jeu du Snake banal avec la SDL et compilé avec Lazarus sous Win XP.
Points Positifs :
- Gestion des événements, du son et de la SDL (pointeurs...) et algorithme du Snake;
- Programme structuré (je m'étais lancé dans la POO au début mais sans succès);
- Graphique pas mal :) fait sous Paint ^^ (c'est pas évident du 16x16 pixels sous Paint);
- La SDL est portable donc, logiquement, le code est portable.
Points à finir :
- Quand vous perdez, obligation de quitter pour relancer le jeu;
- Pas de gestion du score;
- Pas de gestion d'erreurs (s'il y a un problème, le programme se plante en utilisant les messages classiques de Windows);
- Pas de gestion du temps (au début, ... Voir la suite
|
Licence : Non renseignée
- Publié le 19/12/2014
- Taille 3,1 Mo
- Auteur : EpiTouille
|
|
|
Compilateur : Turbo Pascal for Windows.
Catégorie : problèmes arithmétiques.
Ce programme convertit un nombre d'une base A vers une base B, A et B étant compris entre 2 et 36.
Ref.: "Mathématiques en Turbo-Pascal" de M. Ducamp et A. Reverchon, Eyrolles, Paris, 1988.
|
|
|
|
Variante russe du jeu de dames par Evgeniy Korniloff. Originellement écrit pour Turbo Pascal, adapté pour Free Pascal et l'unité ptcGraph.
|
Logiciel -
Licence : Non renseignée
- Publié le 19/05/2023
- Auteur : Roland Chastain
|
|
|
NumSums est un petit jeu de réflexion réalisé avec le framework LAMW.
Dans une grille (3 niveaux : 6x6, 7x7 ou 8x8), il faut trouver les nombres dont la somme donne les totaux des lignes et des colonnes. À l'aide du crayon, vous sélectionnez un nombre, tandis qu'avec la gomme vous l'effacez. Attention que vous ne pouvez faire qu'une seule erreur ! Pour basculer entre le mode "crayon" et le mode "gomme", il suffit de presser l'image dans la barre supérieure.
Pour vous aider dans votre réflexion, à l'aide du point d'interrogation, vous pouvez marquer un nombre comme étant potentiellement à garder ou potentiellement à effacer.
La grille en cours est automatiquement sauvegardée.
Composants utilisés ... Voir la suite
|
Code source -
Licence : Creative Commons
- Publié le 13/10/2024
- Auteur : Alcatîz
|
|
|
Compilateur : Turbo Pascal.
Unité regroupant diverses fonctions de gestion de fichiers.
|
Licence : Freeware
- Publié le 11/11/2010
- Taille 0,7 Ko
- Auteur : denokan
|
|
|
Un essai de créer un soi-disant tableau et d'y mettre des données sous BPW(TPW).
Les descriptions et notes sont placées dans le code source sous forme de commentaires.
|
Licence : Libre
- Publié le 10/02/2019
- Auteur : l_autodidacte
|
|
|
Unité permettant d'utiliser la bibliothèque SDL_bgi.
Compatible avec Delphi et avec Free Pascal.
|
Logiciel -
Licence : Non renseignée
- Publié le 31/01/2023
- Éditeur : Ioulianos Kakoulidis
|
|
|
Bonjour tout le monde.
En tant que joueur d'échecs (1654 ELO FIDE en Avril 2017) et amateur en programmation, j'ai eu l'idée de créer mon propre jeu d'échecs. Avant de me lancer, j'ai fait des recherches sur Internet et j'ai trouvé beaucoup d'exemples mais soit ils sont trop compliqués pour être compris soit leurs codes sont trop longs (> 2 000 lignes). Alors j'ai voulu avoir un exemple très simple juste pour débuter; un exemple qui montre juste comment déplacer les pièces et comment générer un coup sans se soucier du gain ou des tactiques gagnantes et cela avec le minimum de code possible.
Je me suis décidé alors à créer moi-même ce que je cherchais : VALISOACHESS est alors né.
Développeur : Valisoa Jean Hervé
Déb ... Voir la suite
|
Licence : BSD
- Publié le 26/02/2019
- Auteur : inspirateur
|
|
|
Compilateur : Virtual Pascal.
Le programme DirTot affiche de manière récursive le nom de tous les fichiers contenus dans un dossier ainsi que dans ses sous-dossiers.
Ce source est un exemple tiré du tutoriel sur la programmation Win32 avec OWL.
|
Logiciel -
Licence : Freeware
- Publié le 16/11/2010
- Taille 12,0 Ko
- Auteur : Alcatîz
|
|
|
Une unité bien pratique qui contient les fonctions
function StringToInt(s : string) : integer;
function IntToString(i : integer) : string;
procedure fenetre(X1 : integer; Y1 : integer; X2 : integer; Y2 : integer); (fenetre a double bordure)
procedure dec(i : integer; a : integer); decrementer
procedure centrer(s : string; y : integer); centre une chaine pour un y donné
procedure instcolorln(i :string;e : byte;b : byte); couleur sur une ligne e=nouvelle couleur et b = ancienne couleur
procedure instcolor(i :string;e : byte;b:byte); la même chose sans aller à la ligne
procedure pleinecran;
function on_click_button(x1,y1,x2,y2:integer):boolean; a faire marcher ^^
pr ... Voir la suite
|
Licence : Non renseignée
- Publié le 10/12/2010
- Taille 2 Ko
- Auteur : EpiTouille
|
|
|
Qui n’a jamais eu à parcourir un répertoire où s’accumulaient les fichiers sources divers en regrettant de ne pas avoir un aperçu de leur contenu et un minimum de renseignements sur leurs attributs ? PASInfos est un petit utilitaire entièrement autonome et portable qui permet justement, par simple glisser/déposer, d’afficher le contenu de fichiers sources issus de différents langages de programmation, ainsi que des informations sur ces fichiers.
S'il est particulièrement adapté aux paquets et projets Lazarus et Delphi, PASInfos accepte de nombreux formats pour l’affichage avec coloration syntaxique : fichiers Pascal, C, C++, Java, Javascript, Perl, HTML, XML, CSS, PHP, TeX, SQL, Python, Batch, Basic, INI, PO, texte brut e ... Voir la suite
|
Licence : GPL
- Publié le 12/04/2016
- Auteur : gvasseur58
|
|
|
Compilateur : Turbo Pascal for Windows.
Catégorie : problèmes arithmétiques.
Ce programme crée la liste de tous les nombres premiers de 1 à N.
|
|
|