Zahl Qquadrieren über Konsole mit MessageBox

[Astartes]

Hi,

uses SysUtils,Windows; einbinden! Darauf kommst du über die Hilfe!

Mfg Tom

[Shaddar]

So ich krieg jetzt schon ma ne messagebox. die kommt jetzt.
hab da aber nur nen text.

bräuchte das so, dass man ne Zahl eingibt und denn auf enter drückt und die messagebox mit dem ergebnis kommt.

mein bisheriger quelltext...

program Versuch1;

{$APPTYPE CONSOLE}

uses
SysUtils,windows;
var
x:integer;
begin
{ TODO -oUser -cConsole Main : Hier Code einfügen }
writeLn('hallo');
readLn;
MessageBox(0,'Ich bin eine MessageBox','Ergebnis',MB_OK or MB_ICONINFORMATION);
end.

[Astartes]

Hi,

Ich weiß nicht, ob die MessageBox das kann! Die alternative ist die InputBox !

In der Delphihilfe steht dazu was!

Mfg Tom

Oh hab die Aufgabe nicht richtig gelesen!

[brechi]

Shaddar hör am besten auf zu studieren, wenn du sowas nicht selbst erlernen kannst. Das bringts nicht, als Student muss man sich vieles eben beibruingen und mal den Arsch aufreißen.
Zumal es sicher etwas im Bereich Informatik ist, wo man schon ein paar Grundlagen beherrschen sollte (zu mindest eine andere Programmiersprache)

[Shaddar]

Hallo gehts noch? Ich lass mir doch nich sowat sagen! Wollt hier nur bissl Hilfe, mehr nich....

Also erst Gehirn einschalten, Denken und erst dann anfangen zu Sprechen!!!!!

[WordsBG]

Zitat von Shaddar:

Delphi-Quellcode:

program Versuch1;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

var
  x:integer;
begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  writeLn('hallo');
  readLn;
  MessageBox(0,'Ich bin eine MessageBox','Ergebnis',MB_OK or MB_ICONINFORMATION);
end.

bitte delphi-tags nutzen. Ok, also zuerst einmal ReadLn hat einen optinalen Parameter zu einer Variable in die dann das Ergebnis geschrieben wird. Also in deinem Fall wäre es ReadLn(x);.
Dannach kannst du die Berechnung durchführen. Beispielsweiße X := X * X;
Dann würest du logischerweiße das Ergebnis ausgeben wollen. Da MessageBox allerdings gerne einen String hätte wird hier eine Umwandlung (Integer zu String) nötig. Die Funktion hierfür heißt IntToStr(). Mit einem Paramter.
Wenn du das dann so aptipst bleibt noch ein kleines Problem. MessageBox wird von Delphi an Windows-DLLs weitergereicht. Diese sind in C/C++ geschrieben und können mit Delphi Strings nichts anfangen sondern brauchen ein array of char. In Delphi heißt dieser String-Typ PChar. Eine Umwandlung Delphi String -> PChar geht mit der gleichnamigen Funktion "PChar".
Der komplette Code wäre hier:

Delphi-Quellcode:

program Versuch1;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

var
  x: Integer;

begin
  ReadLn(X);
  X := X * X;
  MessageBox(0,PChar('Das Ergenis lautet ' + IntToStr(X) + '!'),
               'Ergebnis',MB_OK or MB_ICONINFORMATION);
end.

Lass dich nicht fertigmachen. Wenn man sich erstmal eingearbeitet hat ist Delphi viel verständlicher.

[DeddyH]

Meine Version ist etwas ausführlicher:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

var Zahl: string;
    Wert: integer;
    Err: integer;
begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  writeln('Bitte eine Zahl eingeben.');
  readln(Zahl);
  {$R-}
  Val(Zahl,Wert,Err);
  {$R+}   
  if Err > 0 then
    MessageBox(0,'Eine Zahl, Du Hirni!','Knallkopp',MB_OK or MB_ICONERROR)
  else
    begin
      Wert := Wert * Wert;
      MessageBox(0,PChar(Format('Das Quadrat ist %d.',[Wert])),'Information',MB_OK or MB_ICONINFORMATION);
    end;
end.

[marabu]

Hallo Shaddar,

wer um Hilfe bittet, der bekommt die hier auch. Manchmal bekommst du sogar mehr Hilfe als du vertragen kannst. Betrachte den Beitrag von brechi einfach als Lebenshilfe, er wollte dich bestimmt nicht anmachen.

Bitte überprüfe deine Aufgabenstellung nochmal: Konsolenanwendung und MessageBox passen nicht so richtig zueinander, schon gar nicht wenn es sich um die erste Übung handelt. Darf ich fragen, was du wo mit welchem Ziel studierst?

ReadLn() ist übrigens auch in der Lage Zahlen direkt einzulesen, es muss nicht unbedingt ein String sein.

Freundliche Grüße vom marabu

[Shaddar]

Danke schön....

Is einfach nur so, dass man auh am Anfang des Studium kein Plan davon haben kann. Ich tudiers ja nich weil ichs kann, sondern weil ichs lernen will!

Achja ich studier Multimediatechnik!

Hab auch schon in der Schule mit Delphi gearbeitet aber da hatten wir ne absolut unfähige Lehrerin und es is nix hängen geblieben, is auch shon urst lange her!

Wenn ich demnächst mit Delphi mehr macche, dann wirds auh sicherlich schnell leichter aber da hab ich halt einfach Hilfe gebraucht und versteh nich warum denn so ne Aussage kommt.

Naja egal, danke an alle die mir geholfen haben!

[calculon]

Zitat von DeddyH:

MessageBox(0,'Eine Zahl, Du Hirni!','Knallkopp',MB_OK or MB_ICONERROR)

[OT]
http://www.krazz.net/smil/rofl[1].gif
Ich liebe Programme, die den User auch mal beleidigen! http://www.krazz.net/smil/korrekt[1].gif
[/OT]

Gruß

Calculon
--