[best_programer]

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

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

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

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

[فهد المنصور]

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

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



:can:

[best_programer]

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

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

[رؤى]

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

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

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

[asmaaali]

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

[best_programer]

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

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

[لؤي حمادي]

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

[best_programer]

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

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

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

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

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