PureBasic

Bonjour MLD,

Même en C++ et Qt, les gadgets ne sont pas souvent adapté à nos envie et besoins, le langage qui pour moi possède le plus grand nombre de gadgets intéressants pour le développement d'application de gestion reste Windev, mais il comporte d'autres inconvénienst. Je reste convaincu que PureBasic avec son canvasGadget et maintenant OpenGLgadget offre de nombreuses possibilittés, évidement cela demande beaucoup de travaille de développé des gadgets personnalisés, mais cela peut'être payant. Et j’avouerais que Purebasic et presque aussi simple que windev au point de vue syntaxe et pourtant 20 fois moins cher, il offre de nombreuses autres possibilités au vue de ces performances. N'oublions pas que si je ne me trompe, PureBasic est développé en assembleur et cela fait une méchante différence.

Nouvelle version 2.2 beta 5
Ajout de colonne calculée

Oui c'est vrai sûrement 20 fois moins cher...mais tu oublies le cadeau de 2 samsung s5 ou une télé 149 cm

Je me suis dit....put....ils doivent en gagner du blé pour pouvoir offrir de tels cadeaux ??
Le budget de notre fred permettrait à peine de payer l'emballage d'un des deux s5

Pour ce qui est de pb, je crois qu'il est fait en c et peut être même c++
L'IDE est fait en PB...trop fort le serpent qui se mort la queue
Peut être me trompe je...Ça voudrait dire que comme quand j'étais jeune, je dormais près du radiateur, quand le prof parlait

Bonjour microdevweb et merci pour le partage.

Tu peux faire plus simple quand tu n'utilises qu'un module :

Code : Tout sélectionner

;-* Test
XIncludeFile "Table.pbi"

UseModule Table

Global Designation,PrixHTVA,TauxTva,Total

Procedure TesteSelectLine(NLine)
  Debug "Vous avez sélectionné la ligne ID "+Str(NLine)
EndProcedure

Procedure TesteEditLine(IdLine,IdColumn,Value$)
  Debug "Vous avez modifié la ligne "+Str(IdLine)+" Colonne  "+Str(IdColumn)+" Valeur : "+Value$
EndProcedure

Procedure$ CalculColumn(Array DataLine.s(1))
  Protected PHT.f,TVA.f,Tot$
  PHT=ValF(DataLine(PrixHTVA))
  TVA=ValF(DataLine(TauxTva))
  Tot$=StrF(PHT*TVA,2)
  ProcedureReturn Tot$
EndProcedure

Procedure OpenMainForm()
  Protected W=900,H=600,Flag,N,Txt$,R,NT
  Protected Tva$="1.06/1.17/1.21"
  Flag=#PB_Window_SystemMenu|#PB_Window_ScreenCentered
  OpenWindow(0,0,0,W,H,"Test Table",Flag)
  Create(0,50,50,800,400,"Table")
  Designation=AddColumn(0,200,"Désignation")
  PrixHTVA=AddColumn(0,200,"Prix Htva")
  TauxTva=AddColumn(0,200,"Taux TVA")
  Total=AddColumn(0,300,"Total")
  SetProcedureCallBackSelectLine(0,@TesteSelectLine())
  SetProcedureCallBackEditLine(0,@TesteEditLine())
  AddCalculColumn(0,Total,@CalculColumn())
  For N=1 To 1000 ;Ajoute 100 lignes pour le test
    ;La première ligne commence à 0
    Txt$=""
    For R=1 To Random(10,5)
      Txt$+Chr(Random(122,97))
    Next
    AddItem(0,Designation,-1,Txt$) ;-1 pour ajouter un ligne et la colonne 1
    Txt$=""
    Txt$=Str(Random(10000,10))
    AddItem(0,PrixHTVA,N-1,Txt$);autre pour ajouter sur la colonne 2  de la même ligne
    Txt$=""
    NT=Random(3,1)
    Txt$=StringField(Tva$,NT,"/")
    AddItem(0,TauxTva,N-1,Txt$);autre pour ajouter sur la colonne 3  de la même ligne
    AddItem(0,Total,N-1,"");autre pour ajouter sur la colonne 3  de la même ligne
  Next
  Draw(0)
EndProcedure
Global gEvent
OpenMainForm()
Repeat
  Delay(5)
  gEvent=WindowEvent()
  Event(0,gEvent)
Until gEvent=#PB_Event_CloseWindow
;} FIN Test

par contre, j'ai mis tous les Xinclude dans le module table, comme ça, l'utilisateur peut les omettre !

Bonjour Micoute,

Merci du conseil.

Imbécile que je suis, j'avais essayé les Xinclude dans table, mais dans le module même ce qui avait fortement faché Pb, bon sang mais c'est bien sur, il suffit de la placer avant DeclareModule

a+

bonjour,vous avez raison !

merci beaucoup !

--------------
coque samsung galaxy alpha
étui samsung galaxy alpha

PureBasic

Table / Mémoire et Data

Re: Table / Mémoire et Data

Re: Table / Mémoire et Data

Re: Table / Mémoire et Data

Re: Table / Mémoire et Data

Re: Table / Mémoire et Data

Re: Table / Mémoire et Data