برنامج المنبه (alarmclock v.1.0) من تصميمي وبرمجتي مع الكود الخاص به

بسم الله والصلاة والسلام على رسول الله وعلى اله وصحبه ومن والاه

لقد قمت ببرمجة برنامج منبه(alarmclock v.1.0) : فقط تحدد الوقت بالساعات والدقائق وتختار درجة الأهمية والتي يوافقها شدة الصوت الذي سينبهك

وهذه هي صورة البرنامج :

حمل البرنامج من هنا :

Private Sub Combo1_Change()

	Timer1.Enabled = True

End Sub

Private Sub Combo1_Click()

	Timer1.Enabled = True

End Sub

Private Sub Combo3_Change()

	If IsNumeric(Combo1.Text) = False Then Timer1.Enabled = False

End Sub

Private Sub Combo3_click()

	If IsNumeric(Combo1.Text) = False Then Timer1.Enabled = False

End Sub

Private Sub Form_Load()

	wmp1.Close
	wmp2.Close
	wmp3.Close

	For n = 0 To 59
	  Combo2.AddItem n
	Next n

	For m = 1 To 12
	  Combo1.AddItem m
	Next m

End Sub



Private Sub mnuabout_Click()
	Form2.Show
End Sub

Private Sub mnuexit_Click()
	Dim a As String
	a = MsgBox("åá ÃäÊ ãÊÃßÏ ãä ÇáÎÑæÌ ãä ÇáÈÑäÇãÌ", vbYesNo + vbQuestion, "ÊÃßíÏ ÇáÎÑæÌ")
	If a = vbYes Then End
End Sub



Private Sub Timer1_Timer()

If Combo3.Text = "Õ" Then
	Text2.Text = Combo1.Text
	If Combo1.Text = "12" Then Text2.Text = "0"
End If

If Combo3.Text = "ã" Then
	Text2.Text = Combo1.Text + 12
	If Text2.Text = "24" Then Text2.Text = "12"
End If


	If Text2.Text = Hour(Now()) And Combo2.Text = Minute(Now()) And (Combo3.Text = "Õ" Or Combo3.Text = "ã") Then
	If Option1.Value = True Then
		wmp1.Controls.play
	End If
	End If

	If Text2.Text = Hour(Now()) And Combo2.Text = Minute(Now()) And (Combo3.Text = "Õ" Or Combo3.Text = "ã") Then
	If Option2.Value = True Then
		wmp2.Controls.play
	End If
	End If

	If Text2.Text = Hour(Now()) And Combo2.Text = Minute(Now()) And (Combo3.Text = "Õ" Or Combo3.Text = "ã") Then
	If Option3.Value = True Then
		wmp3.Controls.play
	End If
	End If

End Sub

وننتظر الردود ورأيكم بالبرنامج