Standarddialoge von VBA

Einlesen eines Wertes

Nachdem Variablen vorgestellt wurden, können nun Werte eingelesen werden, denn jetzt können die eingelesenen Werte in die Speicherplätze der Variablen geschrieben und so später verwendet werden.

Das Programm »EVA« ist nach dem Prinzip „Eingabe-Verarbeitung-Ausgabe“ aufgebaut.

Das folgende Programmbeispiel spielt in einem hypothetischen Land mit 14 Prozent Mehrwertsteuer.

Ein Aufruf der Funkton »VBA.Interaction.InputBox« liest einen Wert vom Benutzer ein und ergibt diesen Wert.

Der Wert der Variablen »netto« ist nicht durch den Quelltext festgelegt, sondern wird erst bei der Ausführung des Programmes durch den Benutzer festgelegt.

Das Sub »VBA.Interaction.MsgBox« gibt dann den Wert der Variablen »brutto« aus.

Modul1

Option Explicit
Sub Eva()
  Const Mehrwertsteuersatz As Double = 1.14
  Dim netto As Double
  Let netto = VBA.Interaction.InputBox( Prompt := "Hier bitte eine Zahl eingeben" )
  Dim brutto As Double
  Let brutto = Mehrwertsteuersatz * netto
  VBA.Interaction.MsgBox brutto
End Sub

Einlesen zweier Werte

Das folgende Programm liest zwei Werte ein und schreibt sie auf die Konsole.

Modul1

Option Explicit
Sub Main()
  Dim x As Double : Let x = InputBox( Prompt := "x eingeben" )
  Dim y As Double : Let y = InputBox( Prompt := "y eingeben" )
  Debug.Print x, y
End Sub

MsgBox beim Programmieren

MsgBox-Dialoge lassen sich beim Programmieren gut einsetzen, um den Programmablauf verfolgen und bremsen zu können. So kann der Programmierer, sehen, wo das Programm sich gerade befindet, und dieses dann kontrolliert weiterlaufen lassen.

MsgBox "Am Anfang des Sub"

Übungsaufgaben

/   Übungsaufgabe

Überarbeiten Sie das erste Programm dieser Lektion so, daß bei der Ausgabe noch ein erklärender Text steht.

/   Übungsaufgabe

Schreiben Sie ein Programm, das zwei Werte einliest und deren Summe ausgibt!

/   Reserveaufgabe

Schreiben Sie ein Programm, das zwei Werte einliest und deren Produkt mit MsgBox ausgibt!