PureBoard

Verfasst: **03.10.2006 14:28**

Hallo!!!

Ich habe mir ein kleines Prog geschrieben um unsere Fussballwetten einzutragen und die Punktestände auszugeben.

Ich bin absoluter Anfänger also wundert euch nicht. Das Prog ist bestimmt sehr umständlich geschrieben. Bin für alle Verbesserungs Tips zu haben.

Grob die Wett-Regeln damit man es leichter Versteht.
Für ein Richtiges Ergebniss gibts: 7 Punkte
Für eine Richtige Tendenz: 3 Punkte
Für eine richtige Tendenz bei Unentschieden: 5 Punkte
Und für eine richtige Treffervoraussage einer Manschaft: 1 Punkt

Kurz: Bremen : Dortmund hat 3 : 0 gespielt

Ich hab 3 : 2 getippt also bekomm ich 3 Punkte für die Tendenz + 1 Punkt für richtige Treffervorraussage Bremen(3)
Also 4 Punkte für das Spiel.

Mein Problem ist das der 1 Spieler richtig ausgegeben wird beim 2 Spieler aber ein Fehler im Vergleich(><) auftritt.
Hab dahinter einen Blockkomentar eingefügt.
Der Vergleich ist ist eindeutig ok so aber er gibt die Punkte falsch aus.
Also muß der Fehler wo anders liegen. Hab aber keine Ahnung wo.

Wäre nett wenn sich das mal jemand anschauen könnte.

Vielen Dank im Voraus.

PureBasic V4.0 Windows

Code: Alles auswählen

Global Spiel_1_1.l
Global Spiel_1_2.l
Global Spiel_2_1.l
Global Spiel_2_2.l
Global Spiel_3_1.l
Global Spiel_3_2.l
Global Spiel_4_1.l
Global Spiel_4_2.l
Global Spiel_5_1.l
Global Spiel_5_2.l
Global Spiel_6_1.l
Global Spiel_6_2.l
Global Spiel_7_1.l
Global Spiel_7_2.l
Global Spiel_8_1.l
Global Spiel_8_2.l
Global Spiel_9_1.l
Global Spiel_9_2.l

Global Spieler1_Spiel_1_1.l
Global Spieler1_Spiel_1_2.l
Global Spieler1_Spiel_2_1.l
Global Spieler1_Spiel_2_2.l
Global Spieler1_Spiel_3_1.l
Global Spieler1_Spiel_3_2.l
Global Spieler1_Spiel_4_1.l
Global Spieler1_Spiel_4_2.l
Global Spieler1_Spiel_5_1.l
Global Spieler1_Spiel_5_2.l
Global Spieler1_Spiel_6_1.l
Global Spieler1_Spiel_6_2.l
Global Spieler1_Spiel_7_1.l
Global Spieler1_Spiel_7_2.l
Global Spieler1_Spiel_8_1.l
Global Spieler1_Spiel_8_2.l
Global Spieler1_Spiel_9_1.l
Global Spieler1_Spiel_9_2.l

Global Spieler2_Spiel_1_1.l
Global Spieler2_Spiel_1_2.l
Global Spieler2_Spiel_2_1.l
Global Spieler2_Spiel_2_2.l
Global Spieler2_Spiel_3_1.l
Global Spieler2_Spiel_3_2.l
Global Spieler2_Spiel_4_1.l
Global Spieler2_Spiel_4_2.l
Global Spieler2_Spiel_5_1.l
Global Spieler2_Spiel_5_2.l
Global Spieler2_Spiel_6_1.l
Global Spieler2_Spiel_6_2.l
Global Spieler2_Spiel_7_1.l
Global Spieler2_Spiel_7_2.l
Global Spieler2_Spiel_8_1.l
Global Spieler2_Spiel_8_2.l
Global Spieler2_Spiel_9_1.l
Global Spieler2_Spiel_9_2.l

Global Punkte.l
Global Punkte1.l
Global Punkte2.l
Global Punkte3.l
Global Punkte4.l
Global Punkte5.l
Global Punkte6.l
Global Punkte7.l
Global Punkte8.l
Global Punkte9.l

Global ExtraPunkte.l

;-Spielergebnisse

Spiel_1_1 = 3
Spiel_1_2 = 0

Spiel_2_1 = 3
Spiel_2_2 = 1

Spiel_3_1 = 2
Spiel_3_2 = 2

Spiel_4_1 = 2
Spiel_4_2 = 2

Spiel_5_1 = 1
Spiel_5_2 = 1

Spiel_6_1 = 3
Spiel_6_2 = 1

Spiel_7_1 = 2
Spiel_7_2 = 2

Spiel_8_1 = 1
Spiel_8_2 = 0

Spiel_9_1 = 2
Spiel_9_2 = 1

;-Tipp Spieler 1

Spieler1_Spiel_1_1 = 1
Spieler1_Spiel_1_2 = 1

Spieler1_Spiel_2_1 = 1
Spieler1_Spiel_2_2 = 2

Spieler1_Spiel_3_1 = 1
Spieler1_Spiel_3_2 = 3

Spieler1_Spiel_4_1 = 3
Spieler1_Spiel_4_2 = 1

Spieler1_Spiel_5_1 = 4
Spieler1_Spiel_5_2 = 0

Spieler1_Spiel_6_1 = 1
Spieler1_Spiel_6_2 = 1

Spieler1_Spiel_7_1 = 3
Spieler1_Spiel_7_2 = 0

Spieler1_Spiel_8_1 = 1
Spieler1_Spiel_8_2 = 2

Spieler1_Spiel_9_1 = 1
Spieler1_Spiel_9_2 = 0

;-Tipp Spieler 2

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 2

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 3

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 1
Spieler2_Spiel_5_2 = 2

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 0
Spieler2_Spiel_7_2 = 3

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 1

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 0

;-Tipp Spieler 3

Spieler2_Spiel_1_1 = 3
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 2

Spieler2_Spiel_3_1 = 3
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 2

Spieler2_Spiel_6_1 = 0
Spieler2_Spiel_6_2 = 0

Spieler2_Spiel_7_1 = 2
Spieler2_Spiel_7_2 = 3

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 4

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 2

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 2

Spieler2_Spiel_3_1 = 1
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 0
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 2

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 2

Spieler2_Spiel_9_1 = 1
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 5

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 0

Spieler2_Spiel_3_1 = 1
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 1
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 0

Spieler2_Spiel_6_1 = 2
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 0
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 2

;-Tipp Spieler 6

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 2

Spieler2_Spiel_2_1 = 0
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 0
Spieler2_Spiel_5_2 = 0

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 0
Spieler2_Spiel_7_2 = 0

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 2

Spieler2_Spiel_9_1 = 1
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 7

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 2
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 1
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 3
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 1
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 2
Spieler2_Spiel_6_2 = 0

Spieler2_Spiel_7_1 = 2
Spieler2_Spiel_7_2 = 0

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 1

Spieler2_Spiel_9_1 = 1
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 8

Spieler2_Spiel_1_1 = 3
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 2
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 1
Spieler2_Spiel_3_2 = 0

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 3
Spieler2_Spiel_5_2 = 0

Spieler2_Spiel_6_1 = 2
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 2

Spieler2_Spiel_9_1 = 3
Spieler2_Spiel_9_2 = 2

;-Tipp Spieler 9

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 2

Spieler2_Spiel_2_1 = 2
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 0
Spieler2_Spiel_3_2 = 2

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 1
Spieler2_Spiel_5_2 = 2

Spieler2_Spiel_6_1 = 0
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 0
Spieler2_Spiel_7_2 = 2

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 1
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 10

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 2
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 1
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 3
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 2
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 11

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 0

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 1
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 2
Spieler2_Spiel_6_2 = 0

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 1

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 12

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 0
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 1
Spieler2_Spiel_3_2 = 0

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 0

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 0

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 2

Spieler2_Spiel_9_1 = 1
Spieler2_Spiel_9_2 = 0

;-Tipp Spieler 13

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 0

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 2

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 2

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 3

;-Tipp Spieler 14

Spieler2_Spiel_1_1 = 1
Spieler2_Spiel_1_2 = 2

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 2

Spieler2_Spiel_3_1 = 0
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 2

Spieler2_Spiel_5_1 = 0
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 3
Spieler2_Spiel_6_2 = 0

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 0

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 2

Spieler2_Spiel_9_1 = 3
Spieler2_Spiel_9_2 = 0

;-Tipp Spieler 15

Spieler2_Spiel_1_1 = 3
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 2
Spieler2_Spiel_2_2 = 2

Spieler2_Spiel_3_1 = 1
Spieler2_Spiel_3_2 = 0

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 2

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 2

;-Tipp Spieler 16

Spieler2_Spiel_1_1 = 1
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 2
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 3
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 1
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 0

Spieler2_Spiel_7_1 = 2
Spieler2_Spiel_7_2 = 2

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 2

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 0

;-Tipp Spieler 17

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 1
Spieler2_Spiel_3_2 = 0

Spieler2_Spiel_4_1 = 1
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 2
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 1
Spieler2_Spiel_9_2 = 2

;-Tipp Spieler 18

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 0

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 1
Spieler2_Spiel_3_2 = 2

Spieler2_Spiel_4_1 = 3
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 1
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 2
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 2
Spieler2_Spiel_7_2 = 2

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 0
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 19

Spieler2_Spiel_1_1 = 4
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 3
Spieler2_Spiel_2_2 = 2

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 1
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 1
Spieler2_Spiel_5_2 = 2

Spieler2_Spiel_6_1 = 3
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 0

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 2

;-Tipp Spieler 20

Spieler2_Spiel_1_1 = 1
Spieler2_Spiel_1_2 = 2

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 2

Spieler2_Spiel_3_1 = 3
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 1
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 2
Spieler2_Spiel_7_2 = 2

Spieler2_Spiel_8_1 = 1
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 21

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 1

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 0

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 1
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 2
Spieler2_Spiel_6_2 = 2

Spieler2_Spiel_7_1 = 2
Spieler2_Spiel_7_2 = 1

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 0
Spieler2_Spiel_9_2 = 0

;-Tipp Spieler 22

Spieler2_Spiel_1_1 = 3
Spieler2_Spiel_1_2 = 0

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 1

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 0

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 0

Spieler2_Spiel_6_1 = 2
Spieler2_Spiel_6_2 = 1

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 2

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 2

Spieler2_Spiel_9_1 = 3
Spieler2_Spiel_9_2 = 1

;-Tipp Spieler 23

Spieler2_Spiel_1_1 = 2
Spieler2_Spiel_1_2 = 0

Spieler2_Spiel_2_1 = 1
Spieler2_Spiel_2_2 = 1

Spieler2_Spiel_3_1 = 2
Spieler2_Spiel_3_2 = 2

Spieler2_Spiel_4_1 = 2
Spieler2_Spiel_4_2 = 1

Spieler2_Spiel_5_1 = 2
Spieler2_Spiel_5_2 = 1

Spieler2_Spiel_6_1 = 2
Spieler2_Spiel_6_2 = 2

Spieler2_Spiel_7_1 = 1
Spieler2_Spiel_7_2 = 0

Spieler2_Spiel_8_1 = 0
Spieler2_Spiel_8_2 = 3

Spieler2_Spiel_9_1 = 2
Spieler2_Spiel_9_2 = 0

  
;-------------------------------------------------------------------------------

Punkte = 0
Punkte1 = 0
Punkte2 = 0
Punkte3 = 0
Punkte4 = 0
Punkte5 = 0
Punkte6 = 0
Punkte7 = 0
Punkte8 = 0
Punkte9 = 0
ExtraPunkte = 0


;-Spieler 1

If Spiel_1_1 = Spieler1_Spiel_1_1 And Spiel_1_2 = Spieler1_Spiel_1_2
Punkte1 = 7
EndIf
If Punkte1 < 7 And Spiel_1_1 > Spiel_1_2 And Spieler1_Spiel_1_1 > Spieler1_Spiel_1_2
Punkte1 = 3
EndIf
If Punkte1 < 7 And Spiel_1_1 < Spiel_1_2 And Spieler1_Spiel_1_1 < Spieler1_Spiel_1_2
Punkte1 = 3
EndIf
If Spiel_1_1 = Spiel_1_2 And Spieler1_Spiel_1_1 = Spieler1_Spiel_1_2
Punkte1 = 5
EndIf
If Punkte1 < 7 And Spiel_1_1 = Spieler1_Spiel_1_1
Punkte1 = Punkte1 + 1
EndIf
If Punkte1 < 7 And Spiel_1_2 = Spieler1_Spiel_1_2
Punkte1 = Punkte1 + 1
EndIf


If Spiel_2_1 = Spieler1_Spiel_2_1 And Spiel_2_2 = Spieler1_Spiel_2_2
Punkte2 = 7
EndIf
If Punkte2 < 7 And Spiel_2_1 > Spiel_2_2 And Spieler1_Spiel_2_1 > Spieler1_Spiel_2_2
Punkte2 = 3
EndIf
If Punkte2 < 7 And Spiel_2_1 < Spiel_2_2 And Spieler1_Spiel_2_1 < Spieler1_Spiel_2_2
Punkte2 = 3
EndIf
If Spiel_2_1 = Spiel_2_2 And Spieler1_Spiel_2_1 = Spieler1_Spiel_2_2
Punkte2 = 5
EndIf
If Punkte2 < 7 And Spiel_2_1 = Spieler1_Spiel_2_1
Punkte2 = Punkte2 + 1
EndIf
If Punkte2 < 7 And Spiel_2_2 = Spieler1_Spiel_2_2
Punkte2 = Punkte2 + 1
EndIf


If Spiel_3_1 = Spieler1_Spiel_3_1 And Spiel_3_2 = Spieler1_Spiel_3_2
Punkte3 = 7
EndIf
If Punkte3 < 7 And Spiel_3_1 > Spiel_3_2 And Spieler1_Spiel_3_1 > Spieler1_Spiel_3_2
Punkte3 = 3
EndIf
If Punkte3 < 7 And Spiel_3_1 < Spiel_3_2 And Spieler1_Spiel_3_1 < Spieler1_Spiel_3_2
Punkte3 = 3
EndIf
If Spiel_3_1 = Spiel_3_2 And Spieler1_Spiel_3_1 = Spieler1_Spiel_3_2
Punkte3 = 5
EndIf
If Punkte3 < 7 And Spiel_3_1 = Spieler1_Spiel_3_1
Punkte3 = Punkte3 + 1
EndIf
If Punkte3 < 7 And Spiel_3_2 = Spieler1_Spiel_3_2
Punkte3 = Punkte3 + 1
EndIf


If Spiel_4_1 = Spieler1_Spiel_4_1 And Spiel_4_2 = Spieler1_Spiel_4_2
Punkte4 = 7
EndIf
If Punkte4 < 7 And Spiel_4_1 > Spiel_4_2 And Spieler1_Spiel_4_1 > Spieler1_Spiel_4_2
Punkte4 = 3
EndIf
If Punkte4 < 7 And Spiel_4_1 < Spiel_4_2 And Spieler1_Spiel_4_1 < Spieler1_Spiel_4_2
Punkte4 = 3
EndIf
If Spiel_4_1 = Spiel_4_2 And Spieler1_Spiel_4_1 = Spieler1_Spiel_4_2
Punkte4 = 5
EndIf
If Punkte4 < 7 And Spiel_4_1 = Spieler1_Spiel_4_1
Punkte4 = Punkte4 + 1
EndIf
If Punkte4 < 7 And Spiel_4_2 = Spieler1_Spiel_4_2
Punkte4 = Punkte4 + 1
EndIf


If Spiel_5_1 = Spieler1_Spiel_5_1 And Spiel_5_2 = Spieler1_Spiel_5_2
Punkte5 = 7
EndIf
If Punkte5 < 7 And Spiel_5_1 > Spiel_5_2 And Spieler1_Spiel_5_1 > Spieler1_Spiel_5_2
Punkte5 = 3
EndIf
If Punkte5 < 7 And Spiel_5_1 < Spiel_5_2 And Spieler1_Spiel_5_1 < Spieler1_Spiel_5_2
Punkte5 = 3
EndIf
If Spiel_5_1 = Spiel_5_2 And Spieler1_Spiel_5_1 = Spieler1_Spiel_5_2
Punkte5 = 5
EndIf
If Punkte5 < 7 And Spiel_5_1 = Spieler1_Spiel_5_1
Punkte5 = Punkte5 + 1
EndIf
If Punkte5 < 7 And Spiel_5_2 = Spieler1_Spiel_5_2
Punkte5 = Punkte5 + 1
EndIf


If Spiel_6_1 = Spieler1_Spiel_6_1 And Spiel_6_2 = Spieler1_Spiel_6_2
Punkte6 = 7
EndIf
If Punkte6 < 7 And Spiel_6_1 > Spiel_6_2 And Spieler1_Spiel_6_1 > Spieler1_Spiel_6_2
Punkte6 = 3
EndIf
If Punkte6 < 7 And Spiel_6_1 < Spiel_6_2 And Spieler1_Spiel_6_1 < Spieler1_Spiel_6_2
Punkte6 = 3
EndIf
If Spiel_6_1 = Spiel_6_2 And Spieler1_Spiel_6_1 = Spieler1_Spiel_6_2
Punkte6 = 5
EndIf
If Punkte6 < 7 And Spiel_6_1 = Spieler1_Spiel_6_1
Punkte6 = Punkte6 + 1
EndIf
If Punkte6 < 7 And Spiel_6_2 = Spieler1_Spiel_6_2
Punkte6 = Punkte6 + 1
EndIf


If Spiel_7_1 = Spieler1_Spiel_7_1 And Spiel_7_2 = Spieler1_Spiel_7_2
Punkte7 = 7
EndIf
If Punkte7 < 7 And Spiel_7_1 > Spiel_7_2 And Spieler1_Spiel_7_1 > Spieler1_Spiel_7_2
Punkte7 = 3
EndIf
If Punkte7 < 7 And Spiel_7_1 < Spiel_7_2 And Spieler1_Spiel_7_1 < Spieler1_Spiel_7_2
Punkte7 = 3
EndIf
If Spiel_7_1 = Spiel_7_2 And Spieler1_Spiel_7_1 = Spieler1_Spiel_7_2
Punkte7 = 5
EndIf
If Punkte7 < 7 And Spiel_7_1 = Spieler1_Spiel_7_1
Punkte7 = Punkte7 + 1
EndIf
If Punkte7 < 7 And Spiel_7_2 = Spieler1_Spiel_7_2
Punkte7 = Punkte7 + 1
EndIf


If Spiel_8_1 = Spieler1_Spiel_8_1 And Spiel_8_2 = Spieler1_Spiel_8_2
Punkte8 = 7
EndIf
If Punkte8 < 7 And Spiel_8_1 > Spiel_8_2 And Spieler1_Spiel_8_1 > Spieler1_Spiel_8_2
Punkte8 = 3
EndIf
If Punkte8 < 7 And Spiel_8_1 < Spiel_8_2 And Spieler1_Spiel_8_1 < Spieler1_Spiel_8_2
Punkte8 = 3
EndIf
If Spiel_8_1 = Spiel_8_2 And Spieler1_Spiel_8_1 = Spieler1_Spiel_8_2
Punkte8 = 5
EndIf
If Punkte8 < 7 And Spiel_8_1 = Spieler1_Spiel_8_1
Punkte8 = Punkte8 + 1
EndIf
If Punkte8 < 7 And Spiel_8_2 = Spieler1_Spiel_8_2
Punkte8 = Punkte8 + 1
EndIf


If Spiel_9_1 = Spieler1_Spiel_9_1 And Spiel_9_2 = Spieler1_Spiel_9_2
Punkte9 = 7
EndIf
If Punkte9 < 7 And Spiel_9_1 > Spiel_9_2 And Spieler1_Spiel_9_1 > Spieler1_Spiel_9_2
Punkte9 = 3
EndIf
If Punkte9 < 7 And Spiel_9_1 < Spiel_9_2 And Spieler1_Spiel_9_1 < Spieler1_Spiel_9_2
Punkte9 = 3
EndIf
If Spiel_9_1 = Spiel_9_2 And Spieler1_Spiel_9_1 = Spieler1_Spiel_9_2
Punkte9 = 5
EndIf
If Punkte9 < 7 And Spiel_9_1 = Spieler1_Spiel_9_1
Punkte9 = Punkte9 + 1
EndIf
If Punkte9 < 7 And Spiel_9_2 = Spieler1_Spiel_9_2
Punkte9 = Punkte9 + 1
EndIf


Punkte = Punkte1 + Punkte2 + Punkte3 + Punkte4 + Punkte5 + Punkte6 + Punkte7 + Punkte8 + Punkte9


If Punkte1 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte2 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte3 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte4 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte5 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte6 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte7 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte8 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte9 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf

If ExtraPunkte = 3
Punkte = Punkte + 2
EndIf

ExtraPunkte = 0

If Punkte1 = 7 Or Punkte1 = 5 Or Punkte1 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte2 = 7 Or Punkte2 = 5 Or Punkte2 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte3 = 7 Or Punkte3 = 5 Or Punkte3 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte4 = 7 Or Punkte4 = 5 Or Punkte4 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte5 = 7 Or Punkte5 = 5 Or Punkte5 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte6 = 7 Or Punkte6 = 5 Or Punkte6 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte7 = 7 Or Punkte7 = 5 Or Punkte7 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte8 = 7 Or Punkte8 = 5 Or Punkte8 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte9 = 7 Or Punkte9 = 5 Or Punkte9 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf

If ExtraPunkte = 6
Punkte = Punkte + 2
EndIf


MessageRequester ("Baumann Harald",Str(Punkte),0)


;--------------------------------------------------------

Punkte = 0
Punkte1 = 0
Punkte2 = 0
Punkte3 = 0
Punkte4 = 0
Punkte5 = 0
Punkte6 = 0
Punkte7 = 0
Punkte8 = 0
Punkte9 = 0
ExtraPunkte = 0

;-Spieler 2

If Spiel_1_1 = Spieler2_Spiel_1_1 And Spiel_1_2 = Spieler2_Spiel_1_2
Punkte1 = 7
EndIf
If Punkte1 < 7 And Spiel_1_1 > Spiel_1_2 And Spieler2_Spiel_1_1 > Spieler2_Spiel_1_2       ;ab dem 2 "And" vergleicht er falsch
Punkte1 = 3
EndIf
MessageRequester("test1",Str(Punkte1),0)                                                    ;Test Ausgabe
If Punkte1 < 7 And Spiel_1_1 < Spiel_1_2 And Spieler2_Spiel_1_1 < Spieler2_Spiel_1_2
Punkte1 = 3
EndIf
If Spiel_1_1 = Spiel_1_2 And Spieler2_Spiel_1_1 = Spieler2_Spiel_1_2
Punkte1 = 5
EndIf
If Punkte1 < 7 And Spiel_1_1 = Spieler2_Spiel_1_1
Punkte1 = Punkte1 + 1
EndIf
If Punkte1 < 7 And Spiel_1_2 = Spieler2_Spiel_1_2
Punkte1 = Punkte1 + 1
EndIf

MessageRequester("test",Str(Punkte1),0)                                                    ;Test Ausgabe

If Spiel_2_1 = Spieler2_Spiel_2_1 And Spiel_2_2 = Spieler2_Spiel_2_2
Punkte2 = 7
EndIf
If Punkte2 < 7 And Spiel_2_1 > Spiel_2_2 And Spieler2_Spiel_2_1 > Spieler2_Spiel_2_2
Punkte2 = 3
EndIf
If Punkte2 < 7 And Spiel_2_1 < Spiel_2_2 And Spieler2_Spiel_2_1 < Spieler2_Spiel_2_2
Punkte2 = 3
EndIf
If Spiel_2_1 = Spiel_2_2 And Spieler2_Spiel_2_1 = Spieler2_Spiel_2_2
Punkte2 = 5
EndIf
If Punkte2 < 7 And Spiel_2_1 = Spieler2_Spiel_2_1
Punkte2 = Punkte2 + 1
EndIf
If Punkte2 < 7 And Spiel_2_2 = Spieler2_Spiel_2_2
Punkte2 = Punkte2 + 1
EndIf


If Spiel_3_1 = Spieler2_Spiel_3_1 And Spiel_3_2 = Spieler2_Spiel_3_2
Punkte3 = 7
EndIf
If Punkte3 < 7 And Spiel_3_1 > Spiel_3_2 And Spieler2_Spiel_3_1 > Spieler2_Spiel_3_2
Punkte3 = 3
EndIf
If Punkte3 < 7 And Spiel_3_1 < Spiel_3_2 And Spieler2_Spiel_3_1 < Spieler2_Spiel_3_2
Punkte3 = 3
EndIf
If Spiel_3_1 = Spiel_3_2 And Spieler2_Spiel_3_1 = Spieler2_Spiel_3_2
Punkte3 = 5
EndIf
If Punkte3 < 7 And Spiel_3_1 = Spieler2_Spiel_3_1
Punkte3 = Punkte3 + 1
EndIf
If Punkte3 < 7 And Spiel_3_2 = Spieler2_Spiel_3_2
Punkte3 = Punkte3 + 1
EndIf


If Spiel_4_1 = Spieler2_Spiel_4_1 And Spiel_4_2 = Spieler2_Spiel_4_2
Punkte4 = 7
EndIf
If Punkte4 < 7 And Spiel_4_1 > Spiel_4_2 And Spieler2_Spiel_4_1 > Spieler2_Spiel_4_2
Punkte4 = 3
EndIf
If Punkte4 < 7 And Spiel_4_1 < Spiel_4_2 And Spieler2_Spiel_4_1 < Spieler2_Spiel_4_2
Punkte4 = 3
EndIf
If Spiel_4_1 = Spiel_4_2 And Spieler2_Spiel_4_1 = Spieler2_Spiel_4_2
Punkte4 = 5
EndIf
If Punkte4 < 7 And Spiel_4_1 = Spieler2_Spiel_4_1
Punkte4 = Punkte4 + 1
EndIf
If Punkte4 < 7 And Spiel_4_2 = Spieler2_Spiel_4_2
Punkte4 = Punkte4 + 1
EndIf


If Spiel_5_1 = Spieler2_Spiel_5_1 And Spiel_5_2 = Spieler2_Spiel_5_2
Punkte5 = 7
EndIf
If Punkte5 < 7 And Spiel_5_1 > Spiel_5_2 And Spieler2_Spiel_5_1 > Spieler2_Spiel_5_2
Punkte5 = 3
EndIf
If Punkte5 < 7 And Spiel_5_1 < Spiel_5_2 And Spieler2_Spiel_5_1 < Spieler2_Spiel_5_2
Punkte5 = 3
EndIf
If Spiel_5_1 = Spiel_5_2 And Spieler2_Spiel_5_1 = Spieler2_Spiel_5_2
Punkte5 = 5
EndIf
If Punkte5 < 7 And Spiel_5_1 = Spieler2_Spiel_5_1
Punkte5 = Punkte5 + 1
EndIf
If Punkte5 < 7 And Spiel_5_2 = Spieler2_Spiel_5_2
Punkte5 = Punkte5 + 1
EndIf


If Spiel_6_1 = Spieler2_Spiel_6_1 And Spiel_6_2 = Spieler2_Spiel_6_2
Punkte6 = 7
EndIf
If Punkte6 < 7 And Spiel_6_1 > Spiel_6_2 And Spieler2_Spiel_6_1 > Spieler2_Spiel_6_2
Punkte6 = 3
EndIf
If Punkte6 < 7 And Spiel_6_1 < Spiel_6_2 And Spieler2_Spiel_6_1 < Spieler2_Spiel_6_2
Punkte6 = 3
EndIf
If Spiel_6_1 = Spiel_6_2 And Spieler2_Spiel_6_1 = Spieler2_Spiel_6_2
Punkte6 = 5
EndIf
If Punkte6 < 7 And Spiel_6_1 = Spieler2_Spiel_6_1
Punkte6 = Punkte6 + 1
EndIf
If Punkte6 < 7 And Spiel_6_2 = Spieler2_Spiel_6_2
Punkte6 = Punkte6 + 1
EndIf


If Spiel_7_1 = Spieler2_Spiel_7_1 And Spiel_7_2 = Spieler2_Spiel_7_2
Punkte7 = 7
EndIf
If Punkte7 < 7 And Spiel_7_1 > Spiel_7_2 And Spieler2_Spiel_7_1 > Spieler2_Spiel_7_2
Punkte7 = 3
EndIf
If Punkte7 < 7 And Spiel_7_1 < Spiel_7_2 And Spieler2_Spiel_7_1 < Spieler2_Spiel_7_2
Punkte7 = 3
EndIf
If Spiel_7_1 = Spiel_7_2 And Spieler2_Spiel_7_1 = Spieler2_Spiel_7_2
Punkte7 = 5
EndIf
If Punkte7 < 7 And Spiel_7_1 = Spieler2_Spiel_7_1
Punkte7 = Punkte7 + 1
EndIf
If Punkte7 < 7 And Spiel_7_2 = Spieler2_Spiel_7_2
Punkte7 = Punkte7 + 1
EndIf


If Spiel_8_1 = Spieler2_Spiel_8_1 And Spiel_8_2 = Spieler2_Spiel_8_2
Punkte8 = 7
EndIf
If Punkte8 < 7 And Spiel_8_1 > Spiel_8_2 And Spieler2_Spiel_8_1 > Spieler2_Spiel_8_2
Punkte8 = 3
EndIf
If Punkte8 < 7 And Spiel_8_1 < Spiel_8_2 And Spieler2_Spiel_8_1 < Spieler2_Spiel_8_2
Punkte8 = 3
EndIf
If Spiel_8_1 = Spiel_8_2 And Spieler2_Spiel_8_1 = Spieler2_Spiel_8_2
Punkte8 = 5
EndIf
If Punkte8 < 7 And Spiel_8_1 = Spieler2_Spiel_8_1
Punkte8 = Punkte8 + 1
EndIf
If Punkte8 < 7 And Spiel_8_2 = Spieler2_Spiel_8_2
Punkte8 = Punkte8 + 1
EndIf


If Spiel_9_1 = Spieler2_Spiel_9_1 And Spiel_9_2 = Spieler2_Spiel_9_2
Punkte9 = 7
EndIf
If Punkte9 < 7 And Spiel_9_1 > Spiel_9_2 And Spieler2_Spiel_9_1 > Spieler2_Spiel_9_2
Punkte9 = 3
EndIf
If Punkte9 < 7 And Spiel_9_1 < Spiel_9_2 And Spieler2_Spiel_9_1 < Spieler2_Spiel_9_2
Punkte9 = 3
EndIf
If Spiel_9_1 = Spiel_9_2 And Spieler2_Spiel_9_1 = Spieler2_Spiel_9_2
Punkte9 = 5
EndIf
If Punkte9 < 7 And Spiel_9_1 = Spieler2_Spiel_9_1
Punkte9 = Punkte9 + 1
EndIf
If Punkte9 < 7 And Spiel_9_2 = Spieler2_Spiel_9_2
Punkte9 = Punkte9 + 1
EndIf


Punkte = Punkte1 + Punkte2 + Punkte3 + Punkte4 + Punkte5 + Punkte6 + Punkte7 + Punkte8 + Punkte9


If Punkte1 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte2 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte3 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte4 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte5 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte6 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte7 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte8 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte9 = 7
ExtraPunkte = ExtraPunkte + 1
EndIf

If ExtraPunkte = 3
Punkte = Punkte + 2
EndIf

ExtraPunkte = 0

If Punkte1 = 7 Or Punkte1 = 5 Or Punkte1 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte2 = 7 Or Punkte2 = 5 Or Punkte2 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte3 = 7 Or Punkte3 = 5 Or Punkte3 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte4 = 7 Or Punkte4 = 5 Or Punkte4 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte5 = 7 Or Punkte5 = 5 Or Punkte5 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte6 = 7 Or Punkte6 = 5 Or Punkte6 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte7 = 7 Or Punkte7 = 5 Or Punkte7 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte8 = 7 Or Punkte8 = 5 Or Punkte8 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf
If Punkte9 = 7 Or Punkte9 = 5 Or Punkte9 = 3
ExtraPunkte = ExtraPunkte + 1
EndIf

If ExtraPunkte = 6
Punkte = Punkte + 2
EndIf


MessageRequester ("Bräutigam Markus",Str(Punkte),0)

Verfasst: **03.10.2006 14:47**

Bin noch nicht ganz hintergestiegen. Als Tip habe ich aber, dass du statt der vielen Variablen, die sehr unflexibel sind, wenn ein neuer Spieler hinzukommt, der mitwettet, dass du dafür lieber ein Array oder LinkedLists nimmst.

Diese sind wesentlich dymaischer und die Schreibweise ist ordentlicher.

Woran es liegen könnte: Wenn du PB 4 hast, füge am Anfang deines Codes EnableExplicit ein. Denn vielleihcht hast du einen Tippfehler bei den Variablen gemacht:

Code: Alles auswählen

Dampfer=2
Schifffahrt=3

If Schiffahrt > Dampfer
     Debug "Wieso geht das nicht?"
EndIf

Ohne EnAbleExplicit würde hier gar nicht auffallen, dass bei der If-Abfrage 'Schiff(f)ahrt' falsch geschrieben wurde. Der Comiler merkt das nicht, der meldet nur Syntaxfehler. Da Variablen bei ihrer Deklaration immer nullinitalisiert sind, also den Wert 0 enthalten, wird erst bei der If-Abfrage die Falsch geschriebene Variable erstellt. Die enthält den Wert null und ist damit nie größer als 'Dampfer'.

Da braucht man sich dann nicht zu wundern.

P.S.: 'Schifffahrt' wird nach der neuen deutschen Rechtschreibung mit 3 f geschrieben (was ja auch viel logischer ist).

Verfasst: **03.10.2006 17:14**

Das Prog ist bestimmt sehr umständlich geschrieben.

Da hast Du auf jeden Fall Recht

Aus diesen schätzungsweise 1000 bis 2000 Zeilen kannst Du ohne Probleme ca. 50 Zeilen machen. Der Sinn beim Programmieren liegt darin, nur den eigentlichen Ablauf zu programmieren, sprich, die Berechnungen und den Vergleich. Aber die Daten solltest Du davon getrennt halten.

Kleines Beispiel: Ein Taschenrechner speichert z.B. auch nicht jedes mögliche Ergebnis oder jede mögliche Formel.

Das heißt, Du mußt auf jeden Fall die eigentliche Logik programmieren, aber die Werte, die Du einträgst, dürfen damit überhaupt nichts zu tun haben. Am einfachsten geht das, indem Du Dir die Logik auf Papier aufmalst bzw. die Formeln auf ein Papier schreibst und dann diesen kompletten Ablauf einmal programmierst, unabhängig davon wie viele Spieler, wie viele Spiele etc da im Spiel sind

Es ist jetzt echt schwer zu erklären aber lies mal was zum Thema Arrays und LinkedLists. Diese beiden helfen Dir dabei, Daten zu speichern. Du kannst dann auf alle separat zugreifen und das dann durch Deine Logik jagen und bekommst dann das Ergebnis.

Leider fehlt mir grad die Zeit das alles umzuschreiben aber ich glaube es ist ganz sinnvoll wenn Du Dir das selbst erstmal genau durchliest.

Verfasst: **03.10.2006 19:09**

And51

Also ich werde mir das Thema Array und LinkedLists mal genauer anschauen.
Vielen Dank für den Tip.

Frage:

"Da Variablen bei ihrer Deklaration immer nullinitalisiert sind, also den Wert 0 enthalten, wird erst bei der If-Abfrage die Falsch geschriebene Variable erstellt."

Wenn das so ist warum muß ich dann vor einer Variable erst Global (Name) schreiben? Dann würde es doch ausreichen wenn ich sie einfach nur aufrufe.

Das mit dem "EnableExplicit" ist sehr hilfreich, danke für die Info aber leider war es nicht die Lösung für dieses Problem.

Na ja ich teste noch ein wenig und ansonsten muß ich das ganze neu schreiben.

Verfasst: **03.10.2006 19:18**

ZeHa

Also Du hast vollkommen recht das man am besten nur die Logik programmieren sollte.
Ich hätte das auch sehr gern so gemacht aber leider wuste ich absolut nicht wie ich dem Proramm dann begreiflich mache wann und wie er welche Daten einsetzen muß.
Habe ja erst vor 3 Wochen angefangen mich mit dem Thema programmieren auseinander zu setzen.
Bin für jede kleine Hilfe dankbar und wenn es nur ein Befehl ist der mich wieder einen Schritt weiterbringt.

Also ich mach mich dann mal wieder ans durchlesen der Hilfe...

....tschau

Verfasst: **03.10.2006 19:18**

du musst eine variable nur global deklarieren, wenn du sie auch global benutzen willst.
für "normale" variablen genügt ein siples benutzen,
allerdings hilft EnableExplicit, dass du tippfehler in Variablennamen übersiehst.

um das neuschreiben wirst du nicht herumkommen, wenn du dich über Arrays informiert hast, wirst du einsehen warum.

Verfasst: **03.10.2006 19:25**

Kaeru Gaman

Das heist wenn ich die Variable nur einmal brauche dann reicht es wenn ich sie einfach aufrufe.
Wenn ich sie aber mehrmals brauche muß ich sie mit Global aufrufen.

Oder wie?

Verfasst: **03.10.2006 19:38**

nein.

wenn du sie mit global definierst, ist die selbe variable auch in prozeduren zugänglich.
wenn du sie nicht global definierst, benennt der selbe name in proceduren eine lokale variable,
eine physikalisch andere, als außerhalb.

Code: Alles auswählen

Global n=0

Procedure Inc()
  n +1
  Debug n
EndProcedure

Inc()
Inc()
Debug "n außerhalb:"
Debug n
Debug "-----"
Inc()
Inc()
Debug "n außerhalb:"
Debug n

lass das mal laufen, und dann kommentier mal das global aus, und lass nochmal laufen.

beim ersten mal ist es ein und dasselbe n

beim zweiten mal ist n innerhalb etwas anderes, und wird jedesmal beim aufruf der prozedur neu mit 0 initialisiert.

Verfasst: **03.10.2006 20:41**

Vielen dank für die Info.

Da hab ich schon wieder ein paar Ideen mehr um mein Prog zu vereinfachen.

PureBoard

Unverständluiches Problem beim Verleich >< !!!

Unverständluiches Problem beim Verleich >< !!!