Guten Tag,
ich bin neu im Forum und hätte gleich mal ein anliegen.
Ich absolviere zur Zeit ein Fernstudium zum "Geprüften Programmierer", bin also noch ein blutiger Anfänger.

Ich soll nun ein Zahlenspiel programmieren, Spieler eins gibt eine Zahl ein und Spieler zwei muss diese erraten.
Soweit ist mir das auch klar, jedoch gibt es verschiedene Bedingungen.
1) Die zahl wurde getroffen
2) Die eingegebene Zahl ist zu klein
3) Die zahl wurde um mehr als 10 verfehlt
4) Die angegebene Zahl wurde um höchstens 10 verfehlt

Ich weiß das ich mit Operatoren <, >, =, arbeiten muss, jedoch ist mir nicht klar wie ich das auf "10" begrenzen kann.
Wenn ich als Zahl 55 eingebe und der zweite Spieler rät 65, würde ja Bedingung 4 eintreten.
Zu Bedingung 1 hätte ich folgendes geschrieben.

​

Kann mir jemand weiter helfen?
Hoffe habe mich nicht zu undeutlich ausgedrückt

Gruß
Philipp

1. Du postest im Falschen Unterforum. Ich gehe mal davon aus das du VB.Net lernst und nicht VBA
2. If Zahl1 > (Zahl2+10) then

Danke für die schnelle Antwort.
Doch ist VBA mit Word.
In der zweiten hälfte des Studiums kommt dann C++ dran.

OK, Teil 2 bleibt auch bei VBA so

Edit:
Mit VBA habe ich mich noch nie beschäftigt und kann daher nur vermuten, dass die Syntax ähnlich ist.

Hier paar kleine Beispiele, die aber noch unvollständig sind. Deine Aufgabe ist dazu da dich mit der If...Then...Else-Anweisung vertraut zu machen und paar (Vergleichs)Operatoren einzusetzen.



Oder eine Lösung mit else if.


If...Then...Else-Anweisung (Visual Basic)
msdn.microsoft.com/de-de/library/752y8abs.aspx

Vergleichsoperatoren
msdn.microsoft.com/de-de/library/cey92b0t.aspx

Operatoren und Ausdrücke in Visual Basic
http://msdn.microsoft.com/de-de/library/a1w3te48.aspx

Ich danke dir, hab ne halbe Ewigkeit danach gegoogelt
Ich werde mal beide Schreibweisen ausprobieren, mit und ohne klammern.

Mein Ansatz:

Ich habe das jetzt mal so probiert, funktioniert jedoch nur bedingt.
​

Achte auf die richtige Reihenfolge der Abfragen!
Sobald ein Fall zutrifft, werden die restlichen Fälle übersprungen.

Ist mehr als 10 zu klein auch ein extra behandelter Fall?

Ich habe zur Verdeutlichung mal die Aufgabe an gehangen.
Ich erwarte aber nicht die Lösung!

Stimmt, die Reihenfolge könnte noch ein Knackpunkt sein.
Ich setzt mich gleich nochmal ran.

Beachte die Vorgabe "Die Bedingungen überschneiden sich und haben immer zwei Ausgaben".

Ich sehe jetzt erst das ich die Sache ganz falsch angegangen bin.
Die Bedingungen sollen gar nicht ausgegeben werden.
Ich hatte immer eine Bedingung und den dazu passenden Ausgabetext ausgegeben.
Ohje, peinlich!
Ich rolle das ganze jetzt nochmal neu auf.
Vollkommen umsonst Kopfzerbrechen bereitet

Dann ist der Ansatz ja noch einfacher:

Hab es jetzt wieder geändert, stehe trotzdem aufem Schlauch...
Der Anfang läuft jetzt, jedoch muss ich ja die mehr / weniger als 10 noch mit den anderen Ausgaben verbinden, da ja immer
zwei Bedingungen erfüllt sein müssen. Dann muss auch noch der Text beider Bedingungen ausgegeben werden.

Die Reihenfolge passt schon wieder nicht.

Warum verwendest du nicht den von mir vorgeschlagenen Ansatz, zunächst das Delta auszurechnen und damit zu arbeiten?
Damit wird der Code quasi selbsterklärend.

Psysin-X schrieb:

Der Anfang läuft jetzt, jedoch muss ich ja die mehr / weniger als 10 noch mit den anderen Ausgaben verbinden, da ja immer
zwei Bedingungen erfüllt sein müssen. Dann muss auch noch der Text beider Bedingungen ausgegeben werden.

Dann wirst du wahrscheinlich noch Strings verketten müssen.


suite101.de/article/stringfunk…ketten-verarbeiten-a95850

petaod schrieb:

Dann ist der Ansatz ja noch einfacher:

Visual Basic-Quellcode

1. If Delta = 0 Then
2. 'getroffen
3. ElseIf Abs(Delta) > 10 Then
4. 'mehr als 10 daneben
5. ElseIf Delta < 0 Then
6. 'zu klein
7. Else
8. 'zu gross
9. End If

Ich steige da nicht wirklich durch.
In der Form gab es noch nichts im Lehrgang.
Ich verwende trotzdem jetzt mal deinen Code, mal sehen wie weit ich komme.

Der einzige "Trick" ist, die Differenz der zwei Zahlen in die Variable "Delta" zu schreiben.
Mit dieser Differenz lässt sich wesentlich einfacher rechnen, als wenn du jedesmal die Zahlen miteinander vergleichen musst.

Im Geiste kannst du auch jedesmal wo "Delta" steht, "Zahl2 - Zahl1" denken.

"Abs" ist die Betragsfunktion.
Damit wird abgefragt, ob der Betrag des Deltas > 10 ist.
Statt ​ElseIf Abs(Delta) > 10 Then könntest du auch schreiben
​ElseIf Delta > 10 Or Delta < -10 Then

petaod schrieb:

Der einzige "Trick" ist, die Differenz der zwei Zahlen in die Variable "Delta" zu schreiben.
Mit dieser Differenz lässt sich wesentlich einfacher rechnen, als wenn du jedesmal die Zahlen miteinander vergleichen musst.

Im Geiste kannst du auch jedesmal wo "Delta" steht, "Zahl2 - Zahl1" denken.

"Abs" ist die Betragsfunktion.
Damit wird abgefragt, ob der Betrag des Deltas > 10 ist.
Statt ElseIf Abs(Delta) > 10 Then könntest du auch schreiben
ElseIf Delta > 10 Or Delta < -10 Then

So lernt man dazu.
Auf deine weise ist es tatsächlich einfacher.
Hatte mich schon gewundert was "Abs" heißt, danke für die Info.
Bin das jetzt mal durch gegangen, zumindest wird jetzt immer der richtige Ausgabetext gegeben.
Diesbezüglich bin ich jetzt schon mal einen schritt weiter.

Nachdem du jetzt soweit bist, kann ich dich noch etwas verwirren.
Es gibt noch Optimierungspotenzial.

Bei den beiden jeweils letzten ElseIf-Statements kannst du die Abfrage weglassen.
z.B. ElseIf Delta < 0 Then kannst du durch ein einfaches Else ersetzen.
Da du oben schon die Fälle =0 und >0 abgeprüft hast, bleibt nur noch der Fall <0 übrig.
Du brauchst ihn deshalb nicht nochmals explizit abfragen.


Insbesonders im unteren Block, wo du auf > 10 abfragst, geht dir nämlich die 10 durch die Lappen, weil die nämlich weder >10 noch <10 ist.
Die richtige Methode wäre da

Ausserdem entgeht dir der Fall des Treffers.
Du schreibst zwar oben "Gratulation" in das Ergebnis, aber unten überschreibst du das Ergebnis nochmals im Block ​If Abs(Delta) < 10 Then.
Über dieses Problem lasse ich dich jetzt alleine nachdenken.