CALCULATRICE AVEC DU C PUR
BruNews
Messages postés
21040
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
-
22 juin 2003 à 18:25
cs_Grenouille540 Messages postés 4 Date d'inscription dimanche 9 mai 2010 Statut Membre Dernière intervention 18 juin 2010 - 18 juin 2010 à 08:14
cs_Grenouille540 Messages postés 4 Date d'inscription dimanche 9 mai 2010 Statut Membre Dernière intervention 18 juin 2010 - 18 juin 2010 à 08:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/10973-calculatrice-avec-du-c-pur
https://codes-sources.commentcamarche.net/source/10973-calculatrice-avec-du-c-pur
18 juin 2010 à 08:14
Voici mon programme ---->
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Cacul.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Bp_Click(TObject *Sender)// Déclaration des boutons
{
char c;
if(dynamic_cast<TButton*>(Sender)==Bp_0)c='0';
if(dynamic_cast<TButton*>(Sender)==Bp_1)c='1';
if(dynamic_cast<TButton*>(Sender)==Bp_2)c='2';
if(dynamic_cast<TButton*>(Sender)==Bp_3)c='3';
if(dynamic_cast<TButton*>(Sender)==Bp_4)c='4';
if(dynamic_cast<TButton*>(Sender)==Bp_5)c='5';
if(dynamic_cast<TButton*>(Sender)==Bp_6)c='6';
if(dynamic_cast<TButton*>(Sender)==Bp_7)c='7';
if(dynamic_cast<TButton*>(Sender)==Bp_8)c='8';
if(dynamic_cast<TButton*>(Sender)==Bp_9)c='9';
if(dynamic_cast<TButton*>(Sender)==Bp_point)c=',';
ajout(c);
}
//---------------------------------------------------------------------------
void TForm1::ajout(char lettre)// Déclaration pour la virgule
{
if(max_caract<=20)
{
if(max_caract==0 && lettre!=',')
{
Edit->Text=' ';
}
if(!drap_virg ||(drap_virg && lettre!=','))
{
Edit->Text=Edit->Text+lettre;
max_caract++;
}
if(lettre==',')
{
drap_virg=true;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
max_caract=0;
drap_virg=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Bp_opClick(TObject *Sender)//Déclaration des boutons opé
{
char operation;
if(dynamic_cast<TButton*>(Sender)==Bp_moin)operation='-';
if(dynamic_cast<TButton*>(Sender)==Bp_plus)operation='+';
if(dynamic_cast<TButton*>(Sender)==Bp_multi)operation='x';
if(dynamic_cast<TButton*>(Sender)==Bp_divise)operation='/';
if(dynamic_cast<TButton*>(Sender)==Bp_egale)operation='=';
calcul(operation);
}
//---------------------------------------------------------------------------
void TForm1::calcul(char op)
{
switch(op)
{
case'+':Edit->Text="Plus";break;
case'-':Edit->Text="Moins";break;
case'x':Edit->Text="Multiplier";break;
case'/':Edit->Text="Diviser";break;
}
}
//--------------------------------------------------------------------------
30 déc. 2005 à 02:19
23 juin 2003 à 19:57
moins d'erreurs
23 juin 2003 à 19:39
Exusez-moi, j'ai pas essayer toute les exceptions
une mise a jour et en preparation
23 juin 2003 à 13:45
Tcho Bon courage
23 juin 2003 à 08:15
Pourquoi 5/*9 vaut 5/9
Et 5*/9 vaut 5*9
, on est cense avoir des des erreurs !
22 juin 2003 à 23:31
c est vrai que ca manque de commentaires.
je m'excuse
22 juin 2003 à 23:20
22 juin 2003 à 23:06
Non parce que ca m'a l'air extra mais y'a plein de trucs que je piges pas : pkoi formulenght = 80 et pas 90 ? De plus, pkoi tu fais le test
if(Formule[lecteur]==13)
pour faire un break ? et pourquoi 13 ?
Autant de questions auxquelles j'aimerai reponse...
mùerci
22 juin 2003 à 21:55
22 juin 2003 à 20:53
donc ca marche........
22 juin 2003 à 20:03
en passant, est-ce que gcc est un compilateur abordable(interressant) sous linux mandrake.
22 juin 2003 à 19:59
Faudrait tester avec un compilo Linux.
22 juin 2003 à 19:58
Y a juste un avertissement:
[C++ Avertissement] conio.h(181): W8058 Impossible de créer l'en-tête pré-compilé : code dans l'en-tête
L'explication par BCB:
Ce message s'affiche si l'avertissement "Prototypes required" est activé et que vous appelez une fonction sans fournir de prototype au préalable.
Mais c un problème par rapport à conio.h apparemment. la compil' est ok.
22 juin 2003 à 19:55
22 juin 2003 à 19:46
22 juin 2003 à 19:43
22 juin 2003 à 19:41
22 juin 2003 à 19:31
22 juin 2003 à 18:25