Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Stoppuhr Countdownfunktion
Gehe zu Seite Zurück  1, 2
zurück: Eingabe- Ausgabeformular - Werte in Tabelle übernehmen weiter: Frage zu Tabellenaktualisierungen und Berichten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
chales
Mit wenigen Programmier - Kentnisse


Verfasst am:
24. Jan 2008, 16:49
Rufname:

AW: Stoppuhr Countdownfunktion - AW: Stoppuhr Countdownfunktion

Nach oben
       Version: Office 2k (2000)

Kann man den Beep auch ertönen lassen sobald noch 10 Sekunden im Feld Spielzeit (labTimeString1) zu spielen sind ?
Willi Wipp
Moderator


Verfasst am:
24. Jan 2008, 17:43
Rufname:
Wohnort: Raum Wiesbaden


Re: Stoppuhr Countdownfunktion (VI) - Re: Stoppuhr Countdownfunktion (VI)

Nach oben
       Version: Office 2k (2000)

Hi chales,

das koennte man etwa so loesen
Code:
Private Sub RefreshTimeString(lngStoppUhrNr As Long)
    Static sblnWarning  As Boolean
    Dim blnHabeFertig   As Boolean
    Dim i               As Long
    Dim lngRestZeit     As Long
    Dim dtZeitvorgabe   As Date
    Dim strLabel        As String
   
    If lngStoppUhrNr = 1 Then
        dtZeitvorgabe = Nz(Me!txtSpielzeitvorgabe)
      Else
        dtZeitvorgabe = Nz(Me!txtStrafzeitvorgabe)
    End If
    strLabel = "labTimeString" & lngStoppUhrNr
    Me(strLabel).Caption = objStoppUhr(lngStoppUhrNr).TimeCountDownString( _
                                               dtZeitvorgabe, blnHabeFertig, _
                                                   "hh:nn:ss", conTimerDigits)
    If blnHabeFertig Then
        objStoppUhr(lngStoppUhrNr).StopT
        SetTimerInterval0
        If lngStoppUhrNr > 1 Then
            Me(strLabel).Caption = dtZeitvorgabe
          Else
            Me(strLabel).ForeColor = vbRed
            For i = 2 To conTimerCount
                If objStoppUhr(i).IsRunning Then FnStopClick i
            Next i
        End If
      Else
        If lngStoppUhrNr = 1 Then
            lngRestZeit = CLng(CDate(Left$(Me(strLabel).Caption, 8)) * _
                               24 * 60 * 60)
            If lngRestZeit = 10 And Not sblnWarning Then
                sblnWarning = True
                Beep
              ElseIf lngRestZeit <> 10 And sblnWarning Then
                sblnWarning = False
            End If
        End If
    End If
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
chales
Mit wenigen Programmier - Kentnisse


Verfasst am:
28. Jan 2008, 20:54
Rufname:

AW: Stoppuhr Countdownfunktion - AW: Stoppuhr Countdownfunktion

Nach oben
       Version: Office 2k (2000)

chales am 24. Jan 2008 um 17:58 hat folgendes geschrieben:
Funktioniert !!
Hab jetzt noch den Soundplayer in die Stoppuhr eingebaut. Sound abspielen
Tut alles.
Mal sehen was mir dann noch so alles einfällt. Wink
Danke Willi Wipp

Wie mach ich das :
hab jetzt ein Formular "Stoppuhrzeiten" bei dem nur das Zeitfeld (labtimestring1) und die Zeitstrafen (labetimestring2 ...4) angezeigt werden.
Die Befehlsschaltflächen befinden sich im Formular "Stoppuhrbefehle".
Welche Befehle muß ich ändern um die Zeiten des externen Formulares zu starten ?

_________________
Learning by doing
Willi Wipp
Moderator


Verfasst am:
28. Jan 2008, 23:47
Rufname:
Wohnort: Raum Wiesbaden

Re: Stoppuhr Countdownfunktion (VII) - Re: Stoppuhr Countdownfunktion (VII)

Nach oben
       Version: Office 2k (2000)

Hi chales,

Du musst nur die Bezuege auf die Bezeichnungsfelder auf das andere Formular "umleiten".
Code:
' aus
    Me("labTimeString" & lngStoppUhrNr).ForeColor = vbYellow
' wird z.B.
    Forms!DeinFormular("labTimeString" & lngStoppUhrNr).ForeColor = vbYellow

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
chales
Mit wenigen Programmier - Kentnisse


Verfasst am:
29. Jan 2008, 14:42
Rufname:

AW: Stoppuhr Countdownfunktion - AW: Stoppuhr Countdownfunktion

Nach oben
       Version: Office 2k (2000)

Habs mal wieder nicht geschafft.
Anbei mein derzeitiger Stand.
Stoppuhr mit Countdownfunktion. Musik kann mit play gestartet und mit stop gestoppt werden.
Musik spielt automatisch ab sobald noch 15 Sekunden auf der Uhr stehen.

Habe nun 2 Formulare "frmCountDown" und "frmCountDownAnzeige".
Das zweite Formular soll nur zur Anzeige der Spiel- und Strafzeiten verwendet werden.
Das erste bleibt wie es ist. Beide laufen syncron.
Funktioniert das überhaupt ?

_________________
Learning by doing



externestoppuhr.zip
 Beschreibung:

Download
 Dateiname:  externestoppuhr.zip
 Dateigröße:  49.87 KB
 Heruntergeladen:  58 mal

Willi Wipp
Moderator


Verfasst am:
29. Jan 2008, 15:26
Rufname:
Wohnort: Raum Wiesbaden

Re: Stoppuhr Countdownfunktion (VIII) - Re: Stoppuhr Countdownfunktion (VIII)

Nach oben
       Version: Office 2k (2000)

Hi chales,

na etwa so

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)



ExterneStoppuhr2.zip
 Beschreibung:

Download
 Dateiname:  ExterneStoppuhr2.zip
 Dateigröße:  34.29 KB
 Heruntergeladen:  93 mal



Zuletzt bearbeitet von Willi Wipp am 28. März 2009, 18:39, insgesamt einmal bearbeitet
caro2710
Gast


Verfasst am:
03. März 2010, 11:25
Rufname:


AW: Stoppuhr Countdownfunktion - AW: Stoppuhr Countdownfunktion

Nach oben
       Version: Office 2k (2000)

Hallo.

Klasse Teil - kann ich wirklich gut brauchen.

Jedoch - wie kann ich es ändern, das die Zeit nicht bei 0 stehen bleibt, sondern weiter läuft bis Stop gedrückt wird - also die Zeit quasi im Negativen Bereich weiterläuft.

Ich hoffe ihr könnt mir helfen - ich blicke bei den ganzen Cods nicht wirklich durch.

Gruß Caro
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Zeit für eine Tätigkeit anzeigen und speichern (Stoppuhr) 2 PetraBE 102 30. Dez 2013, 20:11
PetraBE Zeit für eine Tätigkeit anzeigen und speichern (Stoppuhr)
Keine neuen Beiträge Access Programmierung / VBA: Stoppuhr - Stopp verzögern 4 Thomas-R6 168 16. Mai 2012, 08:27
Gast Stoppuhr - Stopp verzögern
Keine neuen Beiträge Access Programmierung / VBA: Stoppuhr starten - einmaliges antippen der Taste 4 Thomas-R6 461 08. März 2012, 01:02
Thomas-R6 Stoppuhr starten - einmaliges antippen der Taste
Keine neuen Beiträge Access Programmierung / VBA: Stoppuhr mit Tasten starten ? 4 Thomas-R6 507 29. Jan 2012, 17:50
viezy Stoppuhr mit Tasten starten ?
Keine neuen Beiträge Access Formulare: Aktualisierung eines Formulares/oder desen Tei mit Stoppuhr 5 bortse21 280 17. Nov 2011, 22:08
bortse21 Aktualisierung eines Formulares/oder desen Tei mit Stoppuhr
Keine neuen Beiträge Access Programmierung / VBA: stoppuhr 6 SlayerSH 1455 22. März 2009, 00:45
Willi Wipp stoppuhr
Keine neuen Beiträge Access Formulare: Stoppuhr 10 Stoppuhr 1660 22. Aug 2007, 19:39
jens05 Stoppuhr
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Programmierung / VBA: Stoppuhr 1 Stoppuhr 652 16. Aug 2007, 13:44
KlausMz Stoppuhr
Keine neuen Beiträge Access Formulare: Stoppuhr in Formular! 4 Gast 1148 11. Apr 2007, 08:51
Gast Stoppuhr in Formular!
Keine neuen Beiträge Access Hilfe: Eine Art Stoppuhr in Access 2 Bananarama 3451 04. Jul 2006, 12:22
Bananarama Eine Art Stoppuhr in Access
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme