linkler: link1 burdan

saol elien sağlık güzele benziyo güzeldirde kesin 2. sürüm cabuk geldi

link ölmüş

teşşekür ederim sadece bir eksikleri düzelttim asktif pasif durumunu ekledim ama v.3 cok gec olur

eywallah program dehset. Kardes ben sana yaziyim hemen Option explicit Dim SAAT as Byte Dim DAKIKA as Byte Dim SANIYE as Byte ' 'gerekenler --> :-D! asagidakiler! Form1 üzerine bunlari ekle 'text1 'text2 'command1 'Timer1 ' Private Function DURUM If STATUS = True Then 'Durum aktif Timer1. enabled = True Timer1. interval = 60000 else 'buda pasif :-D Timer1. enabled=False end if End Function Private Function Time_bol if SAAT = "" OR SAAT = 0 AND DAKIKA="" OR DAKIKA="" AND SANIYE="" OR SANIYE=0 THEN Exit Function End If SAAT = Left$(ALARM_SAAT, 2) DAKIKA = Mid$(ALARM_SAAT, 3, 2) SANIYE = Right(ALARM_SAAT,2) End Function Private Sub Form_load Text1. Text = Time End Sub Private Sub Command1_Click On error goto Hatavar Time_bol(Text2. Text) STATUS=True 'Hata yoksa bunu True yapacak. O kadarini size birakiyorum. Hata kontrol ekle Hatavar: Select Case Err. number Case is 13 : Msgbox "Yanlis deger girildi.", VbCritical, "Hata" End select End Sub Private Sub Timer1_Timer If SAAT=0 and DAKIKA=0 and SANIYE=0 then BEEP c= msgbox If c=Vbyes Then msgbox "Günaydin" 'Burayada saniye dakika islemlerini yaz bitsin olay. istersne müzik caldir. istersen bigisayari kapat. else DAKIKA = 5 'Süreyi 5 dakika uzattim biraz daha uyusun diye neyse 'Burayada saniye dakika islemlerini yaz bitsin olay. istersne müzik caldir. istersen bigisayari kapat. end if End Sub Belki yapan arkadasada biraz fikir vermisimdir. Bunu direk burada yazdim, bir hata varsa kusura bakmayin. Iyi günler

Eğer senin içinde bi sakıncası yoksa programın kodlarını veririmisin merak ettim!!! nasıl yaptığını sadece öğrenmek amaçlı yanlış anlama ):)