Thread Ausgabe in Tk-GUI (13 answers)
Opened by projectx at 2011-02-21 21:56

projectx
 2011-02-21 21:56
#145817 #145817
User since
2011-02-21
10 Artikel
BenutzerIn
[Homepage] [default_avatar]
hallo, ich bin komplett neu in der Perl-Welt und arbeite gerade an einem Schul-Projekt, bei dem ich einen Anfangswert für °C und ein Endwert für °C angeben kann. Eine While Schleife zählt die °C immer um 10 Zähler hoch. Dazu soll Kelvin und Fahrenheit zusätzlich berechnet werden.
Zu meinem Problem:
ich hätte gern die Berechnung, also die While-Schleife in der Ausgabe des GUI-Fensters, hab aber absolut keine Ahnung wie das geht. Kann mir jemand helfen?:)

Code: (dl )
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
use Tk;

$window = MainWindow->new(-width=> '0m',-title=> 'Umrechnung');

$oben = $window->Frame->pack();
$titel = $oben->Label(-text=>"Programm für die Umrechnung von Grad Celsius in Kelvin und Fahrenheit.")->pack();

$clean = $window->Frame->pack();
$empty = $clean->Label(-text=>"")->pack();

$window->Label(-text=>'Anfangswert:')->pack();

$eingabe = $window->Text(-width=>20,-height=>1,-borderwidth=> '1m',-cursor=> 'left_side',-background=> 'white',-font=>'courierb12',
-foreground=> 'black')->pack();

$window->Label(-text=>'Endwert:')->pack();
$eingabe2 = $window->Text(-width=>20,-height=>1,-borderwidth=> '1m',-cursor=> 'left_side',-background=> 'white',-font=>'courierb12',
-foreground=> 'black')->pack();

$clean2 = $window->Frame->pack();
$empty2 = $clean2->Label(-text=>"")->pack();

$window->Label(-text=>'Celsius                                        Fahrenheit                                        Kelvin', -font=>'courierb 10 bold' )->pack();
$ausgabe = $window->Text(-width=>60,-height=>10,-borderwidth=> '0m',-cursor=> 'left_side',-background=> 'white',-font=>'courierb 12',
-foreground=> 'black')->pack();

$bottom_frame = $window->Frame()->pack(-side=>'bottom', -pady=>10);
 
$bottom_frame->Button(  -text=>'Alles zeigen',
                        -command=>\&rechnen)->pack(-side=>'left');
						
$bottom_frame->Button(  -text => "Alles löschen",
                        -command=>\&loeschen)->pack(-side=>'left');

$bottom_frame->Button(  -text => "Beenden",
                        -command=> sub {exit 0})->pack(-side=>'left');

MainLoop;


Die Rechnung an Sich lautet wiefolgt:

Code: (dl )
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
$anfang;
$ende;
$k;
$f;

print "Anfangstemperatur eingeben: \n";
$anfang = <STDIN>;
system("cls");
print "Endtemperatur eingeben: \n";
$ende = <STDIN>;
system("cls");

if($anfang > $ende)
{
	print "Der Endwert muss groeßer als der Anfangswert sein!";
	
	if($anfang =!NULL)
	{
		print "Der Anfangswert darf nicht 0 betragen";
	}
	
}	else
	{
	
	print "Temperatur in °C \t Temperatur in °F \t Tempteratur in K \n";

	while($ende > $anfang + 10)
		{
	
		$anfang = $anfang + 10;
		$k = (($anfang * 9)  /5 ) +32; 
		$f = $anfang + 273.15;
		
		print "\t";
		print $anfang;
		print "\t\t\t";
		print $f;
		print "\t\t\t";
		print $k;
		print "\n";
	
		}	
}


Wie und Wo muss ich meine Rechnung einfügen damit ich meine Ausgabe im GUI-Fenster habe?
Last edited: 2011-02-21 23:02:18 +0100 (CET)

View full thread Ausgabe in Tk-GUI