منتدى جزيرة الرياضيات

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   جزيرة برنامج الفجوال بيسك (http://www.hesab.net/vb/forumdisplay.php?f=50)
-   -   سؤال و رد في timer (http://www.hesab.net/vb/showthread.php?t=3286)

الاستاذ خليل 11-04-2007 10:03 PM

سؤال و رد في timer
 
1 مرفق
اقتباس:

السلام عليكم
مشكور اخوي وايد على دروسك القيمة وياريت تساعدني انا عندي مشكلة
انا درست فيجوال بس تبخر من زمان ماسويت برنامج المهم
انا شفت دروسك ( بوربوينت + فيجوال)
وعجبني الموضوع وااااااايد
المهم
انا ابي اسوي بوربوينت لما اضغط على الزر يطلع في تكست بوكس الارقام بشكل عشواي وتتحرك بسرعه مثل الثواني
وكتبت هذا الكود
Private Sub CommandButton1_Click()
x = Int(Rnd * 100)
TextBox1 = x
End Sub
-----------------------------
rnd
هذا يعطينا قيمة عشوائية من 1 الى 100
بس المشكلة ان لما اضغط على الزر يعطيني القيمه مباشر صحيح عشوائية وبين 1 و ال 100
لكن انا ابي تطلع ارقام عشوائية ورا بعض بسرعه يعني مثل لما يسحبون على ارقام الجواز في التلفزيون
المهم فكرت انا في التايمر
واحط فيه هذا الكود واضبطه على ثانية مثلا
لكن دورت التايمر في البوربوينت مو موجود
جربت ادور عليه في تخصيص بس ماحصلته
ممكن تساعدني؟؟
اسوي البرنامج بالفيجوال ؟؟شرايك
بس مشكلتي ماعندي فيجوال بيسك
وبما انك قاعد تشرح دروس فيجوال ياريت تحط لنا برنامج الفيجوال للتحميل
ارجوا المساعدة في اقرب وقت
مع جزيييل الشكر
لقد ارفقت لك المشروع بالباور بوينت

و وصلة تحميل الفجوال بحثت و وجدت روابط مباشرة من ميكروسوفت
فيجوال بيسك 6

Visual Basic 6.0

للتحميل

http://msdn2.microsoft.com/en-us/vstudio/aa718364.aspx

لتحميل نسخة فيجوال بيسك فقط
http://www.microsoft.com/downloads/d...displaylang=en

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

الذي يحوي كلا من:
Visual Basic 6.0, Visual C++ 6.0


الاستاذ خليل

a.al 11-15-2007 11:07 PM

مشكوووووووووووووور على الرد وعلى البرنامج
لكن اخوي البرنامج مايشتغل عندي
وفي بعض الكودات مافهمتها

الاستاذ خليل 11-16-2007 12:40 AM

نزل الكود هنا الذي لم تفهمه و سأقوم بشرحه بعون الله

ايضا لم يعمل لديك فاحتمال لم تضع مستوى الامان متوسط راجع الدروس الاولى فيها الشرح لكيفية عمل ذلك

a.al 11-16-2007 11:41 AM

الدروس الأولى في اي منتدى؟؟

الاستاذ خليل 11-16-2007 07:32 PM

هنا الدروس


الاستاذ خليل

a.al 11-16-2007 09:55 PM

:rolleyes:

دروسك رائعة جداااااااااا بس للاسف انا الحين ماعندي وقت ( تعرف الدوام والحياه الصعبه) في الاجازه انشاء الله اطبقها وارسل لك كل تطبيقاتي
مو بس كلام لا جد وراح تشوف
وانا كلي حماس

فياريت تساعدني .......... بسطها شوي...........:00911:
انت شتقصد بـ
مستوى الامان متوسط ؟؟؟

الاستاذ خليل 11-16-2007 11:35 PM

يعني تروح على الباوربوينت

من قائمة ادوات
تختار خيارات

ثم تختار الأمان

ثم تضغط على أمان الميكرو

ثم تختار متوسط

ثم اضغط على موافق

a.al 11-17-2007 08:49 AM

راااااااائع
اشتغل عندي
مشكووووور وايد وايد وايد


واذا كنت ابي الارقام اسرع؟
انا غيرت الرقم في الكود وسويته
Do While Timer < Start + 0.001
وسويته 0.00000000001
بس ما صار بالسرعة اللي انا ابيها
شسوي؟:5GL_016:

الاستاذ خليل 11-17-2007 10:14 AM

لا تعمله سريع واجد هو لن يقدر ينفذها لو في الفجوال بيسك كان عملها اعملها نص ثانية ربع ثانية 0.5 - 0.25

a.al 11-19-2007 02:41 PM

اها اشوف ماصار
يعني اسويه في الفيجوال احسن

a.al 11-19-2007 02:42 PM

شــــــــــــــــــــــــــــــــــــــــــــ ــكرا جزيلا

الاستاذ خليل 11-19-2007 06:56 PM

نعم بالفجوال احسن

علي العبسي 11-19-2007 07:45 PM

السلام عليكم ممكن احين اي مشروع عن مادة الاحياء او الكيمياء لصف الحادي عشر


الساعة الآن 10:23 AM

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir