Punktkoordinaten berechnen & log Datei erstellen

  • VB.NET

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

    Punktkoordinaten berechnen & log Datei erstellen

    Hallo ich verzweifle schon 2 Tage an einem Problem!
    Folgendes Programm:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Module Module1
    4. Dim Ausgang(2, 5) As Decimal
    5. Dim XYZGrundwerte(5), Inst_Grundwerte(4), Winkel_Grundwerte(1, 4), Eingabewerte(3), Rechenwerte(100, 6) As Decimal
    6. Dim Ausgabename, Ausgabeverzeichnis, Ausgabezeilen, Eingabepfad, Eingabezeilen As String
    7. Dim Zähler, Anzahl_Festpkt, Anzahl_Mess, Anzahl_Stpkt, Anzahl_Neupkt As Short
    8. Dim S0, S1, S2, S3, S4 As Boolean
    9. Dim SW, Ausgabe As IO.StreamWriter
    10. Dim SR As IO.StreamReader
    11. Dim SortWerte As New SortedList(Of Gleichsetzen, Double)
    12. Sub Main()
    14. Einlesen()
    16. Dim NeuBerechnung As Punkt = New Punkt(Ausgang(0, 4), Ausgang(0, 3), XYZGrundwerte(5), Eingabewerte(3), Inst_Grundwerte(3), _
    17. Inst_Grundwerte(4), Ausgang(1, 3), Ausgang(1, 4), Winkel_Grundwerte(1, 3))
    18. Dim BerechneteWerte(100, 5), RiWi, WerteNeu() As Decimal
    20. Console.WriteLine("Bitte geben Sie einen Namen für die Ausgabedatei ein")
    21. Ausgabename = Console.ReadLine
    23. If Ausgabename = "" Then
    24. Ausgabename = Eingabepfad
    25. Else
    26. Ausgabename = Ausgabename
    27. Console.WriteLine("Bitte geben Sie das Verzeichnis an in dem die Ausgabedatei erzeugt werden soll!")
    28. Ausgabeverzeichnis = Console.ReadLine
    29. End If
    31. Ausgabedatei(" Punktnummer Ebene|Punktart Rechtswert (Y) Hochwert (X) Höhe (z) ")
    33. For i As Integer = 0 To Rechenwerte.GetUpperBound(0)
    34. If Rechenwerte(i, 0) = Nothing Then Exit For
    35. RiWi = NeuBerechnung.Richtungswinkel
    36. WerteNeu = NeuBerechnung.Polar(RiWi, Rechenwerte(i, 3))
    37. BerechneteWerte(i, 0) = i
    38. BerechneteWerte(i, 1) = Rechenwerte(i, 1)
    39. BerechneteWerte(i, 2) = Rechenwerte(i, 2)
    40. BerechneteWerte(i, 3) = WerteNeu(0)
    41. BerechneteWerte(i, 4) = WerteNeu(1)
    42. BerechneteWerte(i, 5) = NeuBerechnung.Hoehe(Rechenwerte(i, 2), Rechenwerte(i, 4))
    44. Anzahl_Neupkt += 1
    46. Ausgabezeilen = (" ") & BerechneteWerte(i, 1).ToString("0000.0000") & _
    47. (" ") & BerechneteWerte(i, 2).ToString("00") & _
    48. (" ") & BerechneteWerte(i, 3).ToString("0000000.000") & _
    49. (" ") & BerechneteWerte(i, 4).ToString("0000000.000") & _
    50. (" ") & BerechneteWerte(i, 5).ToString("000.000")
    51. Ausgabezeilen = Ausgabezeilen.Replace(",", ".")
    52. Ausgabedatei(Ausgabezeilen)
    53. Next
    54. Protokol("Anzahl der eingelesenen Festpunkte: " & Anzahl_Festpkt)
    55. Protokol("Anzahl der eingelesenen Standpunkte: " & Anzahl_Stpkt)
    56. Protokol("Anzahl der eingelesenen Messwerte: " & Anzahl_Mess)
    57. Protokol("Anzahl der berechneten Neupunkte: " & Anzahl_Neupkt)
    58. For j As Integer = 0 To BerechneteWerte.GetUpperBound(0)
    59. If BerechneteWerte(j, 1) = Nothing Then Exit For
    60. SortWerte.Add(New Gleichsetzen(BerechneteWerte(j, 1)), BerechneteWerte(j, 2))
    61. Next
    63. For Each WertePaar As KeyValuePair(Of Gleichsetzen, Double) In SortWerte
    64. Console.WriteLine("{0} {1}", WertePaar.Key.PktNr, WertePaar.Value)
    65. Next
    66. Console.WriteLine()
    67. Console.WriteLine(">>>ENTER")
    68. Console.ReadLine()
    70. End Sub
    72. Sub Einlesen()
    73. Dim Existiert As Boolean = False
    75. Do
    76. Console.WriteLine("Bitte den Dateipfad eingeben")
    78. Console.WriteLine()
    79. Eingabepfad = Console.ReadLine()
    80. Try
    81. SR = New IO.StreamReader(Eingabepfad)
    82. Existiert = True
    83. Catch ex As Exception
    84. Console.WriteLine("Fehler! Die Datei gibt es nicht oder der Pfad wurde falsch angegeben.")
    85. Console.WriteLine("Bitte Dateipfad erneut eingeben")
    86. Console.WriteLine(ex.Message)
    87. Console.WriteLine()
    88. End Try
    89. Loop Until Existiert
    90. Protokol("Projektarbeit Programmieren SS12")
    91. Protokol("Tanja Maurer. Der aktuelle Benutzer ist: " & Environment.UserName)
    92. Protokol("Pfad der Eingabedatei:" & Eingabepfad)
    93. Protokol("Datum: " & Now.ToLongDateString & " Uhrzeit: " & Now.ToLongTimeString)
    95. Do While SR.Peek() >= 0
    96. If S0 = True Then Grundfaktor(Eingabezeilen)
    97. If S1 = True Then Grundwert(Eingabezeilen)
    98. If S2 = True Then Eingabe(Eingabezeilen)
    99. If S3 = True Then Rechnung(Eingabezeilen)
    100. If Zähler = 64 Then
    101. Exit Do
    102. End If
    103. Eingabezeilen = SR.ReadLine
    105. If Eingabezeilen.Contains("KOORDINATEN") And Not Eingabezeilen.Contains("POLARPUNKTE") Then
    106. S0 = True
    107. End If
    108. If Eingabezeilen.Contains("STAT. AUF BEK. PKT.") Then
    109. S1 = True
    110. S0 = False
    111. Zähler = 0
    112. End If
    113. If Eingabezeilen.Contains("EINGABEWERTE") Then
    114. S2 = True
    115. S1 = False
    116. S0 = False
    117. End If
    118. If Eingabezeilen.Contains("POLARPUNKTE") Then
    119. S3 = True
    120. S2 = False
    121. S1 = False
    122. If Rechenwerte(0, 0) = Nothing Then Zähler = 0
    123. End If
    124. Loop
    125. SR.Close()
    126. End Sub
    127. Public Sub Protokol(ByVal Text As String)
    129. SW = New IO.StreamWriter(Eingabepfad.Replace(".rec", ".log.txt"), True)
    130. SW.WriteLine(Text)
    131. SW.Close()
    132. End Sub
    134. Sub Ausgabedatei(ByVal Ausgabezeilen As String)
    135. Try
    136. If Ausgabename = Eingabepfad Then
    137. Ausgabe = New StreamWriter(Ausgabename.Replace(".rec", ".out.txt"), True)
    138. Else
    139. Ausgabe = New StreamWriter(Ausgabeverzeichnis & "\" & Ausgabename & ".out" & ".txt", True)
    140. End If
    141. Ausgabe.WriteLine(Ausgabezeilen)
    142. Ausgabe.Close()
    143. Catch ex As Exception
    144. Console.WriteLine("Fehler beim Erzeugen der Datei")
    145. End Try
    146. End Sub
    147. Private Sub Grundfaktor(ByVal Zeile As String)
    148. Dim Nummer As Integer
    149. Try
    150. If Zeile.Contains("KOORDINATEN") Then Exit Sub
    151. Zeile = Zeile.Replace(".", ",")
    152. Nummer = CInt(Zeile.Substring(0, 5))
    153. Dim Punktwert1 As Double = CDec(Zeile.Substring(7, 13))
    154. Dim Punktart As Double = CDec(Zeile.Substring(20, 2))
    155. Dim Y As Double = CDec(Zeile.Substring(36, 12))
    156. Dim X As Double = CDec(Zeile.Substring(53, 12))
    157. Dim Z = CDec(Zeile.Substring(66, 10))
    159. Ausgang(Zähler, 0) = Nummer
    160. Ausgang(Zähler, 1) = Punktwert1
    161. Ausgang(Zähler, 2) = Punktart
    162. Ausgang(Zähler, 3) = Y
    163. Ausgang(Zähler, 4) = X
    164. Ausgang(Zähler, 5) = Z
    166. Zähler += 1
    167. Anzahl_Festpkt += 1
    168. Anzahl_Mess += 3
    170. Catch ex As Exception
    171. Protokol("In der Zeile " & Nummer & " ist ein Fehler: " & ex.Message)
    172. End Try
    173. End Sub
    174. Private Sub Grundwert(ByVal Zeile As String)
    176. Dim Nummer As Integer
    177. Try
    178. If Zeile.Contains("STAT. AUF BEK. PKT.") Then Exit Sub
    180. Zeile = Zeile.Replace(".", ",")
    182. If Zeile.Contains("X") And Zeile.Contains("Y") And Zeile.Contains("Z") Then
    183. Nummer = CInt(Zeile.Substring(0, 5))
    184. XYZGrundwerte(0) = Nummer
    185. XYZGrundwerte(1) = CDec(Zeile.Substring(7, 13))
    186. XYZGrundwerte(2) = CDec(Zeile.Substring(20, 2))
    187. XYZGrundwerte(3) = CDec(Zeile.Substring(36, 12))
    188. XYZGrundwerte(4) = CDec(Zeile.Substring(53, 12))
    189. XYZGrundwerte(5) = CDec(Zeile.Substring(66, 10))
    190. Anzahl_Mess += 3
    191. Exit Sub
    192. End If
    193. If Zeile.Contains("m") Or Zeile.Contains("ih") Then
    194. Nummer = CInt(Zeile.Substring(0, 5))
    195. Inst_Grundwerte(0) = Nummer
    196. Inst_Grundwerte(1) = CDec(Zeile.Substring(7, 12))
    197. Inst_Grundwerte(2) = CDec(Zeile.Substring(20, 2))
    198. Inst_Grundwerte(3) = CDec(Zeile.Substring(36, 12))
    199. Inst_Grundwerte(4) = CDec(Zeile.Substring(53, 7))
    200. Anzahl_Mess += 2
    201. Exit Sub
    202. End If
    203. If Zeile.Contains("Hz") And Zeile.Contains("V1") Then
    204. Nummer = CInt(Zeile.Substring(0, 5))
    205. Winkel_Grundwerte(Zähler, 0) = Nummer
    206. Winkel_Grundwerte(Zähler, 1) = CDec(Zeile.Substring(7, 13))
    207. Winkel_Grundwerte(Zähler, 2) = CDec(Zeile.Substring(20, 2))
    208. Winkel_Grundwerte(Zähler, 3) = CDec(Zeile.Substring(53, 12))
    209. Winkel_Grundwerte(Zähler, 4) = CDec(Zeile.Substring(68, 8))
    210. Zähler += 1
    211. Anzahl_Mess += 2
    212. End If
    213. Catch ex As Exception
    214. Protokol("In der Zeile " & Nummer & " ist ein Fehler: " & ex.Message)
    215. End Try
    216. End Sub
    217. Private Sub Eingabe(ByVal Zeile As String)
    219. Dim Nummer As Integer
    220. Try
    221. If Zeile.Contains("EINGABEWERTE") Then
    222. Zeile = Zeile.Replace(".", ",")
    223. Nummer = CInt(Zeile.Substring(0, 5))
    224. Eingabewerte(0) = Nummer
    225. Eingabewerte(1) = CDec(Zeile.Substring(36, 12))
    226. Eingabewerte(2) = CDec(Zeile.Substring(53, 12))
    227. Eingabewerte(3) = CDec(Zeile.Substring(68, 8))
    228. Anzahl_Mess += 3
    229. End If
    230. Catch ex As Exception
    231. Protokol("In der Zeile " & Nummer & " ist ein Fehler: " & ex.Message)
    232. End Try
    233. End Sub
    234. Private Sub Rechnung(ByVal Zeile As String)
    235. Dim Nummer As Integer
    236. Try
    237. If Zeile.Contains("KOORDINATEN/POLARPUNKTE") Then Exit Sub
    238. Zeile = Zeile.Replace(".", ",")
    239. Zeile = CInt(Zeile.Substring(0, 5))
    240. Rechenwerte(Zähler, 0) = Nummer
    241. Rechenwerte(Zähler, 1) = CDec(Zeile.Substring(7, 13))
    242. Rechenwerte(Zähler, 2) = CDec(Zeile.Substring(20, 2))
    243. Rechenwerte(Zähler, 3) = CDec(Zeile.Substring(36, 12))
    244. Rechenwerte(Zähler, 4) = CDec(Zeile.Substring(53, 12))
    245. Rechenwerte(Zähler, 5) = CDec(Zeile.Substring(68, 8))
    246. Zähler += 1
    247. Anzahl_Mess += 3
    248. Anzahl_Stpkt += 1
    249. Catch ex As Exception
    250. Protokol("In der Zeile " & Nummer & " ist ein Fehler: " & ex.Message)
    251. End Try
    252. End Sub
    254. End Module


    dazu eine Klasse Punkt:

    VB.NET-Quellcode

    1. Public Class Punkt
    2. Dim meinPunkt As Decimal
    3. Dim meinR, meinH, meinH2, meinR2 As Decimal
    4. Dim meineHoehe, meineHoeheInstr, meineZielhoehe As Decimal
    5. Dim meinHorizont, meinMaßstab As Decimal
    7. Public ReadOnly Property Punkt() As String
    8. Get
    9. Return meinPunkt
    10. End Get
    12. End Property
    13. Public Sub New(ByVal X As Decimal, ByVal Y As Decimal, ByVal Z As Decimal, ByVal th As Decimal, ByVal m As Decimal, ByVal ih As Decimal, ByVal Y2 As Decimal, ByVal X2 As Decimal, ByVal Hz As Decimal)
    14. meinR = X
    15. meinH = Y
    16. meinH2 = Y2
    17. meinR2 = X2
    18. meineHoehe = Z
    19. meineHoeheInstr = ih
    20. meineZielhoehe = th
    21. meinHorizont = Hz
    22. meinMaßstab = m
    23. End Sub
    24. Public Function Hoehe(ByVal D As Decimal, ByVal V1 As Decimal) As Decimal
    25. Dim NeueHoehe As Decimal
    26. If D > 250 Then
    27. NeueHoehe = meineHoehe + meineHoeheInstr + D * Math.Cos(V1) - meineZielhoehe
    28. Else
    29. NeueHoehe = meineHoehe + meineHoeheInstr + D * Math.Cos(V1) + (D ^ 2 / (2 * 6380000)) * 0.87 - meineZielhoehe
    30. End If
    31. Return NeueHoehe
    32. End Function
    33. Public Function Richtungswinkel()
    35. Dim yp, xp, t As Decimal
    36. xp = meinR2 - meinR
    37. yp = meinH2 - meinH
    38. If Math.Abs(yp) = 0 And Math.Abs(xp) = 0 Then
    39. Return -1
    40. End If
    42. If Math.Abs(xp) = 0 Then
    43. If yp < 0 Then Return 300
    44. If yp > 0 Then Return 100
    45. End If
    47. t = Math.Atan(yp / xp)
    49. If xp < 0 Then
    50. t += 200
    51. End If
    52. If t < 0 Then
    53. t += 400
    54. End If
    56. Return t
    58. End Function
    59. Public Function Polar(ByVal t As Decimal, ByVal Hz As Decimal) As Decimal()
    61. Dim Werte(1) As Decimal
    62. Dim c, b As Decimal
    64. c = Math.Sqrt((meinR2 - meinR) ^ 2 + (meinH2 - meinH) ^ 2)
    65. b = c * (Math.Sin(meinHorizont) / Math.Sin(Hz + meinHorizont))
    66. Werte(0) = meinH + b * Math.Sin(t)
    67. Werte(1) = meinR + b * Math.Cos(t)
    69. Return Werte
    71. End Function
    72. End Class


    und eine Klasse Gleichsetzen:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections
    3. Public Class Gleichsetzen
    4. Implements IComparable(Of Gleichsetzen)
    6. Protected myValue As Decimal = 0.0
    7. Public Sub New(ByVal Punktnummer As Decimal)
    8. Me.PktNr = Punktnummer
    9. End Sub
    10. Public Property PktNr As Decimal
    11. Get
    12. Return myValue
    13. End Get
    14. Set(ByVal value As Decimal)
    15. myValue = value
    16. End Set
    17. End Property
    18. Public Overloads Function CompareTo(ByVal PunktN As Gleichsetzen) As Integer Implements System.IComparable(Of Gleichsetzen).CompareTo
    19. Return myValue.CompareTo(PunktN.myValue)
    20. End Function
    22. End Class

    Das Programm soll mir die Koordinaten der Punkte aus einer externen Messdatei auslesen, die (in Auszügen) so aussieht:
    1 KOORDINATEN/
    2 301.1001 05 Y 3536737.746 X 5455937.909 Z 310.630
    3 201.1003 05 Y 3536738.881 X 5456410.283 Z 322.356
    4 6723.0107 03 Y 3536900.790 X 5455318.840 Z 301.150
    5 STAT. AUF BEK. PKT./
    6 301.1001 05 Y 3536737.746 X 5455937.909 Z 310.630
    7 301.1001 05 m 1.000000 ih 1.480
    8 6723.0107 03 Hz 44.4121 V1 100.9295
    9 201.1003 05 Hz 260.9572 V1 98.4046
    10 KOORDINATEN/POLARPUNKTE/
    11 3.1001 74 D 49.172 Hz 276.8334 V1 102.2361
    12 EINGABEWERTE m 1.000000 th 1.500 ih 1.480
    13 KOORDINATEN/POLARPUNKTE/
    14 3.1002 74 D 61.310 Hz 317.9288 V1 104.5838
    15 3.1003 74 D 58.789 Hz 319.4395 V1 104.8252
    16 3.1004 74 D 71.561 Hz 333.9190 V1 105.8891
    17 3.1005 74 D 73.404 Hz 332.0761 V1 105.8218
    18 3.1006 74 D 87.680 Hz 341.7541 V1 106.1667
    19 3.1007 74 D 86.307 Hz 343.6175 V1 106.0763
    20 3.1008 74 D 104.059 Hz 348.7034 V1 105.6905
    21 3.1009 74 D 103.262 Hz 350.4580 V1 105.5554
    22 3.1010 74 D 120.709 Hz 353.4070 V1 104.9813
    23 3.1011 74 D 119.776 Hz 354.8020 V1 104.9695
    24 3.1012 98 D 101.198 Hz 361.5887 V1 105.6596
    25 3.1013 98 D 118.295 Hz 361.9065 V1 105.0703
    26 3.1014 98 D 101.090 Hz 373.1018 V1 105.4789
    27 3.1015 98 D 119.351 Hz 372.2168 V1 104.9217
    28 3.1016 98 D 105.053 Hz 384.0973 V1 104.9202
    29 3.1017 98 D 122.608 Hz 381.6884 V1 104.5954
    30 3.1018 98 D 111.162 Hz 393.4825 V1 104.2616


    soweit funktioniert das auch, zumindest mit den erstellen der log datei, allerdings ist die fast leer, bzw liest einfach keine daten ein!
    Projektarbeit Programmieren SS12
    Tanja Maurer. Der aktuelle Benutzer ist: Besitzer
    Pfad der Eingabedatei:c:/users/besitzer/messdaten_ss12.rec
    Datum: Donnerstag, 19. Juli 2012 Uhrzeit: 16:31:40
    Anzahl der eingelesenen Festpunkte: 0
    Anzahl der eingelesenen Standpunkte: 0
    Anzahl der eingelesenen Messwerte: 0
    Anzahl der berechneten Neupunkte: 0

    Und die .out Datei, in der die Koordinaten stehen sollen, ist auch leer.
    Punktnummer Ebene|Punktart Rechtswert (Y) Hochwert (X) Höhe (z)

    ich bin mir sicher, dass das problem ganz einfach ist und ich grad nur den wald vor lauter bäumen nicht sehe!
    aber wär super, wenn mir jemand helfen könnte!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Tanscha“ ()

    1. Option Strict On
    2. Mach eine WinForms-Anwendung draus, ich hab keine Lust, falsche Pfadnamen einzutippen.
    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!

    VB.NET-Quellcode

    1. Private Sub Grundfaktor(ByVal Zeile As String)
    2. Dim Nummer As Integer
    3. Try
    4. If Zeile.Contains("KOORDINATEN") Then Exit Sub
    5. Zeile = Zeile.Replace(".", ",")
    6. Nummer = CInt(Zeile.Substring(0, 5))
    Da knallt es. Das merkst Du aber nicht, da Du mit Try / Catch alle Fehlermeldungen ignorierst. Lies die Protokolldatei.
    Deine Zeilenaufdröselung ist etwas daneben.
    Lies mit IO.File.ReadAllLines() die Datei ein.
    Zerlege die Zeile mit Split(" "c") an den Leerzeichen und Du musst keine Positionsakrobatik betreiben.
    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!

    Okay vielen vielen Danke @ RodFromGermany, du hast mir wirklich geholfen.
    Nachdem ich die Try/Catch auskommentiert habe, hab ich viele Fehler gefunden.
    Nur an einer Stelle versteh ich nicht, was er mir da erzählt:

    VB.NET-Quellcode

    1. Private Sub Rechnung(ByVal Zeile As String)
    2. Dim Nummer As Integer
    3. 'Try
    4. If Zeile.Contains("KOORDINATEN/POLARPUNKTE") Then Exit Sub
    5. Zeile = Zeile.Replace(".", ",")
    6. Zeile = CStr(CInt(Zeile.Substring(0, 5)))
    7. Rechenwerte(Zähler, 0) = Nummer
    8. Rechenwerte(Zähler, 1) = CDec(Zeile.Substring(10, 12))
    9. Rechenwerte(Zähler, 2) = CDec(Zeile.Substring(19, 2))
    10. Rechenwerte(Zähler, 3) = CDec(Zeile.Substring(36, 12))
    11. Rechenwerte(Zähler, 4) = CDec(Zeile.Substring(53, 11))
    12. Rechenwerte(Zähler, 5) = CDec(Zeile.Substring(67, 8))
    13. Zähler = CShort(Zähler + 1)
    14. Anzahl_Mess = CShort(Anzahl_Mess + 3)
    15. Anzahl_Stpkt = CShort(Anzahl_Stpkt + 1)
    16. 'Catch ex As Exception
    17. ' Protokol("In der Zeile " & Nummer & " ist ein Fehler: " & ex.Message)
    18. 'End Try
    19. End Sub


    Hier kommt die Fehlermeldung ab den Zeilen wo Rechenwerte steht, und zwar für jede Zeile: startIndex darf nicht länger als die Länge der Zeichenfolge sein.
    Parametername: startIndex

    Was genau ist hier mit dem startIndex gemeint?

    Tanscha schrieb:

    Zeile = CStr(CInt(Zeile.Substring(0, 5)))
    Rechenwerte(Zähler, 0) = Nummer
    Rechenwerte(Zähler, 1) = CDec(Zeile.Substring(10, 12))


    Zeile -> ist maximal 5 (FÜNF) Zeichen lang
    Und dann versuchst du auf Index 10 (etc) zuzugreifen usw. Da ist die wohl die Logik durcheinander gekommen ...

    EDIT:
    Dim Nummer -> aber nie verwendet
    Sollte das erste vlt Nummer = CStr(CInt(Zeile.Substring(0, 5))) sein?

    Die Arbeit mit Strings, die immer an derselben Position äquivalente Parts stehen haben, geht i.A. vor die Hose.
    Zerleg den String mit Split und arbeite mit den Substrings, die da entstehen :!:
    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!

    Hm okay, das mit Zeile und Nummer war mein Fehler...

    das geht jetzt zumindest. Jetzt fällt ihm plötzlich ein, dass er nichtmehr sortieren will...
    und zwar genau hier:

    VB.NET-Quellcode

    1. SortWerte.Add(New Gleichsetzen(BerechneteWerte(j, 1)), BerechneteWerte(j, 2))

    Zeile 58...

    mit Try läufts, abe sortiert halt nix

    Tanscha schrieb:

    Zeile 58...

    Und? Bei welchem Code?
    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!

    Tanscha schrieb:

    Ja, die Komik der Aussage war geplant
    Ich denke eher, Du hast den Inhalt der Aussage noch nicht begriffen.
    Du hast die Hilfen, die Dir Dein falsches Programm versucht hat zu geben einfach in die Tonne gekloppt statt sie zu lesen und zu verstehen und sie umzusetzen.
    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!

Facebook
Telefonspende