«

»

Lis 03

Wydrukuj to Wpis

Visual Basic-Zegar z Budzikiem

Zegar-I-Budzik-vb2010

Program pokazuje godzinę, dzień tygodnia, miesiąc i rok oraz posiada budzik.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Class ZegarBudzik
    Private Sub ZegarBudzik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ZmianaDatyIDzieńTygodnia()
        WyłączDżwięk.Enabled = False
    End Sub
 
    Private Sub TimerZegar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerZegar.Tick
        TarczaZegarka.Text = Format(Now, "HH:mm:ss")
        If TarczaZegarka.Text = "00:00:00" Then ZmianaDatyIDzieńTygodnia()
        If TarczaBudzik.Text = TarczaZegarka.Text Then UstawieniaDzwonka(True)
    End Sub
 
    Sub ZmianaDatyIDzieńTygodnia()
        TarczaData.Text = Format(Now, "Long Date")
        TarczaDzieńTygodnia.Text = Format(Now, "dddd")
    End Sub
 
    Sub UstawieniaDzwonka(ByVal PlayStop As Boolean)
        If PlayStop = True And BudzikWłączony.Checked Then
            My.Computer.Audio.Play("ringin.wav", AudioPlayMode.BackgroundLoop)
            WyłączDżwięk.Enabled = True
        End If
        If PlayStop = False Then
            My.Computer.Audio.Stop()
            WyłączDżwięk.Enabled = False
        End If
    End Sub
 
    Private Sub Wyłącz_Dżwięk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WyłączDżwięk.Click
        UstawieniaDzwonka(False)
    End Sub
End Class

Załączniki do pobrania

Permalink do tego artykułu: http://tmall.com.pl/visual-basic-zegar-z-budzikiem/

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Możesz użyć tych znaczników i atrybutów HTMLa: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>