PureBasic Forums - English

Code sent to first post

I used to be able to launch Purebasic by clicking on a button, but since version 6.03 this no longer works. What should I do to get it working again? ;Mes Applis Btn RBUTTON ;{ Fichiers inclus XIncludeFile "D:\Programmation\Prg Perso\B\Boutons\RButton\RButton.pb" XIncludeFile #PB_Compiler_...

it works very well with DirectX 9

Enumeration #uxTheme #MainForm #Panel #Wrapper1 #Wrapper2 #Option #Check #AnotherCheck #Combo EndEnumeration Global WindowColor.i, TabPanelBackGroundColor, TabPanelColor.i WindowColor=RGB(215, 251, 190) TabPanelBackGroundColor = CreateSolidBrush_($B2FCFD) TabPanelColor = RGB(0, 0, 0) Procedure Wind...

EnableExplicit Enumeration #Fenetre_principale #Canvas #Btn_Quitter EndEnumeration Global Btn_SourisPresse, DecalageX, DecalageY, Quitter OpenWindow(#Fenetre_principale, 100, 100, 300, 90, "", #PB_Window_BorderLess | #PB_Window_ScreenCentered) CanvasGadget(#Canvas, 0, 0, 300, 90, #PB_Canv...

Is it planned to put in French?

Thank you for sharing.

Merci pour le partage

Enumeration Windows #Window EndEnumeration Enumeration Gadgets #ImageGadget #TextStatus #TextViewer EndEnumeration Enumeration Images #Image EndEnumeration Debug #ImageGadget Debug #Window Debug #Image Debug #TextStatus Debug #TextViewer __________________________________________________ Code tags ...

Fred, je te souhaite un merveilleux anniversaire célébré dans l'allégresse, entouré de tous ceux qui te sont chers.

Good morning, The code is written in French, but I think you'll understand the basics. Macro Bissextile(Annee) Bool(((Not Year(Annee)%4)And Year(Annee)%100)Or(Not Year(Annee)%400)) EndMacro Procedure.b JoursDansMois(Annee=-1,Mois=-1) ;Retourne le nombre de jours dans le mois donné (28..31) ;Si l'ann...

Thank you for sharing

Structure testlist name.i flag.i EndStructure NewList test.testlist() NewList tmp.testlist() AddElement(tmp()):AddElement(test()):tmp()\name=21 AddElement(tmp()):AddElement(test()):tmp()\name=42 AddElement(tmp()):AddElement(test()):tmp()\name=69 AddElement(tmp()):AddElement(test()):tmp()\name=99 Fo...

Define *brazil.Country_ = AddMapElement(Country(),"BR")

Do you have the project to put it in French?