Table / Mémoire et Data

Programmation d'applications complexes
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Table / Mémoire et Data

Message par microdevweb »

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.
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Table / Mémoire et Data

Message par microdevweb »

Nouvelle version 2.2 beta 5
Ajout de colonne calculée
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Table / Mémoire et Data

Message par Kwai chang caine »

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 8O
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 :oops:
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: Table / Mémoire et Data

Message par Micoute »

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 !
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: Table / Mémoire et Data

Message par microdevweb »

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 :wink:
a+
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Linda13
Messages : 3
Inscription : mar. 13/janv./2015 7:25

Re: Table / Mémoire et Data

Message par Linda13 »

bonjour,vous avez raison ! :D
merci beaucoup !

--------------
coque samsung galaxy alpha
étui samsung galaxy alpha
Répondre