Dipsiz.tr.gg
  DipsizForum
 
=> Daha kayıt olmadın mı?

DipsizForum - Alarm ayarlama

Burdasın:
DipsizForum => Visual Basic Kodlari => Alarm ayarlama

<-Geri

 1 

Devam->


mavialev
(şimdiye kadar 2 posta)
14.07.2007 19:37 (UTC)[alıntı yap]
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 ayny oldugu müddetçe beep sesi alyrsynyz(60 saniye)

End If
End If

End Sub






Bütün konular: 3
Bütün postalar: 3
Bütün kullanıcılar: 2
Şu anda Online olan (kayıtlı) kullanıcılar: Hiçkimse crying smiley
 
 
  Bugün 3 ziyaretçi (3 klik) kişi burdaydı!  
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol