Hallo,
ich habe immer einen Rechenfehler bei meinem Code und leider finde ich den Fehler nicht, über Hilfe würde ich mich freuen.
Code:
ich habe immer einen Rechenfehler bei meinem Code und leider finde ich den Fehler nicht, über Hilfe würde ich mich freuen.
Code:
VB.NET-Quellcode
- Option Strict On
- Imports System.Globalization
- Imports System.Threading
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Structure cords
- Dim s As Double
- Dim z As Double
- Dim e As Double
- End Structure
- Sub createarea(ByVal point1 As cords, ByVal point2 As cords)
- 'Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")
- MsgBox(point1.s.ToString)
- If point1.s > point2.s Then
- Else
- Dim sdif As Double
- sdif = point2.s - point1.s
- TextBox1.Text = sdif.ToString
- End If
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim c1 As New cords
- c1.s = Double.Parse("1931.4")
- c1.e = Double.Parse("-325.4")
- c1.z = Double.Parse("37.6")
- Dim c2 As New cords
- c2.s = Double.Parse("1934.4")
- c2.e = Double.Parse("-284.8")
- c2.z = Double.Parse("21.7")
- createarea(c1, c2)
- End Sub
- End Class
ähh? wasn das