Variable aktualisieren...Währungsrechner: Ergebnis soll sich immer aktualisieren (Graphische Oberflächen)

[thread]5134[/thread]

Variable aktualisieren...Währungsrechner: Ergebnis soll sich immer aktualisieren

Leser: 1

Bamasz

2005-12-02 17:43

User since
2005-11-07
6 Artikel
BenutzerIn
[default_avatar]

Hallo,

habe einen grfischen Währungsrechner geschrieben. Jetzt wollte ich ihn modifizieren.
Mein Problem dabei ist:

my $frame7 = $mw->Frame()->pack(-side =>"top");
$frame7->Label (-text => ("Ergebnis: ".$ergebnis))->pack();

In dieser Zeile gibt er das Ergebnis aus. Das funktioniert auch ganz gut jedoch hängt er die Ergebnisse, die man rechnet immer darunter an, sodass das Fenster immer größer wird. Wie kann ich dieses Problem beheben? Am besten wäre, wenn er sich für das Ergebnis einfach immer die neuste gesetzte Variable holt.

Danke schon einam im Voraus.
Grüße
Bamasz

Ishka

2005-12-02 18:08

User since
2003-08-04
771 Artikel
HausmeisterIn

mir fallen spontan zwei Möglichkeiten ein:

1) mit configure aktualisieren:

Code: (dl )

my $label=$frame7->Label (-text => ("Ergebnis: ".$ergebnis))->pack();

[...]

$label->configure(-text => ("Ergebnis: ".$ergebnis));

2) nicht einen Text, sondern eine Variable als Text angeben:

Code: (dl )

my $var="Ergebnis: ".$ergebnis;
$frame7->Label (-textvariable => \$var)->pack();

[...]

$var="Ergebnis: ".$ergebnis;

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Bamasz

2005-12-04 15:47

User since
2005-11-07
6 Artikel
BenutzerIn
[default_avatar]

Danke für deine Antwort! Es hat geklappt!

View all threads created 2005-12-02 17:43.