Diverse Probleme, Array, Inkrement, Ausgabe, etc

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Vatter.

    Diverse Probleme, Array, Inkrement, Ausgabe, etc

    Hallo Leute,

    ich muss bis Samstag ein Projekt fertig bekommen. Recht ergeiziges Ziel hab ich mir dabei ausgesucht^^

    Vorweg ein paar Infos was es werden soll:

    Ich bastel ein Programm, welches einige Zahlen speichern und in einem mehrzeiligen Textfeld ausgeben soll. Diese Zahlen werden anschließend (und wirklich erst nach einiger Zeit) weiterverwendet um diverse Berechnungen durchführen zu können, welche auf Knopfdruck aktiviert werden.

    Mit den Berechnungen komme ich klar, das ausgeben in das Textfeld ist auch kein Problem. Nur das speichern in einen Array hat absolut nicht funktioniert, es hakt immer da, wo der Wert in den Array soll...

    Also habe ich es mit den Arrays wieder aufgegeben und probierte es auf "herkömmliche Weise", wo ich nun bei der Inkrementierung hängen bleibe (also beim speichern von mehr als einem Wert pro Variable).

    Folgender Aufbau soll stattfinden:

    Es gibt drei Eingabefelder, in denen nacheinander Unterschiedliche Werte eingetragen werden. Nach aktivierung des Ersten Buttons (Koordinateneingabe) folgendes Beispiel:
    Punktnummer (pnr) | Rechtswert (sngy) | Hochwert (sngx)
    Durch "Entern" soll der jeweilige Wert der entsteht, zB: pnr = 100 | sngy = 2000 | sngx = 2000 abgespeichert werden. Danach kommt die nächste Zeile, zB pnr= 101 | sngy = 2153,23 | sngx = 1823,453.

    Wenn ich so einige Punkte in meiner Koordinatendatei drin habe, möchte ich für Neue Punktnummern über Winkel (snghz) und Strecke (sngs) die Koordinaten berechnen.
    Doppelt eingetippte Punktnummern sollen automatisch erkannt werden und mir anbieten können, ob ich den alten Wert behalten möchte, den neuen oder ob es gemittelt werden soll. Dabei wird über Pythagoras eine Koordinatendifferenz angezeigt werden.

    Ich muss also gezielt von Punktnummer 100 zB den Rechtswert sowie Hochwert auslesen können wenn ich nur die Punktnummer 100 eingebe, die Koordinaten soll er sich im Hintergrund in einer neuen Variable (ye und ya sowie xe und xa zB) abspeichern.

    Für euch sicherlich einfach, für mich allerdings ziemlich schwer :wacko: als Laie.


    Punktnummern sind ganze Zahlen, Winkel mit vier Nachkommastellen, alle anderen Werte mit drei Nachkommastellen. Die Ausgabe soll stets einheitlich quasi rechtsbündig im Textfeld ausgegeben werden, Komma über Komma! Eingaben ohne Nachkomma sollen mit Nullen aufgefüllt werden, damit alles einheitlich aussieht...


    Aber hier erstmal der verbesserungswürdige Code^^ Ich hoffe ihr versteht wo mein Problem liegt und könnt mir helfen!

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim strcredits As String
    4. Dim pnri, hzi, si, yi, xi, pnr, koordeini, polari, abstki, abstpi, strki, koordausi, auswahl, snghz, sngs, sngy, sngx, sngrho As Single
    5. Dim i As Long
    7. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    8. lbldatum.Text = "Heute ist der " & Date.Today
    10. btnok.Visible = False
    11. End Sub
    13. Private Sub btnende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnende.Click
    14. Me.Close()
    15. End Sub
    17. Private Sub btncredits_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncredits.Click
    18. strcredits = MsgBox("Programmersteller: ich" & vbCrLf & "Programmtester: tester" & vbCrLf & vbCrLf & "Erstellt zwischen dem 20. und 25.06.2010", MsgBoxStyle.Information, "Credits")
    19. End Sub
    21. Private Sub btnkoordein_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkoordein.Click
    23. auswahl = 1
    24. lblhinweis1.Text = "Punktnummer"
    25. lblhinweis2.Text = "Rechtswert"
    26. lblhinweis3.Text = "Hochwert"
    27. txtauswahl.Text = "Aktuelle Auswahl:" & vbCrLf & "Koordinateneingabe"
    28. koordeini += 1
    29. txtausgabe.Text += vbCrLf & "Koordinateneingabe Nr. " & koordeini & vbCrLf & "Pkt.-Nr. | Rechtswert | Hochwert" & vbCrLf
    30. lblhinweis1.ForeColor = Color.Red
    31. lblhinweis2.ForeColor = Color.Black
    32. lblhinweis3.ForeColor = Color.Black
    33. txtein1.Text = ""
    34. txtein2.Text = ""
    35. txtein3.Text = ""
    36. lblhinweis.Text = ""
    37. txtein1.Focus()
    39. End Sub
    41. Private Sub txtein1_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtein1.KeyDown
    42. If e.KeyCode = Keys.Enter Then
    44. If Me.txtein1.Text = "" Then
    45. lblhinweis.Text = "Koordinateneingabe beendet"
    46. txtausgabe.Text += "Ende der Koordinateneingabe" & vbCrLf
    47. txtauswahl.Text = ""
    48. txtein1.Text = ""
    49. txtein2.Text = ""
    50. txtein3.Text = ""
    51. lblhinweis1.ForeColor = Color.Black
    52. lblhinweis2.ForeColor = Color.Black
    53. lblhinweis3.ForeColor = Color.Black
    54. btnpolar.Focus()
    55. Else
    56. lblhinweis.Text = ""
    57. lblhinweis1.ForeColor = Color.Black
    58. lblhinweis2.ForeColor = Color.Red
    59. lblhinweis3.ForeColor = Color.Black
    61. i += 1
    62. txtein2.Focus()
    63. End If
    65. End If
    67. End Sub
    69. Private Sub txtein2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtein2.KeyDown
    70. If e.KeyCode = Keys.Enter Then
    72. lblhinweis1.ForeColor = Color.Black
    73. lblhinweis2.ForeColor = Color.Black
    74. lblhinweis3.ForeColor = Color.Red
    75. txtein3.Focus()
    77. End If
    78. End Sub
    80. Private Sub txtein3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtein3.KeyDown
    81. If e.KeyCode = Keys.Enter Then
    83. lblhinweis1.ForeColor = Color.Black
    84. lblhinweis2.ForeColor = Color.Black
    85. lblhinweis3.ForeColor = Color.Black
    87. If Me.txtein1.Text = "" Then
    88. lblhinweis.Text = "Fehlerhafte Punkteingabe"
    89. txtein1.Focus()
    90. ElseIf Me.txtein2.Text = "" Then
    91. lblhinweis.Text = "Fehlerhafter Rechtswert"
    92. txtein2.Focus()
    93. ElseIf Me.txtein3.Text = "" Then
    94. lblhinweis.Text = "Fehlerhafter Hochwert"
    95. txtein3.Focus()
    96. Else
    97. lblhinweis.Text = "Eingabe mit Enter bestätigen"
    98. btnok.Visible = True
    99. btnok.Focus()
    100. End If
    102. End If
    104. End Sub
    106. Private Sub btnok_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnok.Click
    107. lblhinweis1.ForeColor = Color.Red
    108. lblhinweis2.ForeColor = Color.Black
    109. lblhinweis3.ForeColor = Color.Black
    111. lblhinweis.Text = "Zum beenden der Koordinateneingabe einfach Enter drücken"
    113. 'Hier werden die Werte in die Variable geschrieben, im Idealfall ist es ein Array
    114. pnri = txtein1.Text
    115. yi = txtein2.Text
    116. xi = txtein3.Text
    118. 'Er soll irgendwie die Zeichen vor einem KOMMA zählen und mit drei Nachkommestellen an eine Bestimmte, immer gleich bleibende Stelle mit gleichem Abstand zwischen den Kommas in das Textfeld platzieren
    119. txtausgabe.Text += pnri & " " & yi & " " & xi & vbCrLf
    121. txtein1.Text = ""
    122. txtein2.Text = ""
    123. txtein3.Text = ""
    125. txtein1.Focus()
    127. btnok.Visible = False
    128. End Sub
    130. Private Sub btnkoordaus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkoordaus.Click
    131. txtausgabe.Text += vbCrLf & "Koordinatenverzeichnis" & vbCrLf & " Pkt.-Nr. | Rechtswert | Hochwert" & vbCrLf
    132. txtauswahl.Text = "Aktuelle Auswahl:" & vbCrLf & "Koordinatenverzeichnis"
    133. 'hier soll er alle Punkte mit dazugehörigen Rechts- und Hochwert anzeigen
    134. txtausgabe.Text += pnri & " " & yi & " " & xi & vbCrLf
    135. txtauswahl.Text = ""
    136. txtein1.Text = ""
    137. txtein2.Text = ""
    138. txtein3.Text = ""
    139. lblhinweis1.ForeColor = Color.Black
    140. lblhinweis2.ForeColor = Color.Black
    141. lblhinweis3.ForeColor = Color.Black
    142. btnkoordaus.Focus()
    143. End Sub
    144. End Class

    Hi,
    1. ich würde für die Werte der Punkte eine Structur oder Klasse erstellen. Also Strctur Punkt mit X, Y, und Winkel. Die kannst du leichter handeln mit P1 as Punkt und dann P1.X... usw.
    2. Um deine Punkte zu verwalten solltest du eine List(Of Punkt) verwenden. Da du vorher ja nicht weißt, wie viele Punkte du da eingibst kannst du das Ding nahezu beliebig erweitern. Auch die Suche nach doppelten Werten ist da relativ einfach lösbar.
    Ich hoffe, ich konnte dir einen Anstoß geben.
    Zu List(Of T) siehe hier
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Irgendwie funktioniert das bei mir nicht. Wie muss ich für mein Beispiel den Code schreiben, damit es richtig gespeichert wird? Irgendwie verstehe ich das nicht um es auf mein Projekt übertragen zu können...

    Grundlegend sollen nur die drei Werte Punktnummer, Rechtswert und Hochwert gespeichert werden. Der Winkel und die Strecke werden direkt nach der Eingabe in Koordinaten berechnet, welche gespeichert werden. Der eingegebene Winkel und die Strecke werden nur einmal in die Textbox reingeschrieben und können danach wieder überschrieben werden.

    Irgendwie bekomme ich es nicht hin, dass er mir die Stellen vor dem Komma (falls vorhanden) zählt, damit er in der Ausgabe immer Komma über Komma schreiben kann...

    VB.NET-Quellcode

    1. Dim checkcoma1 = txtein1.Text.IndexOf(",")
    2. If checkcoma1 = -1 Then
    3. länge1 = txtein1.Text.Length
    4. Else
    5. 'Hier soll er die Stellen vor dem Komma zählen...
    6. länge1 = txtein1.Text.Length - 1
    7. End If


    Und die Sache mit dem SelectStart verstehe ich auch nicht so wirklich, denn damit möchte ich zB den Rechtswert immer an einer bestimmten Stelle stehen haben. Der soll die Differenz rechen zwischen der ersten Stelle und der gewünschten Anfangsposition des Rechtswertes, dann eine bestimmte Anzahl Leerstellen vor dem einzufügenden Text setzen... Das ist aber viel Tipperei oder nicht, denn ich würde es über die Abfrage machen: wenn zB 3 Stellen vor Komma, soll er 6 Leerzeichen hinzufügen, sind 4 Stellen, dann 5 etc etc... Geht das auch schneller irgendwie? Dass er automatisch das Ergebnis als Zahl (zB 6 Leerzeichen als Differenz) als Loop oder so anwendet um mir die vielen if then zu sparen?

    Leider kann ich nur anwenden was ich auch verstehe, die vielen Beispiele im Netz helfen mir irgendwie nicht, versuche sie für mich umzuschreiben aber es will irgendwie nicht ;(

    Ich habe nur 1 Ausgabefeld. Da sollen die Werte nebeneinander (und die Kommawerte untereinander) geschrieben werden. Dann ab in die nächste Zeile usw.

    Einzig wieder alles umschreiben und mehrere Textfelder als Spalten nebenander reihen könnte gehen^^ Aber dann kann ich keine Sätze reinschreiben, die auch rein sollen.
    Also muss ich es nach wie vor mit nur einem Textfeld machen...

    Oder war es auf die Eingabefelder bezogen? Ich denke es bringt nichts, da nur die Werte gespeichert werden...

    Edith:

    Die Eigenschaft TABSTOP wie in zB WORD wäre hilfreich, dann könnte ich im Ausgabefeld solche Tabstops einrichten, welche immer Rechtsbündig geschrieben werden und durch Format(xx, "##0,000") [oder so ähnlich, ist jetzt aus dem Kopf] automatisch mit Nachkommastellen versehen^^ Geht sowas?? Wäre mal eine praktische Hilfe anstelle alle Stellen kompliziert ausrechnen zu lassen 8o


    Edith 2 sagt:

    Hmm... Ist es möglich einen eingegebenen Text (Zahlen mit Komma) an einer festen Position (SelectionStart = zB 20) rechtsbündig mit Formatierung (3 Nachkomma) einfügen zu lassen?? Dann den nächsten Text an zB Position 35? Allgemein darf der Text aber nicht rechts-, sondern linksbündig sein.

    Nur habe ich das Problem, dass wenn ich Selection Start definiere, er nicht an dieser Position sondern an der exakt letzten Textstelle den neuen Text einfügt... Somit greift die Definition des Einfügepunktes nicht wirklich, in einem Text (irgendeine Hilfe oder so) habe ich gelesen, dass wenn die definierte Stelle hinter der letzten Textstelle liegt, dass er diesen dann ans Ende einfügt... Greift wohl nur wenn ich einen Text innerhalb einer Zeile einfügen möchte... Gibt es da einen Weg drumherum??

    Muss in 30 Min los zur Fachschule. Werde erst heute Abend/Nacht wiederkommen. Habe daher nur begrenzte Zeit bis ich es ansatzweise fertig bekommen kann 8| bis morgen früh.
    Hoffe ihr könnt mir etwas aus der Patsche helfen bis dahin.

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

    Endless Storm schrieb:

    Grundlegend sollen nur die drei Werte Punktnummer, Rechtswert und Hochwert gespeichert werden. Der Winkel und die Strecke werden direkt nach der Eingabe in Koordinaten berechnet, welche gespeichert werden. Der eingegebene Winkel und die Strecke werden nur einmal in die Textbox reingeschrieben und können danach wieder überschrieben werden.
    folgendes:

    VB.NET-Quellcode

    1. Public Structure Punkt
    2. Public Nr As Integer
    3. Public X As Single
    4. Public Y As Single
    5. Public Winkel As Single
    6. Public Strecke As Single
    7. End Structure
    9. Dim Punkte As List(Of Punkt)
    11. Sub Einfuegen(ByVal n As Integer, ByVal x As Single, ByVal y As Single)
    12. Dim neuerPunkt As Punkt
    13. neuerPunkt.Nr = n
    14. neuerPunkt.X = x
    15. neuerPunkt.Y = y
    16. Berechnen(neuerPunkt) 'führt die Berechnung durch
    17. Punkte.Add(neuerPunkt) 'fügt neuen Punkt in Liste ein
    18. End Sub
    20. Sub lesen()
    21. For Each P As Punkt In Punkte
    22. 'Ausgabe der gewünschten Daten an Textbox o.ä.
    23. Next
    24. End Sub
    26. Sub Berechnen(ByRef P As Punkt)
    27. 'P.Winkel=....
    28. 'P.Strecke=...
    29. End Sub
    30. End Class
    Das ist eigentlich im wesentlichen alles, was zum speichern der Punkte benötigt wird. :)
    Edit:
    zum Tab guckstduhier
    zum Ausrichten Links/Rechts gucktsduda
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

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

    Vielen Dank bis hierhin :thumbsup:

    Mit den Tabs funktioniert prima, das mit dem Rechtsbündig setzen werde ich mir näher ansehen müssen, die Beispiele kann ich gerade nicht auf meinem Projekt übertragen...

    VB.NET-Quellcode

    1. 'Berechnen(lfd) 'führt die Berechnung durch
    2. Punkte.Add(lfd) 'fügt neuen Punkt in Liste ein


    Da zunächst nur Koordinaten gespeichert werden sollen, eine Berechnung später erst kommt, lasse ich die Zeile 'Berechnen erstmal aus. Aber er markiert mir die Punkte.Add gelb... Im Code ist aber nichts unterstrichen (also nichts Falsch für VB).

    VB.NET-Quellcode

    1. If auswahl = 1 Then
    2. lfd.Nr = txtein1.Text
    3. lfd.X = txtein2.Text
    4. lfd.Y = txtein3.Text
    5. ElseIf auswahl = 2 Then
    6. lfd.Nr = txtein1.Text
    7. lfd.hz = txtein2.Text
    8. lfd.s = txtein3.Text
    9. End If
    11. 'Berechnen(lfd) 'führt die Berechnung durch
    12. Punkte.Add(lfd) 'fügt neuen Punkt in Liste ein


    Kann ich das denn so stehen lassen?? Auswahl = 1 ist die Koordinateneingabe, Auswahl = 2 soll dann für Textbox 2 und 3 eine neue Belegung machen, anstelle von Y und X dann den Winkel Hz und die Strecke S, daher die neue Belegung in der IF-Prozedur.


    Warum eigentlich haben alle meine Prozeduren Privat Sub stehen und ihr arbeitet alle mit Subs?!

    VB.NET-Quellcode

    1. 'zB
    2. Private Sub btnende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnende.Click
    3. Me.Close()
    4. End Sub


    Hat es Vor- oder Nachteile, dass ich überall Privat Sub habe anstelle von euren Subs? Oder kann/sollte ich es versuchen irgendwie umzustellen?


    Edith sagt:

    Kann ich es von vornherein so einstellen, dass an jedem Tab rechtsbündig eingefügt wird?


    Edith 2 sagt:

    Die Fehlermeldung beim speichern ist folgende:

    Erstellen sie eine Objektinstanz mit dem Schlüsselwort "new"


    Ich poste nochmal die aktuellen Teilcodes, welche relevant sind.

    VB.NET-Quellcode

    1. Public Class Form1
    2. 'direkt unter Form1 deklariert
    3. Dim strcredits As String
    4. Dim koordeini, polari, abstki, abstpi, strki, koordausi, auswahl, sngrho As Single
    5. Dim länge1, länge2, länge3, hinzu1, hinzu2, hinzu3, hinzu4, hinzu5 As Integer
    6. Dim i As Long
    7. Dim lfd As Punkt
    8. Dim Punkte As List(Of Punkt)
    9. 'ebenfalls unter Form1 deklariert
    10. Public Structure Punkt
    11. Public Nr As Integer
    12. Public X As Single
    13. Public Y As Single
    14. Public Hz As Single
    15. Public S As Single
    16. End Structure
    18. '... ab hier soll auf Klick die Pkt.-Nr sowie Y und X abspeichern...
    20. Private Sub btnok_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnok.Click
    22. lblhinweis1.ForeColor = Color.Red
    23. lblhinweis2.ForeColor = Color.Black
    24. lblhinweis3.ForeColor = Color.Black
    26. lblhinweis.Text = "Zum beenden der Koordinateneingabe einfach Enter drücken"
    28. txtein1.Text = Format(txtein1.Text, "0")
    29. txtein2.Text = Format(txtein2.Text, "0,000")
    30. txtein3.Text = Format(txtein3.Text, "0,000")
    32. If auswahl = 1 Then
    33. lfd.Nr = txtein1.Text
    34. lfd.X = txtein2.Text
    35. lfd.Y = txtein3.Text
    36. ElseIf auswahl = 2 Then
    37. lfd.Nr = txtein1.Text
    38. lfd.Hz = txtein2.Text
    39. lfd.S = txtein3.Text
    40. End If
    42. 'Berechnen(lfd) 'führt die Berechnung durch
    43. Punkte.Add(New Punkt) 'genau HIER markiert er Gelb mit dem oben genannten Fehler
    45. '...
    47. 'ist die Ausgabe so korrekt? Leider kann ich es nicht testen, da er ja nicht speichert^^
    49. For Each P As Punkt In Punkte
    50. rtbausgabe.Text += lfd.Nr & vbTab & lfd.Y & vbTab & lfd.X & vbCrLf
    51. Next



    Unter dem Button "Koordinatenberechnung" wird die "Anzahl = 1" gesetzt. Kann es sein, dass er, obwohl "Anzahl" unter Form deklariert wurde, damit Probleme hat? Da ich mit dem Debuggenmodus nicht klar komme, kann ich das auch irgendwie nicht auf Zwischenergebnisse überprüfen...

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Endless Storm“ ()

    Also ich komme irgendwie nicht hinterher...

    Nach zahlreichen änderungen schreibt er mir (ohne Nachkommastellen :thumbdown: ) die eingegebenen Werte Tab für Tab richtig in die Zeile, er meckert auch nicht mehr^^
    Aaaber:
    Er speichert nur den jeweils letzten Wert. Wenn ich anschließend über Koordinatenausgabe die eingegebenen wieder anzeigen lassen will, zeigt er die korrekte Anzahl an Zeilen, aber er füllt alle Zeilen mit den zuletzt gespeicherten Daten... Er inkrementiert nicht auf bei der Variable... Was mache ich nur falsch?

    Zudem bekomme ich es nicht gebacken, dass er mir den Text, den er frisch schreiben soll, rechtsbündig in die Tabs setzt...
    Die Formatierungen waren unter anderem Schuld daran, dass er teilweise nicht gespeichert hat... Langsam werde ich verrückt. 8o

    Manchmal liegt es einfach nur daran, dass ich eine Deklaration voanders hinschiebe, ein anderes mal ist es nur ein Wert den ich irgendwo eingeben muss wovon ich keine Kenntnis hatte.

    Ich habe wirklich Spaß am Programmieren, aber leider komme ich nicht dahinter wie manche Befehle funktionieren durch ausprobieren... Und im Internet gibt es 1001 Beispiele wo die meisten nur auf ein Miniprog funktionieren, aber nicht in einem komplexeren wie meinem...

    Vielleicht findet ihr einen Fehler den ich übersehen habe.

    Hier nocheinmal der nun letzte Stand meines Codes:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim strcredits As String
    4. Dim koordeini, polari, abstki, abstpi, strki, koordausi, auswahl, sngrho As Single
    5. Dim i As Long
    6. Dim lfd As Punkt
    7. Dim Punkte As New List(Of Punkt)
    9. Public Structure Punkt
    10. Public Nr As Integer
    11. Public X As Single
    12. Public Y As Single
    13. Public Hz As Single
    14. Public S As Single
    15. End Structure
    17. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    18. lbldatum.Text = "Heute ist der " & Date.Today
    19. btnok.Visible = False
    20. End Sub
    22. Private Sub btnende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnende.Click
    23. Me.Close()
    24. End Sub
    26. Private Sub btncredits_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncredits.Click
    27. strcredits = MsgBox("Programmersteller: icke" & vbCrLf & "Programmtester: er & vbCrLf & vbCrLf & "Erstellt zwischen dem 20. und 25.06.2010", MsgBoxStyle.Information, "Credits")
    28. End Sub
    30. Private Sub btnkoordein_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkoordein.Click
    32. auswahl = 1
    33. lblhinweis1.Text = "Punktnummer"
    34. lblhinweis2.Text = "Rechtswert"
    35. lblhinweis3.Text = "Hochwert"
    36. txtauswahl.Text = "Aktuelle Auswahl:" & vbCrLf & "Koordinateneingabe"
    37. koordeini += 1
    38. rtbausgabe.Text += vbCrLf & "Koordinateneingabe Nr. " & koordeini & vbCrLf & "Pkt.-Nr." & vbTab & "Rechtswert" & vbTab & "Hochwert" & vbCrLf
    39. lblhinweis1.ForeColor = Color.Red
    40. lblhinweis2.ForeColor = Color.Black
    41. lblhinweis3.ForeColor = Color.Black
    42. txtein1.Text = ""
    43. txtein2.Text = ""
    44. txtein3.Text = ""
    45. lblhinweis.Text = ""
    46. txtein1.Focus()
    47. txtein1.MaxLength = 5
    48. txtein2.MaxLength = 11
    49. txtein3.MaxLength = 11
    51. End Sub
    53. Private Sub txtein1_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtein1.KeyDown
    54. If e.KeyCode = Keys.Enter Then
    56. If Me.txtein1.Text = "" Then
    57. lblhinweis.Text = "Koordinateneingabe beendet"
    58. rtbausgabe.Text += "Ende der Koordinateneingabe" & vbCrLf
    59. txtauswahl.Text = ""
    60. txtein1.Text = ""
    61. txtein2.Text = ""
    62. txtein3.Text = ""
    63. lblhinweis1.ForeColor = Color.Black
    64. lblhinweis2.ForeColor = Color.Black
    65. lblhinweis3.ForeColor = Color.Black
    66. btnpolar.Focus()
    67. Else
    68. lblhinweis.Text = ""
    69. lblhinweis1.ForeColor = Color.Black
    70. lblhinweis2.ForeColor = Color.Red
    71. lblhinweis3.ForeColor = Color.Black
    73. i += 1
    74. txtein2.Focus()
    75. End If
    77. End If
    79. End Sub
    81. Private Sub txtein2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtein2.KeyDown
    82. If e.KeyCode = Keys.Enter Then
    84. lblhinweis1.ForeColor = Color.Black
    85. lblhinweis2.ForeColor = Color.Black
    86. lblhinweis3.ForeColor = Color.Red
    87. txtein3.Focus()
    89. End If
    90. End Sub
    92. Private Sub txtein3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtein3.KeyDown
    93. If e.KeyCode = Keys.Enter Then
    95. lblhinweis1.ForeColor = Color.Black
    96. lblhinweis2.ForeColor = Color.Black
    97. lblhinweis3.ForeColor = Color.Black
    99. If Me.txtein1.Text = "" Then
    100. lblhinweis.Text = "Fehlerhafte Punkteingabe"
    101. txtein1.Focus()
    102. ElseIf Me.txtein2.Text = "" Then
    103. lblhinweis.Text = "Fehlerhafter Rechtswert"
    104. txtein2.Focus()
    105. ElseIf Me.txtein3.Text = "" Then
    106. lblhinweis.Text = "Fehlerhafter Hochwert"
    107. txtein3.Focus()
    108. Else
    109. lblhinweis.Text = "Eingabe mit Enter bestätigen"
    110. btnok.Visible = True
    111. btnok.Focus()
    112. End If
    114. End If
    116. End Sub
    118. Private Sub btnok_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnok.Click
    120. lblhinweis1.ForeColor = Color.Red
    121. lblhinweis2.ForeColor = Color.Black
    122. lblhinweis3.ForeColor = Color.Black
    124. lblhinweis.Text = "Zum beenden der Koordinateneingabe einfach Enter drücken"
    126. If auswahl = 1 Then
    127. lfd.Nr = txtein1.Text
    128. lfd.X = txtein2.Text
    129. lfd.Y = txtein3.Text
    130. ElseIf auswahl = 2 Then
    131. lfd.Nr = txtein1.Text
    132. lfd.Hz = txtein2.Text
    133. lfd.S = txtein3.Text
    134. End If
    136. Punkte.Add(New Punkt) 'Es wird nicht inkrementiert?
    138. rtbausgabe.SelectionTabs = New Integer() {50, 150, 250, 350, 450}
    140. rtbausgabe.SelectionAlignment = HorizontalAlignment.Right 'Befehl funktioniert nicht
    141. rtbausgabe.Text += vbTab & lfd.Nr & vbTab & lfd.Y & vbTab & vbTab & lfd.X & vbCrLf
    143. txtein1.Text = ""
    144. txtein2.Text = ""
    145. txtein3.Text = ""
    146. txtein1.Focus()
    147. btnok.Visible = False
    149. End Sub
    151. Private Sub btnkoordaus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkoordaus.Click
    152. rtbausgabe.Text += vbCrLf & "Koordinatenverzeichnis" & vbCrLf & "Pkt.-Nr." & vbTab & "Rechtswert" & vbTab & "Hochwert" & vbCrLf
    153. txtauswahl.Text = "Aktuelle Auswahl:" & vbCrLf & "Koordinatenverzeichnis"
    155. For Each P As Punkt In Punkte 'er erstellt brav die richtige Anzahl an Zeilen, aber füllt alle mit den letzten Werten auf
    156. rtbausgabe.Text += vbTab & lfd.Nr & vbTab & lfd.Y & vbTab & vbTab & lfd.X & vbCrLf
    157. Next
    159. txtauswahl.Text = ""
    160. txtein1.Text = ""
    161. txtein2.Text = ""
    162. txtein3.Text = ""
    163. lblhinweis1.ForeColor = Color.Black
    164. lblhinweis2.ForeColor = Color.Black
    165. lblhinweis3.ForeColor = Color.Black
    166. btnkoordaus.Focus()
    167. End Sub
    168. End Class

    VB.NET-Quellcode

    1. For Each P As Punkt In Punkte 'er erstellt brav die richtige Anzahl an Zeilen, aber füllt alle mit den letzten Werten auf
    2. rtbausgabe.Text += vbTab & lfd.Nr & vbTab & lfd.Y & vbTab & vbTab & lfd.X & vbCrLf Next
    Muß er ja. :)
    lfd ist ja der zuletzt eingegebene Punkt. In deiner ForEach-Schleife werden die Elemente der Liste an P übergeben 8o
    Also mußt du auch P an deinen Text übergeben.

    VB.NET-Quellcode

    1. rtbausgabe.Text += vbTab & P.Nr 'usw...
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

Facebook
Telefonspende