المساعدة في ثبوت رقم منقول بواسطة الاداة ال MSComm عن طريق كيبل RS232

[حربي العنزي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته 

طلبي مشروح بالتفصيل داخل النموذج الرئيسي 

مع وافر التحايا

comPort2.mdb

[حربي العنزي]

للرفع

[ابو ياسين المشولي]

6 ساعات مضت, حربي العنزي said:

للرفع

اجعل Label5 مربع نص

ثم جرب هذا الكود

If Me.Label5 > 0 Then
MSComm1.PortOpen = False
Else
MSComm1.PortOpen = True

End If

 

[حربي العنزي]

استاذي الفاضل ابو ياسين شكرا جزيلا لمساعدتك لي 

ان شاء الله اجرب البرنامج واعطيك النتيجة جزاك الله خيرا يا طيب 

[حربي العنزي]

اساتذتي الافاضل ربي يحفظكم يارب 

هذه صورة النتائج للكواد التي كتبتوها 

 

وهذه صور للنتائج للكود القديم الذي ارسلته لكم مع جزيل الشكر 

المشكلة فقط يظهر صفر زائد مرة ومرة يختفي يعني مرة يكون الرقم مضبوط وبعد ثانيتين يرجع صفر زائد كما في الصور المرفقة 

هذه الصورة الاولى الرقم صحيح 100 % 

وهذه الصورة الثانية هناك صفر زائد 

[ابو ياسين المشولي]

13 دقائق مضت, حربي العنزي said:

اساتذتي الافاضل ربي يحفظكم يارب 

هذه صورة النتائج للكواد التي كتبتوها 

 

وهذه صور للنتائج للكود القديم الذي ارسلته لكم مع جزيل الشكر 

المشكلة فقط يظهر صفر زائد مرة ومرة يختفي يعني مرة يكون الرقم مضبوط وبعد ثانيتين يرجع صفر زائد كما في الصور المرفقة 

هذه الصورة الاولى الرقم صحيح 100 % 

وهذه الصورة الثانية هناك صفر زائد 

هل الرقم المفترض لا يزيد عن 4 ارقام

اذا كان كذلك فالامر سهل

[حربي العنزي]

استاذي الفاضل ابو ياسين بارك الله فيك 

حسب وزن الشاحنة في بعض الاحيان يصل وزن الشاحنة الى 15900 او اكثر ويصل الى 130500 

يعني تصل الى ستة مراتب 

 

[ابو ياسين المشولي]

اخي حربي العنزي

جرب انت عمل حقل غير منظم

وبعدها اعمل هذا الكود ان شاء الله يفي بالغرض

Me.مكان الرقم.SetFocus
DoCmd.RunCommand acCmdCopy
Me.مكان التثبيت.SetFocus
DoCmd.RunCommand acCmdPaste

 

[حربي العنزي]

استاذي الفاضل ابو ياسين بارك الله فيك وجزاك الله خيرا

هل بالامكان عمل التعديل الذي تفضلت به واكون ممنون منك لاني ما اعرف اين اضع هذا الكود 

شاكرا تعاونك معي

 

[ابو ياسين المشولي]

نفترض الرقم طلع في تكست2

عند ضغط تثبيت يصير الرقم ثابت في تكست1

Prog125.rar

[حربي العنزي]

استاذي الفاضل ابو ياسين بارك الله فيك وجزاك الله خيرا

عندما يكون الوزن مثلا 90 يظهر 9000 او مثلا 60 يظهر 6000 او مثلا 10 يظهر 100 وزر امر التثبيت ينقله نفسه وهذا غير صحيح اي ينقل الرقم ابو الثلاث خانات او ابو الخانتين 

لكن عندما يظهر 15000 يثبت 1500 او مثلا 245000 يثبت 24500 وهذا صحيح زر امر التثبيت اشتغل بصورة جيدة الا في حالة الوزن مكون من خانتين او ثلاثة خانات لايعمل يشكل صحيح 

مع وافر التحايا 

 

[ابو ياسين المشولي]

شوف تنسيق الحقول

اجعلها رقم عام

تم تعديل يناير 27, 2019 بواسطه ابو ياسين المشولي

[حربي العنزي]

استاذي الفاضل ابو ياسين بارك الله فيك وجزاك الله خيرا

لم تنجح المحاولة وشكرا جزيلا لتعاونك معي ربي يحفظك يارب 

مع وافر التحايا 

 

[jjafferr]

وعليكم السلام ورحمة الله وبركاته 🙂

 

في ٢٦‏/١‏/٢٠١٩ at 01:21, حربي العنزي said:

طلبي مشروح بالتفصيل داخل النموذج الرئيسي

معظم الاعضاء يقرأون السؤال، وعلى اثره يرون مقدرتهم على الاجابة على السؤال،

اما اذا يتطلب الموضوع ان انزل المرفق لأعرف السؤال، فـ 99.9% من الوقت ، انا لا انزل المرفق، وانتقل للموضوع التالي 

 

والآن نرجع الى سؤالك:

بما انه لا يمكننا التأكد من نتائج برنامجك ، لأنه مربوط بميزان ، لذلك من الصعب الاجابة على السؤال !!

لذلك، فالنجعل البرنامج يخبرنا بما يراه، وعليه نرى الطريقة الاصح لضبط الجواب 🙂

 

استعمل هذا الكود بدل الكود الذي ارفقته (هو نفس كودك، ولكن بتنسيق، وبه اوامر طباعة النتائج الى ملف MSComm_Listening.txt في نفس مجلد برنامجك) :

Private Sub MSComm1_OnComm()
On Error Resume Next

    Dim c As Variant
    Dim n As Integer
    
Dim File_Path As String
File_Path = Application.CurrentProject.Path & "\MSComm_Listening.txt"
Open File_Path For Output As #1
        
    If MSComm1.CommEvent = comEvReceive Then
        
        If comEvEOF Then
            MSComm1.InputLen = 1

            Do While MSComm1.Input = "0"
                MSComm1.InputLen = 8
                c = MSComm1.Input
                c1 = ""
Print #1, "Do c=" & c & vbTab & "len(c)=" & Len(c)
Print #1,
        
                For i = 1 To Len(c)
                    cut = Mid(c, i, 1)
Print #1, "For cut=" & cut
        
                    If (IsNumeric(cut)) Or (cut = ".") Then
Print #1, "Old c1=" & c1
                        c1 = c1 & cut
Print #1, "New c1=" & c1
                        
                    End If
                Next i
Print #1,
        
                Label5.Caption = Val(c1)
Print #1, "Val(c1) =" & Val(c1)
       
            Loop
        End If  'comEvEOF
        
    End If  'MSComm1
    
    MSComm1.InBufferCount = 0

Close #1


End Sub

.

ثم قم بعمل الوزن بالطريقة الطبيعية ، ثم ارفق لنا ملف MSComm_Listening.txt ، واخبرنا كم يجب ان تكون النتيجة الصحيحة 🙂

 

جعفر

[حربي العنزي]

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

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

مع وافر التحايا 

 

[jjafferr]

وعليكم السلام 🙂

 

كان المفروض انك تعمل نسخ من مشاركتي السابقة ، ولصق في الكود بدلا عن الكود السابق الموجود في نموذجك ، ولكنك اخذت من هذا شوي ومن هذا شوي

 

جعفر

[حربي العنزي]

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

قمت نسخ الكود الذي عملته حضرتك لي وهذا هو البرنامج في المرفقات

مع وافر التحايا 

 

comPort10.rar

[حربي العنزي]

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

جربت نفس البرنامج الذي ارفقته لك في المشاركة الاخيرة اعطاني نفس الرسالة التي ارفقتها سابقا 

مع جزيل الشكر والاحترام لك استاذي الفاضل 

[jjafferr]

سيدي الفاضل 🙂

الخطأ اللي حصلت عليه كان بسبب انك كررت السطر اللي بالسهم الاحمر في الصورة التالية (انزلت الصورة اللي ارفقتها في مشاركتك السابقة، وعملت عليها السهمين) :

.

اما آخر ملف ارفقته انت ، فالكود موجود فيه بطريقة صحيحة ، والمفروض ما يعطيك نفس الخطأ !!

اما اذا اعطاك خطأ آخر ، فرجاء ارفاقه.

 

جعفر

[حربي العنزي]

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

سوف اجرب البرنامج مرة ثانية وسوف ارفق لك مايحث معي 

ممنون منك  استاذي الفاضل الله لايحرمنا من شخصك الكريم يارب 

[حربي العنزي]

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

جربت البرنامج وهو يعمل ولكن هناك صفر يظهر ويزول كما في الصور المرفقة  

الصورة الاولى هي الرقم الصحيح ( الوزن هو :  13780)

الصورة الثانية الرقم ناقص صفر   ( الوزن هو  : 1378 )

مع وارف التحايا

وهذا ملف ال Text ولكنه فارغ

MSComm_Listening.rar

[jjafferr]

13 ساعات مضت, jjafferr said:

ثم قم بعمل الوزن بالطريقة الطبيعية ، ثم ارفق لنا ملف MSComm_Listening.txt ، واخبرنا كم يجب ان تكون النتيجة الصحيحة 🙂

 

في انتظار ان ترفق لنا هذا الملف ، والموجود في نفس مجلد البرنامج

[حربي العنزي]

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

ارفقته لك استاذي الفاضل ضغطته وارفقته 

مع وافر التحايا

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

هذا هو مرة ثانية 

مع وافر التحايا

MSComm_Listening.rar

[jjafferr]

الملف فارغ !!

رجاء قم بالعمل مرة ثانية ، كالتالي:

اغلق البرنامج ،

افتح البرنامج ، اقتح النموذج ، قم بوزن الشاحنه ، ثم اغلق البرنامج ، ثم ارفق ملف txt مرة ثانية

[حربي العنزي]

استاذي الفاضل جعفر بارك الله فيك وجزاك الله خيرا

هذا هو الملف وفيه البيانات 

مع وافر التحايا

MSComm_Listening.rar