juanjespar
05.06.2009, aktualisiert um 10:26:04 Uhr
view4849
view4
0
Beitrags-Menü
  • Ausdrucken
  • Internen Beitrags-Link kopieren
  • Externen Beitrags-Link kopieren

Überprüfung von 2 Rechenwerten, ob diese Rechenbar sind (VB6)

gelöstFrageEntwicklung
Hallo!
habe das Problem das ich für einen Einheitenrechner 2 verschiedene wertebereiche einbinden muss...
(g , kg, oz darf nicht mit den metrischen Recheneinheiten rechenbar sein)

hier der code

Option Explicit

Private Sub Command1_Click()

Dim dblEinheit0 As Double
Dim dblEinheit1 As Double

If Not IsNumeric(Text1.Text) Then
MsgBox "Bitte Zahlen eingeben!"
Else
Select Case Trim(Text2.Text)
Case "mm"
dblEinheit0 = CDbl(Text1.Text) * 1
Case "cm"
dblEinheit0 = CDbl(Text1.Text) * 10
Case "m"
dblEinheit0 = CDbl(Text1.Text) * 1000
Case "km"
dblEinheit0 = CDbl(Text1.Text) * 1000000
Case "in"
dblEinheit0 = CDbl(Text1.Text) * 25.4
Case "ft"
dblEinheit0 = CDbl(Text1.Text) * 304.8
Case "yd"
dblEinheit0 = CDbl(Text1.Text) * 914.4
Case "g"
dblEinheit0 = CDbl(Text1.Text) * 1
Case "kg"
dblEinheit0 = CDbl(Text1.Text) * 1
Case "oz"
dblEinheit0 = CDbl(Text1.Text) * 1
Case Else
MsgBox "Bitte eine Einheit angeben! (mm, cm , m ,km ,in ,ft ,yd ,g ,kg ,uz)"
End Select

Select Case Trim(Text3.Text)
Case "mm"
dblEinheit1 = dblEinheit0 * 1
Case "cm"
dblEinheit1 = dblEinheit0 / 10
Case "m"
dblEinheit1 = dblEinheit0 / 1000
Case "km"
dblEinheit1 = dblEinheit0 / 1000000
Case "in"
dblEinheit1 = dblEinheit0 / 25.4
Case "ft"
dblEinheit1 = dblEinheit0 / 304.8
Case "yd"
dblEinheit1 = dblEinheit0 / 914.4
Case "g"
dblEinheit1 = dblEinheit0 / 1
Case "kg"
dblEinheit1 = dblEinheit0 / 1
Case "oz"
dblEinheit1 = dblEinheit0 / 1
Case Else
MsgBox "Bitte eine Einheit angeben! (mm, cm , m ,km ,in ,ft ,yd ,g ,kg ,uz)"
End Select

End If

ausgabe.Caption = CStr(dblEinheit1)

End Sub

Private Sub Command2_Click()
End
End Sub
Share articleTeilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 117536

Url: https://administrator.de/forum/ueberpruefung-von-2-rechenwerten-ob-diese-rechenbar-sind-vb6-117536.html

Ausgedruckt am: 18.05.2025 um 04:05 Uhr

4 Kommentare
Neuester Kommentar
Goto Top
76109
76109 05.06.2009 um 12:01:32 Uhr
Goto Top
Hallo JuanJespar!

Das würde ich persönlich, anstatt mit Case über ListBoxen machen.

Etwa in der Art:

ListBox 1 alle Einheiten anzeigen und ListBox 2 alle Einheiten passend zur Auswahl von ListBox 1 anzeigen.

Oder: In jeder Case-Anweisung von Text2.Text z.B. ein Call EinheitLaenge()

Private Sub EinheitLaenge()
  Select Case Trim(Text3.Text)
    Case "mm"  
      dblEinheit1 = dblEinheit0 * 1
    Case "cm"  
      dblEinheit1 = dblEinheit0 / 10
    ...
    Case Else
      MsgBox "Msg"  
  End Select
End Sub

Gruß Dieter
JuanJespar
JuanJespar 05.06.2009 um 12:54:47 Uhr
Goto Top
Function Rechnelaenge() As Double

Dim dblAusgangswert As Double
Dim dblErgebniswert As Double

Select Case Trim(Ausgangseinheit.Text)
Case "mm"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1
Case "cm"
dblAusgangswert = CDbl(Ausgangswert.Text) * 10
Case "m"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1000
Case "km"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1000000
Case "in"
dblAusgangswert = CDbl(Ausgangswert.Text) * 25.4
Case "ft"
dblAusgangswert = CDbl(Ausgangswert.Text) * 304.8
Case "yd"
dblAusgangswert = CDbl(Ausgangswert.Text) * 914.4
Case Else
MsgBox "Bitte eine Längeneinheit angeben!"
End Select

Select Case Trim(Ergebniseinheit.Text)
Case "mm"
dblErgebniswert = dblAusgangswert * 1
Case "cm"
dblErgebniswert = dblAusgangswert / 10
Case "m"
dblErgebniswert = dblAusgangswert / 1000
Case "km"
dblErgebniswert = dblAusgangswert / 1000000
Case "in"
dblErgebniswert = dblAusgangswert / 25.4
Case "ft"
dblErgebniswert = dblAusgangswert / 304.8
Case "yd"
dblErgebniswert = dblAusgangswert / 914.4
Case Else
MsgBox "Bitte eine Längeneinheit angeben!"
End Select

Rechnelaenge = dblErgebniswert

End Function

Function Rechnegewicht() As Double

Dim dblAusgangswert As Double
Dim dblErgebniswert As Double

Select Case Trim(Ausgangseinheit.Text)
Case "g"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1
Case "kg"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1000
Case "oz"
dblAusgangswert = CDbl(Ausgangswert.Text) * 28.3495231
Case Else
MsgBox "Bitte eine Gewichtseinheit angeben!"
End Select

Select Case Trim(Ergebniseinheit.Text)
Case "g"
dblErgebniswert = dblAusgangswert * 1
Case "kg"
dblErgebniswert = dblAusgangswert / 1000
Case "oz"
dblErgebniswert = dblAusgangswert / 28.3495231
Case Else
MsgBox "Bitte eine Gewichtseinheit angeben!"
End Select

Rechnegewicht = dblErgebniswert

End Function
JuanJespar
JuanJespar 05.06.2009 um 15:27:19 Uhr
Goto Top
Zitat von @JuanJespar:
Function Rechnelaenge() As Double

Dim dblAusgangswert As Double
Dim dblErgebniswert As Double

Select Case Trim(Ausgangseinheit.Text)
Case "mm"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1
Case "cm"
dblAusgangswert = CDbl(Ausgangswert.Text) * 10
Case "m"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1000
Case "km"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1000000
Case "in"
dblAusgangswert = CDbl(Ausgangswert.Text) * 25.4
Case "ft"
dblAusgangswert = CDbl(Ausgangswert.Text) * 304.8
Case "yd"
dblAusgangswert = CDbl(Ausgangswert.Text) * 914.4
Case Else
MsgBox "Bitte eine Längeneinheit
angeben!"
End Select

Select Case Trim(Ergebniseinheit.Text)
Case "mm"
dblErgebniswert = dblAusgangswert * 1
Case "cm"
dblErgebniswert = dblAusgangswert / 10
Case "m"
dblErgebniswert = dblAusgangswert / 1000
Case "km"
dblErgebniswert = dblAusgangswert / 1000000
Case "in"
dblErgebniswert = dblAusgangswert / 25.4
Case "ft"
dblErgebniswert = dblAusgangswert / 304.8
Case "yd"
dblErgebniswert = dblAusgangswert / 914.4
Case Else
MsgBox "Bitte eine Längeneinheit
angeben!"
End Select

Rechnelaenge = dblErgebniswert

End Function

Function Rechnegewicht() As Double

Dim dblAusgangswert As Double
Dim dblErgebniswert As Double

Select Case Trim(Ausgangseinheit.Text)
Case "g"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1
Case "kg"
dblAusgangswert = CDbl(Ausgangswert.Text) * 1000
Case "oz"
dblAusgangswert = CDbl(Ausgangswert.Text) * 28.3495231
Case Else
MsgBox "Bitte eine Gewichtseinheit angeben!"
End Select

Select Case Trim(Ergebniseinheit.Text)
Case "g"
dblErgebniswert = dblAusgangswert * 1
Case "kg"
dblErgebniswert = dblAusgangswert / 1000
Case "oz"
dblErgebniswert = dblAusgangswert / 28.3495231
Case Else
MsgBox "Bitte eine Gewichtseinheit angeben!"
End Select

Rechnegewicht = dblErgebniswert

End Function


76109
76109 05.06.2009 um 18:33:12 Uhr
Goto Top
Hallo JuanJespar!

Eigentlich hatte ich an etwas in der Art gedacht:
Option Explicit

Const MsgE = "Bitte eine Einheit angeben! (mm, cm , m ,km ,in ,ft ,yd ,g ,kg ,uz)"  
Const MsgG = "Bitte eine Gewichtseinheit angeben!"  
Const MsgL = "Bitte eine Längeneinheit angeben!"  

Private Sub CommandButton1_Click()

    If Not IsNumeric(EingabeWert.Text) Then
        MsgBox "Bitte eine Zahl eingeben!"  
    Else
        Select Case LCase(Trim(EingabeEinheit.Text))
            Case "mm":  Call RechneLaenge(1)  
            Case "cm":  Call RechneLaenge(10)  
            Case "m":   Call RechneLaenge(1000)  
            Case "km":  Call RechneLaenge(1000000)  
            Case "in":  Call RechneLaenge(25.4)  
            Case "ft":  Call RechneLaenge(304.8)  
            Case "yd":  Call RechneLaenge(919.4)  
            Case "g":   Call RechneGewicht(1)  
            Case "kg":  Call RechneGewicht(1000)  
            Case "oz":  Call RechneGewicht(28.3495231)  
            Case Else:  MsgBox MsgE
        End Select
    End If
End Sub

Private Sub RechneGewicht(ByVal Faktor As Double)
    
    Dim Eingabe As Double, Ausgabe As Double
    
    Eingabe = CDbl(EingabeWert.Text) * Faktor
    
    Select Case LCase(Trim(AusgabeEinheit.Text))
        Case "g":   Ausgabe = Eingabe  
        Case "kg":  Ausgabe = Eingabe / 1000  
        Case "oz":  Ausgabe = Eingabe / 28.3495231  
        Case Else:  Ausgabe = 0:  MsgBox MsgG
    End Select
    
    If Ausgabe = 0 Then Ergebnis.Caption = "" Else Ergebnis.Caption = CStr(Ausgabe)  
End Sub

Private Sub RechneLaenge(ByVal Faktor As Double)

    Dim Eingabe As Double, Ausgabe As Double
    
    Eingabe = CDbl(EingabeWert.Text) * Faktor
    
    Select Case LCase(Trim(AusgabeEinheit.Text))
        Case "mm":  Ausgabe = Eingabe  
        Case "cm":  Ausgabe = Eingabe / 10  
        Case "m":   Ausgabe = Eingabe / 1000  
        Case "km":  Ausgabe = Eingabe / 1000000  
        Case "in":  Ausgabe = Eingabe / 25.4  
        Case "ft":  Ausgabe = Eingabe / 304.8  
        Case "yd":  Ausgabe = Eingabe / 914.4  
        Case Else:  Ausgabe = 0:  MsgBox MsgL
    End Select

    If Ausgabe = 0 Then Ergebnis.Caption = "" Else Ergebnis.Caption = CStr(Ausgabe)  
End Sub

Gruß Dieter

PS Setze Code-Formatierung so (ohne Dollarzeichen):
<$code>
Dein Code
<$/code>
gelöstFrageEntwicklung
Mehr von JuanJesparJuanJesparArabische Zahlen in Römische Rechnen in VB6JuanJespar - 12 KommentareJuanJesparSortieren von eine Textbox in VB6 (nach ascii) wie Bubblesort ohne Array nurJuanJespar - 2 KommentareJuanJesparArray übernahme für Varianz berechnung VB6JuanJespar - 6 Kommentare
Heiß diskutiert
DiWiDiWiNutzung eines Teams in Hyper-V 2025DiWiDiWi - 49 Kommentarem.sterDELL PowerEdge bootet nichtm.ster - 36 Kommentarem.sterHat Microsoft seinen eigenen Patchday verpenntm.ster - 29 KommentareAbstrackterSystemimperatorRealtek 2.5GbE LAN-Chip (2.5 Gbps-1 Gbps 100 Mbps) hängt bei 10MbitsAbstrackterSystemimperator - 28 KommentarejensgebkenWindows-Update geht auf Notebook nichtjensgebken - 23 KommentarePMackeWindows - Automatische Passworteingabe in Anmeldebildschirm und UAC PromptPMacke - 22 KommentareMysticFoxDEWindows 11 24H2 - Der neue Defender HorrorMysticFoxDE - 20 KommentareSeekuhrittyOffice 365 Hack trotz MFA, ohne AdminrechteSeekuhritty - 20 KommentareYan2021Daten auf Google Drive sicher ablegen möglich?Yan2021 - 19 KommentaremarkaurelTP-Link Routerkonfigurationmarkaurel - 16 Kommentare1Werner1Windows 11 ( 24H2) ohne TPM Prüfung auf jeden PC !1Werner1 - 16 KommentareTomTom89Univention + OpenXchange Mailserver - CalDAV CardDAVTomTom89 - 16 KommentarePenny.CilinMicrosoft streicht NPOs die 10 kostenlosen MS 365 Business Premium LizenzenPenny.Cilin - 15 Kommentare