خواندن وزن ترازوی پند از طریق پورت RS232 در برنامه ACCESS

[ahmad razi]

سلام
من برنامه ای در محیط ACCESS نوشته ام حال احتیاج دارم وزن را از طریق پورت RS232 بخوانم اگر میتوانید مرا راهنمایی کنید.
با تشکر احمد راضی تلفن 09125268767

[dastgerdi]

سلام

برای ارتباط با پورت RS232 در Access، شما میتوانید از کتابخانه MSComm استفاده کنید. این کتابخانه حاوی کلاسی به نام MSComm که از طریق آن میتوان درگاه سریال RS232 را کنترل کرد.

قبل از هر چیز، باید اطمینان حاصل کنید که این کتابخانه در دستگاه شما نصب شده باشد. برای نصب این کتابخانه، مراحل زیر را دنبال کنید:

1. Tools -> References
2. وقتی یک کادر دیالوگ باز میشود، دنبال "Microsoft Comm Control" در لیست موارد را بگردانید.
3. کنترل را انتخاب و دکمه OK کلیک کنید.

وقتی به ارتباط با پورت RS232 نیاز دارید، کد زیر را در حداقل ماژول استناد Access خود اضافه کنید:

Dim WithEvents COMPort As MSComm

Sub OpenCommPort()
Set COMPort = New MSComm
With COMPort
.CommPort = 1 ' شماره پورت RS232 (میتوانید آن را تغییر دهید)
.Settings = "9600,N,8,1" ' تنظیمات پورت
.InputMode = comInputModeText
.PortOpen = True
End With
End Sub

Sub CloseCommPort()
If Not COMPort Is Nothing Then
COMPort.PortOpen = False
Set COMPort = Nothing
End If
End Sub

Private Sub COMPort_OnComm()
Dim receivedData As String
receivedData = COMPort.Input
' داده های دریافتی را در اینجا پردازش کنید
End Sub


در این کد، تابع OpenCommPort برای باز کردن پورت سریال RS232 استفاده میشود. شماره پورت RS232 را در خط .CommPort میتوانید تغییر دهید و همچنین تنظیمات پورت را در خط .Settings تغییر دهید. با فراخوانی تابع OpenCommPort، پورت سریال با تنظیمات مشخص شده باز میشود.

تابع CloseCommPort برای بستن پورت سریال مورد استفاده قرار میگیرد.

در نهایت، رویداد OnComm کلاس COMPort برای دریافت داده های دریافتی از پورت استفاده میشود. متغیر receivedData مقداری از داده های دریافتی را نگهداری میکند و میتوانید آن را برای پردازش بیشتر در قسمت کد مورد نیاز خود استفاده کنید.

توجه داشته باشید که باید تنطیمات پورت RS232 را با تنظیمات واقعی سخت افزاری برنامه شما هماهنگ کنید و همچنین مطمئن شوید که پورت RS232 در دستگاه شما وجود دارد.