Temperator: Temperatur und Kelvin

Neuling · 5. April 2011, 14:58

Hallo ich habe ein Problem, ich habe eine Programmieraufgabe.
Und zwar soll ein Benutzer zwei Zahlen eingeben einmal : Anfangstemperatur, und die Endtemperatur ( in Grad)
Es soll eine Plausibilitätsprüfung geben das keine Eingabe leer sein soll und die Endtemperatur muss größer sein als die Anfangstemperatur.
Dann soll das Programm eine Ausgabe erzeugen die in 10er-Schritten die Temperatur in °C, F° und Kelvin angeben soll.
z.B.: Anfangstemperatur: 3, Endtemperatur: 30

Temperatur °C; Temperatur °F; Temperatur Kelvin
3; 37,4; 276,15
13; 55,4; 287,15
23; 73,4, 296,15

ich hab noch nie in delphi programmiert und bin am verzwifeln!!!!
Ich bitte um Lösungsoptionen.

vince · 5. April 2011, 15:19

was hast du denn bis jetzt schon gemacht um die Aufgabe zu lösen ?

Neuling · 5. April 2011, 15:27

also ich sitze jetzt schon über 3std vor dem programm und ehrlich gesagt aheb ich nicht viel ahnung wie ich anfangen soll!!!
aber etwas habe ich schon gemacht ich hab schon die graphische oberfläche gemacht ein Button, zwei edit felder und die beschriftung halt anfangstemp. und endtemp.

Neuling · 5. April 2011, 15:29

unit Hauptfenster;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Szabo · 5. April 2011, 16:25

Warum erinnert mich das nur sehr stark an das Thema hier?
Formulare überprüfen: Anfangstemperatur und Endtemperatur

Du kannst in diesem Thema nachlesen wie das ganze logisch aufgebaut wird. Musst es lediglich passend für dich in Delphi anpassen.

Neuling · 5. April 2011, 16:57

genau das ist mein problem der der den anderen thema erstellt hat ist ein guter freund von mir!!

Rushh0ur · 5. April 2011, 17:27

Nun mit Delphi sollte es ziemlich einfach gehen. Die Steuerelemente hast du ja schon Platziert, gib diesen am besten noch sinnvole Namen (Objektsinspektor -> Name):
Edit1 -> EditStartTemp
Edit2 -> EditEndTemp
o.ä., etc.

Wenn du doppelt klickst auf ein Steuerelement wird eine Objektspezifische Funktion erstellt, bei einem Button ist es halt die OnClick funktion dh. in diese Kompt der Code rein, der ausgeführt werden soll wenn der Button gedrückt wird.
Und zwar wird dann der dazugehörige Code zwischen begin und end ausgeführt.

Um auf den Text eines Edit-Objekts zuzugreifen kannst du ganz einfach mit NameDesEdits.Text zugreifen. z.B gibt dier dann der Befel ShowMessage(Edit1.Text); eine Infobox mit dem Inhalt deiner Edit-Box wieder.
Genauso kansnt du auch etwas zuweisen: NameDesEdits.Text := 'Hallo';

Der Rückgabetyp von XYZ.Text ist ein String, dass ist eine Zeichenkette, mit dieser alleine kannst du noch nicht Rechnen deswegen musst du diese in einen anderen Datentyp konventieren.
Da du Kommazahlen brauchst musst du es in einen Gleitkommatyp wie z.B Extendend benutzen. Die konventierung kannst du mit StrToFloat und FloatToStr durchführen.

Beispiel:

Quellcode

procedure TForm1.Button1Click(Sender: TObject);
var x: Extended;
begin
x := StrToFloat(Edit1.Text);
x := x + 1.5;
Edit1.Text := FloatToStr(x);
end;

Mfg Rushh0ur

Neuling · 5. April 2011, 17:40

alles klar danek schön!!!
aber ich möchte ja das ergebnis tabellarisch darstellen und der rechnet ja nur das was in edit1 steht.
Und ich hab noch ne frage wegen den Kelvin, Fahrenheit gibt es da einfach so ne funktion oder ähnliches oder muss ich die formel eintippen???

mfg

Rushh0ur · 5. April 2011, 17:57

Eine fertige funktion ist mir jetzt nicht bekannt, kannst aber die Formel direkt eingeben oder dir eine Funktion selbert bauen und die dann verwenden.

Die Tabelle kannst du mti verschiedenen Steuerelementen verwirklich.
Mit einer Memo-Box in die du einfach mit Memo.Lines.Add('Text'); Zeilen hinzufügst oder du verwendest ein StrinGrid-Objekt und füllst die Zellen oder ein ListView-Steuerelement oder oder oder ...

Mfg Rushh0ur

Neuling · 5. April 2011, 17:58

wo sind diese elemente genau????

und wenn man nichts eingibt die fehlermeldung??? ich will das da steht bitte ausfüllen oder ähnliches

Szabo · 5. April 2011, 18:32

Möchtest du dich vorher vielleicht nicht allgemein ein wenig mit den Grundlagen der Programmierung auseinandersetzen? Damit wir dir mit Tipps und Tricks helfen können, brauchst du ein gewisses Grundwissen

Rushh0ur · 5. April 2011, 18:36

Neuling schrieb:

wo sind diese elemente genau????

In der Objekt Leiste unter Standart, Win32, und Zusätzlich.

Neuling schrieb:

und wenn man nichts eingibt die fehlermeldung??? ich will das da steht bitte ausfüllen oder ähnliches

Dann must du den Konventierungfehler bei FloatToStr in einem try-except block abfangen.

Quellcode

try
x := StrToFloat(Edit1.Text);
except
ShowMessage('Bitte geben Sie zahlen ein.');
Exit;
end;

Neuling · 5. April 2011, 20:18

ich hab noch ne frage was muss ich machen das das ergebnis in einer tabelle angezeigt wir also in einem anderen Fenster (Unit) ????

kse · 5. April 2011, 20:22

gabs dazu nicht erst nen thema:

Formulare überprüfen: Anfangstemperatur und Endtemperatur

Neuling · 5. April 2011, 20:46

ja schon aber das ist eine andere programmiersprache ich will in delphi programmieren

Neuling · 6. April 2011, 16:10

hallokann mir bitte jemand helfen ich weis nicht wie ich die Fahrenheit und Kelvin berechnen soll also wie ich die formel aufstellen soll ???
Soll ich eine While-schleife machen oder irgendwie eine IF???
danke im Voraus

Szabo · 6. April 2011, 18:37

Im Thema von deinem Kollegen (mit der exakten gleichen Frage) stehen die Formeln drin.

Celsius zu Fahrenheit: c * 1,8 + 32
Celsius zu Jekvub; c + 273

10 Grad Celsius sind also 10 + 273 = 283 Grad Kelvin.

Neuling · 6. April 2011, 18:56

ja schon abe rda ich ja ein delphi frischling bin habe ich gehofft das mir jemand mit der formel helfen kann also ich meine muss ich des in eine while schleife einbauen oder ähnliches???

Szabo · 6. April 2011, 19:00

Die Formel habe ich d 1ir doch gerade gegeben. Es ist einfach Mathematik.

var kelvin, celsius, fahrenheit : integer;
celsius := 10; // das hier muss aus deinem Formularfeld kommen, also celsius := StrToInt(eingabe.Text);
kelvin := celsius + 273;
fahrenheit := celsius * 1.8 + 32;

Neuling · 6. April 2011, 19:07

ok danke und wie gebe ich das ergebnis in einer tabelle extra aus???

Temperator: Temperatur und Kelvin

Temperator: Temperatur und Kelvin

Quellcode

Neuling schrieb:

Neuling schrieb:

Quellcode

Teilen

Benutzer online 1

Tags