Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Dartspiel programmieren mit Delphi

    Delphi
    by malo, 22. Jan 2005
  :wall:
  
  
  Also irgendwo muss ein bischen nachdenken gefragt sein.
  
  In dem Private-Teil hast du keine Variablen geschrieben. Du wolltest es vielleicht, hast du aber nicht, da du keinen Variablentyp angegeben hast!
  
  Wenn du es so machst, nimm lieber constanten und deklarier die im Implementation-Abschnitt so:
  
  const
• Forum: Multimedia

  Re: Dartspiel programmieren mit Delphi

    Delphi
    by malo, 22. Jan 2005
  Wer lesen kann, ist klar im Vorteil.
  
  Zum Punkte einzeichnen kannst du das so machen:
  
  image1.Canvas.Pixels := clRed;
  
  Die Punkte kannst du auch leicht errechnen. Rechne die Mitte des Image aus und speicher den Punkt irgendwo (Variable). Dann zählst du die Ringe und sagst deinem Programm dann, es soll in regelmäßigen Abständen einen Punkt mehr geben. Wenn du also 4 Ringe hast und von der...
• Forum: Multimedia

  Re: Dartspiel programmieren mit Delphi

    Delphi
    by malo, 21. Jan 2005
  zu 4:
  
  ich versteh deine Frage nicht ganz. Den Wert abfragen geht mit if, then, else. Werte ändern geht mit dem := Operator.
• Forum: Multimedia

  Re: Dartspiel programmieren mit Delphi

    Delphi
    by malo, 21. Jan 2005
  1. Guck mal im Objektinspektor bei den Timern nach, ob die Intervalle gleich sind :zwinker:
  
  4. Am besten oben im Private-Abschnitt der Klasse TForm1 ;)
• Forum: Multimedia

  Re: Dartspiel programmieren mit Delphi

    Delphi
    by malo, 21. Jan 2005
  Das nächste mal bitte vorher lesen, was ich schreibe.
  
  Ich hab geschrieben, du sollst eine gloabel Variable erstellen (integer), die beim Starten auf 0 setzen. Beim Schuss immer ein Hochzählen mit folgendem code:
  inc({deine Integer-Variable});
  
  Beim Schuss dann noch abfragen, ob die Variable auf 2 ist. Wenn ja, soll sie zurück auf 0.
  
  Dann im Timer abfragen, ob die Variable 1 oder 2 ist...
• Forum: Multimedia

  Re: Dartspiel programmieren mit Delphi

    Delphi
    by malo, 21. Jan 2005
  Streich doch mal das "begin" und das "end;" in der Mitte des Quellcodes :zwinker:
  
  //edit: zur erklärung:
  
  die Procedure wird mit procedure xy eingeleitet und mit begin begonnen. Dadurch, dass du jedoch ein end eingefügt hast und dann noch einen weiteren Codeblock ins OnTimer schreiben willst, den du einzeln mit begin und end; verpackst, erstellst du einen VÖLLIG neuen Codeblock, der gar...
• Forum: Multimedia

  Re: Dartspiel programmieren mit Delphi

    Delphi
    by malo, 21. Jan 2005
  Du musst im OnTimer die Progressbars "bewegen". Ein Beispielcode dafür hat Jan bereits gepostet:
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  if progressbar1.Position=100 then
  progressbar1.step:=-10
  else if progressbar1.Position=0 then
  progressbar1.step:=10;
  progressbar1.Stepit;
  end;