22-09-17, 03:02 PM
(آخر تعديل لهذه المشاركة : 22-09-17, 03:44 PM {2} بواسطة Amir_Alzubidy.)
السلام عليكم عندي هذا البرنامج صممتة لكن ما اشتغل ارجو منكم معرفة الخطا اين فيه مع الشكر والتقدير
هذا كود البرنامج
علما انا وضعت الصوت ضمن ملفات البرنامج
Private Sub Command1_Click()
If Check1.Value = Checked Then
Text4.Text = "PM"
End If
If Check2.Value = Checked Then
Text4.Text = "AM"
End If
Text5.Text = Text1.Text + ":" + Text2.Text + ":" + Text3.Text + " " + Text4.Text
Timer2.Interval = 100
End Sub
Private Sub Timer2_Timer()
If Text5.Text = Label1.Caption Then
wmp.URL = "new.wav"
End If
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
هذا كود البرنامج
علما انا وضعت الصوت ضمن ملفات البرنامج
Private Sub Command1_Click()
If Check1.Value = Checked Then
Text4.Text = "PM"
End If
If Check2.Value = Checked Then
Text4.Text = "AM"
End If
Text5.Text = Text1.Text + ":" + Text2.Text + ":" + Text3.Text + " " + Text4.Text
Timer2.Interval = 100
End Sub
Private Sub Timer2_Timer()
If Text5.Text = Label1.Caption Then
wmp.URL = "new.wav"
End If
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
