PureBasic

Bonjour à tous,

j'ai programmé une suite concernant les dates, alors je la partage avec vous.

Procedure.i CalculerDateFuture(DateOriginale.i, Compensation.d, Champ.i)
Protected Mois.i, Annee.i, Jour.i, Heure.i, Minute.i, Seconde.i
Protected NouvelleDate.i

; Extraire les composants de la date ...

Merci pour vos réponses, moi j'ai commencé par un modules.

DeclareModule CartesStandards
Declare.s NomCarte(position$)
Declare.s PositionCarte(nomCarte$)
Declare InitCartesStandards()
EndDeclareModule

Module CartesStandards

Global NewMap PositionCartes.s()
Global NewMap NomCartes.s ...

Bonjour à tous,

aujourd'hui, je n'ai pas de programme à vous proposer, mais un problème d'images JPEG que je veux transformer en sprites avec GrabSprite(), l'images est composée de 65 cases dont la plus grande partie est composée de 52 cartes à jouer plus 2 jokers et un dos de carte.

L'image à ...

Bonjour à tous,

j'ai fait une nouvelle version qui fonctionne très bien.

;Calendrier intelligent
XIncludeFile "D:\Programmation\Prg Perso\Include\Date2.pbi" ; Changez le chemin pour qu'il fonctionne{ Windows
Enumeration Fenetres
#Fenetre_principale
EndEnumeration
;}
;{ Gadgets
Enumeration ...

Bonjour à tous,

Je viens de terminer mon calendrier intelligent, alors je viens le partager avec vous, il y sûrement d'autres méthodes, je n'en doute pas !

;Calendrier intelligent
XIncludeFile "D:\Programmation\Prg Perso\Include\Date2.pbi" ; Changez le chemin pour qu'il fonctionne{ Windows ...

Bonjour à tous,

si j'ai réussi à vous faire plaisir, alors ma mission est réussie et j'en tire une grande joie, peut importe le temps que ça m'a pris, j'adore programmer avec PureBasic qui mérite d'être plus connu.

Bonjour à tous,

j'essaie de faire un calendrier intelligent, mais je voudrais que quand je ferme l'éditeur que le programme ne se ferme pas complètement.

Je viens donc solliciter votre aide bienveillante et je vous en remercie par anticipation.

;Calendrier intelligent
XIncludeFile "D ...

Bonjour à tous,

merci d'avoir essayé.

Bonjour à tous,

Avez-vous trouvé ce fichier utile ? Ou Des idées pour l’améliorer ?

Bonjour à tous,
j'avais envie d'ajouter des fonctions sur les dates à PureBasic, PB pour les intimes et je vous les offre.

;Date2.pbi
;Conçu et réailisé par micoute
;Le 15 juin 2025
;Avec PB 6.21 (x64)
;{ Structure
Structure sDiffTemps
TotalJours.q
JoursRestants.q
Annees.q
Mois.q
Heures.q ...

J'oublie toujours que tout le monde n'a pas une résolution de 2560x1080, veuillez m'en excuser.

Bonjour à tous,

aujourd'hui, je viens vous offrir un lanceur d'applications tout simple, il suffit de choisir des applications qui peuvent vous servir souvent, le programme les enregistre dans un fichier texte appelé apps.txt dans le même répertoire que le lanceur.

Quand vous relancez le lanceur ...

Merci infiniment falsam, c'est du très bon travail.

Merci beaucoup falsam.

J'ai fait comme ça pour faire passer le temps le temps que ça charge toutes les musiques, car chaque énigme a son ambiance musicale.


Procedure OuvrirEcran()
ExamineDesktops()
largeur = DesktopWidth(0)
hauteur = DesktopHeight(0)

If OpenScreen(largeur, hauteur, 32, "Le ...

Bonjour à tous,

j'ai fini par trouver la solution, j'ai créé un tableau où j'y ai logé les adresses où se trouvent mes musiques et ajouté une procédure jouer le morrceau demandé.

Procedure JouerMusique(EnigmeID)
If EnigmeID <= ArraySize(Musique())
StopSound(#PB_All)
PlaySound(Musique(EnigmeID ...