VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Kinokarten"
   ClientHeight    =   5205
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7785
   LinkTopic       =   "Form1"
   ScaleHeight     =   5205
   ScaleWidth      =   7785
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox tfGesamtpreis 
      Enabled         =   0   'False
      Height          =   495
      Left            =   360
      TabIndex        =   5
      Top             =   3720
      Width           =   2535
   End
   Begin VB.CommandButton bsNeu 
      Caption         =   "Neu eingeben"
      Height          =   495
      Left            =   3600
      TabIndex        =   4
      Top             =   2160
      Width           =   2535
   End
   Begin VB.CommandButton bsBerechnen 
      Caption         =   "Berechnen"
      Height          =   495
      Left            =   360
      TabIndex        =   3
      Top             =   2160
      Width           =   2535
   End
   Begin VB.TextBox tfNummerReihe 
      Height          =   495
      Left            =   3600
      TabIndex        =   1
      Top             =   960
      Width           =   2535
   End
   Begin VB.TextBox tfAnzahlKarten 
      Height          =   495
      Left            =   360
      TabIndex        =   7
      Top             =   960
      Width           =   2535
   End
   Begin VB.Label Label3 
      Caption         =   "Gesamtpreis"
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   3480
      Width           =   2415
   End
   Begin VB.Label Label2 
      Caption         =   "Nummer der Reihe"
      Height          =   255
      Left            =   3600
      TabIndex        =   2
      Top             =   720
      Width           =   2295
   End
   Begin VB.Label Label1 
      Caption         =   "Anzahl Karten"
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   720
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'Variablen für die Eingabe
Dim mAnzahlKarten As Integer
Dim mNummerReihe As Integer

'Variablen für Zwischenergebnisse
Dim mEinzelpreis As Single

'Variablen für die Ausgabe
Dim mGesamtPreis As Single


Private Sub Form_Load()
  Form1.Show
  tfAnzahlKarten.SetFocus
End Sub

Private Sub tfAnzahlKarten_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 _
  Then
    tfNummerReihe.SetFocus
  End If
End Sub

Private Sub tfNummerReihe_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 _
  Then
    bsBerechnen.SetFocus
  End If
End Sub

Private Sub bsBerechnen_Click()
  przDatenuebernahme
  przGesamtpreisBerechnen
  przDatenuebergabe
  bsNeu.SetFocus
End Sub

Private Sub przDatenuebernahme()
  mAnzahlKarten = CInt(tfAnzahlKarten.Text)
  mNummerReihe = CInt(tfNummerReihe.Text)
End Sub

Private Sub przGesamtpreisBerechnen()
  'Einzelpreis für eine Karte bestimmen
  If mNummerReihe >= 1 And mNummerReihe <= 15 _
  Then
    mEinzelpreis = 5.5
  End If
  If mNummerReihe >= 16 And mNummerReihe <= 25 _
  Then
    mEinzelpreis = 6.7
  End If
  
  'Gesamtpreis bestimmen
  mGesamtPreis = mAnzahlKarten * mEinzelpreis
  
  'Ggf. Rabatt abziehen
  If mAnzahlKarten >= 10 _
  Then
    mGesamtPreis = mGesamtPreis - (mGesamtPreis * 5 / 100)
  End If
End Sub

Private Sub przDatenuebergabe()
  tfGesamtpreis.Text = mGesamtPreis
End Sub

Private Sub bsNeu_Click()
  tfAnzahlKarten.Text = ""
  tfNummerReihe = ""
  tfGesamtpreis = ""
  tfAnzahlKarten.SetFocus
End Sub