CodersHELL.org - Developing Community

Neuste Nachrichten

Weiterer pic24 Server eingebunden

Nachtsichtgeräte: Kinobesucher müssen

Neue Wandfarbe hält WLAN-Strahlung im Z

Malware soll mit digitalen Ameisen besei

Kernel-Log: Hauptentwicklungsphase von L

Neuste Beiträge

Eggdrop Interface - ein paar Fragen

Nach Egg Anlegen FTP-login Fehler

HowTo: mit wget ein DirectoryIndex Webve

G-MoN Output -> Excel

Uploadscript ohne FTP-Verbindung

Visual Basic » kleine "digital" Uhr

Seiten: 1

[ Sie müssen angemeldet sein, um einen Beitrag zu verfassen. ]

Geschrieben von gix am 14.04.2007 um 00:00 Uhr.
Beiträge: 185 / #1236

Kontakt:

Mailen |

ICQ

Heute erklär ich euch, wie ihr eine kleine Uhr erstellt, mit "digitaler" Anzeige.

Was wird benötigt ?

CODE

1.
2.

•ein Text-Label - "Label1"
•ein Timer-Objekt - "Timer1"

Wenn ihr das alles erstellt habt kommt der Code.

CODE

1.
2.
3.
4.
5.

Private Sub Form_Load()
          Label1.Caption = Time()
          Timer1.Interval = 1000
          Timer1.Enable = True
End Sub

Hier setzen wir die aktuelle Uhrzeit und übergeben sie an unser Text-Label. Ausserdem nehmen wir die Einstellungen für unser Timer-Objekt vor.

CODE

1.
2.

Timer1.Interval = 1000
Timer1.Enable = True

Bedeutet, dass der Timer aller 1Sek. bestimmte Befehle ausführt und das der Timer aktiviert ist.

Nun müssen wir dem Programm nur noch sagen, dass er jede Sekunde die Zeit aktualisieren soll. Das geschieht wie folgt:

CODE

1.
2.
3.

Private Sub Timer1_Timer()
         Label1.Caption = Time()
End Sub

Und schon habt ihr eure kleine Uhr

Zitieren

Beitrag melden

-Werbung-

Geschrieben von cow am 29.04.2007 um 00:00 Uhr.
Beiträge: 1 / #1274

Kontakt:

Mailen

Um diesen Bereich zu sehen, benötigst du mind. 1 Post
!?!??!?!?

Zitieren

Beitrag melden

[ Sie müssen angemeldet sein, um einen Beitrag zu verfassen. ]

Seiten: 1

Passwort zurücksetzen