Mais faire un soft de gestion / stock / facturation / caisse etc n'est pas trop difficile.
https://www.economie.gouv.fr/cedef/logi ... -certifies (Loi de finance 2018)Mouais, et c'est des gars dans mon genre qui vont debugger 10000 lignes de code parce que tu comprends pas pourquoi après un clearitems() que ton gadget est vide...Micoute a écrit :Attention, je ne sais pas tout faire, mais ne sommes-nous pas sur un forum d'entraide à la programmation en PureBasic ?
il y a 4 pages tu pouvais encore...Dommage, j'aurais tellement voulu aider
Ce que je ferais :Omega a écrit :Je suppose que je dois faire chacune de ces fonctions sous forme de module?
Non..., pas le temps de me prendre la tête, c'est ton point de vue. juste que micoute ma doucement fait rigolé & que j'ai été light tout le topic... j'ai bien le droit de me lâcher un peu ?boby a écrit : PS : @G-Rom D'un point de vue purement personnel, je trouve ton dernier poste de très mauvais goût et pas mal hors sujet. Personne ne t'as mis un flingue sur la tempe en te disant "DEBUGGGG !!!"
(En espèrant ne pas créer de polémique...)
et comme tu dit, personne ne ma obligé à quoi que ce soit. Un module par fonction: merci pour l'info. Ce que j'applique à mes bases de données n'est pas un principe, c'est une obligation, il y a des cas où j'attribue plusieurs tables dans une seule base de données. J'espère que tu sais pourquoi toi qui a l'habitude de travailler sur les bases de données.Excactement. Un module par fonction.
C'est le principe que tu appliques à tes bases de données : Une base par table !!!
Méconnaissance en module : oui (et ça s'explique) mais méconnaissance en bases de données : NON car j'ai utilisé ma 1ère base de données il y a plus de 35 ans, en plus 99% de mes logiciels utilisent des bases de données (environ une centaine de logiciels depuis Hp250, en passant par access etc... jusqu'à aujourdhui Sqlite!) Non désolé Falsam mais tu te trompes énormément là dessus. Ce n'est pas parce que je suis débutant en Pb que tu crois ce que tu crois...Non mais sérieux : C'est du n'importe quoi cette discussion qui démontre ta méconnaissance des bases de données et des modules voir même ta méconnaissance en gestion de projet de développement informatique.
de quoi s'agit il exactement? Quel genre de choses?Quand on travaille pour des clients on ne peut pas se permettre ce genre de chose.
Ce n'est pas du tout élégant, on dirait que tu n'as jamais fait des erreurs en programmation? si c'est le cas, alors tu es Unique au monde...ouais, et c'est des gars dans mon genre qui vont debugger 10000 lignes de code parce que tu comprends pas pourquoi après un clearitems() que ton gadget est vide...
Pourtant, j'ai développé plusieurs logiciels de comptabilité que des sociétés utilisent officiellement depuis des années et à ce jour. Vu l'ancienneté des programmes, ils ont été développés à l'époque en visual basic et ils sont opérationnels.Ciel est un logiciel de compta, faire un logiciel similaire demanderais de forte connaissance en la matière et doit être approuvé par l'état.
Merci beaucoup Boby, je vais essayer d'appliquerCe que je ferais :
Un fichier Main qui contiens tes includes et ta boucle principla (qui grosso modo devrait être "Repeat : WaitWindowEvent : ForEver".
Un Module "Declare" qui contiendra tes déclaremodule
Un Module "Window" dans lequel tu code l'affichage de ta fenêtre et tu bind tes events
Un Module par "onglet" qui contiens les procédure lié aux events des gadget de son onglet respectif
Un Module Fonction qui regroupe les diversse fonctions pouvant être appelé dans tes onglets
Un Module Database qui lui s'occupe assez logiquement des fonctions ayant accès à ta DB.
Tu ne devrais pas avoir plus de 1000 lignes par include et même si c'est le cas, quelques commentaires et tu devrais t'y retrouver facilement dans ce que tu fais.
Bon courage.
Merci G-Rom, j'apprécie et je te remercie beaucoup pour ton aidePour en revenir à l'auteur du topic, je te tire quand même mon chapeau, tu devrais pouvoir t'en sortir facilement avec tout ce que l'on t'a écrit. car écrire et maintenir un programme comme le tiens, c'est un savoir faire , pas le bon, mais tout de même.Si tu as des questions , n'hésite pas.
Le bug n'est pas encore résolu, au contraire, je travaille dessus tous les jours et le problème persiste bizarrement....Si ton bug est résolu, mets un "Ok" dans le titre. Et puis t'es au courant qu'il y a du monde pour aider. C'est ça qui est incroyable mais vrai.
1) Je vais te préparer le code plus simplifié (sans image)Ah... Ce n'est pas résolu?
1) poste ton code sur le forum (sans image, sans rien, je n'accède à rien d'autre que les codes source ici)
2) dis clairement ce que tu veux
3) éventuellement, décris ce que tu obtiens d'indésirable
Non, ce jouet n'a rien à voir avec le mien. Je te conseille de lire tous les posts depuis le début pour comprendre mieux mon problème.Pour te faire patienter (et te montrer que c'est robuste), tu peux aller tenter de casser ce jouet-là.. C'est un ComboBox un peu plus éditable que la normale...
Code : Tout sélectionner
;**********************************************************
Case #PB_EventType_Change
If gState <> -1
\Item = gState
EndIfCode : Tout sélectionner
;*************************************************************************************************************************************************************************************************
; (An idea from Fig)
#ComboKeyEnter = 'GK13'
Structure COMBO
Window.I
Gadget.I
Item.I
kMenu.I
kMenuItem.I
ReturnKey.I
EndStructure
Declare ComboReturnKey()
Declare ComboCallBack()
Procedure ComboCreate(Window, Gadget, kMenuItemDefault = 64000)
Define *A.COMBO = AllocateMemory(SizeOf(COMBO) )
With *A
\Window = Window
\Gadget = Gadget
\kMenuItem = kMenuItemDefault
BindEvent(#PB_Event_Gadget, @ComboCallBack(), \Window, \Gadget)
\kMenu = CreateMenu(#PB_Any, WindowID(\Window) )
BindMenuEvent(\kMenu, \kMenuItem, @ComboReturnKey() )
EndWith
ProcedureReturn *A
EndProcedure
Procedure ComboDelete(Gadget)
Define *A.COMBO = GetGadgetData(Gadget)
With *A
UnbindEvent(#PB_Event_Gadget, @ComboCallBack(), \Window, Gadget)
UnbindMenuEvent(\kMenu, \kMenuItem, @ComboReturnKey() )
FreeMemory(*A)
EndWith
EndProcedure
Procedure ComboReturnKey()
PostEvent(#PB_Event_Gadget, GetActiveWindow(), GetActiveGadget(), #PB_EventType_FirstCustomValue, 'GK13')
EndProcedure
Procedure ComboCallBack()
Define Gadget = EventGadget()
Define *A.COMBO = GetGadgetData(Gadget)
Define gState = GetGadgetState(Gadget)
If *A
With *A
Select EventType()
Case #PB_EventType_Focus
AddKeyboardShortcut(\Window, #PB_Shortcut_Return, \kMenuItem)
Case #PB_EventType_LostFocus
RemoveKeyboardShortcut(\Window, #PB_Shortcut_Return)
SetGadgetText(Gadget, GetGadgetItemText(Gadget, \Item) )
Case #PB_EventType_Change
If gState <> -1
\Item = gState
EndIf
Case #PB_EventType_FirstCustomValue
If EventData() = 'GK13'
SetGadgetItemText(Gadget, \Item, GetGadgetText(Gadget) )
EndIf
EndSelect
EndWith
EndIf
EndProcedure
Procedure ComboGadget(Id, x, y, w, h, kMenuItemDefault = 64000)
Define Result
Define Gadget
Result = ComboBoxGadget(Id, x, y, w, h, #PB_ComboBox_Editable)
If Id = #PB_Any
Gadget = Result
Else
Gadget = Id
EndIf
SetGadgetData(Gadget, ComboCreate(GetActiveWindow(), Gadget, kMenuItemDefault) )
ProcedureReturn Result
EndProcedure
Procedure ComboItem(Gadget, Item)
Define *A.COMBO = GetGadgetData(Gadget)
If *A
With *A
SetGadgetState(Gadget, Item)
\Item = Item
EndWith
EndIf
EndProcedure
; Example
If OpenWindow(10, 0, 0, 270, 180, "Combo", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ComboGadget(20, 10, 10, 250, 100)
AddGadgetItem(20, -1, "Option A")
AddGadgetItem(20, -1, "Option B")
AddGadgetItem(20, -1, "Option C")
ComboItem(20, 1)
ComboGadget(21, 10, 42, 250, 101)
AddGadgetItem(21, -1, "Week 1")
AddGadgetItem(21, -1, "Week 2")
AddGadgetItem(21, -1, "Week 3")
ComboItem(21, 2)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf