Discussion :

[diden138]

Salut, je suis programmeur en pascal et j'ai rencontré un probleme concernant un logiciel de facturation (c un tp). Bref, j'ai réalisé le graphisme ainsi qu'une partie du programme. Maintenant, je rencontre un petit problème : je ne sais absolument pas comment créer des boutons ni comment les faires réagir au clic de la souris : par exemple, si je clique sur ce bouton, cela déclenchera cette procedure.
Si vous pouvez m'aider, merci d'avance et encore bravo pour votre site.

[Eric Sigoillot]

On ne connaît pas l'environnement...
On ne connaît pas le compilateur...
10 contre 1 que ce n'est pas un problème de Pascal mais un problème Win32 ou GTK...

Pour finir, ton problème n'est pas un problème de logiciel de facturation mais d'ajout d'un bouton. Le titre a été modifié en conséquence.

@++

PS: Attention, langage SMS non toléré. Ton clavier à plus de 100 touches, sers-t'en.

[diden138]

salut,mon probleme c que je veux creer un bouton mais je ne sais absolument comment faire j'ai creer un type bouton (bouton=record text:string;x1,y1,x2,y2:integer;end; )mais apres je sais plus comment continuer,ni commet les faire reagir au clic de la souris a propos exuser moi pour mon langage sms et merci encore.

a propos j'utilise free pascal

[Eric Sigoillot]

On ne connaît toujours pas l'environnement utilisé

[mat.M]

free pascal fonctionne sous DOS et il faut alors passer dans un mode graphique par exemple 640*480*16 couleurs et programmer soi-même les boutons.
diden138 prends plutot Delphi c'est vraiment mieux ;

[M.Dlb]

Mais oui bien sûr

Free Pascal fonctionne pour DOS, Windows, et Linux (et plein d'autres aussi). Et C'est gratuit, contrairement à Delphi (sauf version personnelle)

[diden138]

salut,oui je sais que vous avez beacoup deja le forum y'a beacoup de travail respect cjuste que je suis un peu nerveu bon si vous avez un peu de temp jetez un coup d'oeil a mon prog je l'ai envoyé enpiece jointe dans le message precedent a +

[Eric Sigoillot]

Relis mon message et repasse quand tu auras le message d'erreur complet.

Sinon, après avoir appris à se servir du point, prochaine étape, les majuscules !

[diden138]

salut ,merci pour ton conseil cote commentaire je vais apprendre a les utiliser mais je comprend pas comment mon code ne marche pas ma question est:comment utiliser l'unite keyboard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
repeat 
lettre:=keyread;
case lettre of
'a':ajouter;
'b':supprimer;
'c':modifier;
end;
until lettre=#27;

mais quand je lance exuter le programme et je tape sur le clavier par exemple la lettre 'a' ca ne marche pas pourquoi
merci encore pour ton aide(hhd34) que serai je sans toi

bon je sais que je vous embete avec mes question debiles mais maintenant je vais faire en sorte de vous simplifier la tache voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
program graphinterac;
 
 
uses crt, graph,keyboard;
 
 
type
 
 
 facture=record
      nom:integer;
      date,adresse,prod:string[80];
      numero,QU:integer;
      montant,ttc,prix:real;
      end;
 
var
  f,temp:file of facture;
  p:facture;
  driver, mode: integer;
  letter: char;
 
procedure ajouter; {********* procedure qui appelle a la saisie**********}
begin
restorecrtmode;
initkeyboard;
assign(f,'fact.dat');
reset(f);
i:=filesize(f);
seek(f,i);
k:='o';
while k='o' do
begin
write('Entrer votre nom');
readln(p.id);
writeln('entrer l''adresse du designataire');
readln(p.adresse);
writeln('Entrer le nom du produit');
readln(p.prod);
writeln('Entrer la quantite');
readln(p.qu);
writeln('Entrer le prix unitaire');
readln(p.prix);
write(f,p);
close(f);
writeln('voulez vous ajouter une autre facture');
readln(k);
end;
end;
begin
 
  driver := Detect;
  InitGraph(driver, mode, 'c:\tp\bgi');
  if (GraphResult <> grOk) then
  begin
    writeln('Erreur au cours de l''initialisation du mode graphique');
    halt(1);
  end;
  outtextxy(50,30,'UNIVERSITE DES SCIENCES ET DE LA TECHNOLOGIE MOHAMED BOUDIAF');
  outtextxy(50,50,'LMD-MIAS 1ERE ANNEE PROJET SIMULATEUR DUN LOGICIEL DE FACTURATION');
  outtextxy(410,410,'Projet fait par cherif mohieddine belkacem');
  SetFillStyle(1, red);
  bar(50,80,800,100);
  bar(50,80,50,400);
  bar(800,80,800,400);
 
  outtextxy(300,90,'LOGICIEL DE FACTURATION');
 setcolor(red);line(260,100,260,400);
 line(50,400,800,400);
 outtextxy(52,130,'1:Ajouter une facture');
 outtextxy(52,160,'2:consulter une facture');
 outtextxy(52,190,'3:rechercher une facture');
 outtextxy(52,210,'4:supprimer une facture');
 outtextxy(52,240,'5:modifier une facture');
 outtextxy(52,270,'6:sortir');
 CloseGraph;
repeat 
 letter:=readkey;
case letter of 
'a':ajouter;
'b':supprimer{j'ai pas encore declarer ces procedures}
......
.....
......
until letter=#27;
end.

help me ma question est comment lire les instruction a partir du clavier ?

[Tuxico]

[M.Dlb]

Bon apparemment, tu es borné, alors je vais te conseiller de lire les règles du forum, parce que c'est un forum de professionnels et qu'on y fait pas ce qu'on veut : http://club.developpez.com/regles . Tu pourras admirer les points 3.2, 3.4 et 4.3.

Puis tu peux également lire le point 4.8, ca aide bien.