vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Verschachtelte Case-Anweisung verkürzen 
Autor: dk-team
Datum: 25.01.09 13:25
Guten Tag,
ich habe folgende Frage zum beigefügten Code: 
'Berechnung der Volumina nach Eingabe der Rohmaterialabmessungen 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Select Case ComboBox1.SelectedItem
            Case "Rund" : TextBox4.Text = Zylindervolumen(DmZyl.Text, _
              HZyl.Text, TextBox3.Text).ToString("#,#0.000")
                'TextBox6.Text = Zylindervolumen(DmZyl.Text, HZyl.Text, 
                ' TextBox3.Text, TextBox2.Text).ToString("#,#0.00")
                Select Case ComboBox3.SelectedItem
                    Case "WB 2.1" : TextBox6.Text = (Zylindervolumen( _
                      DmZyl.Text, HZyl.Text, TextBox3.Text, _
                      TextBox2.Text).ToString("#,#0.00")) + 35
                    Case "WZ 2.2" : TextBox6.Text = (Zylindervolumen( _
                    DmZyl.Text, HZyl.Text, TextBox3.Text, _
                    TextBox2.Text).ToString("#,#0.00")) + 45
                    Case "APZ 3.1" : TextBox6.Text = (Zylindervolumen( _
                    DmZyl.Text, HZyl.Text, TextBox3.Text, _
                    TextBox2.Text).ToString("#,#0.00")) + 70
                    Case "APZ 3.2" : TextBox6.Text = (Zylindervolumen( _
                    DmZyl.Text, HZyl.Text, TextBox3.Text, _
                    TextBox2.Text).ToString("#,#0.00")) + 60
                    Case Else
                        TextBox6.Text = Zylindervolumen(DmZyl.Text, HZyl.Text, _
                          TextBox3.Text, TextBox2.Text).ToString("#,#0.00")
                End Select
            Case "Rohr" : TextBox4.Text = Rohrvolumen(ADmRoh.Text, WdRoh.Text, _
              HRoh.Text, TextBox3.Text).ToString("#,#0.000")
                'TextBox6.Text = Rohrvolumen(ADmRoh.Text, WdRoh.Text, 
                ' HRoh.Text, TextBox3.Text, TextBox2.Text).ToString("#,#0.00")
                Select Case ComboBox3.SelectedItem
                    Case "WB 2.1" : TextBox6.Text = Rohrvolumen(ADmRoh.Text, _
                      WdRoh.Text, HRoh.Text, TextBox3.Text, _
                      TextBox2.Text).ToString("#,#0.00") + 35
                    Case "WZ 2.2" : TextBox6.Text = Rohrvolumen(ADmRoh.Text, _
                    WdRoh.Text, HRoh.Text, TextBox3.Text, _
                    TextBox2.Text).ToString("#,#0.00") + 45
                    Case "APZ 3.1" : TextBox6.Text = Rohrvolumen(ADmRoh.Text, _
                    WdRoh.Text, HRoh.Text, TextBox3.Text, _
                    TextBox2.Text).ToString("#,#0.00") + 70
                    Case "APZ 3.2" : TextBox6.Text = Rohrvolumen(ADmRoh.Text, _
                    WdRoh.Text, HRoh.Text, TextBox3.Text, _
                    TextBox2.Text).ToString("#,#0.00") + 60
                    Case Else
                        TextBox6.Text = Rohrvolumen(ADmRoh.Text, WdRoh.Text, _
                          HRoh.Text, TextBox3.Text, TextBox2.Text).ToString( _
                          "#,#0.00")
                End Select
            Case Else
                TextBox4.Text = ("Fehler")
        End Select
        TextBox4.ReadOnly = True
        TextBox6.ReadOnly = True
    End Sub
Wie kann man diesen umfangreichen Programmcode verkürzen? Ich habe das Gefühl das man da noch etwas verkürzen kann - komme aber nicht drauf
Vielen, vielen Dank.
dk-team


Mit freundlichem Gru?

dk-team

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Verschachtelte Case-Anweisung verkürzen1.986dk-team25.01.09 13:25
Re: Verschachtelte Case-Anweisung verkürzen1.283ModeratorFZelle25.01.09 20:10
Re: Verschachtelte Case-Anweisung verkürzen1.177dk-team25.01.09 21:01
Re: Verschachtelte Case-Anweisung verkürzen1.670ModeratorFZelle25.01.09 22:07
Re: Verschachtelte Case-Anweisung verkürzen1.229dk-team26.01.09 18:46

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel