[sadiq]

السلام عليكم ورحمة الله وبركاته اريد ان اصنع برنامج يخرج رسالة في ايام معينة رسالة
واريد البرنامج يشتغل اذا عمل الجهاز

[boty]

جاري البحث ............

[boty]

هذا ما أستطعت التوصل اليه اخي الفاضل

اذا لم تفهم الكود أخبرني

إقتباس :Public Class Form1
Dim Sound As New System.Media.SoundPlayer()
Dim obj As New DateTime()
Dim str As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
obj = MonthCalendar1.SelectionStart
str = obj.ToString()
TextBox1.Text = str
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Timer1.Start()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.Filter = "Wav|*.Wav"
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
TextBox2.Text = OpenFileDialog1.FileName
End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If str = TextBox1.Text Then
Sound.SoundLocation = TextBox1.Text
Sound.Load()
Sound.Play()
End If
End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Sound.Stop()
Timer1.Stop()

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
End Class

[boty]

سيحدد text box اليوم الذي انت فيه الآن من الكاليندر ثم تقوم انت بتغييره و الضغط على start و التي تمثل Button5 في الكود
يبدأ التايمر و ما ان ينتهي حتى يشغل الملف الصوتي الذي حددته انت
هذه صورة للبرنامج

[boty]

اسف ان لم يكن شرحي واضحا فهذا ما أستطعت

[3booody]

sadiq كتب :السلام عليكم ورحمة الله وبركاته اريد ان اصنع برنامج يخرج رسالة في ايام معينة رسالة
واريد البرنامج يشتغل اذا عمل الجهاز

اخي في الأول ارنا محاولاتك حتى نستطيع مساعدتك لان منتدانا تعليمي وليس لتصميم مشاريع للطلبات

[Ameer syria]

هذا منبه من برمجتي جرب التعديل عليه