Anwendungen(Java,C++...)

uhrzeit in echtzeit laufen lassen visual basic

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

hi, wie kann ich die aktuelle Uhrzeit so ausgeben lassen, dass die Uhr noch sichtbar weiterläuft? Private Sub Form_Load() Uhrzeit = CStr(Time) End Sub Uhrzeit ist das Textfeld in dem die Uhrzeit ausgegeben wird. Kann mir da vielleicht jemand weiterhelfen? Gruß Thomas

Antwort 1 von steffen2

mit einem Timer

Dim Anzeige ' Variable definieren
Private Sub Form_Load()
Anzeige = Format(Now, "ddd, d. mmm yyyy  hh:mm:ss") ' Variable ausfüllen
Zeitfeld.Caption = Anzeige 'Text-Feld ausfüllen
Uhr.Caption = Anzeige 'Feld für Task-Leiste ausfüllen
End Sub

Private Sub Timer1_Timer()
Anzeige = Format(Now, "ddd, d. mmm yyyy  hh:mm:ss") ' Variable ausfüllen
Zeitfeld.Caption = Anzeige 'Text-Feld ausfüllen
Uhr.Caption = Anzeige 'Feld für Task-Leiste ausfüllen
End Sub

Gruß Steffen

Antwort 2 von Thomas

danke steffen, habs jetzt so wie ich es wollte.
now brauch ich nicht, die uhrzeit allein reicht schon.

Private Sub Timer1_Timer()
Uhrzeit = Time

End Sub

und eben die intervall beim timer noch gesetzt.

Ich werde mal testen was man mit deinem code noch anstellen kann.

Gruß

Thomas

Antwort 3 von steffen2

die Uhr war eines meiner ersten Projekte (nach "Hallo Welt") und ich hab einfach alles mal hier reinkopiert

Gruß Steffen

Antwort 4 von Thomas

hm.. jetzt muss ich doch nochmal nachhaken.

warum hast du caption genommen? Da kommt bei mir ne Fehlermeldung.
Das mit der Taskleiste ist mir auch noch unklar.
Kannst du mir das genauer erklären?

Gruß

Thomas

Antwort 5 von steffen2

ich benutze VB-5

Caption ist der Text der oben als Fenstername erscheint und auch in der Taskleiste angezeigt wird.

"uhr" ist bei mir der Name des Forms und "Zeitfeld" ist ein Label

Gruß Steffen

Antwort 6 von Thomas

Achso
ok dann ists klar.
Hab jetzt mal die Form als "Uhr" benannt und ein label namens "Zeitfeld" erstellt.

Wenn ich deinen code übernehme und bei

Uhr.Caption = Anzeige 'Feld für Task-Leiste ausfüllen

jeweils das Caption weglasse siehts so aus.

Antwort 7 von steffen2

ich hatte bei mir den "Borderstyle" auf "0"

Aber ich hab jezt mal 1 reingemacht und dann kommt da auch die Uhrzeit

Hast du unter "(Name)" Uhr stehen??

Antwort 8 von Thomas

habs nochmal neu gemacht, klar wenn ich bei Uhr.Caption, das Caption weglasse wird eben nur der Name der Form angezeigt. Keine Ahnung warums vorher nicht funktioniert hatte mit Uhr.Caption.
Jetzt funktionierts mit deinem code.

mit dem ergebnis erstes Bild

Antwort 9 von Thomas

gibts eigentlich die möglichkeit, das ganze als analoge Uhr anzeigen zu lassen, also mit Zeigern?

Gruß

Thomas

Antwort 10 von Rangoo

Musst du mal suchen in Internet eine entsprechende Steuerelement, vielleicht du werden fündig. Das haben Microsoft wohl geschrieben selber, man nix findet es in normale Steuerelementelisten.
Das Ding schimpft sich übrigens ClockWndMain. Auch wenn einem das nicht viel weiterhilft. ;-)
Und an sich... Selber programmieren macht stolz. 'n Kreis und drei Striche... An sich kann das doch nicht schwierig sein...

Antwort 11 von steffen2

Suchmaschine: direkt im IE
Suchbegriffe: "visual basic analoguhr"
1. Treffer: hier

Gruß Steffen

Antwort 12 von Thomas

danke steffen. genau das hab ich gesucht.

@rangoo: schaus dir mal an, also so leicht ist das nicht wirklich, wenn ich den code mit dem von der analogen uhr vergleiche *g*

Gruß

Thomas