Option Explicit

Sub Rechenbeispiel

Begin Dialog BERECHNUNG 147,54, 204, 132, "Berechnung   -   Beispiel"
  TextBox 140,32,44,12, .edtBetrag1
  TextBox 140,48,44,12, .edtBetrag2
  TextBox 140,64,44,12, .edtBetrag3
  TextBox 140,84,44,12, .edtSumme
  OKButton 24,108,56,12
  CancelButton 116,108,56,12
  Text 12,8,172,20, "Im vorliegenden Beispiel werden die Beträge 1 bis 3 zusammengezählt. Bei negativen Beträgen ist ein Mimuszeichen (-) voranzusetzen.       Achtung: Bei der Betragseingabe . statt , benutzen!"
  Text 12,32,124,12, "Betrag 1:"
  Text 12,48,124,12, "Betrag 2:"
  Text 12,64,124,12, "Betrag 3:"
  Text 12,84,120,12, "Summe:"
End Dialog

	Dim Dlg1 As Berechnung
	Dim Button As Integer
	Dim betrag1 As Double
	Dim betrag2 As Double
	Dim betrag3 As Double
	Dim summe As Double

	Dlg1.edtBetrag1 = "0,00"
	Dlg1.edtBetrag2 = "0,00"
	Dlg1.edtBetrag3 = "0,00"
	Dlg1.edtSumme = "0,00"

	Button = Dialog(Dlg1)

	If Button = -1 Then
   	betrag1 = CDbl(Dlg1.edtBetrag1)								'Die Eingabe wird in den Datentyp Double convertiert
	   betrag2 = CDbl(Dlg1.edtBetrag2)
   	betrag3 = CDbl(Dlg1.edtBetrag3)
   	 
   	Print betrag1														'Funktionstest im Ausgabefenster
   	Print betrag2														'Funktionstest im Ausgabefenster
   	Print betrag3														'Funktionstest im Ausgabefenster
    
   	summe = betrag1 + betrag2 + betrag3							'Die Betraege werden addiert
    
    	Dlg1.edtBetrag1 = Format(betrag1, "0.00#,## €")			'und Schlussendlich in Eurobetraege formatiert.
    	Dlg1.edtBetrag2 = Format(betrag2, "0.00#,## €")
    	Dlg1.edtBetrag3 = Format(betrag3, "0.00#,## €")
    	Dlg1.edtSumme = Format(summe, "0.00#,## €")
    
    	Dialog Dlg1															'Der Dialog wird nochmals (neu berechnet) angezeigt - durch erneutes Druecken des OK-Buttons wird der Dialog geschlossen.
	End If

	Print Dlg1.edtSumme

End Sub