0 Üye ve 1 Ziyaretçi Konuyu İncelemekte. Aşağı İn :)
Sayfa 1
Konu: Yazili Tarihleri Alarm Sistemi  (Okunma Sayısı: 1006 Kere Okundu.)
« : Ağustos 11, 2009, 01:41:43 ÖÖ »
Avatar Yok

By.TuRuT
*
Üye No : 773
Nerden : Rize
Cinsiyet : Bay
Konu Sayısı : 19239
Mesaj Sayısı : 48 228
Karizma = 65220


YAZILI TARİHLERİ ALARM SİSTEMİ

PROJENİN AMACI GİRİLEN YAZILILARIN TARİHLERİ GELİNCE MSGBOX'LA VE SESLİ HABER VERMESİDİR. KODLARI DEĞİŞTİRİP ÇEŞİTLİ AMAÇLAR İÇİN KULLANILABİLİR. KODLARI AYRINTILI ANLATMAYA ÇALIŞACAĞIM.

İLK ÖNCE FORMA 52 TANE TEXTBOX VE 6 TANE LABEL EKLİYORUZ. 1 VE 13 ARASI TEXTLER BİR SÜTUN. (LABEL ADI: DERSİN ADI) 14 VE 26 ARASI TEXTLER BİR SÜTUN. (LABEL ADI: 1. YAZILI). 27 VE 39 ARASI TEXTLER BİR SÜTUN. (LABEL ADI: 2. YAZILI) 40 VE 52 ARASI TEXTLER BİR SÜTUN. (LABEL ADI: 3. YAZILI)

DAHA SONRA FORMA 1 TİMER KOYUYORUZ.

TİMER1'E : SİSTEMİN SAATİNİ ALMAK İÇİN FORMA TARİH VE SAAT EKLİYORUZ. İNTERVAL'İ 100 OLACAK.

Label1.Caption = Date
Label2.Caption = Time

FORMA BİR TANE DATABASE EKLİYORUZ. YENİ DAT. DOSYASI EKLEYEREK NEW TABLE İLE YENİ TABLO EKLİYORUZ. TABLE ADI alarm OLACAK. VE ADD FİLEDE TIKLAYARAK AD GİRECEĞİZ. NAME YAZAN YERE TEKER TEKER: y1, y2, y3...y12, y13 yd1, yd2, yd3, yd4... yd37, yd38, yd39 YAZIYORUZ. YADIKTAN SONRA OK VE CLOSE SEÇİP GERİ ÇIKIYORUZ. BUİLD THE TABLE'YE TIKLAYARAK YENİ TABLO EKLEMİŞ OLUYORUZ.

DATANIN DATABASENAME SEÇENEĞİNİ EKLEMİŞ OLDUĞUMUZ DAT. DOSYASININ YERİNİ BULARAK SEÇİYORUZ. RECORDSOURCE YERİNİDE alarm SEÇİYORUZ.

DAHA SONRA FORMA GELİP EKLEMİŞ OLDUĞUMUZ 4 SÜTUN HALİNDEKİ TEXTLERİN HEPSİNİ SEÇİP DATASOURCE'SİNİ DATA1 SEÇİYORUZ. SEÇTİKTEN SONRA TEXT 1'DEN BAŞLAYIP ( YANİ İLK SÜTUNUN) TEXTLERİN DATAFİELD LARINI SIRA İLE y1, y2... y12, y13 SEÇİYORUZ. DİĞER TEXTLERİN DATAFİELD LARINIDA SIRASI İLE yd1, yd2...yd38, yd39 seçiyoruz.

FORMA 1 TANE DAHA DATA EKLİYORUZ. VE BU DATANINDA DATABASENAME VE RECORDSOURCE DATA1'İN AYNI DAT. DOSYASINI SEÇİYORUZ.

FORMA 1 TANE WİNDOWSMEDİAPLAYER EKLİYORUZ. BEN BUGÜN YAZILIN VAR DİYE BİR SES KAYDETMİŞTİM. BUNU SİZ ARTIK BAŞKA SES DOSYASI SEÇİN. SADECE " C:\Program Files/ismail/yazili.wma " ŞU BÖLÜMÜ DEĞİŞTİRMENİZ YETERLİ OLACAK.

VE FORMA 1 TANE DAHA TİMER EKLİYORUZ. İNTERVAL'İ 3000 OLACAK. VE İÇİNE:

Private Sub Timer2_Timer()
If Data3.Recordset![yd1] = Label1.Caption Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y1] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd14] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y1] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd27] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y1] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd2] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y2] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd15] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y2] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd28] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y2] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd3] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y3] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd16] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y3] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd29] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y3] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd4] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y4] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd17] Then
MsgBox ("Bugün " & Data3.Recordset![Y4] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd30] Then
MsgBox ("Bugün " & Data3.Recordset![Y4] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd5] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y5] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd18] Then
MsgBox ("Bugün " & Data3.Recordset![Y5] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd31] Then
MsgBox ("Bugün " & Data3.Recordset![Y5] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd6] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y6] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd19] Then
MsgBox ("Bugün " & Data3.Recordset![Y6] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd32] Then
MsgBox ("Bugün " & Data3.Recordset![Y6] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd7] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y7] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd20] Then
MsgBox ("Bugün " & Data3.Recordset![Y7] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd33] Then
MsgBox ("Bugün " & Data3.Recordset![Y7] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd8] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y8] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd21] Then
MsgBox ("Bugün " & Data3.Recordset![Y8] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd34] Then
MsgBox ("Bugün " & Data3.Recordset![Y8] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd9] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y9] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd22] Then
MsgBox ("Bugün " & Data3.Recordset![Y9] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd35] Then
MsgBox ("Bugün " & Data3.Recordset![Y9] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd10] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y10] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd23] Then
MsgBox ("Bugün " & Data3.Recordset![Y10] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd36] Then
MsgBox ("Bugün " & Data3.Recordset![Y10] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd11] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y11] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd24] Then
MsgBox ("Bugün " & Data3.Recordset![Y11] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd37] Then
MsgBox ("Bugün " & Data3.Recordset![Y11] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd12] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y12] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd25] Then
MsgBox ("Bugün " & Data3.Recordset![Y12] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd38] Then
MsgBox ("Bugün " & Data3.Recordset![Y12] & " yazılın var")
Timer2.Enabled = False
End If
If Label1.Caption = Data3.Recordset![yd13] Then
WindowsMediaPlayer1.URL = "C:\Program Files/ismail/yazili.wma"
MsgBox ("Bugün " & Data3.Recordset![Y13] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd26] Then
MsgBox ("Bugün " & Data3.Recordset![Y13] & " yazılın var")
Timer2.Enabled = False
ElseIf Label1.Caption = Data3.Recordset![yd39] Then
MsgBox ("Bugün " & Data3.Recordset![Y13] & " yazılın var")
Timer2.Enabled = False
End If
End Sub


FORMA BİR TANE COMMANDBUTON EKLEYİP İÇİNE

Private Sub Command1_Click()
Data1.Recordset.AddNew
End
End Sub

YAZIYORUZ. VERİLERİ KAYDEDİP ÇIKMASI İÇN. ÖNERİ: YAZILI TARİHLERİNİ 1-2 GÜN ÖNCEKİ TARİHİ GİRİNİZ. ÖNCEDEN HABER VEREBİLMESİ İÇİN. KOLAY GELSİN...

İstek & Öneri ve Şikayetlerinizi: WeBCaNaVaRi'na Üye Olmadan Link'leri ve Kod'ları Göremezsiniz.
Link'leri Görebilmek İçin. Üye Ol. veya Giriş Yap.
Adresine İletebiliriniz.
WeBCaNaVaRi Botu

Bu Site Mükemmel :)

*****

Çevrimİçi Çevrimİçi

Mesajlar: 222 194


View Profile
Re: Yazili Tarihleri Alarm Sistemi
« Posted on: Mart 28, 2024, 07:03:55 ÖS »

 
      Üye Olunuz.!
Merhaba Ziyaretçi. Öncelikle Sitemize Hoş Geldiniz. Ben WeBCaNaVaRi Botu Olarak, Siteden Daha Fazla Yararlanmanız İçin Üye Olmanızı ŞİDDETLE Öneririm. Unutmayın ki; Üyelik Ücretsizdir. :)

Giriş Yap.  Kayıt Ol.
Anahtar Kelimeler: Yazili Tarihleri Alarm Sistemi e-book, Yazili Tarihleri Alarm Sistemi programı, Yazili Tarihleri Alarm Sistemi oyunları, Yazili Tarihleri Alarm Sistemi e-kitap, Yazili Tarihleri Alarm Sistemi download, Yazili Tarihleri Alarm Sistemi hikayeleri, Yazili Tarihleri Alarm Sistemi resimleri, Yazili Tarihleri Alarm Sistemi haberleri, Yazili Tarihleri Alarm Sistemi yükle, Yazili Tarihleri Alarm Sistemi videosu, Yazili Tarihleri Alarm Sistemi şarkı sözleri, Yazili Tarihleri Alarm Sistemi msn, Yazili Tarihleri Alarm Sistemi hileleri, Yazili Tarihleri Alarm Sistemi scripti, Yazili Tarihleri Alarm Sistemi filmi, Yazili Tarihleri Alarm Sistemi ödevleri, Yazili Tarihleri Alarm Sistemi yemek tarifleri, Yazili Tarihleri Alarm Sistemi driverları, Yazili Tarihleri Alarm Sistemi smf, Yazili Tarihleri Alarm Sistemi gsm
Yanıtla #1
« : Mayıs 04, 2010, 06:33:09 ÖS »

Anqel*
*
Üye No : 21465
Nerden : Yurt Dışı
Cinsiyet : Bayan
Konu Sayısı : 5208
Mesaj Sayısı : 17 796
Karizma = 50130


Emeğine sağlık..

WebCanavari
Yanıtla #2
« : Mayıs 04, 2010, 06:35:07 ÖS »
Avatar Yok

sibeL*
*
Üye No : 36722
Nerden : Giresun
Cinsiyet : Bayan
Konu Sayısı : 42
Mesaj Sayısı : 1 124
Karizma = 1026


Teşekkürler Gülmek :)

Sadece susuyorum !!!
Sayfa 1
Yukarı Çık :)
Gitmek istediğiniz yer:  


Benzer Konular
Konu Başlığı Başlatan Yanıtlar Görüntü Son Mesaj
2008 Pc Oyun Çıkış Tarihleri!
Oyun Haberleri
By.CeZa 1 1095 Son Mesaj Mayıs 30, 2008, 04:35:19 ÖS
Gönderen : HuNTeR-DeViL
Doğum Tarihleri Ve Taşlar
Burçlar
imge34 0 707 Son Mesaj Ağustos 05, 2013, 04:24:06 ÖS
Gönderen : imge34


Theme: WeBCaNaVaRi 2011 Copyright 2011 Simple Machines SiteMap | Arsiv | Wap | imode | Konular