Idealgewichtsrechner mit Ausgabe in 2. Form (VB.NET)

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Idealgewichtsrechner mit Ausgabe in 2. Form (VB.NET)

    Hallo zusammen, :)

    ich bin gerade dabei, einen Idealgewichtsrechner zu basteln, möchte aber die Ausgabe durch Klick auf einen Button auf eine 2. Form verlegen. Habe aber als Beginner keine Ahnung, wie das funktioniert. Kann mir bitte jemand helfen? Danke und Gruß,

    Jean.

    Hier wäre der bisherige Code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    4. System.EventArgs) _
    5. Handles MyBase.Load
    6. RadioButton1.Checked = True
    7. End Sub
    9. Private Sub Berechnen()
    11. Dim Gewicht As Single
    12. Dim Groesse As Single
    13. Dim Idealgewicht As Single
    14. Dim Faktor As Single = 0.9
    16. If RadioButton2.Checked = True Then Faktor = 0.85
    18. If Trim$(TextBox1.Text) <> "" Then
    19. Gewicht = CDec(TextBox1.Text)
    20. Else
    21. Gewicht = 0
    22. End If
    24. If Trim$(TextBox2.Text) <> "" Then
    25. Groesse = CDec(TextBox2.Text)
    26. Else
    27. Groesse = 0
    28. End If
    30. If Gewicht > 0 And Groesse > 0 Then
    31. Idealgewicht = CSng((Groesse - 100) * 0.9)
    32. Label1.Text() = "Ihr Idealgewicht: " & Idealgewicht & " kg" & " -" & _
    33. "Ihr Gewicht:" & Gewicht.ToString("0") & " kg"
    35. Select Case Gewicht - Idealgewicht
    36. Case Is < -0.5
    37. Label4.Text = "Sie haben Untergewicht"
    38. Case Is > 0.5
    39. Label4.Text = "Sie haben Übergewicht"
    40. Case Else
    41. Label4.Text = "Sie haben Normalgewicht"
    42. End Select
    44. Else
    45. Label1.Text() = "Ihr Wert: " & 0
    46. End If
    48. End Sub
    50. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
    51. System.EventArgs) Handles TextBox1.TextChanged
    52. Berechnen()
    53. End Sub
    55. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
    56. System.EventArgs) Handles TextBox2.TextChanged
    57. Berechnen()
    58. End Sub
    60. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
    61. System.EventArgs) Handles Label1.Click
    63. End Sub
    65. Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, _
    66. ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    68. End Sub
    69. End Class


    Hab das Ganze gebaut mit 2 Radiobuttons (f. männl./weibl), 2 Textboxen (f. Gewicht und Größe) und 4 Labeln (Label 1 Als Ausgabe, 2+3 als Bezeichner, lbl4 Ausgabe für evtl. Gewichtsabweichung) - man müsste also die 2 Label zur Ausgabe auf ein 2. Form verlegen...

    1. Du erstellst eine neue Form namens Ergebniss
    2. Darauf ziehst du ein Label
    3. aufrufen und anzeigen geht mit

      VB.NET-Quellcode

      1. Dim Form As New Ergebniss()
      2. Form.Label1.Text = "Ihr Wert X"
      3. Form.Show()


    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    @Andy16823 Dazu muss aber das Control als Zugriffsmodifizierer ​Public haben, was ne schlechte Idee ist.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Dann das Control auf Private und im Konstruktor den Wert setzen etwa so in Ergbniss einfügen

    VB.NET-Quellcode

    1. Public Sub New(Wert As String)
    3. InitializeComponent()
    4. Label1.Text = Wert
    6. End Sub


    und aufrufen geht mit

    VB.NET-Quellcode

    1. Dim Form As New Ergebniss("BMI: X")
    2. Form.Show()
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    Oder mit Properties arbeiten, was ich in fertigen Forms meistens für schöner halte. ;)
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ja das geht so in dem Form Ergebniss eine Eigenschaft anlegen

    VB.NET-Quellcode

    1. Private _BmiValue As String
    2. Public Property BmiValue() As String
    3. Get
    4. Return _BmiValue
    5. End Get
    6. Set(ByVal value As String)
    7. _BmiValue = value
    8. Label1.Text = value
    9. End Set
    10. End Property


    und so dann aufrufen

    VB.NET-Quellcode

    1. Dim Form As New Ergebniss()
    2. Form.BmiValue = "BMI "
    3. Form.Show()
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    @Jean So könnte Deine Sub Berechnen() aussehen:

    VB.NET-Quellcode

    1. Private Sub Berechnen()
    2. Dim Gewicht As Single
    3. Dim Groesse As Single
    4. Dim Idealgewicht As Single
    5. Dim Faktor As Single = 0.899999976F
    7. If RadioButton2.Checked = True Then
    8. Faktor = 0.850000024F
    9. End If
    11. If String.IsNullOrEmpty(TextBox1.Text.Trim) OrElse String.IsNullOrEmpty(TextBox2.Text.Trim) Then
    12. Label1.Text = "Ihr Wert: 0"
    13. Return
    14. End If
    16. Gewicht = Single.Parse(TextBox1.Text)
    17. Groesse = Single.Parse(TextBox2.Text)
    19. Idealgewicht = ((Groesse - 100.0F) * Faktor)
    20. Label1.Text = String.Format("Ihr Idealgewicht: {0} kg - Ihr Gewicht: {1} kg", Idealgewicht, Gewicht)
    21. Select Case Gewicht - Idealgewicht
    22. Case Is < -0.5
    23. Label4.Text = "Sie haben Untergewicht"
    24. Case Is > 0.5
    25. Label4.Text = "Sie haben Übergewicht"
    26. Case Else
    27. Label4.Text = "Sie haben Normalgewicht"
    28. End Select
    29. End Sub

    Und
    Über- und Untergewicht an 500 g festzumachen scheint mir doch etwas sehr weit hergeholt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!