[Tut]VB08 Uhr erstellen

  • Jo hallo^^,
    Ich zeige euch heute wie ihr mit VB08 eine Uhr erstellen könnt.
    Diese geht über eure PC Uhr.
    Also ich fange mal an .
    Was brauchen wir?:
    Windows Form:
    Label
    Button
    Timer

    So sollte es dann in etwas aussehen:
    [FELD=,][/FELD]

    Coding:

    Zuerst gehen wir auf das Laben und geben bei "Name" :
    LabelUhr ein.
    So und jetzt kommen wir zuerst mal zum timer coding.
    So und dort tippern wir diesen code ein:

    Code
    Dim h As String = My.Computer.Clock.LocalTime.Hour
            Dim m As String = My.Computer.Clock.LocalTime.Minute
            Dim s As String = My.Computer.Clock.LocalTime.Second
    
    
            If m < 10 Then m = "0" + m
            If s < 10 Then m = "0" + m
    
    
            LabelUhr.Text = h & ":" & m & ":" & s

    Das sollte dann in etwas so aussehen:

    [Feld=,][/Feld]

    Damit haben wir schoneinmal wie Uhr gecodet.
    Diese könnt ihr nun schoneinmal austesten :)

    Jetzt müssen wir allerdings noch den "Schließen" Button coden.
    Wie in meinem anderem TuT schon erklärt lautet der Code für den schließen Button (erst doppelklick auf den Button):

    Code
    Me.Close()

    Das sollte dann in etwas so aussen:

    [Feld=,][/Feld]

    OutCome:

    So sollte wenn ihr alles richtig gemacht habt eure Uhr aussehen:

    [Feld=,][/Feld]

    Crediz:

    100% me


    Liebe grüße

  • Naja, ich finde, das bringt nicht wirklich
    viel, da du mit dem Code nur die
    Uhrzeit darstellst, die auf deinem PC eingestellt ist.
    Und dafür gibts auch die Uhr rechts unten. xD

  • Das geht auch viel einfacher xD
    Einfach in den Timer den code rein:

    Code
    Label1.Text = My.Computer.Clock.Gtm <. oder wie das heißt^^

    Aber naja, für die, die es schwerer machen wollen ;)

  • Vielen Dank für den Thread...Hat mir geholfen mich ein wenig mit VB zurecht zufinden

    So far, [COLOR="DarkGreen"]Ripley[/COLOR]

    [CENTER][CENTER][FONT=Fixedsys][SIZE=4][COLOR=DimGray][/COLOR][/SIZE][/FONT]
    [/CENTER]
    [FONT=Fixedsys][SIZE=4][COLOR=DimGray]
    [/COLOR][/SIZE][/FONT][CENTER][FONT=Fixedsys][SIZE=4][COLOR=DimGray].:[/COLOR] [COLOR=PaleGreen]LoL Beschwörername[/COLOR][COLOR=PaleGreen]: [/COLOR][COLOR=PaleGreen]RipleyRulez[/COLOR] [COLOR=Gray]:.[/COLOR][/SIZE][/FONT]
    [/CENTER]
    [/CENTER]

  • bringt es genauso viel wie ein tut über den befehl MessageBox.Show du erklärst einen befehl und sonst ist dass nicht mehr

    Zitat von Steve Jobs

    Stay hungry - stay foolish.



Jetzt mitmachen!

Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!