Alarmlı Saat Yapımı

B

bykzlu-x

Üye
9 Ocak 2008
190
5
Form'a 3 tane label ekleyin yan yana olmasý kafanýzýn karýþmasýný engeller,2 tane text box (alarmý kurdugunuz dakika ve saat degerini belitmek için), timer kontrolü,alarmýn kurdugunuzu belirmek için de birtane command butonu ekleyin.
**************

Option Explicit
Dim a As Integer ' program boyunca kullanilacak a degiskeni
Dim b As Integer ' program boyunca kullanilacak b degiskeni
Private Sub Command1_Click()
a = Val(Text1.Text) ' text1 degeri (a) ya ataniyor
b = Val(Text2.Text) ' text2 degeri (b) ye ataniyor
End Sub

Private Sub Form_Load()
Dim zaman, dakika
Timer1.Enabled = True
Timer1.Interval = 1000 ' bu deger 1 saniyeye karsilik gelir
Form1.Caption = "Alarm V.01"
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

Private Sub Text2_Click()
Text2.Text = ""
End Sub
Private Sub Timer1_Timer()
Dim zaman, saniye, dakika, saat
zaman = Time
saniye = Second(zaman)
dakika = Minute(zaman)
saat = Hour(zaman)
Label1.BackColor = QBColor(0)
Label1.ForeColor = QBColor(10)
Label1.FontSize = 20
Label1.Alignment = 2
Label1.Caption = saat
Label2.BackColor = QBColor(0)
Label2.ForeColor = QBColor(10)
Label2.FontSize = 20
Label2.Alignment = 2
Label2.Caption = dakika
Label3.BackColor = QBColor(0)
Label3.ForeColor = QBColor(10)
Label3.FontSize = 20
Label3.Alignment = 2
Label3.Caption = saniye
If saat = a Then
If dakika = b Then
Beep 'dakika degeri(label2), sizin kurdugunuz dakika degeri (text2) ile ayný oldugu müddetçe beep sesi alýrsýnýz(60 saniye)

End If
End If

End Sub

Selametle.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.