Okul Zil Programı
Tarih
14/04/2009 13:29
Konu Sahibi
kadir378
Yorumlar
18
Okunma
8470
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy



kadir378
Üye
Kullanici Avatari
Üye
15
7
14/04/2009
19
Bursa
Ofis 2013 Tr. 32 Bit
31/12/2014,16:28
Çözüldü 
Arkadaşlar lise 3 sınıf öğrencisiyim ve yıllık odevim zil programı kücük bisi yapıcam saten icinde günler olcak o gün ve saat geldiginde zil calacak yardımcı olursanız cok sevinirim
kadir378, 14-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Çözüldü 
Sizin yapmaya çalıştığınız şey aslında alarmlı saattir. Aşağıdaki kodları kullanabilirsiniz.

MP3 çalan bir program yapmadan önce dll ve ocx bankamıza eklediğim mp3play.ocx dosyasını indirmeniz gerekiyor. Bundan sonra işiniz kolay. Önce aşağıdaki gibi bir form hazırlayarak işe başlayın.


Edit box'ın read only (dışarıdan herhangi bir şey girilemesin) olmasını sağlayın ve STOP tuşunun "Enabled" özelliğinide "False" yapın. Tüm tuşların isimlerine göre fonksiyonlar aşağıdadır. Bu arada formda "SAAT" yazan yerin altında bir label var, label'ın background rengini siyah yapın.

Aşağıdaki tüm kodu kopyalayın ve General Declerations kısmından itibaren paste edin. Uygun tuşlara, uygun fonksiyonlarıda bağlayın. Böylece kod çalıştırılabilir hale gelecektir.


Kod:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Option Explicit
Dim AlarmTime
Dim Sound As String
Dim got As Long
Const conMinimized = 1
Dim char As String

Private Sub alarm_Click()
AlarmTime = InputBox("Saat kaçta alarm çalsın?", "Alaryum", AlarmTime)
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "Girilen saat geçerli değil"
Else
AlarmTime = CDate(AlarmTime)
Text1.Text = AlarmTime
End If
End Sub

Private Sub cikis_Click()
End
End Sub

Private Sub sarkisec_Click()
CommonDialog1.ShowOpen
Sound = CommonDialog1.FileName
Text2.Text = CommonDialog1.FileName
End Sub
Private Sub stopsong_Click()
Mp3Play1.stop
End Sub

Private Sub Form_Resize()
If WindowState = conMinimized Then
SetCaptionTime
Else
Caption = "Alaryum"
End If
End Sub

Private Sub SetCaptionTime()
Caption = Format(Time, "Medium Time")
End Sub

Private Sub Timer1_Timer()
lblTime.Caption = Time
If Time = AlarmTime Then
got = Mp3Play1.Open(Sound, "")
Mp3Play1.Play
stopsong.enabled = True
stopsong.Default = True
End If
If WindowState = conMinimized Then
If Minute(CDate(Caption)) <> Minute(Time) Then SetCaptionTime
Else
lblTime.Caption = Time
End If
End Sub 


Not: Yazı alıntıdır. M.Demiral

İnadına, ille de Accesstr.net...
Cevapla


kadir378
Üye
Kullanici Avatari
Üye
15
7
14/04/2009
19
Bursa
Ofis 2013 Tr. 32 Bit
31/12/2014,16:28
Çözüldü 
kardeş msn adresi werirmisin ayrıntılı bir sekilde anlatırmısın
kadir378, 14-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Krizantem
Cezalı
Kullanici Avatari
Cezalı Üye
27
2
22/03/2009
Adana
Ofis 2003
27/04/2009,09:01
Çözüldü 
KArdeş diye hitap ettiğin adam seni disiplin kuruluna vermeye yetkisi olan biriyse?
Cevapla


kadir378
Üye
Kullanici Avatari
Üye
15
7
14/04/2009
19
Bursa
Ofis 2013 Tr. 32 Bit
31/12/2014,16:28
Çözüldü 
siteye daha yeni üyeyim bi kusurumuz olduysa kb yın karısık kodlar nereye ne yazcaz ne eklıcez daha ayrıntılı bir sekilde anlatmısınız Msn Wersem?
kadir378, 14-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


nihatkr
Ofis 2007-2003-2010
Kullanici Avatari
Onursal
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
Çözüldü 
(14/04/2009, 15:12)kadir378 Adlı Kullanıcıdan Alıntı: siteye daha yeni üyeyim bi kusurumuz olduysa kb yın karısık kodlar nereye ne yazcaz ne eklıcez daha ayrıntılı bir sekilde anlatmısınız Msn Wersem?

msn vermek almak istemek yasak forum kuralları gereği
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü İrsaliye Programı Yardım hyavuz 7 3.118 04/01/2014, 11:24 hyavuz
Çözüldü Ekran okuma programı sngl07 3 1.480 26/05/2013, 18:55 direnist
Çözüldü dosya adını değiştirme programı tamyoltornistan 4 2.429 03/01/2012, 05:49 benremix
Çözüldü Uçak Rezarvasyon(Tahsilat) Programı? fatihdursun 4 1.983 24/05/2011, 19:22 ogulcan92
Çözüldü Vbde Kütüphane Programı tann294 16 3.736 26/04/2011, 22:51 |By|KiDnArUt|


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya