VB.net Zahlen runden ? (nicht so ganz)

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Hobbl.

    VB.net Zahlen runden ? (nicht so ganz)

    Hallo,

    ich programmiere gerade ein Fahrstuhl-Programm (für meine Kinder).
    Nun möchte ich, dass wenn 2 oder mehr Buttons (die haben Zahlen von 0-17) gedrückt werden, immer die nächste Zahl "angefahren" wird. Wie mache ich das?

    Beispiel:
    Der "Fahrstuhl" ist gerade auf der 6. Etage, und es wird auf die 3 gedrückt. Während der "Fahrstuhl" "fährt" wird die 9 und die 1 gedrückt. Das Programm soll herausfinden, wo er als nächstes "hinfahren" soll, b.z.w. wo der Weg am kürzesten ist.

    Wie geht das?

    ;)
    Drücke auf Hilfreich, wenn dir dieser Post geholfen hat!
    Mein aktuelles Projekt
    Codar: 19%

    Link: bald

    Du nimmst die DIfferenzen zwischen den Zielen und dem Ist-Stockwerk und schaust, welcher Betrag der kleinste ist.
    Ist: 6
    Ziel: 1, 9
    6 - 1 = 5; Betrag von 5 = 5
    6 - 9 = -3; Betrag von -3 = 3 -> Dein nächstes Ziel
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo!
    Vorschlag: speichere jeden Tastendruck in einer list of int und vor dem losfahren subtrahierst du von jedem Eintrag das aktuelle Stockwerk. Die kleinste Differenz ist der kürzeste Weg. Bei erreichen des Ziels dann den Eintrag wieder aus der Liste entfernen.

    Alternativ eine queue of int (FIFO-Speicher) verwenden. Aber dann werden die Ziele der Reihe nach angefahren wenn du den ersten Eintrag nimmst
    Der Beitrag wurde aus 100% wiederverwendbaren Elektronen erstellt!

    Nun, wo ist der Gegenvorschlag, @Hobbl?
    Man könnte das ganze noch priorisieren. Jedes Stockwerk, welches durch ein anderes benachteiligt wurde, wird in dessen Priorität erhöht, beginnend bei 1. Dann könnte man es z.B. so machen, dass man Differenzbetrag durch Priorität teilt. Dann würde das 17. Stockwerk nach 3maligem Überspringen eine Prirität von 4 haben und bei aktueller Ebene 5 dann nur noch eine effektive Ebenendifferenz von 3 haben. (|5 - 17| = 12; 12 : 4 = 3)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    machs doch wie bei nem echten Fahrstuhl...9 (start) -> 0

    Wenn eine Zahl zwischen 9-0 gedrückt wird, hält der Fahrstuhl dort bevor er zur 0 fährt.
    jetzt wurde auch 17 gedrückt. diese wird erstmal wie alle anderen Ziffern die größer als 9 sind gespeichert.

    jetzt ist der Fahrstuhl bei 0 Ziel ist 17. Er fährt zu 17 und hält unterwegs bei allen Stockwerken zwischen 0 und 17.
    ist noch ne größere Ziffer vorhanden, fährt er danach dort hin.

    ein Echter Aufzug hält immer die Fahrtrichtung bei und springt nicht immer hin und her. Man könnte natürlich noch nen Schlüsselknopf hinzufügen, dass der Aufzug nur in ein bestimmtes Stockwerk fährt welches gewählt wird, wenn der Schlüssel gedreht (geklickt) wird und dabei alle anderen Stockwerke ignoriert.

    Wenn während der Fahrt zu einem Ziel auf einem Stockwerk gedrückt wird und das liegt zwischen Ziel und aktueller Position dann stehen bleiben.

    Wir nun ein weiteres Ziel ausgewählt dann prüfen ob es auf dem Weg zwischen aktuellem Ziel und aktueller Position liegt.

    Vermutlich am einfachsten zu machen per list... Aktuelles Ziel ist immer der erste Eintrag... Wenn das Ziel der zu steigenden Person auf dem Weg lieg, dann an Position 0 einfügen, ansonsten weiter hinten... Dort könnte man noch je nach Zielrichtung die dazwischenliegenden Stockwerke der grösse nach sortieren
    Der Beitrag wurde aus 100% wiederverwendbaren Elektronen erstellt!

    @Tizian170

    Ich habe es jetzt mal extra ohne Mathematik versucht. Es lässt sich so lösen.

    Freundliche Grüsse

    exc-jdbi

    Edit:
    Ein paar Sachen die hier angesprochen wurden habe ich nicht beachtet.
    War auch nicht mein Ziel, weil sowas in der Praxis sowieso nicht in Frage
    kommt. (Da gibt es Sensorik, I/O-Module, Regel- und Steuerungskreise etc.)
    Die Simulation lässt sich aber problemlos weiter ausbauen, in dem z.B.
    die Methoden SetNewStorey und Solver zusammengeführt werden, etc.
    Hierzu wäre eine detaillierte Beschreibung aller Anforderungen nötig.

    Was habt Ihr auch immer mit dieser Zahl 0. Die ist meiner Meinung nach
    absolut irrelevant, ausser Sie kommt als Startwert in Frage.


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    3. Public Module Module2
    4. Private UpStair As Boolean
    5. Private Rand As Random = New Random
    6. Private Const MAX_COUNT As Int32 = 30
    8. Public Sub Main()
    9. Dim min = -100, max = 500
    10. Dim start = Rand.Next(min, max + 1)
    11. Console.WriteLine($"Start: {start}")
    12. Simulation(start, min, max)
    14. Console.WriteLine()
    15. Console.WriteLine("FINISH")
    16. Console.ReadKey()
    17. End Sub
    19. Private Sub Simulation(ByRef start As Int32, min As Int32, max As Int32)
    20. Dim counter = 0I
    21. Dim size = Rand.Next(2, 4)
    22. Console.WriteLine($"Es werden {size} neue Stockwerke gedrückt")
    24. Dim idxs = RngStorey(start, size, min, max + 1)
    25. UpStair = Upstairs(start, idxs)
    26. Console.WriteLine($"Aufwärtsfahrt: {UpStair}")
    28. While idxs.Length > 0 AndAlso counter < MAX_COUNT
    29. 'Ausrechnen
    30. idxs = Solver(start, idxs)
    31. Console.Write("Buffer: ")
    32. Array.ForEach(idxs, Sub(x) Console.Write($"{x} "))
    33. Console.WriteLine() : Console.WriteLine()
    35. 'Lift fährt zum Stockwerk, und
    36. 'übernimmt den neuen startwert.
    37. start = idxs(0)
    38. Console.WriteLine($"Neuer Start: {start}")
    40. 'Je nachdem werden neue Stockwerke gedrückt
    41. size = Rand.Next(0, 3)
    42. Console.WriteLine($"Es werden {size} neue Stockwerke gedrückt")
    43. idxs = SetNewStorey(size, start, idxs, min, max)
    45. 'Wenn im Speicher keine Werte mehr sind dann verlassen
    46. If idxs.Length = 0 Then Return
    48. 'UpStair Umschaltung der Fahrtrichtung
    49. If UpStair AndAlso start >= idxs.Max Then UpStair = Not UpStair
    50. If Not UpStair AndAlso start <= idxs.Min Then UpStair = Not UpStair
    51. Console.WriteLine($"Aufwärtsfahrt: {UpStair}")
    53. 'counter hochzählen, damit ein Ende besteht
    54. counter += 1
    55. End While
    56. End Sub
    58. Private Function SetNewStorey(size As Int32, start As Int32, idxs() As Int32, min As Int32, max As Int32) As Int32()
    59. Dim lidxs = idxs.ToList
    60. lidxs.RemoveAt(0)
    61. Dim tmp = 0I
    62. For i = 0I To size - 1
    63. tmp = Rand.Next(min, max + 1)
    64. If Not tmp = start Then
    65. lidxs.Add(tmp)
    66. Continue For
    67. End If
    68. i -= 1
    69. Next
    70. Return lidxs.ToArray
    71. End Function
    73. Private Function Solver(start As Int32, idxs() As Int32) As Int32()
    74. Dim greater = idxs.Where(Function(x) x >= start).OrderBy(Function(y) y).ToList
    75. Dim smaller = idxs.Where(Function(x) x < start).OrderByDescending(Function(y) y).ToList
    76. If UpStair Then
    77. greater.AddRange(smaller)
    78. Return greater.Distinct.ToArray
    79. End If
    80. smaller.AddRange(greater)
    81. Return smaller.Distinct.ToArray
    82. End Function
    84. Private Function Upstairs(start As Int32, idxs() As Int32) As Boolean
    85. 'Upstairs nach oben (treppenauf), Richtung grössere Zahlen
    86. 'In 'idxs' gilt das "FIFO-Prinzip", die erste Zahl entscheidend,
    87. 'ausser sie ist gleich wie 'start', dann wird die nächste geprüft.
    88. For i = 0 To idxs.Length - 1
    89. If idxs(i) > start Then Return True
    90. If idxs(i) < start Then Return False
    91. Next
    92. Return False
    93. End Function
    95. Private Function RngStorey(start As Int32, size As Int32, min As Int32, max As Int32) As Int32()
    96. 'Es können auch Minuszahlen zum Einsatz kommen
    97. Dim result = New Int32(size - 1) {}
    98. For i = 0I To size - 1
    99. result(i) = Rand.Next(min, max)
    100. If result(i) = start Then i -= 1
    101. Next
    102. Return result
    103. End Function
    104. End Module

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „exc-jdbi“ ()

Facebook
Telefonspende