السلام عليكم ...
إخواني ، عندي برنامج محاسبة أريد أن أضيف له زر لاستدعاء الآلة الحاسبة ، وقد استطعت تنفيذ ذلك عن طريق توابع الـ API ولكن بقي لدي أمرين لم أستطيع تنفيذهما :
1. أريد كود يخبرني فيما إذا كانت الآلة الحاسبة قد تم استدعائها سابقاً وهي قيد الاستخدام.
2. أريد كود آخر يقوم بإسناد القيمة الموجودة في مربع نص الآلة إلى متغير معين لأقوم بالتعامل مع هذه القيمة ضمن البرنامج.
ولكم جزيل الشكر سلفاً
أما عن الكود الأول فأظني غير قادر علي افادتك
وأما عن الثاني فربما أستطيع
لو أن التكست اسمه text1
ستقوم بكتابة هذا الكود في Module
وتعرف المتغير علي أنه public
Dim A as string A=Val(text1.text)
وحين تريد استدعاء المتغير سيكون ذلك بسيطًا في اي اجراء حدثي
أتمني أن يكون الحل الذي قدمته مفيدًا وصحيحًا
جربه وأرجوا أن لا تغضب إن كان مخيبًا لامالك
تم تعديل هذه المشاركة بواسطة el3asher في 3 مارس 2005 في 14:37
مزعج ...
حتي إشعار آخر.
السلام عليكم ...
أنا أتحدث عن الآلة الحاسبة الموجودة في الويندوز ( أي أن الآلة ليست من تصميمي)
السلام عليكم ...
ما قصدته هو أنني أرغب باستدعاء الآلة الحاسبة الموجودة في الويندوز و من ثم فإنني أريد عمل زر ينقل ناتج العمليات التي أدخلتها في الآلة إلى متغير معين في برنامجي.
للتوضيح : أنا أعمل على ملف اكسل واستخدم لغة الفيجوال بيسك للتطبيقات VBA ، لقد وجدت الكود الذي يشغل الآلة الحاسبة ولكن عندي مشكلتين:
1. أنا لا أريد تشغيل أكثر من آلة حاسبة واحدة ، أي أريد كود يعلمني بوجود آلة حاسبة قد الاستخدام أم لا.
2. أريد كود يلصق محتويات الآلة (ناتج العمليات) في خلية معينة في الاكسل.
أتوقع أن المشكلتين السابقتين يمكن حلها بواسطة توابع الـ API ، ولكنني لا أملك مكتبة لشرح تعليمات الـ API وهذا فضلاً عن أنني لم أثبت الفيجوال بيسك 6 واقتصر في عملي على الفيجوال الموجود ضمن تطبيقات الأوفيس.
مرفق ملف يوضح المطلوب:
تحياتي...
اليك بهذا الكود لعد تشغيل البرنامج لاكثر من مرة وانا مجربة شخصيا الان
لكن لاطلب الثانى صعب لانى مبتدأ
يا رب يكون هذا هو المطلوب
If App.PrevInstance = True Then
MsgBox "لا يمكن تشغيل البرنامج اكثر من مرة"
Unload Me
Exit Sub
End If
هذا الموضوع مغلق.