November 2022 - Wu_bp_2022w

HÜ Programmieren
by Wolfschwenger, Johann 29 Nov '22

29 Nov '22

Liebe alle, anbei HÜ Gruppe 1! Viele Grüße Katharina, Kenan, Hans Code: /* create an object for IE */ myIE = .OLEObject~New("InternetExplorer.Application") myIE~Width = 1000 myIE~Height = 800 Say "current dimensions of IE are:" myIE~Width "by" myIE~Height /* set new dimensions and browse IBM homepage */ myIE~Width = 1280 myIE~Height = 1024 myIE~Visible = .True -- now show the window myIE~Navigate("https://www.ibm.com") /* wait for 5 seconds */ Call SysSleep 5 doc=myIE~document -- get loaded document source=doc~body~outerhtml /* wait for 10 seconds */ Call SysSleep 5 myIE~quit say source Output: In source ist die IBM-Seite als HTML Code2: ComputerName = value("COMPUTERNAME",,"ENVIRONMENT") myComputer = .OLEObject~GetObject("WinNT://"||ComputerName||",computer") say "Standard properties of this VM:" say "Name:" myComputer~name say "Class:" myComputer~class say "GUID:" myComputer~guid say "Parent:" myComputer~parent say "Schema:" myComputer~schema Output: REXXout>Standard properties of this VM: REXXout>Name: VPCLAB-T-009 REXXout>Class: Computer REXXout>GUID: {DA438DC0-1E71-11CF-B1F3-02608C9E7553} REXXout>Parent: WinNT://LAB REXXout>Schema: WinNT://LAB/Schema/Computer _________________________________ Johann Wolfschwenger (er/ihn, he/him) Forschungsservice (Forschungsinformationssystem PURE) Research Service Center (Research Information System PURE) WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Building AR, 6.10, Welthandelsplatz 1, 1020 Vienna, Austria Tel: +43-1-313 36-5107 Fax: +43-1-313 36-905107 E-Mail: johann.wolfschwenger(a)wu.ac.at<mailto:johann.wolfschwenger@wu.ac.at> www.wu.ac.at/research/service<https://www.wu.ac.at/universitaet/organisation/dienstleistungseinrichtungen…>

1 0

G02 T06
by Kattavenos-Lukan, Maria 27 Nov '22

27 Nov '22

Liebe Alle, folgend unsere Programme: Programm 1 Say "Palatschinkenrezept" Palatschinke = .array ~of("Mehl", "Milch", "1Ei") Palatschinke[4] = "Marillenmarmelade" SAY Palatschinke~string"->" Do a OVER Palatschinke SAY "["a"]" END REXXout>Palatschinkenrezept REXXout>an Array-> REXXout>[Mehl] REXXout>[Milch] REXXout>[1Ei] REXXout>[Marillenmarmelade] Programm 2 Say "Rezept für Magdas Kakao" MagdasKakao= .list ~of("Rohkakaopulver", "Milch", "Kardamom", "Honig") SAY MagdasKakao~string"->" DO a OVER MagdasKakao SAY "["a"]" END REXXout>Rezept für Magdas Kakao REXXout>a List-> REXXout>[Kakaopulver] REXXout>[Milch] REXXout>[Kardamom] REXXout>[Honig] Liebe Grüße Maria und Magda

1 0

G03 T06
by Hietel, Birgit 24 Nov '22

24 Nov '22

Liebe Alle, hier unsere HÜ. Uns ist in der letzten Einheit wohl nicht alles ganz klar gewesen, daher gibt es einige Fragen. *** Aufgabe 1a: *** /**/ p1 = .Person~New("Kurt","Ostbahn","45000") p2 = .Person~New("Jazz","Gitti",55000) SAY p1~firstName p1~familyName p1~salary SAY p1~firstName p1~salary p1~~increaseSalary(10000)~salary ::CLASS Person ::METHOD INIT EXPOSE firstName familyName salary USE ARG firstName, familyName, salary ::ATTRIBUTE firstName ::ATTRIBUTE familyName ::ATTRIBUTE salary ::METHOD increaseSalary EXPOSE salary USE ARG increase salary = salary + increase SAY p1~salary Output: Kurt Ostbahn 45000 18 *-* SAY p1~salary 5 *-* SAY p1~firstName p1~salary p1~~increaseSalary(10000)~salary Error 97 running C:\U line 18: Object method not found. Error 97.1: Object "P1" does not understand message "SALARY". Process finished with exit code -97 Frage: Warum bekommen wir diese Fehlermeldung? *** Aufgabe 1b: *** /**/ p1 = .Person~New("Kurt","Ostbahn","45000") p2 = .Person~New("Jazz","Gitti",55000) SAY p1~firstName p1~familyName p1~salary SAY p1~firstName p1~salary p1~~increaseSalary(10000)~salary ::CLASS Person ::METHOD INIT EXPOSE firstName familyName salary USE ARG firstName, familyName, salary ::ATTRIBUTE firstName ::ATTRIBUTE familyName ::ATTRIBUTE salary ::METHOD increaseSalary EXPOSE salary USE ARG increase salary = salary + increase SAY "Hallihallo" Output: Kurt Ostbahn 45000 Hallihallo Kurt 45000 55000 Frage: Warum ist es mit „Hallihallo“ möglich (vgl. zu Aufgabe 1a) ? Wieso ist „Hallihallo“ in der zweiten Ausgabezeile? *** Aufgabe 2: *** tmpColl = .stream ~new("meininput.txt")~~open SAY "a" tmpColl~class~id":" DO i OVER tmpColl SAY "["i"]" END tmpColl~close Output: a Stream: Process finished with exit code 0 Frage: Wo soll mein input.txt gespeichert sein (Pfad), damit es im Output wiedergegeben wird? *** Aufgabe 3: *** shoppinglist = .list~of("orange", "banana", "apple", "almonds", "kiwi") shoppinglistArray = shoppinglist~makeArray-- make array say "This is my shopping list:" say shoppinglistArray shoppinglistArray = shoppinglist~makeArray~sort-- make & sort array say "This is my shopping list nicely ordered:" shoppinglistArray shoppinglistStream = .Stream~new("myoutput.txt")~~open("replace") shoppinglistStream~ArrayOut(shoppinglistArray) shoppinglistStream~close Output: This is my shopping list: orange banana apple almonds kiwi This is my shopping list nicely ordered: almonds apple banana kiwi orange Process finished with exit code 0 Frage: wo soll das myoutput.txt dann zu finden sein (Pfad)? Danke schon mal für eure Ideen und Lösungen 😊 Liebe Grüße und ein schönes Wochenende wünschen Jana & Birgit Birgit Hietel Studienrecht study regulations WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Gebäude LC, Ebene +2 Welthandelsplatz 1, 1020 Wien, Austria Tel: +43-1-313 36-5836 E-Mail: birgit.hietel(a)wu.ac.at<mailto:birgit.hietel@wu.ac.at> www.wu.ac.at<http://www.wu.ac.at/>

3 2

G1 HÜ6
by Selak, Kenan 24 Nov '22

24 Nov '22

Liebe alle, anbei HÜ Gruppe 1! Viele Grüße Katharina, Kenan, Johann Übung1: tmpColl = .directory ~new tmpColl["x_index"] = "x" tmpColl ~"[]="("y", "y_index") tmpColl ~~PUT("z", "z_index") tmpColl ~abc= "Alphabet" tmpColl ~mfg="Mit freundlichen Grüßen" SAY "Acronym 'ABC':" tmpColl~abc || ", 'MFG':" tmpColl~mfg SAY tmpColl~string":" DO i OVER tmpColl SAY "["i"]" END Output: REXXout>Acronym 'ABC': Alphabet, 'MFG': Mit freundlichen Grüßen REXXout>a Directory: REXXout>[z_index] REXXout>[y_index] REXXout>[MFG] REXXout>[x_index] REXXout>[ABC] ÜBUNG 2: coll_1 = .bag ~of("Apfel", "Orange", "Kirsche", "Banane") coll_2 = .bag ~of( "Banane", "Kirsche", "Kiwi", "Zwetschke") CALL dump coll_1~UNION(coll_2), "UNION " CALL dump coll_1~INTERSECTION(coll_2), "INTERSECTION" CALL dump coll_1~XOR(coll_2), "XOR " CALL dump coll_1~DIFFERENCE(coll_2), "DIFFERENCE " SAY coll_1~SUBSET(coll_1) "-" coll_1~SUBSET(coll_2) ::ROUTINE dump USE ARG tmpColl, title .output~CHAROUT( title tmpColl~string": ") DO i OVER tmpColl .output~CHAROUT("["i"] ") END .output~say OUTPUT: UNION a Bag: [Apfel] [Zwetschke] [Kiwi] [Kirsche] [Kirsche] [Orange] [Banane] [Banane] INTERSECTION a Bag: [Kirsche] [Banane] XOR a Bag: [Apfel] [Zwetschke] [Kiwi] [Orange] DIFFERENCE a Bag: [Apfel] [Orange] REXXout>1 - 0

1 0

G03 T05
by Hietel, Birgit 21 Nov '22

21 Nov '22

Liebe Alle, hier unsere HÜ: *** Aufgabe 1: *** h1 = .Schauspieler ~NEW ~~"NAME="("Bruce Willis") ~~Aussage~~Aussage2 .OesterreichischerSchauspieler ~NEW ~~"NAME="("Arnold Schwarzenegger") ~Aussage ::CLASS Schauspieler SUBCLASS Object ::ATTRIBUTE Name ::METHOD Aussage SAY self~Name":" "Jippi-ei-ey Schweinebacke" ::method Aussage2 say self~name":" "Ich bin ein Schauspieler" ::CLASS OesterreichischerSchauspieler SUBCLASS Schauspieler ::METHOD Aussage SAY self~Name":" "I'll be back!!!" say self~name":" "Ich bin ein oesterreichischer Schauspieler" self~aussage2:super Output: Bruce Willis: Jippi-ei-ey Schweinebacke Bruce Willis: Ich bin ein Schauspieler Arnold Schwarzenegger: I'll be back!!! Arnold Schwarzenegger: Ich bin ein oesterreichischer Schauspieler Arnold Schwarzenegger: Ich bin ein Schauspieler Process finished with exit code 0 *** Aufgabe 2: *** Village_People = .queue ~new Village_People ~~queue("C") ~~queue("A") ~~push("M") ~push("Y") SAY Village_People~string":" DO i OVER Village_People SAY "["i"]" END Output: a Queue: [Y] [M] [C] [A] Process finished with exit code 0 *** Aufgabe 3: *** say "resource named 'wu':" say .resources~wu ::resource wu ╔══╗ ╚╗╔╝ ╔╝(¯`v´¯) ╚══`.¸.[WU] ::END Output: resource named 'wu': â•”â•�â•�â•— â•šâ•—â•”â•� â•”â•�(Â¯`vÂ´Â¯) â•šâ•�â•�`.Â¸.[WU] Process finished with exit code 0 FRAGE: Warum übernimmt es im Output unsere Formatierung nicht? Schönes Wochenende euch allen. Liebe Grüße Jana & Birgit Birgit Hietel Studienrecht study regulations WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Gebäude LC, Ebene +2 Welthandelsplatz 1, 1020 Wien, Austria Tel: +43-1-313 36-5836 E-Mail: birgit.hietel(a)wu.ac.at<mailto:birgit.hietel@wu.ac.at> www.wu.ac.at<http://www.wu.ac.at/>

3 3

G02 T04 und T05
by Kattavenos-Lukan, Maria 20 Nov '22

20 Nov '22

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

1 0

G1 HÜ5
by Selak, Kenan 16 Nov '22

16 Nov '22

Liebe alle, anbei HÜ Gruppe 1! Viele Grüße Katharina, Kenan, Johann Übung 1: p1= .Person~New("Alex","12.12.2000","Linz","22") p2= .Person~New("Kenan","16.05.1955","Wien","67") SAY p1~firstName p1~Geburtsdatum p1~City p1~Alter SAY p1~firstName p1~Alter p1~~increaseAge(20)~Alter ::CLASS Person ::METHOD INIT EXPOSE firstName Geburtsdatum City Alter USE ARG firstName, Geburtsdatum, City, Alter self~init:super ::ATTRIBUTE firstName ::ATTRIBUTE Geburtsdatum ::ATTRIBUTE City ::ATTRIBUTE Alter ::METHOD increaseAge EXPOSE Alter USE ARG increase Alter = Alter + increase OUTPUT: REXXout>Alex 12.12.2000 Linz 22 REXXout>Alex 22 42 Übung 2: .Vogel ~new("Schwalbe") ~fliegen .Fisch ~new("Forelle") ~schwimmen .Dino ~new("Elasmosaurus") ~ausgestorben ::CLASS Tier ::ATTRIBUTE name ::METHOD INIT self~name = ARG(1) ::CLASS Vogel MIXINCLASS Tier ::METHOD fliegen SAY self~name": 'Ich kann fliegen...'" ::CLASS Fisch MIXINCLASS Tier ::METHOD schwimmen SAY self~name": 'Ich kann schwimmen...'" ::CLASS Dino SUBCLASS Vogel INHERIT Fisch ::METHOD ausgestorben self ~~fliegen ~~schwimmen OUTPUT: REXXout>Schwalbe: 'Ich kann fliegen...' REXXout>Forelle: 'Ich kann schwimmen...' REXXout>Elasmosaurus: 'Ich kann fliegen...' REXXout>Elasmosaurus: 'Ich kann schwimmen...'

1 0

G03 T04
by Jana Korunovska 10 Nov '22

10 Nov '22

Liebe alle, anbei HÜ4 Gruppe 3. LG, Jana und Birgit ### Aufgabe 1 #### /**/ p1 = .Abteilung~New; p1~department= "D1"; p1~ mitarbeiter= (150); p1~salary= "450000" p2=.Abteilung~New~~"department="("D2")~~"salary="(25000) p2~~"mitarbeiter="("18") SAY "department = " p1~department"," "number of employees =" p1~mitarbeiter"," "average salary =" p1~salary Say "department =" p2~department"," "number of employees =" p2~mitarbeiter"," "average salary =" p2~salary SAY p1~department p1~salary p1~~increaseSalary(10000)~salary ::CLASS Abteilung ::ATTRIBUTE department ::ATTRIBUTE mitarbeiter ::ATTRIBUTE salary ::METHOD increaseSalary EXPOSE salary USE ARG increase salary = salary + increase output department = D1, number of employees = 150, average salary = 450000 department = D2, number of employees = 18, average salary = 25000 D1 450000 460000 Process finished with exit code 0 ### Aufgabe 1 #### /**/ p1 = .Abteilung~New; p1~department= "D1"; p1~ mitarbeiter= (150); p1~salary= "450000" p2=.Abteilung~New~~"department="("D2")~~"salary="(25000) p2~~"mitarbeiter="("18") SAY "department = " p1~department"," "number of employees =" p1~mitarbeiter"," "average salary =" p1~salary Say "department =" p2~department"," "number of employees =" p2~mitarbeiter"," "average salary =" p2~salary SAY p1~department p1~salary p1~~increaseSalary(10000)~salary ::CLASS Abteilung ::ATTRIBUTE department ::ATTRIBUTE mitarbeiter ::ATTRIBUTE salary ::METHOD increaseSalary EXPOSE salary USE ARG increase salary = salary + increase output department = D1, number of employees = 150, average salary = 450000 department = D2, number of employees = 18, average salary = 25000 D1 450000 460000 Process finished with exit code 0

1 0

HÜ Gruppe 1
by Wolfschwenger, Johann 10 Nov '22

10 Nov '22

Liebe alle, anbei HÜ Gruppe 1! Viele Grüße Katharina, Kenan, Hans Übung 1: p1= .Person~New p1~firstName= "Alex" p1~gebDatum= "12.12.2000" p1~Stadt= "Linz" p1~Alter= "10" p2=.Person~New~~"firstName="("Kenan")~~"gebDatum="("16.05.1955")~~"Stadt="("Wien")~~"Alter="(20) SAY p1~firstName p2~Stadt p1~Gebdatum p2~Alter SAY p1~firstName p1~Alter p2~~increaseAge(10)~Alter Say p1~~increaseAge(10)~Alter ::CLASS Person ::ATTRIBUTE firstName ::ATTRIBUTE gebDatum ::ATTRIBUTE Stadt ::ATTRIBUTE Alter ::METHOD increaseAge EXPOSE Alter USE ARG increase Alter = Alter + increase Output: REXXout>Alex Wien 12.12.2000 20 REXXout>Alex 10 30 REXXout>20 Übung 2: Person = .Kind ~New ~~"name="("Baby") ~~Schreien .grosesKind ~New ~~"name="("Teenager") ~Schreien ::CLASS Kind SUBCLASS Object ::ATTRIBUTE name ::METHOD Schreien Say self~name":" "AHHHH" ::CLASS grosesKind SUBCLASS Kind ::ATTRIBUTE name ::METHOD Schreien Say self~name":" "Alter, loss mi in Rua!" Output: REXXout>Baby: AHHHH REXXout>Teenager: Alter, loss mi in Rua! _________________________________ Johann Wolfschwenger (er/ihn, he/him) Forschungsservice (Forschungsinformationssystem PURE) Research Service Center (Research Information System PURE) WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Building AR, 6.10, Welthandelsplatz 1, 1020 Vienna, Austria Tel: +43-1-313 36-5107 Fax: +43-1-313 36-905107 E-Mail: johann.wolfschwenger(a)wu.ac.at<mailto:johann.wolfschwenger@wu.ac.at> www.wu.ac.at/research/service<https://www.wu.ac.at/universitaet/organisation/dienstleistungseinrichtungen…>

1 0

ooRexx+BSF4ooRexx+Java für die Apple-User ...
by Rony G. Flatscher 08 Nov '22

08 Nov '22

Liebe TeilnehmerInnen, wie gestern im Kurs besprochen, hier die Links zu ooRexx mit BSF4ooRexx für MacOS: * über einen Dropboxlink auf meinen Rechner: <https://www.dropbox.com/sh/2iwzeyi5ssynhfo/AABNWQX75B6glZQIbkBEpbrba?dl=0> o wenn Sie noch kein Java auf Ihrem Apple installiert haben, dann können Sie "bellsoft-jdk8u352+8-macos-amd64-full.dmg" installieren, wenn Ihr Apple einen Intel-Chip hat und noch nicht den neuen M1/arm-Chip von Apple (ansonsten können Sie die Apple-M1/arm-Version z.B. von <https://download.bell-sw.com/java/8u352+8/bellsoft-jdk8u352+8-macos-aarch64…> herunterladen und installieren), o "AppleUniversal_BSF4ooRexx641GA-20220131.zip": beinhaltet ooRexx und BSF4ooRexx (das Java verfügbar macht) Beim Installieren ist es eventuell notwendig, nicht über Doppelklick die Installation zu starten, sondern über den dmg-Dateien das Eigenschaftsmenü (rechte Maustaste) zu öffnen und installieren dort auszuwählen (da kann man dann normalerweise insistieren, dass installiert werden soll, auch wenn die dmg-Datei aus dem Internet und nicht von Apple geladen wurde). Nach der Installation öffnen Sie die Anwendung "ooRexx" und Sie erhalten das Menü, das auch über "ooRexxTry.rxj" verfügt. Viel Erfolg! Mit freundlichem Gruß Rony G. Flatscher -- -- __________________________________________________________________________________ Prof. Dr. Rony G. Flatscher Department Wirtschaftsinformatik und Operations Management Institut für Wirtschaftsinformatik und Gesellschaft D2c 2.086 WU Wien Welthandelsplatz 1 A-1020 Wien/Vienna, Austria/Europe http://www.wu.ac.at __________________________________________________________________________________

1 0

2025

2024

2023

2022

Wu_bp_2022w November 2022