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