السلام عليكم ورحمة الله وبركاته

أول اشي كل عام وانتم بخير بمناسبة شهر رمضان الكريم وان شاء الله يكون خير علينا

أنا جاي أساعدكم بأي استفسار بتعلق بالبرمجة بالفيجوال بيسك ودايركتس 7

ان شاء الله أفيدك

السلام عليكم .. وكل عام وأنت بخير ..

وأهلا وسهلا بك معنا في القرية الالكترونية ..



:can:

هذا الكود يساعدك في عمل صوت من داخل الحاسوب نفسو خذو وجربو واستدعيلنا :-

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Activate()

Dim Cnt As Long
For Cnt = 0 To 5000 Step 10
'play a tone of 'Cnt' hertz, for 50 milliseconds
Beep Cnt, 50
Me.Caption = Cnt
DoEvents
Next Cnt
End Sub

عرض سخي من اخ كريم ..
ارجو ان يستفيد منه الجميع ..

والى ان تأتي الاسئلة تترا .. نتمنى من الاخ الفاضل عرض بعض الامثلة المفيدة والتي ربما تغري البعض بتجربة هذه اللغة القوية ..

اكرر لك شكري مرة اخرى ..

شكرا لك اخ best_programerوليتك تواصل وضع الامثلة

شباب أنا زعلان ولا واحد فيكو بدو يسأل سؤال

اللهم اني صائم

السلام عليكم
اسألك اخي احمد ان تعطيني كود منبه استطيع ان اعيره ان يخرج لي صوت كل 10 دقائق
ان كنت تعرف مثل هذا الكود فجزاك الله كل خير (امل ان يكون الصوت تذكرة بالله )
والسلام عليكم

السلام عليكم ورحمة الله وبركاته والصلاة والسلام على سيد الخلق سيدنا محمد صلى الله عليه وسلم

بسم الله الرحمن الرحيم :-

شكرا لك أخي لؤي على سؤال إياني سؤال

أما الجواب
فهو ::------

Dim x As Date



Private Sub Form_Load()
x = Time
x = x + "00:00:10" 'هذا الأمر هو التوقيت حيث يمكنك عمل البرنامج كل عشر تواني أو كل ساعة وذلك بتغيرك ل00:00:00
Form1.Hide
End Sub

Private Sub Timer1_Timer()
If Time - x = 0 Then
MsgBox "أذكر الله "
' هنا يمكنك إضافة أي أمر تريد إذا كنت تريد أمر لتشغيل صوت فسأكتب لك ولكن الوقت لم يسمح لي بالكتابة وسأكتب لك لاحقا لكن المهم انها تذكر بالله
End If
End Sub