vb1a czas data

VB01a_czas_data

Wykonajmy aplikację o formularzu jak na rys. 1.

Działanie aplikacji - po kliknięciu przycisku:

• btnSprawdz - w etykietach lblCzas i lblData wyświetlany jest czas systemowy i data systemowa.

• btnKasuj – etykiety lblCzas i lblData, a także okno tekstowe txtPowtorz mają kasowane wpisy,

• btnPowtorz – zawartości etykiet powtarzane są w oknie tekstowym txtPowtorz, dodatkowo z dopiskiem „Dziś jest: ” i „, godz. „.

• Przycisk btnKliknijMnie – nie pozwala się kliknąć.

Rys. 1. Propozycja formularza

Nadajmy obiektom umieszczonym na formularzu właściwości jak w tabelach poniżej.

Label1

Label4

BorderStyle FixedSingle

Name lblData

Font 12 punktów, pogrubienie

AutoSize False

Text Czas:

BackColor Zakładka Custom – jasnożółty

Label2

BorderStyle FixedSingle

Name lblCzas

Font 12 punktów, pogrubienie

AutoSize False

Text Usunac napis Label2

BackColor Zakładka Custom - biały

TextAlign MiddleCenter

BorderStyle FixedSingle

Button1

Font 12 punktów, pogrubienie

Name btnSprawdz

Text Usunac napis Label2

Font 12 punktów, pogrubienie

TextAlign MiddleCenter

Text Sprawdź

Label3

Button2

BorderStyle FixedSingle

Name btnKasuj

Font 12 punktów, pogrubienie

Text Data:

Text Kasuj

Button3

Name btnKoniec

Font 12 punktów, pogrubienie

Text Koniec

Kody procedur

Private Sub btnSprawdz_Click(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles btnSprawdz.Click

'===== Pobieranie czasu z zegara systemowego ======

' Wersja czasu z częś cią ułamkową sekund

'lblCzas.Text = _

My.Computer.Clock.LocalTime.TimeOfDay.ToString

' Wersja czasu z samodzielnym składaniem elementów

'lblCzas.Text=My.Computer.Clock.LocalTime.Hour & ":" & _

' My.Computer.Clock.LocalTime.Minute & ":" & _

' My.Computer.Clock.LocalTime.Second

' Wersja czasu z funkcją "FormatDateTime"

lblCzas.Text=FormatDateTime(My.Computer.Clock.LocalTime, _

DateFormat.LongTime)

'===== Pobieranie daty z zegara systemowego ========

' Wersja z data w postaci "2010-04-09"

'lblData.Text = My.Computer.Clock.LocalTime.Date

' Wersja daty z funkcją "FormatDateTime"

lblData.Text=FormatDateTime(My.Computer.Clock.LocalTime, _

DateFormat.LongDate) End Sub

Private Sub btnKasuj_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnKasuj.Click lblCzas.Text = ""

lblData.Text = ""

txtPowtorz.Text = ""

End Sub

Private Sub btnKoniec_Click(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles btnKoniec.Click

' Programowe zamknię cie aplikacji

' (zamknię cie wszystkich watków aplikacji).

Application.Exit()

' Natychmiastowe zamknię cie aplikacji

'End

End Sub

Private Sub btnPowtorz_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnPowtorz.Click

' Łączenie łańcuchów tekstowych z różnych obiektów txtPowtorz.Text = "Dziś jest: " & lblData.Text & _

", godz. " & lblCzas.Text End Sub

Private Sub btnKliknijMnie_MouseMove(ByVal sender As Object, _

ByVal e As System.Windows.Forms.MouseEventArgs) _

Handles btnKliknijMnie.MouseMove

' Ż arcik - przycisk, który ucieka przed kliknię ciem

Dim punkt As New Point(0, 0)

punkt.X = Me.Location.X * Rnd()

punkt.Y = Me.Location.Y * Rnd()

btnKliknijMnie.Location = punkt

End Sub