Volumenberechnung

  • VB

  • I-roX
  • 1465 Aufrufe 5 Antworten

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Volumenberechnung

    Hi, schreiben bald qualli darum bitte helft mir.

    Also wir müssen von einem quader das volumen ausrechnen und das müssen wir so programmieren.

  • Auf die Schnelle:

    Erstelle ein neues Standard-Projekt mit 3 TextBoxen und einem CommandButton, hinterlege fuer den CommandButton folgenden Code:

    Private Sub Command1_Click()
    Dim Volumen As Double, Laenge As Double, Breite As Double, Hoehe As Double

    Laenge = Val(Text1.Text)
    Breite = Val(Text2.Text)
    Hoehe = Val(Text3.Text)
    Volumen = Laenge * Hoehe * Breite
    MsgBox "Ergebnis: " & Format(Volumen, "0.00"), vbOKOnly, "Errechnetes Volumen"

    End Sub


    Geht sicher auch kuerzer und noch ausgereifter, Fehleingaben werden nicht abgefangen, aber wenigstens werden hier die Texte aus den TextBoxen mit Val() in einen Zahlenwert umgewandelt :D
    Eingaben von Kommazahlen mit Punkt!!!

    Langt das so???