ادخال الفلاش على الفجول بيسك

من طرف المارد الجبهاوي 7/7/2008, 21:41

درسنا لليوم هو درس كان عليه طلب كثير من الناس حتى انا
لكن بعد ما عرفت الطريقة ولله الحمد راح أشرح لكم

الفكرة هي أن الفجوال بيسك يشوف قيمة متغير معين في الفلاش وينفذ الأمر حسب القيمة
ونقدر نغير قيمة المتغير في الفلاش عن طريق الفجوال بيسك
نبدأ بالمقادير قصدي البرامج المطلوبة
برنامج فلاش أو سويتش
فجوال بيسك

نبدأ بتصميم الفلاش
انا راح أشرح بالسويتش لأنه هو البرنامج إلي أعرفله
والطريقة تصلح مع كل برامج الفلاش

أول شيء راح أشرح الفلاش بإختصار لأنكم كلكم عرفينه
نبدأ بصنع الأزرار
ثلاث أزرار مثلاً

والكود الرئيسي
وهو تعريف بقيمة متغير جديد
كود:
onFrame (1) {
comand = "no_info";
}
كود الزر الأول
كود:
on (press) {
comand = "cal";
}
كود الزر الثاني
كود:
on (press) {
comand = "end";
}
كود الزر الثالث
كود:
on (press) {
comand = "msg";
}

وإلي ما يعرف يلاقي الملف مرفق

ننتقل للفجوال بيسك وهو رأس الحية في الموضوع
وهذا راح أشرحه بالتفصيل
شغل الفجوال بيسك

طبق إلي في الصورة

راح يفتحلك الفورم
نحتاج نضيف آداة جديدة
وهي أداة مشغل الفلاش

طبق إلي بالصورة

أشر على الفلاش ويف وإضغط OK

طيب إلحين بعد ما حطينا الأداة في مربع الأدوات

نضيفها للفورم
ونغير الحجم والمكان حسب الرغبة

طيب إلحين ننتقل للبرمجة

نضغط دبل كليك على الفورم
ويطلع لنا الكود
لازم نخلي البرنامج يحمل ملف الفلاش إلي سويناه في مربع الفلاش في الفورم

هذا هو الكود
كود:
Private Sub Form_Load()
'هذا أمر تحديد ملف الفلاش وتحميله إلى الفورم
ShockwaveFlash1.Movie = App.Path & "/flash.swf"
End Sub
وبعدين نجرب
إضغط F5 عشان تختبر البرنامج

الحمد لله نجح الكود

إلحين نحط أداة مهمة جداً وهي Timer

ونحطها في الفورم
وما ننسى نعدل قيمة Interval إلى 10
كل ما قل العدد كانت الدقة أفضل
بعد ما نعدل نروح نضغط دبل كليك على التايمر عشان نبرمجه
هذا هو الكود
كود:
Private Sub Timer1_Timer()
Label1.Caption = "comand=" & ShockwaveFlash1.GetVariable("comand")
If ShockwaveFlash1.GetVariable("comand") = "msg" Then
ShockwaveFlash1.SetVariable ("comand"), "none"
MsgBox "لا إله إلا الله", vbDefaultButton1, "فلاشيات"
ElseIf ShockwaveFlash1.GetVariable("comand") = "cal" Then
ShockwaveFlash1.SetVariable ("comand"), "none"
Shell "calc"
ElseIf ShockwaveFlash1.GetVariable("comand") = "end" Then
ShockwaveFlash1.SetVariable ("comand"), "none"
End
End If
End Sub
راح أشرح الكود بالتفصيل لأنه هو أم ما في الموضوع
الشرط الأول
كود:
If ShockwaveFlash1.GetVariable("comand") = "msg" Then
إذا ضغطنا على الزر الأول راح يتغير قيمة المتغير comand إلى msg
كود:
ShockwaveFlash1.SetVariable ("comand"), "none"
إذا تحقق الشرط
يرجع قيمة المتغير لـ"none" عشان ما يكون فيه لخبطة أو تعليق
كود:
Shell "calc"
نجي للأمر المهم
إخترنا هذا الأمر عشانه سهل
وأموامر الفجوال بيسك كثيرة
لكن إخترت هذا الأمر عشان السرعة
هذا الأمر يشغل برنامج الآلة الحاسبة

والآوامر البقية نفس الشيء

من طرف ابو العبد 8/7/2008, 17:09

تشكر بس وين الصور التوضيحيه ورده

ادخال الفلاش على الفجول بيسك

ادخال الفلاش على الفجول بيسك

رد: ادخال الفلاش على الفجول بيسك