Mahlzeit,
wie muss ich in dieses Menü:
Alles anzeigen
Diese beiden Codes einbauen:
Alles anzeigen
Alles anzeigen
Also, wenn man im Menu auf Hypotenuse klickt, soll man diese ausrechnen können und wenn man auf Kathete klickt, soll man diese ausrechnen können.
Danke im Voraus!
wie muss ich in dieses Menü:
Quellcode
- Public Class Form1
- Private Sub HyoptenuseToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HyoptenuseToolStripMenuItem.Click
- End Sub
- Private Sub KatheteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KatheteToolStripMenuItem.Click
- End Sub
- End Class
Diese beiden Codes einbauen:
Quellcode
- Public Class frmSDP
- Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblZweiteKathete.Click
- End Sub
- Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblErsteKathete.Click
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdErgebnis.Click
- Dim a As Single
- Dim b As Single
- a = Val(txtErsteKathete.Text)
- Dim d As Single = a * a
- b = Val(txtZweiteKathete.Text)
- Dim f As Single = b * b
- Dim g As Single = d + f
- Dim wurzel As Single = Math.Sqrt(g)
- txtErgebnis.Text = ("c = (" & a & " cm)² + (" & b & "
- cm)²" + vbNewLine + "c = " & d & " cm² + " & f & " cm²" _
- + vbNewLine + "c = " & g & " cm²" + vbNewLine + "c = " & wurzel & " cm")
- End Sub
- End Class
Quellcode
- Public Class frmSDP
- Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblHypotenuse.Click
- End Sub
- Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblKathete.Click
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdErgebnis2.Click
- Dim h As Single
- Dim i As Single
- h = Val(txtHypotenuse.Text)
- Dim j As Single = a * a
- i = Val(txtKathete.Text)
- Dim k As Single = b * b
- Dim l As Single = d + f
- Dim wurzel2 As Single = Math.Sqrt(g)
- txtErgebnis2.Text = ("c = (" & h & " cm)² - (" & i & " cm)²" + vbNewLine + "c = " & j & " cm² - " & k & " cm²" _
- + vbNewLine + "c = " & l & " cm²" + vbNewLine + "c = " & wurzel2 & " cm")
- End Sub
- End Class
Also, wenn man im Menu auf Hypotenuse klickt, soll man diese ausrechnen können und wenn man auf Kathete klickt, soll man diese ausrechnen können.
Danke im Voraus!