قراءة الأكسيس من Serial com جهاز ميزان شاحنات

[faraim]

الزملاء الأعزاء

نرجو منكم المساعدة في كود لقراءة القراءات المربوطة بجهاز ميزان للشاحنات عن طريق سيريال كوم serial com port واستخدام القراءة في تموذج .

ولكم أطيب تحياتنا

[Abdulkader 7]

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

[Abdulkader 7]

-

Test.rar

تم تعديل مايو 31, 2012 بواسطه syria

[Abdulkader 7]

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

Comm232Ocx.CommPort = SerialPort

If Err Then

If Comm232Ocx.CommEvent = comPortInvalid Then

dummy = MsgBox("Invalid port, try another port!", vbOKOnly, "Invalid Port")

Exit Sub

ElseIf Comm232Ocx.CommEvent = comPortAlreadyOpen Then

dummy = MsgBox("Port already in use by another device! ", vbOKOnly, "Port Already Open")

Exit Sub

End If

End If

Comm232Ocx.Settings = "9600,N,8,1"

On Error Resume Next

Comm232Ocx.PortOpen = True

If Err Then

dummy = MsgBox("Invalid port selection!", vbOKOnly, "Invalid Port")

Exit Sub

End If

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''

Comm232Ocx.InBufferCount = 0 'clear out rs232 input buffer

'send out first command for data aquisition

If AdcCal = True Then

Tx = "!0RA" + Chr(11) 'read channel 12 for ref -ve

Else: Tx = "!0RA" + Chr(0) 'else read channel 0

End If

Comm232Ocx.Output = Tx

[faraim]

مشكور يأخي على ردك جاري تجربة الكود وسوف أوافيك بالنتائج.

[elsedik]

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

ارجو الرد

[Abdulkader 7]

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

http://www.officena.net/ib/index.php?showtopic=42101&hl=&fromsearch=1

[elsedik]

جزاك الله كل خير

على المجهود الرائع

ومنتظر طريقة ربط الاكسل بالسيريال كوم محتاجة ضرورى جدا