Matt: Matt verschob die Seite Übung Schrödinger: 08 Klasse lokal (ABAP) nach Übung Schrödinger: 08 Klassen lokal (ABAP), ohne dabei eine Weiterleitung anzulegen

2018-04-11T09:51:13Z

Matt verschob die Seite Übung Schrödinger: 08 Klasse lokal (ABAP) nach Übung Schrödinger: 08 Klassen lokal (ABAP), ohne dabei eine Weiterleitung anzulegen

← Nächstältere Version	Version vom 11. April 2018, 11:51 Uhr
(kein Unterschied)

Matt: Matt verschob die Seite Klasse lokal Schroed (ABAP) nach Übung Schrödinger: 08 Klasse lokal (ABAP), ohne dabei eine Weiterleitung anzulegen

2018-04-11T09:41:33Z

Matt verschob die Seite Klasse lokal Schroed (ABAP) nach Übung Schrödinger: 08 Klasse lokal (ABAP), ohne dabei eine Weiterleitung anzulegen

← Nächstältere Version	Version vom 11. April 2018, 11:41 Uhr
(kein Unterschied)

Matt: Matt verschob die Seite Klasse lokal Sch (ABAP) nach Klasse lokal Schroed (ABAP), ohne dabei eine Weiterleitung anzulegen

2018-04-09T11:17:53Z

Matt verschob die Seite Klasse lokal Sch (ABAP) nach Klasse lokal Schroed (ABAP), ohne dabei eine Weiterleitung anzulegen

← Nächstältere Version	Version vom 9. April 2018, 13:17 Uhr
(kein Unterschied)

Matt: Die Seite wurde neu angelegt: „Beispielklasse aus dem Buch Schrödinger programmiert ABAP für die Definition von lokalen klassen. REPORT zsch_matt_cmachine.…“

2018-04-09T11:16:47Z

Die Seite wurde neu angelegt: „Beispielklasse aus dem Buch Schrödinger programmiert ABAP für die Definition von lokalen klassen. <syntaxhighlight lang="abap"> REPORT zsch_matt_cmachine.…“

Neue Seite

Beispielklasse aus dem Buch Schrödinger programmiert ABAP für die Definition von lokalen klassen.

<syntaxhighlight lang="abap">
REPORT zsch_matt_cmachine.

CLASS lcl_wasserbehaelter DEFINITION.
" Öffentlich sichtbar
PUBLIC SECTION.
CONSTANTS: gc_wasser_haerte_grenze TYPE f VALUE 14.
" METHODS get_wasserstand EXPORTING ed_wasserstand TYPE i.
METHODS get_wasserstand
RETURNING value(rd_wasserstand) TYPE i.
METHODS set_wasserstand
IMPORTING value(id_wasserstand) TYPE i.
METHODS check_wasser_haerte.

" Nur für Vererbung sichtbar
PROTECTED SECTION.

" Nur privat sichtbar
PRIVATE SECTION.
DATA: gd_wasserstand TYPE i,
gd_wasser_haerte TYPE f.

ENDCLASS.

CLASS lcl_wasserbehaelter IMPLEMENTATION.
METHOD get_wasserstand.
rd_wasserstand = me->gd_wasserstand.
ENDMETHOD.

METHOD set_wasserstand.
me->gd_wasserstand = id_wasserstand.
ENDMETHOD.

METHOD check_wasser_haerte.
IF me->gd_wasser_haerte > gc_wasser_haerte_grenze.
MESSAGE 'AU, das tut weh!' TYPE 'I'.
ENDIF.
ENDMETHOD.
ENDCLASS.

CLASS lcl_kaffeevollautomat DEFINITION.
PUBLIC SECTION.
CLASS-DATA: anz_kva TYPE i.
CLASS-METHODS: class_constructor.
CLASS-METHODS: erhoehe_anz_kva.

METHODS: constructor.
METHODS: ein_kaffee_sil_vous_plait
IMPORTING
value(id_expresso) TYPE abap_bool OPTIONAL
value(id_verlaengerter) TYPE abap_bool OPTIONAL.
METHODS: bohne_nachfuellen
IMPORTING
ir_bohne TYPE REF TO zcl_matt_cbean.
METHODS: on_loaded FOR EVENT loaded OF zcl_matt_cbeanbox.

PRIVATE SECTION.
DATA: gd_wasserstand TYPE i,
gr_wasserbehaelter TYPE REF TO lcl_wasserbehaelter,
gr_bohnenbehaelter TYPE REF TO zcl_matt_cbeanbox.
ENDCLASS.

CLASS lcl_kaffeevollautomat IMPLEMENTATION.
METHOD class_constructor.
ENDMETHOD.

METHOD constructor.
CALL METHOD erhoehe_anz_kva.
CREATE OBJECT me->gr_wasserbehaelter.
me->gr_wasserbehaelter->set_wasserstand( id_wasserstand = 1000 ).

CREATE OBJECT me->gr_bohnenbehaelter.
" Events vom Bohnenbehälter im KVA registrieren
SET HANDLER me->on_loaded FOR me->gr_bohnenbehaelter.
ENDMETHOD.

METHOD ein_kaffee_sil_vous_plait.
ENDMETHOD.

METHOD erhoehe_anz_kva.
" Verschiedene Arten auf statische Attribute zuzugreifen:
anz_kva = anz_kva + 1.
lcl_kaffeevollautomat=>anz_kva = lcl_kaffeevollautomat=>anz_kva - 1.
ADD 1 TO lcl_kaffeevollautomat=>anz_kva.
ENDMETHOD.

METHOD bohne_nachfuellen.
me->gr_bohnenbehaelter->insert_bean( ir_cbean = ir_bohne ).
ENDMETHOD.

METHOD on_loaded.
"MESSAGE 'Bohnenbehälter ist voll.' TYPE 'I'.
ENDMETHOD.

ENDCLASS.

" Objektreferenz ist eine Variable, die die Speicheradresse
" eines Objekts enthält.
" Variablen, die Objekte enthalten, können nur als Objektreferenz
" angelegt werden.

" Deklaration einer Objektreferenz vom Objekttyp lcl_kaffeevollautomat
DATA: gr_kva_zuhause TYPE REF TO lcl_kaffeevollautomat,
gr_kva_arbeit TYPE REF TO lcl_kaffeevollautomat,
gr_arabica_bohne TYPE REF TO zcl_matt_cbean,
gd_zubereitungsart TYPE char40.

START-OF-SELECTION.

" Objektinstanzierung
CREATE OBJECT gr_kva_zuhause.
CREATE OBJECT gr_kva_arbeit.

DO 7150 TIMES.
CREATE OBJECT gr_arabica_bohne.
gr_kva_zuhause->bohne_nachfuellen( ir_bohne = gr_arabica_bohne ).
ENDDO.
</syntaxhighlight>

[[Category:ABAP]]

Übung Schrödinger: 08 Klassen lokal (ABAP) - Versionsgeschichte

Matt: Matt verschob die Seite Übung Schrödinger: 08 Klasse lokal (ABAP) nach Übung Schrödinger: 08 Klassen lokal (ABAP), ohne dabei eine Weiterleitung anzulegen

Matt: Matt verschob die Seite Klasse lokal Schroed (ABAP) nach Übung Schrödinger: 08 Klasse lokal (ABAP), ohne dabei eine Weiterleitung anzulegen

Matt: Matt verschob die Seite Klasse lokal Sch (ABAP) nach Klasse lokal Schroed (ABAP), ohne dabei eine Weiterleitung anzulegen

Matt: Die Seite wurde neu angelegt: „Beispielklasse aus dem Buch Schrödinger programmiert ABAP für die Definition von lokalen klassen. REPORT zsch_matt_cmachine.…“