AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Countdown

Ein Thema von Privateer3000 · begonnen am 10. Jun 2002 · letzter Beitrag vom 12. Jun 2002
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#1

Countdown

  Alt 10. Jun 2002, 22:13
Hallo Leuts,

wie macht man einen Countdown??
also:
Ereignis (z.b. ein integer hat einen bestimmten wert)
form.show (für 5 sek)
form.close

Zur Erklärung:
Das soll kein Nerv-Fenster für Shareware sein.
Ich versuche grad ein Frage-Antwort Programm zu machen
das für Trauma-Patienten (Psychosomatische Störungen)
bestimmt.Diese sollen ein paar bestimmte Fragen beantworten.
ABER sie sollen (müssen) eine Pause zwischdurch machen.
Es soll ein kleines Form (möglichst modal) erscheinen das sie auffordert eine Pause einzulegen.
Das Ereignis ist also ein bestimmter Record in der Fragen-Datenbank.

Dankeschööööööööööön
Peter
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2
  Alt 10. Jun 2002, 22:27
Nimm einen Timer und zähl dort mit Dec() eine globale Variable zurück.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Darty
Darty

Registriert seit: 8. Jun 2002
Ort: Kronau
731 Beiträge
 
#3
  Alt 10. Jun 2002, 22:50
Mit dem Timer ist ne Ideale Lösung, verwende ich auch ...
Denke mit Schleifen könnte man es auch machen ... Aber das Problem wäre wohl nur dass es nicht genau ist (Zeit: 5 sec), da es wohl je nach rechner unterschiedlich schnell abläuft oder ?
Matthias Knebel
Mfg M. Knebel [-Darty-]
- Gehörlose Delphianer gibt es selten -
www.team-knebel.de
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4
  Alt 10. Jun 2002, 22:57
Mal sehen, wer noch auf die Idee mit einem Thread kommt, den man für eine Sekunde pausieren läßt .
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#5
  Alt 11. Jun 2002, 07:24
Jo, die Rechenleistung bestimmt in welcher Zeit eine Schleife abgearbeitet wird.
Wie müsste der Code mit decrement aussehen, wenn sie nicht durch einenButtonClick sondern bei Erreichen eines bestimmten Table.Records gestartet wird. Dumme Frage ich weiss. Gebt mir mal trotzdem ein Tip.

Schönen Dienstag
Peter
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: München
11.412 Beiträge
 
Delphi 11 Alexandria
 
#6
  Alt 11. Jun 2002, 08:08

Bis zu Deinem letzten Beitrag habe ich ja noch alles verstanden - aber was wolltest Du jetzt noch mal wissen

Schreib doch bitte, bitte noch mal. Wie kommt jetzt die Datenbank ins Spiel - und - woran erkennt man den bestimmten Table.Records?
Daniel W.
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#7
  Alt 11. Jun 2002, 08:28
Hallo Privateer3000,

grundsätzlich bietet sich hier wieder das OnDataChange Ereignis der zugehörigen DataSource Komponente an. Das wird bei jeder Änderung des aktuellen datensatzes erzeugt. Hier überprüfst du dann, ob der Datensatz aktuell ist, bei dem das Ereignis starten soll und dann startest du den Timer.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat
Benutzerbild von Privateer3000
Privateer3000

Registriert seit: 10. Jun 2002
Ort: Jena
1.128 Beiträge
 
Delphi 10.4 Sydney
 
#8
  Alt 11. Jun 2002, 09:30
Du hast, wie immer soooo Recht Spocki, klar doch.
Gute Idee!

Privateer3000
Peter
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9
  Alt 11. Jun 2002, 11:53
MrSpock, wie hast du denn das jetzt gemacht?

Ich habe genauso viel kapiert, wie sakura.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#10
  Alt 11. Jun 2002, 11:57


Naja, ich arbeite schon länger mit Privateer3000 und weiss jetzt schon was er will, bevor er es komplett ausgesprochen hat.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz