فتى الفيجوال

أخي الكريم أسئلتك غريبة جداً وتبدو أقرب إلى نظام أسئلة Qbasic أو Pascal منها إلى نظام الفيجوال بيسك . عموماً عملت لك مثال على سؤالك الثالث ... ولا ادري هل هو ما تريد أم لا ... إذا كان هذا هو طلبك وهذه هي الطريقة المطلوبة فأخبرني لأكمل لك ، وإلا فحدد ما هو البر…

سوف أضيف لك الأمثلة ... ولكن ألا ترى أنها برامج بسيطة وتستحق منك محاولة التفكير فيها لمصلحتك أولاً . والله الموفق .

جرب هذه الآلة الحاسبة البسيطة . Calc.zip

أضف الأمر الذي تريده مقروناً برقم آسكي للزر الذي تريده في حدث From_Keyprees ، ولا تنسى أن تغير خاصية KeyPreviwe للفورم بحيث تصبح True . فمثلاً الأمر التالي يظهر رسالة إذا ضغطت على زر Enter = 13 : Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 …

ضع الملف الصوتي في مسار البرنامج وليكن باسم Sound1 ثم ضع الأوامر التالية في Genral : Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Const SND_SYNC = &H0 Const SND_ASYN…

اضف أداة Windows Media Player ، وقم بتحديد الملف المطلوب تشغيله من FileName وهناك العديد من الخصائص المساعدة واشهرها تلك التي تبدأ بـAuto والتي من ضمنها البداية التلقائية ، وتحجيم النافذة حسب حجم المقطع .... الخ . اضافة إلى التي تبدأ بـ Display وتضم خيارات تتع…

أخي الكريم عذراً سؤالك غير مفهوم ، والمثال الذي أرفقته لا يوضح شيء ... هل استطعت انشاء اللعبة ؟ إذا كنت قد قمت بانشاءها فيمكنك تلقي ضغطات المستخدم وفي حالة تطابقت ضغطات المستخدم مع سلسلة نصية معرفة لديك مسبقاً تقوم ( بوضع الحماية للاعب ) وإلا فإنه لا يحدث شيء …

سأبدأ بالسؤال الأخير وهو كيفية عمل البرنامج exe ... يمكنك ذلك من خلال قائمة File الخيار Make project exe احفظ الملف في المكان الذي تريده . ولكن لكي يعمل البرنامج على أي جهاز فستحتاج إلى استخدام أحد برامج عمل التنصيب وأسهلها هو البرنامج المرفق مع الفيجوال بيسك …

بسم الله الرحمن الرحيم . من قائمة Tools اختر Option ومن ثم اختر التبويب Editor Format ومن Font غير الخط إلى Courier New مثلاً أو أي خط يدعم اللغتين العربية والانجليزية . والله الموفق ...

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

اذهب إلى هذا الرابط . http://www.vb4arab.com/vb/showthread.php?s...&threadid=28790 والله الموفق ...

هذا المثال بعد عمل بعض التعديلات . 12345.zip

بسم الله الرحمن الرحيم . أخي الكريم ستجد جميع التعديلات التي اضفتها في البرنامج - حسبما فهمت - بالشكل التالي '========================================================= شرح العملية Form4.Show 1 '========================================================= الأشياء …

هذا هو المثال اسم_عشوائي.zip

سأحاول أن اضيف لك مثال قريباً إن شاء الله

بسم الله الرحمن الرحيم ... ليست هناك أي مشكلة ... قم بوضع رمز لكل اسم بالشكل وهذا يعتمد على طريقة ادخال الأسماء ... ثم قم باستخدام كود اختيار رقم عشوائي واظهر الاسم الذي له نفس الرقم ... Option Explicit Dim RanNo() As Long Dim i, j, tmp Private Sub RandomizeNu…

أما بالنسبة للسؤال الثاني فبعد تحويل البرنامج إلى نسخة exe عن طريق الخيار Make Project exe الموجود في File .... قم بتشغيل المعالج Package & Dyploment Wizerd الموجود عادة في نفس مسار الفيجوال بيسك . ومنه قم باختيار Package ... اتبع التعليمات التي يضعها لك المعا…

أخي لتتأكد من وجود File معين في أي مسار استخدم الأمر التالي If Dir("C:\Ahmed.txt") = "" Then Msgbox "There is no file" Else Msgbox "There is file" End if وتستطيع بعد ذلك حذف الملف المطلوب باستخدام الأمر Kill

شكراً جزيلاً لك .

بسم الله الرحمن الرحيم . ليس أمامك سوى رسم صورة Image أو Picture وتقوم باظهارها في المكان المطلوب عن طريق ضبط خاصيتي Top و Left . فلا يوجد في فيجوال بيسك مسج بوكس بهذا الشكل .