Autor |
Beitrag |
Lingen-Ger
Hält's aus hier
Beiträge: 8
|
Verfasst: Fr 09.03.12 15:31
Hi Leute. Hab Snake programmiert, mir fehlt aber noch der highscore. bitte helft mir.
Moderiert von Narses: Topic aus Dateizugriff verschoben am Fr 09.03.2012 um 15:59
Einloggen, um Attachments anzusehen!
|
|
Nersgatt
      
Beiträge: 1581
Erhaltene Danke: 279
Delphi 10 Seattle Prof.
|
Verfasst: Fr 09.03.12 15:34
Wobei hast Du denn konkret Probleme?
_________________ Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)
|
|
Gausi
      
Beiträge: 8548
Erhaltene Danke: 477
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Fr 09.03.12 15:35
Ich hatte letztens in einem Spiel 28.367.282 Punkte. Das finde ich ziemlich gut für einen Gelegenheitsspieler.
Diese Punktzahl kannst du gerne als Highscore verwenden, wenn du magst. 
_________________ We are, we were and will not be.
Für diesen Beitrag haben gedankt: Christian S., Narses
|
|
thepaine91
      
Beiträge: 763
Erhaltene Danke: 27
Win XP, Windows 7, (Linux)
D6, D2010, C#, PHP, Java(Android), HTML/Js
|
Verfasst: Fr 09.03.12 15:54
2.147.483.648 habe ich zu bieten und das ganze als int.
|
|
Lingen-Ger 
Hält's aus hier
Beiträge: 8
|
Verfasst: Fr 09.03.12 16:00
Hey. Ja ich hab halt das Spiel programmiert, möchte aber das ich für jeden eingesammelten Punkt ein Highscore via Edit-Feld erhöht. Wäre mega wenn ihr fertigen Quellcode für mich hättet.
|
|
Narses
      

Beiträge: 10183
Erhaltene Danke: 1256
W10ent
TP3 .. D7pro .. D10.2CE
|
Verfasst: Fr 09.03.12 16:03
Moin!
Lingen-Ger hat folgendes geschrieben : | das ich für jeden eingesammelten Punkt ein Highscore via Edit-Feld erhöht. Wäre mega wenn ihr fertigen Quellcode für mich hättet. |
Kein Thema: Delphi-Quelltext 1: 2:
| if NeuerPunktGeholt then EditHighscore.Text := EditHighscore.Text +'1'; | cu
Narses
_________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
Lingen-Ger 
Hält's aus hier
Beiträge: 8
|
Verfasst: Fr 09.03.12 16:12
hi danke für den vorschlag aber er sagt das der ausdrucks typ boolean sein muss. Moderiert von Narses: Beiträge zusammengefasstne er sagt: deklaration erwartet, IF gefunden
|
|
Narses
      

Beiträge: 10183
Erhaltene Danke: 1256
W10ent
TP3 .. D7pro .. D10.2CE
|
Verfasst: Fr 09.03.12 16:14
Moin!
Ja, das ist richtig, du kannst entweder eine Funktion dafür schreiben, die ein entsprechendes Ergebnis bestimmt oder du deklarierst eine passende Variable, dann ist der Fehler auch weg, z.B. so:
Delphi-Quelltext 1: 2:
| var NeuerPunktGeholt: Boolean; | cu
Narses
_________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
Gausi
      
Beiträge: 8548
Erhaltene Danke: 477
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Fr 09.03.12 16:16
Ok, Scherz beiseite.
Ein Edit-Feld ist für sowas ziemlich schlecht geeignet. Der Code von Narses funktioniert zwar, ist aber nicht ganz optimal, da hier zum Speichern der Punktezahl linear viel Speicher verwendet wird. Besser wäre eine Integer-Variable, mit der man die Zahl in log(n) Bits speichern kann. Für die Anzeige der Punkte kann man dann wieder ein Edit-Feld nehmen, allerdings sollte man hier die dezimale (und nicht unäre) Darstellung wählen - dafür gibt es den Befehl IntToStr.
Ansonsten würde ich dir mal den Crashkur von Christian empfehlen. 
_________________ We are, we were and will not be.
Für diesen Beitrag haben gedankt: Kha, Narses
|
|
Lingen-Ger 
Hält's aus hier
Beiträge: 8
|
Verfasst: Fr 09.03.12 16:17
Von dem was du gesagt hast verstehe ich leider nicht viel.
Für den Crashkurs von Christian hab ich keine Zeit.
|
|
Narses
      

Beiträge: 10183
Erhaltene Danke: 1256
W10ent
TP3 .. D7pro .. D10.2CE
|
Verfasst: Fr 09.03.12 16:21
Moin!
Lingen-Ger hat folgendes geschrieben : | Von dem was du gesagt hast verstehe ich leider nicht viel.
Für den Crashkurs von Christian hab ich keine Zeit. |
Aha, du möchtest also nichts lernen.  OK, deine Entscheidung. Was möchtest du dann alternativ tun, um dein Problem zu lösen?
cu
Narses
_________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
Dude566
      
Beiträge: 1592
Erhaltene Danke: 79
W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
|
Verfasst: Fr 09.03.12 16:40
Na klar, Snake hat er "selbst" programmiert, das ist natürlich auch nicht so schwer wie einen Punktezähler einzubauen.
Entschuldigung, aber das musste sein! 
_________________ Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
|
|
Lingen-Ger 
Hält's aus hier
Beiträge: 8
|
Verfasst: Fr 09.03.12 16:50
Snake ein bisschen mit Hilfe aber den Punktezähler hab ich.
Nur noch den Button für den Neustart. Hat einer Tipps?
@ Nerses: Ich will lernen, kann aber nicht alles lernen sondern "Snake-spezifisch"
Moderiert von Narses: Anhang in den ersten Beitrag verschoben.
|
|
Gausi
      
Beiträge: 8548
Erhaltene Danke: 477
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Fr 09.03.12 16:55
Für einen Button gibt es die Komponente TButton. Damit sollte das dann eigentlich gehen.
_________________ We are, we were and will not be.
|
|
Narses
      

Beiträge: 10183
Erhaltene Danke: 1256
W10ent
TP3 .. D7pro .. D10.2CE
|
Verfasst: Fr 09.03.12 16:59
Moin!
Bitte erstelle für jede deiner Fragen ein separates Topic, da die Diskussion mehrerer Fragen in einem Topic für gewöhnlich für Verwirrung und Durcheinander sorgt.  Danke!
cu
Narses
_________________ There are 10 types of people - those who understand binary and those who don´t.
|
|