Liebe Alle,
unterstehend findet ihr unsere HÜ von letzter Woche
(die ich an die falsche Mailadresse geschickt habe) und die von dieser Woche.
T04
1)
l1 = .Mitarbeiter~NEW~~"Vertrag="("Angestellt") ~~Kurs
.ExternerMitarbeiter~NEW~~"Vertrag="("freier Dienstvertrag") ~Kurs
::CLASS Mitarbeiter
::ATTRIBUTE Vertrag
::METHOD Kurs
SAY self~Vertrag":" "Master Lehrveranstaltung"
::CLASS ExternerMitarbeiter SUBCLASS Mitarbeiter
::METHOD Kurs
SAY self~Vertrag":" "Bachelor Lehrveranstaltung"
REXXout>Angestellt: Master Lehrveranstaltung
REXXout>freier Dienstvertrag: Bachelor Lehrveranstaltung
2)
k1 = .Person~New("Strafrecht", "4302", "55")
k2 = .Person~New("StrafverteidigunginderPraxis", "3002", 44)
Say k1~Vorlesung k1~LvNummer k1~Studierendenanzahl
Say k2~Vorlesung k2~LvNummer k2~~erhoeheStudierendenanzahl(6)~Studierendenanzahl
::CLASS Person
::METHOD INIT
EXPOSE Vorlesung LVNummer Studierendenanzahl
USE ARG Vorlesung, LVNummer, Studierendenanzahl
::Attribute Vorlesung
::Attribute LvNummer
::Attribute Studierendenanzahl
::Method erhoeheStudierendenanzahl
EXPOSE Studierendenanzahl
USE Arg erhoehe
Studierendenanzahl = Studierendenanzahl + erhoehe
REXXout>Strafrecht 4302 55
REXXout>StrafverteidigunginderPraxis 3002 50
HÜ T05
1)
.Haus~NEW ~~"Kategorie="("Haus") ~groesse
.GrossesHaus~New ~~"Kategorie="("Villa") ~groesse
::CLASS Haus
::ATTRIBUTE Kategorie
::METHOD groesse
SAY self~Kategorie"=" "unter 200qm" "-" self
::CLASS GrossesHaus SUBCLASS Haus
::METHOD groesse
Say self~Kategorie"=" super "aber ueber 200qm"
REXXout>Haus= unter 200qm - a HAUS
REXXout>Villa= The HAUS class aber ueber 200qm
2)
Say "ErfindungGluehbirne:" .Jahr~Erfindung (Test 1)
o=.Jahr~NEW
Say "ErfindungGluehbirne:" o~Erfindung (Test 2)
::CLASS Jahr
::Constant Erfindung "1879"
REXXout>ErfindungGluehbirne: 1879 TEST 1
REXXout>ErfindungGluehbirne: 1879 TEST 2
LG
Magda und Maria