السلام عليكم ورحمة الله وبركاته اريد ان اصنع برنامج يخرج رسالة في ايام معينة رسالة
واريد البرنامج يشتغل اذا عمل الجهاز
هذا ما أستطعت التوصل اليه اخي الفاضل
اذا لم تفهم الكود أخبرني
إقتباس :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
سيحدد text box اليوم الذي انت فيه الآن من الكاليندر ثم تقوم انت بتغييره و الضغط على start و التي تمثل Button5 في الكود
يبدأ التايمر و ما ان ينتهي حتى يشغل الملف الصوتي الذي حددته انت
هذه صورة للبرنامج
اسف ان لم يكن شرحي واضحا فهذا ما أستطعت