Full Versiyonu Görmek İçin Tıklayınız ---> Yazili Tarihleri Alarm Sistemi

Yardım Arama Üye Listesi Msn Al

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...