Ausgabe in Tk-GUI (gelöst) (Graphische Oberflächen)

[thread]15989[/thread]

Ausgabe in Tk-GUI [gelöst]

Leser: 17

Articles: hide open all | hide show old branches

+14 replies
projectx

2011-02-21 21:56
User since
2011-02-21
10 Artikel
BenutzerIn
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)
- +2 replies
- lichtkind
  
  2011-02-21 23:04
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  hab den titel leicht geändert weil es um Tk geht, wo ich mich weniger auskenne.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - projectx
    
    2011-02-22 11:31
    
    User since
    2011-02-21
    10 Artikel
    BenutzerIn
    
    was meinst du?
    kann mir sonst wer helfen?
- +2 replies
- pktm
  
  2011-02-22 12:12
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  Hallo!
  
  Vorab: tu Dir selbst einen besonders großen Gefallen, und beginne jedes Skript mit Folgendem:
  
  Code: (dl )
  
  1 2
  
  use strict; use warnings;
  
  Mehr dazu hier: http://wiki.perl-community.de/Wissensbasis/UseStri...
  
  So wie ich das sehe, brauchst du 2 Dinge:
  1. deine Berechnung von Celsius in die anderen Einheiten muss in eine Sub. Beispiel für eine Sub:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  sub rechne_was { my $operand1 = shift; my $operand2 = shift; my $ergebnis_add = $operand1 + $operand2; my $ergebnis_sub = $operand1 + $operand2; return ($ergebnis_add, ergebnis_sub); } # Aufruf der Sub: my ($add, $sub) = rechne_was(4,2);
  
  2. einen Bereich auf deiner GUI, auf dem du die Ergebnisse darstellst. Z.B. ein Frame. Auf diesem Frame kannst du dann alle Ergebnisse, die du durch den Aufruf der Sub bekommst, darstellen. Du kannst das Frame auch direkt der Sub übergeben, die für dich die Umrechnung durchführt und dann innerhalb der Sub verwenden.
  Auf dem Frame kannst du z.B. beliebig viele Labels erzeugen, jedes mit einem Rechenergebnis.
  
  Ich persönlich würde allerdings eher sowas wie Tk::TableMatrix::Spreadsheet verwenden.
  
  Edit: Link zum Wiki-Eintrag
  Last edited: 2011-02-22 14:31:14 +0100 (CET)
  http://www.intergastro-service.de (mein erstes CMS :) )
  - Linuxer
    
    2011-02-22 12:44
    
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Du meintest vermutlich diesen Wiki-Eintrag: UseStrict
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- payx
  
  2011-02-22 12:28
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo projectx,
  
  Minimallösung, vielleicht genügt dieser Ansatz ja für Deine Hausaufgabe.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  sub rechnen { my $anfang = $eingabe->Contents; my $k = (($anfang * 9) /5 ) +32; my $f = $anfang + 273.15; $ausgabe->Contents("Fahrenheit: $k\nKelvin: $f"); }
  
  HTH
  Grüße
  payx
- +5 replies
- projectx
  
  2011-02-22 17:33
  User since
  2011-02-21
  10 Artikel
  BenutzerIn
  super danke erstmal für die schnellen Antworten :)
  
  Ich habe noch ein paar Fragen:
  
  Wenn ich ein sub in meinen Button eingebaut hab, wie baue ich dann den sub in den Ausgabe-Frame ein?
  
  Code: (dl )
  
  1 2
  
  $ausgabe = $window->Frame->pack(); $frame = $ausgabe->Label(-command=> ?sub?)->pack();
  
  Hatte mir das so ungefähr vorgestellt. Ich weiß nicht ob der Lösungsansatz richtig ist.
  
  Und wie kann ich eine Plausibilitätsprüfung also den if-teil in die sub bekommen? Kann ich dort dann auch meine While-Schleife reintun?
  
  Würde mich über eine erneute Anwort freuen :)
  - +3 replies
  - #Kein Kommentar
    
    2011-02-22 17:40
    User since
    2007-06-09
    575 Artikel
    HausmeisterIn
    
    eine command-option kannst du nur an einen button übergeben und nicht an ein Label, d.h. dein code ändert sich folgendermaßen:
    
    Code: (dl )
    
    1 2
    
    $ausgabe = $window->Frame->pack(); $frame = $ausgabe->Button(-text => 'blabla', -command=> sub{print "Tue irgendetwas nützliches\n"; rufeDieseSubAuf();})->pack();
    
    dein sub-teil kann theoretisch alles enthalten eine if-bedingung, eine while-schleife, einen aufruf einer weiteren subroutine.
    Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
    - +2 replies
    - projectx
      
      2011-02-22 18:00
      
      User since
      2011-02-21
      10 Artikel
      BenutzerIn
      
      Also könnte so der Frame aussehen:
      
      Code: (dl )
      
      1 2 3
      
      $ausgabe = $window->Frame->pack(); $frame = $ausgabe->Button(-text => 'Ausrechnen', -command=> sub{ rechne();})->pack();
      
      Und als Beispiel ein sub:
      
      Code: (dl )
      
      sub rechne{ $eingabe + $eingabe2};
      
      Oder wie werden die Variablen genau übergeben?
      - pktm
        
        2011-02-22 19:52
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Hier mal etwas code:
        
        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 44 45 46 47 48 49 50 51
        
        #!perl use strict; use warnings; use Tk; use Tk::LabEntry; my $mw = tkinit(-width => 640, -height => 480, -title => 'Programm zur Umrechnung von Clesius in ...'); $mw->packPropagate(0); my $button_frame = $mw->Frame(-bg => '#259238')->pack(-fill => 'x', -expand => 0,); my $ergebnis_frame = $mw->Frame(-bg => '#9D2763')->pack(-fill => 'both', -expand => 1,); my $startwert_entry = $button_frame->LabEntry(-label => 'Startwert: ')->pack(-side => 'left',); my $endwert_entry = $button_frame->LabEntry(-label => 'Endwert: ')->pack(-side => 'left',); $button_frame->Button( -text => 'Ausrechnen...', -command => sub{ rechnen_und_anzeigen($startwert_entry, $endwert_entry, $ergebnis_frame); return 1; }, )->pack(-side => 'left',); $mw->MainLoop(); =head1 SUBS =head2 rechnen_und_anzeigen( $startwert_entry, $endwert_entry, $ergebnis_frame ) TODO: Dokumentation =cut sub rechnen_und_anzeigen { my $startwert_entry = shift or die('Missing startwert_entry'); my $endwert_entry = shift or die('Missing endwert_entry'); my $ergebnis_frame = shift or die('Missing ergebnis_frame'); my $startwert = $startwert_entry->get(); my $endwert = $endwert_entry->get(); return if $startwert !~ m/^\d+$/; return if $endwert !~ m/^\d+$/; print "TODO: C in F usw. mit $startwert und $endwert\n"; $ergebnis_frame->Label(-text => 'Hallo Ergebnis!')->pack(); } # /rechnen_und_anzeigen
        
        Was da noch zu tun ist:
        - begreifen, was im Code passiert (Tipp: sowas kann man prima mit Kommentaren für später festhalten)
        - die Sub rechnen_und_anzeigen schreiben
        - eine Möglichkeit finden, $ergebnis_frame zu leeren (alte Ergebnisse zu löschen), bevor neue draugemalt werden oder ein anders Widget benutzen (z.B. Text / Spreadsheet)
        - das fertige Ergebnis hier reinstellen
        
        Das ist allerdings meine letzte Antwort auf diesen Beitrag, wenn du nicht mit strict arbeitest ;-)
        http://www.intergastro-service.de (mein erstes CMS :) )
  - payx
    
    2011-02-22 20:42
    
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hast Du Dir mein Beispiel angesehen?
    
    Es schreibt ein Ergebnis in den Ausgabeframe hinein, das ist doch das, was Du willst, oder?
    
    Der Code-Schnipsel funktioniert, wenn Du ihn an Deinen ursprünglich geposteten Code hängst, eine Zahl in das Anfang-Textfeld schreibst und auf 'Alles zeigen' klickst.
    
    Eine besonders tolle Lösung ist das nicht, aber, wie gesagt, vielleicht genügt es ja für diesen Zweck.
- +2 replies
- projectx
  
  2011-02-22 21:36
  
  User since
  2011-02-21
  10 Artikel
  BenutzerIn
  
  Vielen Dank für eure Hilfe, hat mir sehr geholfen.
  Und ja, ich werde in Zukunft strict verwenden :)
  
  Noch eine Frage, wie kann ich in Sub eine While-Schleife einbauen, welche mir dann auch im Frame eine Liste von Ergebnissen liefert?
  - payx
    
    2011-02-22 22:33
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo projectx,
    
    quick and dirty:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    sub rechnen { chomp (my ($c1, $c2) = ($eingabe->Contents, $eingabe2->Contents)); my $output; while ($c1<=$c2) { my $f = (($c1 * 9) /5 ) +32; my $k = $c1 + 273.15; $output .= "$c1\t$f\t$k\n"; $c1+=10; } $ausgabe->Contents($output); }
    
    HTH
    Grüße
    payx
- projectx
  
  2011-02-22 22:37
  
  User since
  2011-02-21
  10 Artikel
  BenutzerIn
  
  Super Danke euch allen!

View all threads created 2011-02-21 21:56.