Réponse acceptée !



comme au bon vieux temps :




const
  k_ESC = $00011b;     {Echape                                 }

PROCEDURE ColBKG(col_BG:word);
Begin Textbackground(col_BG); end;

PROCEDURE ColTXT(col_TX:word);
Begin Textcolor(col_TX); end;

PROCEDURE GXY(coordX,coordY:word);
Begin Gotoxy(coordX,CoordY); end;

PROCEDURE CLS;
Begin Clrscr; end;

PROCEDURE SND(freq,drt:word);
Begin sound(freq); delay(drt); nosound; end;

// ------
var Kmd        : char;
    ConvResult : single;
    OldUni     : byte;

const
  DegUni : array[0..2] of string = ('°C','°F','°K');

function CtF : single;
begin
  Cls;
  ColTxt(8);
  if ConvResult <> 0 then
  begin
    Writeln('Ancien resultat : '+FloatToStr(ConvResult)+DegUni[OldUni]);
    Writeln('');
  end;
  ColTxt(11);
  Write('Temperature (Celsius) a convertir (Fareneith) : ');
  ReadLn(CtF);
  CtF := { convertion }
  OldUni := 1;
end;

function CtK : single;
begin
  Cls;
  ColTxt(8);
  if ConvResult <> 0 then
  begin
    Writeln('Ancien resultat : '+FloatToStr(ConvResult)+DegUni[OldUni]);
    Writeln('');
  end;
  ColTxt(11);
  Write('Temperature (Celsius) a convertir (Kelvin) : ');
  ReadLn(CtK);
  CtK := { convertion }
  OldUni := 2;
end;

function FtC : single;
begin
  Cls;
  ColTxt(8);
  if ConvResult <> 0 then
  begin
    Writeln('Ancien resultat : '+FloatToStr(ConvResult)+DegUni[OldUni]);
    Writeln('');
  end;
  ColTxt(11);
  Write('Temperature (Fareneith) a convertir (Celsius) : ');
  ReadLn(FtC);
  FtC := { convertion }
  OldUni := 0;
end;

function FtK : single;
begin
  Cls;
  ColTxt(8);
  if ConvResult <> 0 then
  begin
    Writeln('Ancien resultat : '+FloatToStr(ConvResult)+DegUni[OldUni]);
    Writeln('');
  end;
  ColTxt(11);
  Write('Temperature (Fareneith) a convertir (Kelvin) : ');
  ReadLn(FtK);
  FtK := { convertion }
  OldUni := 2;
end;

function KtC : single;
begin
  Cls;
  ColTxt(8);
  if ConvResult <> 0 then
  begin
    Writeln('Ancien resultat : '+FloatToStr(ConvResult)+DegUni[OldUni]);
    Writeln('');
  end;
  ColTxt(11);
  Write('Temperature (Kelvin) a convertir (Celsius) : ');
  ReadLn(KtC);
  KtC := { convertion }
  OldUni := 0;
end;

function KtF : single;
begin
  Cls;
  ColTxt(8);
  if ConvResult <> 0 then
  begin
    Writeln('Ancien resultat : '+FloatToStr(ConvResult)+DegUni[OldUni]);
    Writeln('');
  end;
  ColTxt(11);
  Write('Temperature (Kelvin) a convertir (Fareneith) : ');
  ReadLn(KtF);
  KtF := { convertion }
  OldUni := 1;
end;

procedure ShowResult;
begin
  ColTxt(5);
  Writeln('Resultat = '+FloatToStr(ConvResult)+DegUni[OldUni]);
  Writeln('');
  ColTxt(11);
  Writeln('Appuyez sur une touche pour continuer...');
  repeat until KeyPressed;
end;


procedure Main;
begin
  Cls;
  ColTxt(11);
  writeln('[1] Celsius > Fareneith');
  writeln('[2] Celsius > Kelvin');
  writeln('[3] Fareneith > Celsius');
  writeln('[4] Fareneith > Kelvin');
  writeln('[5] Kelvin > Celsius');
  writeln('[6] Kelvin > Fareneith');
  writeln('');
  writeln('[r] Effacer l'ancien resultat.');
  writeln('');
  writeln('[q] Quitter');
end;

function KInterpret : byte;
const
  KTB : array[boolean] of byte = (0,42);
begin
  KInterpret := KTB[ Kmd = 'q' ];

  if KInterpret = 0 then
  begin
    case Kmd of
      'r' : ConvResult := 0;
      '1' : begin ConvResult := CtF; ShowResult; end;
      '2' : begin ConvResult := CtK; ShowResult; end;
      '3' : begin ConvResult := FtC; ShowResult; end;
      '4' : begin ConvResult := FtK; ShowResult; end; 
      '5' : begin ConvResult := KtC; ShowResult; end;
      '6' : begin ConvResult := KtF; ShowResult; end;
      else
      begin
        Cls;
        Snd(250,30);
        Snd(250,30);
        ColTxt(1);
        writeln('Commande inconnue ('+Kmd+')');
        Delay(5000);
      end;
    end;
  end;
end;

var Ret : byte;

begin
  ConvResult := 0;
  Ret := 0;
  Repeat
    if Ret = 0 then
       Main;
    Kmd := readkey;
    Ret := KInterpret;
  Until Ret = 42;
end;

Réponse acceptée !
Merci pour ta reponse mais pourais-tu, s'ilte plait, t'expliquer un peu plus car je n'ai a vrai dire rien compri^^

@+
Godan

Réponse acceptée !

   A y est, je mesui rensegné et j'ai compri (enfin en gros) car j'ai un problemme : pour textbackground, textcolor, gotoxy etclrscr ainsi que pourfloattostr TP7 m'a dis, au moment de compiler, qu'il y avais une "erreur 3 unknow idenifier" . J'ai cherché sur google et altavista et on me renvoyais que sur des forums delphi, mais a aucun moment je n'ai vu ce type de probleme de compilation sous TP7 (ni sous delphi d'ailleur), je me tourne donc encors une fois vers le forum de codes sourses.

Merci d'avance
Godan


P.S. HHEELLPP PLIIZZ

Réponse acceptée !
Bonjour,

Pour ton probléme, regarde d'abord l'aide de TP7. Tu y découvrira une montagne d'information. Le programme de FOXI ne te donne pas la ligne des librairie utilisée ( la ligne uses crt par exemple). Je pense que ton probléme se trouve là. Il doit te manquer la librairie ou se trouve les gotoxy et compagnie dont tu as besoin.

Bon code
Oniria

Réponse acceptée !
effectivement il manque

uses crt, dos;

Réponse acceptée !

Merci pour vos reponces je ne suis pas sur mon PC en ce moment mais je vais essayer tout ça dés demain .

Godan