سؤالين بس في الفيجوال بيسيك ارجو المساعدة..!!

[ehab_sadek9]

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

السؤال الاول : كيف أجعل البرنامج ينطق بسم الله الرحمن الرحيم عند فتحه كل مرة ؟

السؤال الثانى : كيف أضع صورة متحركه على أحد الفريمات ؟

ارجو الأجابه بأي طريقه المهم أنى أفهم طريقة تنيفيذها .. ولكم جزيل الشكر

[@...Khalefa]

لتشغيل صوت عند بداية البرنامج

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Form_Load()

sndPlaySound App.Path & "\Sound.wav", 1

End Sub

لو عندك ملف صوت فيى " بسم الله الرحمن الرحيم " بامتداد Wav انسخة فى نفس مكان
البرنامج وخلى اسمة مثلا Sound.wav
وانسخ الكود في الفورم


ولوضع انيماشن هنااا (http://www.bramjnet.com/vb3/showpost.php?p=2147816&postcount=6)ا

[ehab_sadek9]

بارك الله فيك ومشكووور كل الشكر انا الان سوف احاول تجربتها وارجو ان تكون فى المساعدة ان احتجت بارك الله فيك مرة آخرى
شكرا

[ehab_sadek9]

أرجو المساعدة مش عارف أستخدم الكود

[@...Khalefa]

يا اخي الوظيفة الموجودة لازم تكون موجودة باعلى الصفحة ما يكونش قبلها حدث لاي اداة
فالترتيب هايبقى بالشكل دا
Declare Fuction........etc
Private Sub Command1_Click.....etc

[ehab_sadek9]

أخى الكريم اقدر تعبك معايه .. وآسف آسف آسف على ازعاجك ولكن هل لك ان تعملى مثال وتوضعه فى هذا الموضوع .. مع جزيل الشكر والعرفان
والسلام عليكم ورحمة الله وبركاته

[يوفي VIP]

المشكة انه ليس لدي فيجوال بيسك مثبت على الجهاز والاشرحتها لك بالصورة :( ..
لكن ان شاء الله يوضح لك شرحي بالكتابة :) ..
في البداية انسخ ( كامل ) الكود الذي وضعه لك الاستاذ خليفة ، بعد ذلك ( في صفحة كتابة الكود )
فيه في الاعلى قائمين ( حسب الصورة اللي ارسلتها انت ) اللي مكتوب فيهم COmmand2 و click .. ماشي ..
الان روح على القائمة اللي فيها Command2 وغيرها واختر منها General تلقاها أول وحدة ..
بعد ذلك الصق الكود :) ..
( على فكره لازم يكون لديك ملف صوتي مثل ما قالك الاخ خليفة امتداده .wav واسمه Sound وموجود بنفس المجلد اللي حفظت به البرنامج :) )


موفق يالغالي ..،،

[ehab_sadek9]

اخى الكريم يوفي Vip طبعا أقدر لك مشاركتك الجميله واحساس المساعدة الرائع عندك ولكن ايضا لم تنفع . وارجو المعزرة لقلة خبرتى فى البرنامج . شكرا اخى الحبيب

[@...Khalefa]

يا اخ ايهاب رسالة الخطأ بتقولك ان في خطأ في ترتيب الاوامر
والترتيب الصحيح لمثال شغلك
هو

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

sndPlaySound App.Path & "\Sound.wav", 1

End Sub

[ehab_sadek9]

ارجو المعزرة ... والمســــــــــــــــــــــــاعدة
وشكرا

[@...Khalefa]

اسف يا اخ ايهاب
حصل نسخ للكود بالخطا
اكتب كلمة Private قبل كلمة Declare في السطر الاول

[zakimoulayabdellah]

goood jooob friend khalefa

[@...Khalefa]

goood jooob friend khalefa

Thanx mr zakimoulay

[(li) صقر (li)]

كود لتشغيل ملف صوت في خلفية الفورم :


'اضافة الاداةMMControl
Option Explicit
Private Sub Form_Load()
Dim AppPath As String
'تعين الملف من داخل مجلد البرنامج
If Right$(App.Path, 1) <> "\" Then
AppPath = App.Path & "\Sound.wav"
Else
AppPath = App.Path & "Sound.wav"
End If

'تحديد نوعيه وسيط الملف
MMControl1.DeviceType = "waveaudio"

'في حال كان الملف من نوعن
'MID
'MMControl1.DeviceType = "Sequencer"

'تحديد اسم الملف
MMControl1.FileName = AppPath
'فتح الملف
MMControl1.Command = "open"
'تشغيل الملف
MMControl1.Command = "play"

End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)
'هذا الحدث عند انتهاء المقطع الصوتي
'اعادة المقطع الصوتي
MMControl1.Command = "prev"
'تشغيله مره اخرى
MMControl1.Command = "play"

End Sub


كيفية وضع فيديو على فريم :

انشأ في الفريم مربع صور
وهذا هو الكود



Private Sub Form_Load()
MMControl1.FileName = ("c:\FileName.dat")
MMControl1.Command = "open"
MMControl1.hWndDisplay = Picture1.hWnd
End Sub


تحريك صورة على الشاشة :



Private Declare Function BitBlt Lib "GDI32" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
Dim thetop As Long
Dim p1hgt As Long
Dim p1wid As Long
Dim theleft As Long

Sub centerIT(C As Control, Txt As String)
C.CurrentX = (C.ScaleWidth - C.TextWidth(Txt)) / 2
C.Print Txt
End Sub

Sub Form_Load()
P1.AutoRedraw = True
P1.Visible = False
P1.FontSize = 12
P1.ForeColor = &HFF0000
P1.BackColor = BackColor
P1.ScaleMode = 3
centerIT P1, "Xtreme Software"
centerIT P1, "<< Master Add-In 3.0 >>"
ScaleMode = 3
theleft = (ScaleWidth - P1.TextWidth("Scroll Test...")) / 2
thetop = ScaleHeight
p1hgt = P1.ScaleHeight
p1wid = P1.ScaleWidth
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
Sub Timer1_Timer()
X% = BitBlt(hDC, theleft, thetop, p1wid, p1hgt, P1.hDC, 0, 0, &HCC0020)
thetop = thetop - 1
If thetop < -p1hgt Then
Timer1.Enabled = False
Txt$ = "Finished With Scrolling"
CurrentY = ScaleHeight / 2
CurrentX = (ScaleWidth - TextWidth(Txt$)) / 2
Print Txt$
End If
End Sub





لو في مشاكل أرجو إخباري

[m_oodeh]

السلام عليكم
هذه اول مشاركه لي معكم وان شاء الله افيدكم
حل المشكله هذه بكلمتين وعلى مسؤليتي
1-انظر لصور
2- شرح عملي
وسلام ختام