| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
s-m-n
Anmeldungsdatum: 03.10.2005
Beiträge: 106
Wohnort: Pietling in Oberbayern / Deutschland
|
 Verfasst am: 22.06.2006, 18:23 Titel: Timer: verbleibende Zeit anzeigen |
 |
|
Hi,
dieser Code
| Code: | dim min as integer
dim sec as integer
input "Wie viele Minuten"; min
sec = 60*min
rem Modifizierter Code aus der FreeBASIC Befehlsreferenz, Stichwort "TIMER"
now = TIMER
DO
LOOP UNTIL TIMER > (now + sec)
shell "hangup2" |
ruft das Programm hangup2 nach der gewünschten Zeit auf. Lässt sich die verbleibende Zeit irgendwie countdown-mäßig anzeigen?
Danke für eure Hilfe!
Gruß s-m-n |
|
| Nach oben |
|
 |
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 22.06.2006, 18:54 Titel: |
|
|
| Code: | dim min as integer
dim sec as integer
input "Wie viele Minuten"; min
sec = 60*min
rem Modifizierter Code aus der FreeBASIC Befehlsreferenz, Stichwort "TIMER"
now = TIMER
DO
locate 2,1
? int(sec-timer+now)
sleep 1
LOOP UNTIL TIMER > (now + sec)
shell "hangup2" |
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
s-m-n
Anmeldungsdatum: 03.10.2005
Beiträge: 106
Wohnort: Pietling in Oberbayern / Deutschland
|
| Verfasst am: 22.06.2006, 19:17 Titel: |
|
|
Danke, geht wunderbar.
Gruß s-m-n |
|
| Nach oben |
|
|
s-m-n
Anmeldungsdatum: 03.10.2005
Beiträge: 106
Wohnort: Pietling in Oberbayern / Deutschland
|
| Verfasst am: 24.06.2006, 10:42 Titel: |
|
|
Eine Frage hätte ich noch dazu. Kann ich das Programm per Tastendruck beenden bzw. den Timer pausieren? Wenn ja, wie? ich habs schon mit
| Code: | Do
Loop until inkey = "q" |
versucht, aber das hat nicht funktioniert.
Danke für eure Hilfe!
Gruß s-m-n |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 24.06.2006, 11:36 Titel: |
|
|
Bei diesem Code bricht er die Pause ab und startet "hangup2"
| Code: | dim min as integer
dim sec as integer
input "Wie viele Minuten"; min
sec = 60*min
rem Modifizierter Code aus der FreeBASIC Befehlsreferenz, Stichwort "TIMER"
now = TIMER
DO
locate 2,1
? int(sec-timer+now)
sleep 1
LOOP UNTIL TIMER > (now + sec) or inkey$="q"
shell "hangup2" |
Hier bircht er ab, startet hangup2 aber nicht.
| Code: | dim min as integer
dim sec as integer
input "Wie viele Minuten"; min
sec = 60*min
rem Modifizierter Code aus der FreeBASIC Befehlsreferenz, Stichwort "TIMER"
now = TIMER
DO
locate 2,1
? int(sec-timer+now)
sleep 1
if inkey$="q" then
end
end if
LOOP UNTIL TIMER > (now + sec)
shell "hangup2" |
Verschieden Einstellmöglickeiten:
| Code: | dim min as integer
dim sec as integer
cls
locate 1,1
? "n Neu Einstellen"
? "0 Countdown auf 0"
? "e Exit"
locate 5,1
input "Wie viele Minuten"; min
sec = 60*min
now = TIMER
DO
locate 6,1
? int(sec-timer+now)
sleep 1
select case inkey$
case "n"
locate 5,1
input "Wie viele Minuten"; min
? " "
sec = 60*min
now = TIMER
case "0"
sec=0
case "e"
end
end select
LOOP UNTIL TIMER > (now + sec)
shell "hangup2" |
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
s-m-n
Anmeldungsdatum: 03.10.2005
Beiträge: 106
Wohnort: Pietling in Oberbayern / Deutschland
|
| Verfasst am: 25.06.2006, 13:08 Titel: |
|
|
Danke, das mit den verschiedenen Einstellmöglichkeiten passt. Hab die URL dieses Threads im Quellcode vermerkt.
Gruß s-m-n |
|
| Nach oben |
|
|
Ralfh.
Anmeldungsdatum: 05.07.2006
Beiträge: 2
|
| Verfasst am: 05.07.2006, 13:30 Titel: Test |
|
|
Test eintrag
_________________
Gib Niemals Auf ! |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
