تبلیغات
تبلیغات متنی
رسانه حرف تو - مقایسه و اشتراک تجربه خرید
آموزشگاه آرایشگری مردانه شفیع رسالت
تاثیر رنگ لباس بر تعاملات انسانی
محبوبترینها
بررسی دلایل قانع کننده برای خرید صنایع دستی اصفهان
راه های جلوگیری از جریمه های قبض برق
آشنایی با سایت قو ایران بهترین سایت آگهی و تبلیغات در کشور
بهترین شرکت‌های مهندسی در آلمان
صفر تا صد حق بیمه 1403! فرمول محاسبه حق بیمه
نقش هدایای سازمانی در افزایش انگیزه و تعهد کارکنان
کلینیک پروتز و ساخت اندام مصنوعی دکتر اجرائی
چگونه می‌توانیم با ترانسفر وایز پول جابجا کنیم؟
بهترین مدل‌های [صندلی گیمینگ] براساس نقد و بررسی کاربران
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1805632656
يه كار جالب تو وي بي ..حرفه ايهاش بخونن -
واضح آرشیو وب فارسی:سایت ریسک: t=16580">يه كار جالب تو وي بي ..حرفه ايهاش بخونن Anti-Opensource 27 مرداد 1383, 07:12سلام....كسي ميتونه راهنمايي كنه چطور ميشه برنامه رو جوري تنظيم كرد كه وقتي لود بشه يه آهنگ توپ هم اجرا كنه؟ مديا پلير رو نميگم ...مثلا برنامه ي keygen كه عكس يه خانوم مياره بعد آهنگ ميزاره ... آقا من ميخوام آهنگمو تو برنامه جوري ذخيره كنم كه تو هر كامپيوتري رفت اجرا بشه ..ميشه؟ باتشكر...آنتي اوپن سورس amirhossein313 28 مرداد 1383, 16:16اي برنامه كمكت ميكنه : راستي چرا با سورس باز اينقدر لجي؟ Anti-Opensource 30 مرداد 1383, 03:17اينكه سورس بسته بود بابا..از اينا زياد دارم. سورس باز ميخواستم ببينم كدش چيه برا دومي بعدا بحث ميكنم ...تو قرار عمومي مشهد دليلشو گفتم Payam Moradi 30 مرداد 1383, 08:28اينكه سورس بسته بود بابا..از اينا زياد دارم. سورس باز ميخواستم ببينم كدش چيه از توابع API ويندوز استفاده كنيد. ولي فقط ميتونيد فايل هاي WAV رو اجرا كنيد. تو هر نوع ويندوز هم اجرا ميشه >>> Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long به جاي lpszSoundName مسير فايل واو يا متن فايل واو به صورت Unicode اگر خواسته باشي مثل keygen به صورت Embed باشه و به جاي Flag هم ميتوني از برنامه API Viewer در سري برنامه هاي Visual Studio براي SND موارد مورد نظر خودت رو پيدا كني. الان يادم نيست ولي اگه يادم اومد يا پيدا كردم تابع كامل رو برايتان مينوسم. :wink: Anti-Opensource 30 مرداد 1383, 12:37پيام كجاي مشهد ميشيني؟ راستي ممنون ولي بازم اين نبود عزيزم من ميخوام آهنگ رو 01 كنم .. Payam Moradi 31 مرداد 1383, 06:37««« ... من ميخوام آهنگ رو 01 كنم .. ... » 01 :?: منظورتان چيست :roll: Anti-Opensource 01 شهريور 1383, 06:07يعني باينري ديگه ..شبيه دي ال ال dll ببين ميخوام يه فايل exe بدم بيرون كه طرف رو يه دكمه كليك كنه بعد اون يه تيكه آهنگ بزاره ... مثلا موقع بالا اومدن نرم افزار كه فايل ها لود ميشن ميخوام آهنگ بزارم حوصله ي كاربر سر نره .. ميتوني كمك كني؟ Payam Moradi 01 شهريور 1383, 11:36يعني باينري ديگه ..شبيه دي ال ال dll ... »»» خوب همونه ديگه. شما ميخواي كه برنامه همزمان با اجرا شدن آهنگ هم بزنه. مثل كي ژن. اينو فهميدم. شما با Vb .NET يا VB 6.0 كار ميكنه فرقي نداره. اون تابع رو اين طوري بايد اجرا كني. حالا اين تابع ممكنه توسط يك فرمان كليد اجرا بشه و يا توسط خود برنامه به صورت خودكار فرقي نداره. 01 رو هم اينطوري كن : توي Resource فايل EXE كه ميخواي بدي بيرون آهنگ مورد نظر خودت رو قرار بده. با اين روش شما فقط يك فايل EXE داري كه آهنگ هم تو خودشه. بعد اين تابع رو هر جور دوست داري اجرا كن تا آهنگت بزنه : Dim WaveFilePath as String Dim SoundFlag as Long Const SND_ASYNC = &H1 Const SND_MEMORY = &H4 WaveFilePath = StrConv(LoadResData(ResID, ResType), vbUnicode( SoundFlag = SND_ASYNC + SND_MEMORY sndPlaySound WaveFilePath, SoundFlagالبته قبلا بايد اون تابع دكلار بالايي كه قبلا گفتم رو به ماژول اضافه كنيد. Anti-Opensource 02 شهريور 1383, 07:40از لطفت ممنون..اگه تونستي فايل پروژه شو زيپ كن بزار ببينم چه جوريه.. اگه تونستي ...بازم ممنون Payam Moradi 03 شهريور 1383, 07:25از لطفت ممنون..اگه تونستي فايل پروژه شو زيپ كن بزار ببينم چه جوريه.. اگه تونستي ...بازم ممنون بفرما 8) نتيجه اش رو بگوييد. دريافت فايل () Anti-Opensource 03 شهريور 1383, 09:11از لطفت ممنون دوست عزيز ولي فكر كنم فايل هاي شما ناقص بود..آخه error داد كه پيام جان فايل پروژه رو جا گذاشتن ..من كه نفهميدم معني چي بود ..هر كار كردم باز نشد .. ممنون ..با تشكر حامي مايكروسافت Payam Moradi 04 شهريور 1383, 07:14خيلي ببخشيد. مثل اينكه اشكال از فايل زيپ بود. من فايل رو درست ميكنم. ميتونيد از كده اي زير هم استفاده كنيد. يك پروژه جديد ايجاد كنيد و يك فرم و يك ماژول براش در نظر بگيريد. اين كدها را در فرم كپي كنيد. فرم بايد يك كليد به نام Command 1 و يكي به نام Command 2 داشته باشه : Option Explicit Private Sub Command 1_Click() PlaySound "SOUND", "S1" End Sub Private Sub Command 2_Click() PlaySound End Sub اين كدها رو هم در ماژول كپي كنيد : Option Explicit Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub PlaySound(Optional ByVal ResType As String, Optional ByVal ResID As String) Dim WaveFilePath As String Dim SoundFlag As Long Const SND_ASYNC = &H1 Const SND_MEMORY = &H4 Const SND_NODEFAULT = &H2 If ResType = "" And ResID = "" Then SoundFlag = SND_NODEFAULT GoTo NoSound End If WaveFilePath = StrConv(LoadResData(ResID, ResType), vbUnicode) SoundFlag = SND_ASYNC Or SND_MEMORY NoSound: sndPlaySound WaveFilePath, SoundFlag End Sub يك فايل ريسورس براي برنامه ايجاد كنيد و يك فايل WAV به دلخواه به صورت ذيل در آن قرار بديد : ResType: "SOUND" ResID: "S1" پروژه را كامل ذخيره(Save) كنيد. بعد پروژه رو اجرا كنيد. با فرمان كليد 1 فايل واو اجرا و با فرمان 2 قطع ميشود. به هر حال من فايل بالايي دوباره ارسال ميكنم. منتها اين دفعه با پسوند RAR موفق باشيد.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 292]
-
گوناگون
پربازدیدترینها