 |
 |
||||||
|
|
|||||||
|
|
Konu : Visual Basic ile Alarmlı Saat | Hit: 195 |
|
[I][COLOR="DarkOrange"]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[/I]  BEDAVA MILYONLARCA LİSELI GENÇ KIZ MSN ADRESI.!!! - Konular -
|
|
 Bir Öykü Korsan yazılım, yaratıcılığı öldürüyor Beyaz Gül Kimse Kimseye Yaşamayı Öğretemez Herkes Kendi Charını Burda Tanıtsın! Dışardan Ev İçinde Hazinee Asker Fıkraları fıkralar sadece burdan istemediginiz kadar F.Bahçe'den Yıldıray operasyonu! SenSizLik : ..:: SÜPER HOSTES ::.. |
|
