Test Nr. 3 L

Wirtschaftsinformatik 1

Prof. Dr. Thomas Off L

(Bitte wenden)

Seite 1 von 2 beuth_wi1_test3_l_v1-2.docx

Test Nr. 3

Anrede  Frau  Herr  _______ Datum:

Name, Vorname

MatrikelNr:

Ich möchte das Ergebnis meines Tests per E-Mail an nachfolgende Adresse erhalten:

E-Mailadresse:

(Schreiben Sie deutlich. Lassen Sie die Angabe leer, wenn Sie keine Mail von Prof. Off wollen.)

Summe: / 45 Punkte

Halten Sie Ihren Studierendenausweis bereit. Es sind keine Hilfsmittel zulässig. Abschreiben oder Abgucken sind nicht gestattet - auch der Versuch führt zum Ausschluss vom Test.

Aufgabe 1 ___ / 13,5 Punkte

Scheiben Sie im Modul mdlTelefontarif eine öffentliche Funktion berechne , die als Parameter die Dauer eines Telefongesprächs in Minuten übergeben bekommt (z.B. 3,5 Minuten). Die Funktion soll die Gesprächskosten ermitteln und diese als Ergebnis der

Funktion zurückliefern. Legen Sie selbst einen Minutenpreis fest (z.B. 0,16 ct je Minute). Das Modul mdlTelefontarif beginnt hier:

Option Compare Database Option Explicit

'1P Public, 1P Function, 0.5 Bezeichner

'2P alle Parameterbezeichner, 2P alle As+Datentyp, 2P Rückgabewert Function berechne(psglDauer As Single) As Currency

Dim curPreis As Currency ' 0.5P

' 0.5P Zuweisung, 0.5P Ausdruck, ' 2P Parameterverwendung im Ausdruck Let curPreis = psglDauer * 0.16

'1P Rückgabe des Ergebnisses Let berechne = curPreis End Function '0.5P

Wirtschaftsinformatik 1

Prof. Dr. Thomas Off L

Seite 2 von 2 beuth_wi1_test3_l_v1-2.docx

Aufgabe 2 ___ / 31,5 Punkte

Gegeben ist das folgende Formular. Die Namen der Oberflächenelemente sind angegeben. Schreiben Sie zwei Ereignisprozeduren. Als erstes eine Ereignisprozedur, die aufgerufen wird, wenn der Benutzer auf die Schaltfläche

"Schließen" klickt. Sie soll das aktuelle Formular schließen. Die zweite Ereignisprozedur soll aufgerufen werden, sobald der Benutzer auf die Schaltfläche „Berechnen“ klickt. Ermitteln Sie dann den im Feld „Gesprächsdauer (min)“ eingegebenen Wert. (Gehen Sie davon aus, dass dort immer ein Text eingegeben wurde.) Rufen Sie die Funktion im Modul

mdlTelefontarif (aus Aufgabe 1) auf und übergeben Sie diesen Wert als Parameter.

Stellen Sie das Ergebnis der Funktion im Feld „Kosten (ct.)“ dar.

Option Compare Database Option Explicit

'1P Private, 0.5P Sub, 2P Bezeichner, 2P Ereignis Private Sub btnAbbrechen_Click()

'1P DoCmd.Close, 1P acForm, 0.5P Name DoCmd.Close acForm, Me.Name

' Alternativ mit gleicher Punktzahl ' DoCmd.Close acForm, "frmTelefontarif"

End Sub '0.5

'1P Private, 0.5P Sub, 2P Bezeichner, 2P Ereignis Private Sub btnAusrechnen_Click()

' 0.5P alle Deklarationen inkl. passender Datentypen Dim sglGespraechsdauer As Single

Dim curKosten As Currency

' 0.5P Let+Bezeichner+Zuweisung, 0.5P Val/Typumwandlung ' 1P Me, 2P Bezeichner, 1P Value

Let sglGespraechsdauer = Val(Me.txtDauer.Value)

'2P Let+Bezeichner+Zuweisung, 1P Modul, 2P Bezeichner, '2P Parameterüberabe für alle Parameter

Let curKosten = mdlTelefontarif.berechne(sglGespraechsdauer)

' 0.5P Let+Bezeichner+Zuweisung ' 1P Me, 2P Bezeichner, 1P Value Let Me.txtKosten.Value = curKosten

End Sub '0.5P