السلام عليكم اساتذي الافاضل ورحمة الله وبركاته
طلبي هو ادخال الاعدادات التي في الصورة المرفقة مع البرنامج من نافذة البرنامج وليس الدخول على كود الفيجوال بيسك والتضبيط من خلال الكود
اي يكون التضبيط لهذه الاعدادات من خلال نافذة البرنامج بحيث اختار ال بورت كوم وسرعة تدفق البيانات وبقية الاعدادات كما في الصورة المرفقة من نافذة البرنامج
مع وافر التحايا
عدل الكود هكذا ولو حصل اي مشكلة اثناء تشغيل البرنامج لاجعل الكود في Form_Activate
ولعملية التحديث اذا تغير البورت يمكن بعد تعديل رقم البورت ان تضع الكود في زر امر وتضغط عليه للتحديث وسف يعمل البرنامج باذن الله
هذا هو الكود
PHP كود :
Private Sub Form_Load() 'هكذا تربط بيانات البورت وغيرها من نافذة البرنامج ويمكنك حفظ البيانات في الرجيستري ايضا 'ضع عدد 2 تكست بكس واجعل اسمهما كما هو موضح MSComm1.CommPort = txtPort.Text MSComm1.Settings = txtSettings.Text MSComm1.PortOpen = True
Set db = OpenDatabase("compny.mdb") Set Rs = db.OpenRecordset("tbl1") Call ConncData FillCombo Combo2, "select S_Name from TbTest" End Sub
29-06-22, 08:37 PM (آخر تعديل لهذه المشاركة : 29-06-22, 08:48 PM {2} بواسطة وادي العوضي.)
الله يبارك فيك استاذ احمد جزاك الله خيرا سوف اقوم بالتجربة واخبرك النتيجة بفضل الله جل وعلا
تحياتي لشخصك الراقي
السلام عليكم استاذ احمد ورحمة الله وبركاته
لماذا تخرج لي هذه الرسائل الموضحة بالصور المرفقة كلما افتح البرنامج وتختفي اداة الاتصال MSComm1
بحيث كل ما اريد فتح البرنامج في اي حاسبة تخرج لي هذه الرسائل الموضحة بالصور المرفقة
مع وافر التحايا
هذه الصور :
وعليكم بالسلام
اخي هذه الصورة توضح انه فيه مشكلة في تحميل البرنامج
اذهب الى نسخة اخرى من البرنامج وافتح منها البرنامج وفي حالة استمرار المشكلة استمر في عمل نعم لجميع الرسائل لكن في النهاية لا تحفظ فقط اغلق البرنامج وقوم باعادة تشغيله ان شاء الله سوف تذهب هذه المشكلة
بالتوفيق
السلام عليكم استاذ احمد الغالي ممنون منك يا طيب
نعم تم حل المشكلة وذلك بأعادة تثبيت نسخة الفيجوال بيسك 6 واختيار كوستمايز والحمد لله مشت الامور جيدة
استاذي الفاضل هناك رسالة خاصة لحضرتك اذا امكن الاطلاع عليها اكون ممنون منك يا طيب
