إقتباس :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

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

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