Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Zeit

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
07.02.2004, 15:32 Uhr
~Regless
Gast


Hi! Kann mir mal jemand das Script sagen damit in einem Textfeld zeit angezeigt wird?
Das textfeld heißt "text1"...
Die Uhrzeit also: 15:30:24 Stunde,Minute,Sekunde.....

Oder einfach en Script das in einem Text feld nicht "Sub text1_click()" sondern "Sub text1_automatisch()" oder so...


Danke im Vorraus!



PS: Hab son Script gesehen da muss man aber aufen Button klicken... Und jede Sekunde auffen Button... ^^
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
07.02.2004, 21:06 Uhr
Pablo
Supertux
(Operator)


Willst du, dass in text1 die aktuelle Zeit (Sekunden genau) angezeigt wird?
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
23.02.2004, 12:55 Uhr
~Regless
Gast


ja.. Sekundengenau...

Hab mal gehört dass man das ganz leicht in einer Statuszeile einbauen kann?!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
003
23.02.2004, 13:13 Uhr
Pablo
Supertux
(Operator)


Du brauchst zuerst das Timer Kontrol. Füge eins in Form1 (oder wie auch immer dein Formular heißt, an dem der Textbox mit der Zeit sich befindet) hinzu. Das Zeichen lässt sich nicht vergrössern und beim Ausführen, sieht man das Kontroll nicht.

In den Eigenschaften Fenster suche nach Interval und ändere zu 1 oder 100, das reicht schon (da sind Millisekunde)

Dann musst du es enablen, und dann auf den Timer doppelklicken, damit du in das Event Timer (wenn ich mich nicht irre) folgendes schrieben kannst:


Visual Basic:
Private Sub CTimer_Timer()
    
    Form1.TextBox1.text = time
    
End Sub



PS: Ich erinnere mich nicht mehr, wie die Funktion heißt, die die Zeit angibt, ich glaueb, sie heißt time oder so. Siehe MSDN.
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
004
23.02.2004, 14:07 Uhr
~Regless
Gast


Jo..Funktioniert... danke...
Hab das immer so gemacht:


Visual Basic:
Private Sub Timer1_Timer()
text1.Text = Format(Now, "Long Time")
End Sub



das war der eine timer.. dann noch en zweiten...
und dann:


Visual Basic:
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Timer2_Timer()

    Dim i As Double, dday As Long, dhour As Long, dmin As Long, dsec _
    As Long
    Dim dayStr As String, hourStr As String, minStr As String, secStr _
    As String
    Dim Output As String
    
    i = GetTickCount / 1000
    
    '86400 = 60*60*24
    '3600 = 60*60

    dday = Fix(i / 86400)
    dhour = Fix((i Mod 86400) / 3600)
    dmin = Fix(((i Mod 86400) Mod 3600) / 60)
    dsec = Fix(((i Mod 86400) Mod 3600) Mod 60)
    
    dayStr = dday & " Tage, "
    hourStr = dhour & " Stunden, "
    minStr = dmin & " Minuten "
    secStr = "und " & dsec & " Sekunden "
End Sub



und bei dem text:

Visual Basic:
Private Sub text1_Change()


End Sub

Dieser Post wurde am 23.02.2004 um 14:10 Uhr von Pablo editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: