Thread Tk: Kalender für Anwesenheitszeiten (27 answers)
Opened by 1860gelb at 2012-10-30 14:50

topeg
 2012-11-14 17:44
#163310 #163310
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Das ließt sich nach einem typischen Fall für ein Modul.

Programm1 soll eine Konsolen-Ausgabe haben
Programm2 soll ein Graphisches Interface haben
Beide Programm bieten die selben Funktionalitäten an.

Das bedeutet für mich, dass du ein Modul schreiben möchtest, das alles enthält, was beide Programm gemeinsam haben. Das betrifft also die Datenhaltung, die Berechnungen, die Vergleiche etc.
Die beiden Programme bilden das Benutzerinterface zu diesem Modul.

Als Beispiel:
Modul: 'verwaltung.pm'
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

package verwaltung;
use strict;
use warnings;

sub schueler_add
{
  #...
}

sub schuler_daten
{
  #...
}

sub schueler_list
{
  #...
}

#...

1;


Programm1: 'verwaltung_tui.pl'
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl
use strict;
use warnings;
use verwaltung;

for my $schueler_id ( verwaltung::schueler_list() )
{
  print_schueler_daten(verwaltung::schuler_daten($schueler_id))
}

sub print_schueler_daten
{
  #...
}


Programm2: 'verwaltung_gui.pl'
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/perl
use strict;
use warnings;
use TK;
use verwaltung;

my $gui=make_gui();

for my $schueler_id ( verwaltung::schueler_list() )
{
  print_schueler_daten($gui, verwaltung::schuler_daten($schueler_id))
}

sub make_gui
{
  #...
}

sub print_schueler_daten
{
  my $gui=shift;
  #...
}

Last edited: 2012-11-14 17:45:45 +0100 (CET)

View full thread Tk: Kalender für Anwesenheitszeiten