vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 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 - Fortgeschrittene
Umrechnungs Problem 
Autor: Tredory
Datum: 20.06.08 21:32
Hallo,
Folgendes, ich bin gerade ein Programm am Erstellen um bestimmte Elektronische Schaltkreise zu berechnen. Nun will ich bei der Eingabe der werte flexibel sein, und kann halt über eine combobox auswählen in welcher einheit der Wert eingegeben wurde. Dazu habe ich mir eine Funktion Erstellt. 

    Public Function Konvertieren(ByVal Kategorie As Kategorie, ByVal Einheit1 _
      As Integer, ByVal Einheit2 As Integer, ByVal Wert As Double)
        Dim Ausgabe As Double
 
        Select Case Kategorie           'Überprüfen welche einheit umgewandelt 
        ' werden soll.
 
            Case Konvert.Kategorie.Zeit             'Es soll Zeit umgewandelt 
            ' werden.
 
                Select Case Einheit1                'Den Eingegebenen Wert in 
                ' Sekunden umwandeln um, für die Ausgangsberechnung immer eine 
                ' einheitliche einheit zu haben.
                    Case 0                          'Stunden in Sekunden.
                        Ausgabe = (60 ^ 2) * Wert
                    Case 1                          'Minuten in Sekunden.
                        Ausgabe = Wert * 60
                    Case 2
                        Ausgabe = Wert              'Sekunden in Sekunden.
                    Case 3
                        Ausgabe = Wert / 1000       'Millisekunden in Sekunden.
                    Case 4
                        Ausgabe = Wert / 1000000    'Mikrosekunden in Sekunden.
                    Case 5
                        Ausgabe = Wert / 1000000000 'Nanosekunden in sekunden
                End Select
 
                Select Case Einheit2                'Den gerade umgewandelten 
                ' Wert in die Ausgabeeinheit bringen.
                    Case 0
                        Ausgabe = Ausgabe / (60 ^ 2)
                    Case 1
                        Ausgabe = Ausgabe / 60
                    Case 2                          'case 2 bleibt leer, da 
                    ' Ausgabe schon in Sekunden ist.
 
                    Case 3
                        Ausgabe = Ausgabe * 1000
                    Case 4
                        Ausgabe = Ausgabe * 1000000
                    Case 5
                        Ausgabe = Ausgabe * 1000000000
                End Select
 
            Case Konvert.Kategorie.Wiederstand      'Es soll der Wiederstand 
            ' umgerechnet werden.
                Select Case Einheit1                'Eingabe auf einheitliche 
                ' Einheit bringen.
                    Case 0                          'Milliohm in Ohm.
                        Ausgabe = Wert / 1000
                    Case 1                          'Ohm in Ohm.
                        Ausgabe = Wert
                    Case 2                          'Kiloohm in Ohm.
                        Ausgabe = Wert * 1000
                    Case 3                          'Megaohm in Ohm.
                        Ausgabe = Wert * 1000000
                End Select
 
                Select Case Einheit2                'Den in Ohm gewandelten 
                ' Wert in das Ausgabeformat bringen.
                    Case 0
                        Ausgabe = Ausgabe * 1000
                    Case 1
                        'case 1 bleibt leer, da Ausgabe bereits in Ohm ist.
                    Case 2
                        Ausgabe = Ausgabe / 1000
                    Case 3
                        Ausgabe = Ausgabe / 1000000
                End Select
            Case Konvert.Kategorie.ElKapazität
                Select Case Einheit1                'Den Eingegebenen Wert in 
                ' ein Einheitliches Format bringen.
                    Case 0                          'Picofarad in Mikrofarad.
                        Ausgabe = Wert / 1000000
                    Case 1                          'Nanofarad in Mikrofarad.
                        Ausgabe = Wert / 1000
                    Case 2                          'Mikrofarad in Mikrofarad.
                        Ausgabe = Wert
                    Case 3                          'Millifarad in Mikrofarad.
                        Ausgabe = Wert * 1000
                    Case 4                          'Farad in Mikrofarad.
                        Ausgabe = Wert * 1000000
                End Select
 
                Select Case Einheit2
                    Case 0
                        Ausgabe = Ausgabe * 1000000
                    Case 1
                        Ausgabe = Ausgabe * 1000
                    Case 2
 
                    Case 3
                        Ausgabe = Ausgabe / 1000
                    Case 4
                        Ausgabe = Ausgabe / 1000000
                End Select
        End Select 'Kategorie
 
        Return Ausgabe
    End Function 'Konvertieren
fortsetzung folgt
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Umrechnungs Problem1.113Tredory20.06.08 21:32
Re: Umrechnungs Problem620Tredory20.06.08 21:33
Re: Umrechnungs Problem591Christian2521.06.08 01:11
Re: Umrechnungs Problem595Tredory21.06.08 14:05

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