Unwissenheit meinerseits bei Konsolenanwendung, True/false Werten im Bezug auf ein Flussdiagram, bitte um Hilfestellung

  • VB.NET

Es gibt 36 Antworten in diesem Thema. Der letzte Beitrag () ist von gulasch13.

    Unwissenheit meinerseits bei Konsolenanwendung, True/false Werten im Bezug auf ein Flussdiagram, bitte um Hilfestellung

    Hallo liebe community,

    ich habe mich versucht die letzten Tage mit VB auseinanderzusetzen aber so recht ist mir das nicht gelungen.

    Ich habe eine Aufgabe meiner Universität bekommen. Es ist eine Art von "Diagrammbaum", welches in einer Konsolenanwendung in Visual Basic umgesetzt werden soll.

    Die Variablen müssen als Boolesche Werte deklariert sein, es dürfen max. 5 Abfragen stattfinden, es gilt die Richtlinie
    Option Explicit On, Option Strict On, Imports System.Console,Imports Microsoft.VisualBasic. In dieser Aufgabe geht es wohl um If-Funktionen und die booleschen Operatoren.

    Anbei ein Screenshot:

    Ich bin am verzweifeln, da ich das Ding demnächst abgeben muss und einfach nicht voran komme.

    Ich komme nur soweit, dass ich die Variablen als boolean deklariere und mit ein bis zwei If Abfragen ein kleines Stück des Diagrams entlang gehen kann.

    Ich bitte um dringende Hilfe.

    Danke für jegliche Hilfe.

    Niklas :S

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

    Hallo und Willkommen!

    Mit deine Frage ist leider schlecht - hier hält man sich i.a. ziemlich zurück, wenn man das Gefühl bekommt, annerer Leuts Hausaufgaben zu machen :/

    hey, aber vlt. dabei helfen:
    Also ich kann noch gar keine Aufgaben stellung erkennen. Ein hingeklatschtes Diagramm ist keine Aufgabe.

    Eine Aufgabe ist, wenn man weiß, was wo eingegeben wird, und was dann dabei rauskommen soll.

    Ich bin nicht darauf aus, dass mir jemand die Arbeit macht, lediglich bin ich auf Denkanstöße aus :-). Welche Boolesche Operatoren etc. hier von Nöten wären...

    Es geht darum, in einer Konsolenanwendung sozusagen danach zu fragen "Sind Sie Unternehmungslustig?" Dann hat man die Möglichkeit mit Ja oder Nein zu antworten. Wenn Nein, dann geht es den linken Weg weiter, wenn ja den rechten und so weiter, bis man am Ende sozusagen von der Konsole gesagt bekommt was man machen soll.

    War das verständlich? :S Wenn nicht versuche ich es noch mal anders zu erläutern.

    wie gesagt: es gibt noch gar keine Aufgabe, daher sind auch keine "boolschen Operatoren" (was stellst du dir eiglich darunter vor?) vonnöten.

    was soll das Programm tun? das ist meine frage.

    ah - da isses ja - hab ich das grad überlesen, oder hast du editiert?

    also zuerst brauchst du was, womit du was ausgeben kannst, und wo der User was eingeben kann.

    Hier täte reichen, wenn das Programm anhält und wartet, bis der User 'Y', 'N' oder iwas anneres eingibt.

    Bei iwas annerem könnte man dann beenden wegen Fehleingabe - das ist das einfachste.

    Kannst du schon was ausgeben und eingeben?

    Editiert :D

    Ich war jetzt soweit, dass ich

    VB.NET-Quellcode

    1. Dim Unternehmungslustig As Boolean
    2. Dim Freunde As Boolean
    3. Dim Geldausgabe As Boolean
    4. Dim Aktiv As Boolean
    6. Console.WriteLine("Unternehmungslustig?")
    7. If Console.ReadLine = "Ja" Then
    8. Unternehmungslustig = True
    9. ElseIf Console.ReadLine = "Nein" Then
    10. Unternehmungslustig = False
    11. End If
    12. Console.WriteLine("Freunde?")
    13. If Console.ReadLine = "Nein" Then
    14. Freunde = False
    15. ElseIf Console.ReadLine = "Ja" Then
    16. Freunde = True
    17. End If
    18. If Unternehmungslustig And Freunde = False And Console.ReadLine = "Nein" Then
    19. Console.WriteLine("Geldausgabe?")
    20. End If
    21. Console.ReadLine()


    Soweit war ich jetzt. Aber irgendwo stimmt das nicht

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

    doch, dassis gut.

    einfacher ist Console.ReadKey, weiler da nur eine Taste drücken muss.


    Nun noch unsere Forum-Software kennenlernen, denn da kommen viele verschachtelte Ifs bei raus, und da ist die richtige Einrückung des Codes lebenswichtig: Bitte VB-Tag benutzen - aber richtig

    .. es ist doch klar das du immer den zustand einlesen musst und dann erst vergleichen : hier mal ein kleines Beispiel :

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim Unternehmungslustig As Boolean
    3. Dim Freunde As Boolean
    4. Dim Geldausgabe As Boolean
    5. Dim Aktiv As Boolean
    7. Console.WriteLine("Unternehmungslustig?")
    8. Dim readdata As String = Console.ReadLine
    9. If readdata.ToLower = "ja" Then
    10. Unternehmungslustig = True
    11. ElseIf readdata.ToLower = "nein" Then
    12. Unternehmungslustig = False
    13. End If
    14. Console.WriteLine("Freunde?")
    15. readdata = Console.ReadLine
    16. If readdata.ToLower = "ja" Then
    17. Freunde = True
    18. ElseIf readdata.ToLower = "nein" Then
    19. Freunde = False
    20. End If
    21. If Unternehmungslustig = False And Freunde = False Then
    22. Console.WriteLine("Geldausgabe?")
    23. readdata = Console.ReadLine
    24. If readdata.ToLower = "ja" Then
    25. Geldausgabe = True
    26. ElseIf readdata.ToLower = "nein" Then
    27. Geldausgabe = False
    28. End If
    29. End If
    30. Console.ReadLine()
    31. End Sub
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    ich hab keine Ahnung, was ihr hier mit do loop wollt.
    Und auch mit den Variablen - die sind unnötig, und verwirren nur - mach sie weg.
    Es braucht nur für jede Raute im Diagramm eine If-Abfrage zu geben.
    Die unteren Ebenen des Diagramms, da sind die If-Abfragen ineinander verschachtelt.
    Das ganze braucht ziemlich genau doppelt so viele Zeilen, wies Kästchen im Diagramm hat - weil für jede Raute muss man ja die Frage ausgeben, und dann je nach antwort weiter verzweigen.

    naja - kann man auch mit den Variablen machen. Da fragt man halt die 4 Fragen ab, und ermittelt das Ergebnis in einem abgetrennten Schritt.

    VB.NET-Quellcode

    1. Private Unternehmenslustig As Boolean
    2. Private Freunde As Boolean
    3. Private Geldausgaben As Boolean
    4. Private aktiv As Boolean
    5. Sub Main()
    6. Console.WriteLine("Hallo! Ich werde dir einige Fragen stellen die du mit Ja (y) oder Nein (beliebige Taste) beantworten musst.")
    7. Console.WriteLine("Bist du Unternehmungslustig?")
    8. Dim input As Char = Console.ReadKey.KeyChar
    9. Unternehmenslustig = input = "y"
    10. Zeile()
    11. Console.WriteLine("Nächste Frage! Hast du Freunde?")
    12. InputText(input)
    13. Freunde = input = "y"
    14. Zeile()
    15. Console.WriteLine("Nächste Frage! Gibst du gerne Geld aus?")
    16. InputText(input)
    17. Geldausgaben = input = "y"
    18. Zeile()
    19. Console.WriteLine("Letzte Frage, bist du aktiv?")
    20. InputText(input)
    21. aktiv = input = "y"
    22. Zeile()
    23. Console.WriteLine(Unternehmenslustig)
    24. Console.WriteLine(Freunde)
    25. Console.WriteLine(Geldausgaben)
    26. Console.WriteLine(aktiv)
    27. Console.ReadLine()
    28. End Sub
    29. Private Sub InputText(ByRef inp As Char)
    30. inp = Console.ReadKey.KeyChar
    31. End Sub
    32. Private Sub Zeile()
    33. Console.WriteLine(Environment.NewLine)
    34. End Sub


    Jetzt muss du nur noch abfragen und dementsprechend den Ergebniss Text liefern.
    (Es gibt 24 versch. Möglichkeiten)

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

    Hier ist der Quellcode nur falls du nicht mehr weiter kommst :
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    4. Dim Unternehmungslustig As Boolean
    5. Dim Freunde As Boolean
    6. Dim Geldausgabe As Boolean
    7. Dim Aktiv As Boolean
    9. Console.WriteLine("Unternehmungslustig?")
    10. Dim readdata As String = Console.ReadLine
    11. If readdata.ToLower = "ja" Then
    12. Unternehmungslustig = True
    13. ElseIf readdata.ToLower = "nein" Then
    14. Unternehmungslustig = False
    15. End If
    16. Console.WriteLine("Freunde?")
    17. readdata = Console.ReadLine
    18. If readdata.ToLower = "ja" Then
    19. Freunde = True
    20. ElseIf readdata.ToLower = "nein" Then
    21. Freunde = False
    22. End If
    23. Console.WriteLine("Aktiv?")
    24. readdata = Console.ReadLine
    25. If readdata.ToLower = "ja" Then
    26. Aktiv = True
    27. ElseIf readdata.ToLower = "nein" Then
    28. Aktiv = False
    29. End If
    30. Console.WriteLine("Geldausgabe?")
    31. readdata = Console.ReadLine
    32. If readdata.ToLower = "ja" Then
    33. Geldausgabe = True
    34. ElseIf readdata.ToLower = "nein" Then
    35. Geldausgabe = False
    36. End If
    37. If Unternehmungslustig = True Then
    38. If Freunde = True Then
    39. If Geldausgabe = True Then
    40. If Aktiv = True Then
    41. Console.WriteLine("miete eine Jet")
    42. Else
    43. Console.WriteLine("Kino")
    44. End If
    45. Else
    46. If Aktiv = True Then
    47. Console.WriteLine("besuche freundet")
    48. Else
    49. Console.WriteLine("FH Kino")
    50. End If
    51. End If
    52. Else
    53. If Geldausgabe = True Then
    54. If Aktiv = True Then
    55. Console.WriteLine("Casino")
    56. Else
    57. Console.WriteLine("Kino")
    58. End If
    59. Else
    60. If Aktiv = True Then
    61. Console.WriteLine("asta Party")
    62. Else
    63. Console.WriteLine("Kino")
    64. End If
    65. End If
    66. End If
    67. Else
    68. If Freunde = True Then
    69. If Geldausgabe = True Then
    70. If Aktiv = True Then
    71. Console.WriteLine("Sit in")
    72. Else
    73. Console.WriteLine("Videofilm")
    74. End If
    75. Else
    76. If Aktiv = True Then
    77. Console.WriteLine("zusammenlegen")
    78. Else
    79. Console.WriteLine("starrt euch gegenseitig an")
    80. End If
    81. End If
    82. Else
    83. If Geldausgabe = True Then
    84. If Aktiv = True Then
    85. Console.WriteLine("Kaufe wind xp und installiere es")
    86. Else
    87. Console.WriteLine("kreuzug durch ebay und co")
    88. End If
    89. Else
    90. If Aktiv = True Then
    91. Console.WriteLine("deine scripte und bücher starren dich an")
    92. Else
    93. Console.WriteLine("keien freunde kein Geld gehe schlafen")
    94. End If
    95. End If
    96. End If
    97. End If
    98. Console.ReadLine()
    99. End Sub
    101. End Module
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Danke, wenn ich es bis heute Nacht nicht selber geschafft habe, werde ich darauf zurückkommen.

    Nur mal so als Frage: Ist es überhaupt möglich, das ganze so zu lösen wie ich es weiter oben angefangen habe? Oder bin ich auf sowas wie readdata.Lower etc angewiesen?