مثالی برای کار با باسکولهای توزین الکتریک

[alirezavafi]

سلام دوستان عزیز
با تشکر فراوان از آقای کیا که اطلاعات خوبشون رو در اختیار بقیه قرار دادن

من یک مثال آماده تست شده با باسکول شرکت توزین الکترونیک دارم که خودم نوشتم. اطلاعات دو باسکول را همزمان نشان می دهد.

با اجازه ی آقای کیا و بقیه دوستان
هر کسی سورس این برنامه را میخواهد پیغام بگذرارد تا برایش بفرستم

[rahro]

سلام
بدم نمیاد از تجربه دیگران استفاده کنم. اگر میشه برای من ارسال کنید.
متشکرم آدرس من rahro_ali@yahoo.com

[rezaTavak]

سلام

چطوری کار میکنه؟

یعنی با پورت به باسکول وصل میشه؟

[binyaz2003]

اگر ممکنه همینجا بزارید!

[alirezavafi]

دوستان عزیز
این برنامه با پورت سریال کار می کند com1 و com2
با توجه به اینکه دو باسکول دارای وزنهای قابل اندازه گیری متفاوت بوده اند یکی حدود 2000 تن و دیگری 20000 تن طریقه ی محاسبه ی اطلاعات آنها اندکی متفاوت است. com1 برای وزن کمتر بوده و com2 برای دستگاه دیگری.

من تا امشب سورس اون رو همینجا میگذارم.

[alirezavafi]

دویاره سلام

اینم سورس برنامه نمایشگر وزن باسکولها
اگه یه کمی طول کشید بخاطر این بود که این نمایشگرو از برنامه ای که نوشته بودم جدا کنم.
این فرم با ویژوال فاکس 9 ساخته شده ولی فکر نکنم با ورژنهای قبلی مشکلی داشته باشه.
در ضمن از mscomm32.ocx استفاده میکنه. از oncomm , event استفاده شده است.

اگه باهاش مشکلی داشتید پیغام بگذارید.

[ebiez]

با سلام یک قطعه کد می خوام که فقط وزن صحیح را در یک textbox نمایش دهد

[rezaTavak]

سلام

جالبه!

[kia1349]

جالبه.دست شما درد نکنه.ضمنا این برنامه خیلی بدرد آقای معمار میخوره که داشت روش کار میکرد

[rezamim]

متاسفانه نه . چون من بیشتر با باسکولهای مدلهای دیگه کار میکنم . و تونستم با کمک یکی از دوستان خارجی در universalthread اونرو درست کنم و خوشبختانه خیلی عالی جواب میده و جالب اینه که با بعضی باسکولهای ایرانی جواب نمیده که اینهم به این دلیله که نمیدونم چرا ایرانی ها خوششون نمیاد از استانداردهای جهانی استفاده کنند و بیشتر دنبال تکروی هستند. مثلا اکثر باسکولهای معتبر از تنظیم 9600,n,8,1 استفاده میکنند ولی ایرانی ها از تنظیمات دیگر. و باز هم جالب اینکه وقتی به بعضی از این شرکتها زنگ میزنم تا این تنظیمات رو بگیرم به بهانه های مختلف از جواب دادن فرار میکنند ، درتالیکه خارجیها به راتتی این تنظیمات را روی سایتهاشون گذاشتند.
از دوست عزیزمون جناب وافی سئوال دارم که آیا برنامه ای برای پیدا کردن این تنظیمات در دسترس ندارند؟
البته من خودم دو تا دارم که یکی تمام پورتها و تالتهای مختلف رو چک میکنه و اگر بتونه ورودی بگیره ، روی صفته نشون میده ولی گاهی اوقات هم جواب نمیده و یا شاید هم من بلد نیستم جواب بگیرم.
با تشکر از جناب کیا که هنوز به فکر بنده بودند

[alirezavafi]

دوست عزیز مطالبی که گذاشتید قابل مشاهده نبود که با تغییر encoding اینترنت اکسپلورر به Unicode(UTF-8) قابل مشاهده شد.
من برنامه ای بابت این کاری که شما گفتی ندارم ولی اگه پیدا کردم حتما بهتون خبر میدم.

ولی عملکرد من این بوده :
خود شرکت گفته بود که 5 بایت باسکول به کامپیوتر ارسال می کند. منم mscomm ورودیشو گذاشتم رو 5 بایت که 5 تا 5 تا بهم اطلاعاتو بده. در ضمن گفته بودن ورودی باید رو text و مشخصات کام 9600,e,n,2 باشه. برنامه به من 5 تا کاراکتر داد که کد اسکی و هگز اونارو بدست آوردم. طبق گفته شرکت وقتی وزن باسکول صفر بود می بایستی عدد هگز اولین کاراکتر 98 باشه در صورتی که با دو باسکول 99 بود و با یک باسکول 98 بود. طبق گفته شرکت 3 بیت آخر از بایت اول برای اعشاره ولی اینطور نبود. در ضمن بقیه بایت ها هم باید به ترتیب 21 ، 14 و 7 شیفت به چپ شوند و بایت آخری لازم نیست سپس با هم جمع شوند. دقت کنید 7 بیت چپ یعنی 2 به توان 7 و 14 بیت چپ یعنی 2 به توان 14 و ...

[joker]

این فرمت رسمی دستگاههای باسکول توزین الکتریک هست ( جالب اینکه سمپل خودشون اشتباهه :) )
مطمئنم از یه شرکت خارجی دودر کردن

اديت شد

TEC Standard Outdoor bytes (5 Bytes)

**************************************************  ****************

**************************************************  ****************



Outdoor Data Description



1) Cable Connections.

2) Terminal Program Test.

3) Serial Data Stream Description.

**************************************************  ****************



1)

Connect Serial data cable 

from Weighing Indicator (TEC1500 or TECxxx)

to computer's COM1 (or COM2) port.



if you are using RS232 communication protocol,

your cable connectors pin out is:



 for TEC Weighing Indicator                          for Computer



  DB9 Female connector                     DB9 Female connector 

          pins               cable                     pins

           2 -----------------------------------------  3

           3 -----------------------------------------  2

           5 -----------------------------------------  5





if your computer has DB25 male connector, use this pin out:



 for TEC Weighing Indicator                        for Computer



  DB9 Female connector                          DB25 male connector 

          pins                cable                    pins

           2 -----------------------------------------  2

           3 -----------------------------------------  3

           5 -----------------------------------------  7



if you are using RS485 protocol (for long distance up to 1200 meters)

the connections are:



 for TEC Weighing Indicator     for Interface Box(RS485 to RS232)      for Computer

        connector                        connector                  DB9 Female

connector 

          pins         cable                pins     pins     cable       pins

           1 -------------------------------  4 Box    2 ----------------  3

           2 -------------------------------  3 Box    3 ----------------  2

           3 -------------------------------  2 Box    5 ----------------  5

           4 -------------------------------  1 Box 

           5 -------------------------------  5 Box 

**************************************************  ****************



**************************************************  ****************



DecimalPoint=DP[2..0]=DP2DP1DP0;

نرم افزار کامل ساپورت انواع باسکولها با دستگاههای HB-8210 - DI-1000 - CARDIANL - TEC موجود هست با امکانات تحت شبکه و گزارشگیری و تصویربرداری و الی آخر....
اگه احیانا کسی کاری چیزی داشت در خدمتیم :)

[m.gholijafari]

آقای وفاییان
میشه در مورد اتصال به باسکول به من کمک کنید.
من فایل شما رو برداشتم ولی نمی تونم ازش استفاده کنم.
ممنون

[m.gholijafari]

کمک من می خوام به باسکول وصل بشم اما نمی شه برنامه با C#‎ می شه کمک کنید.

[joker]

کمک من می خوام به باسکول وصل بشم اما نمی شه برنامه با C#‎ می شه کمک کنید.

با چه مدل دستگاهی کار میکنی ؟
مشخصات اتصال به پورت را درست تنظیم کردی ؟
چطوری دیتا را میگیری ؟

پیوست : من C#‎ کار نکردم

[anouri]

سلام
من برای باسکول کفه ای پند برنامه نوشتم ولی برای توزین TEC 1600 مستندات فنی کسی داره؟
اگه مستندات فنی مربوط به بایتهای دریافتی رو بدونم بقیشو انجام میدم و نمونه برنامشم میذارم تا بقیه استفاده کنن.
ممنون میشم اگه کسی مستندات رو پیدا کنه و به اشتراک بذاره.

[rkrayaneh]

سلام
من یه برنامه برای باسکول 60 تنی میخوام منوراهنمایی کنید /چطور بسازمش

[491foxgod]

با سلام من با ویژوال فاکس 9 روی برنامه توزین کار میکنم فقط مشکلم خواندن وزن از دستگاه است لطفا راهنمایی فرمایید 091881110186
محمود فیروزفر dpcco@yahoo.com - foxgod@yahoo.com

[kia1349]

از آقای معمار همکار محترم همین فروم کمک بگیرید

[rezamim]

چشم جناب کیا
الان عجله دارم . جناب فیروز فر بفرمایید نوع باسکول چی هست

[H_vakilian]

خیلی ممنون میشم اگه برنامه باسکول برام میل کنید
hossein_vakilian@yahoo.com

[m.gholijafari]

سلام من یک برنامه برای باسکول با C#‎ نوشتم.
میشه به من بگید برای اتصال چی کار کنم؟
در ضمن با دو تا فایل موجود هم نمی دونم چه طور کار کنم/

سلام می شه توضیح بدین فایلها چطور کار میکنند؟
ممنون میشم

لطفا به من بگید این فایلها چطور کار می کنه.من یک برنامه با C#‎ دارم.
ممنون

[Mah]

سلام .
من هم از دلفی استفاده می نمایم .
می خواهم یک نرم افزار کوچک برای زدن فاکتور برای باسکول TEC1500 A شرکت توزین الکترونیک بنویسم .
از ComPort هم برای خواندن از پورت Com استفاده می کنم .
من پس از اتصال کابل باید چه کار کنم .
لطفاً تنظیمات پورت و ... را توضیح دهید .
من فقط می خواهم وزن را بخوانم !!!!

اگر از Componentَ یا ActiveX خاصی نیز استفاده می نمائید توضیح دهید ...

لطفاً راهنمایی بفرمائید .

متشکرم .

[aAbedi]

من هم در دلفي مي خواهم اين كار را انجام دهم
لطفا كمك كنيد.
متشكرم.

[fsp-port]

با سلام
من در حال حاضر از روی دفترچه راهنما باسکول TEC1500 A برای اتصال به کامپیوتر از روی پنل باسکول کلید file و بعد عدد 9 رو می زنم روی صفحه باسکول می نویسه conect pc برنامه رو هم با دلفی 7 و فایل comport.dll محصول شرکت winsoft نوشتم ولی به جای دریافت 5 بایت اطلاعات هیچ چیز دریافت نمی کنه ، تا همین جا کار کسی می تونه بگه مشکل از کجاست ؟ از نحوه ارتباط با باسکول هست یا نوع کامپوننتی که دارم استفاده می کنم ؟ ممنون می شوم دوستان کمک بفرمایند
با تشکر

[aAbedi]

دوست عزيز "Mah" يا "joker" اگر در دلفي به نتيجه رسيديد به من هم كمك كنيد.متشكرم.

[Mah]

سلام دوستان .
من از آقای JOKER خیلی ممنونم چون آن زمان خیلی به من کمک کرد .
دوست عزیز fsp-port من هم ابتدا از COMPORT استفاده می کردم ولی جواب نگرفتم برای همین از کمپوننت TCiaComPort استفاده نمودم .
روش اتصال :
من برای اتصال این کار را کردم .
ابتدا با یک کابل ریسیور باسکول را به پورت COM کامپیوتر وصل کردم . بعد بدون اینکه به پرینتر سوزنی یا پنل باسکول کاری داشته باشم . برنامه ام را اجرا کردم . جالبه که یکبار پرینتر را جدا کردیم و باسکول خراب شد و با تماس با شرکا سازنده گفتند نباد این کار را می کردید !!!!
خب برای خواندن پورت COM هم فکر کنم از کمپوننت TCiaComPort استفاده کردم .
تنظیمات :

BoundRate=9600

DataBits=8

Parity=Even

البته یک فرمول هم در همین پست بود که زمان خواندن پورت باید آن را روی داده های خوانده شده اعمال می کردیم تا عدد درست نمایش داده شود .

من با این روش در دلفی 7 جواب گرفتم .
این هم لینک دانلود TCIACOMPORT
خب من الان دیگه اون باسکول دم دستم نیست که بتونم برنامه ای را تست کنم .
امیدوارم تا اینجا تونسته باشم کمکی به شما بکنم .

[fsp-port]

البته یک فرمول هم در همین پست بود که زمان خواندن پورت باید آن را روی داده های خوانده شده اعمال می کردیم تا عدد درست نمایش داده شود .

با سلام
از کمک به موقع شما دوست عزیز خیلی ، خیلی ممنونم و متشکرم . تا حدی کارم راه افتاد
ببخشید یک سوال دیگه این فرمولی که فرمودید بعد از خواندن اطلاعات بر روی داده اعمال بشه در حال حاضر که در این تاپیک موجود نیست می تونید راهنمایی بفرمایید از چه ماخذی در مورد این فرمول تبدیل اطلاعات کسب کنم ؟ یا بهتر بگم تحت چه عنوانی باید به دنبالش بگردم
با تشکر

[anouri]

با سلام
توضیحات دوستان تا بخ اینجا خوب هستش.
مستندات فنی راجع به بایتهای دریافتی ندارید؟
اگه مستندات این قضیه باشه بقیش راحت درست میشه.
ممنون میشم

[rmk191]

سلام من اطلاعات بایتهای دریافتی رو دارم .

09133058640

[arashkhaan2002]

واسه ترازو و باسکول های پند من برای خوندن وزن از این دستورات استفاده میکنم ، میذارم اینجا شاید بدرد کسی بخوره

اول برنامه ام ای دستور رو قرار میدم

Run mode Com1:2400,N,8,1

سپس موقع خوندن وزن

WIGHT_TAR=Fopen('COM1',12)
If WIGHT_TAR#50 .And. WIGHT_TAR#-1
WIGHT_C=Fread(WIGHT_TAR,8)
Fclo(WIGHT_TAR)
Public a[3]
For i=1 To 3
a[i]=Asc(Subs(WIGHT_C,At('»',WIGHT_C)+i,1))
a[i]=dec2hex(a[i])
Endfor
result=a[1]+a[2]+a[3]
Release a
result=Val(result)/1000

اینهم procedure dec2hex که در دستورات بالا فراخونده میشه

FUNCTION dec2hex
PARAMETER DEC
IF FLOOR(DEC/16)=0 .AND. FLOOR(MOD(DEC, 16))>9
RETURN (ALLTRIM(STR(FLOOR(MOD(DEC, 16)), 2, 0)))
ELSE
RETURN (STR(FLOOR(DEC/16), 1, 0)+ALLTRIM(STR(FLOOR(MOD(DEC, 16)), 2, 0)))
ENDIF
ENDFUNC

[separod]

سلام
برای باسکول پند pu850 میخوام با ویژوال فاکس وزن رو بخونم چه کنم ؟
ممنون

[Mah]

سلام .
دوست عزیز fsp-port در اولین فرصت آن را در همین پست می گذارم .
البته اون فرمول را هم فکر کنم آقای JOKER نوشته بودند .
امیدوارم اجازه این کار را به من بدهند که فرمول ایشان را در اینجا قرار دهم .

موفق باشید .

[siavash_fe]

با سلام به همه
:سي با ترازو پند كار كرده اين پشتيباني يكي 2400 كار مي كنه يكي ميگه 9600 معلوم نيست چي ميگن
اگر كسي كار كرده لطفا بار من يك كد نمونه يا الگوريتمش بزاره
ممنون

[navidrajabi90]

با سلام
دوست گرامی شما برای کار با اندیکاتور پند می تونید از کامپوننت Comport یا از کامپوننت mscomm32.ocx استفاده کنید
و برای ارتباط با باسکول یک کابل rs232 بسازید
و پس ساخت کابل را خروجی rs232 اندیکاتور باسکول و به ورودی پورت سریال وصل نماید
و پس از انجام این کار از هایپر ترمینال برای ارتباط استفاده کنید
و تنظیمات

Com1:2400,N,8,1 می باشد دقت کنید که نام پورت را درست انتخاب نماید در بعضی سیستم ها می تواند com1 نباشد

برای ظهور مولایمان مهدی فاطمه دعا کنید
امیدوارم که تونسه باشه گوشه ای از مشکلات را حل کرده باشم
یا علی

[saeedreza20]

با سلام دوست عزیز شما چطور بحث هگزا دسیمال رو حل کردین و عدد را نمایش دادین به کمک mscomm32

[Mah]

سلام .

از آنجائيكه اين روال تحت حق كپي رايت قرار دارد و صاحب آن راضي نيست كدش در اينجا در دسترس همگان قرار گيرد كد را  بر مي دارم .

موفق باشید .

[delafarin]

با سلام
ضمن تشکر از پاسخ بسیار مفیدتان در مورد این سوال ، آیا بعد از دستور
CiaComPort1.open.true
(true شد) باید دستور خاص دیگری به باسکول ارسال شودتا باسکول پاسخ دهد (مقدار را برگرداند) ؟؟؟؟؟

[Mah]

سلام .
نه نیازی نیست . البته من الان سورس همراهم نیست که دقیق پاسخ بدم .
اما پس از باز کردن پورت کارهای شما در متد ذیل انجام می شود .

  procedure TfFactor.CiaComPort1DataAvailable(Sender: TObject);

موفق باشید

[jafari1]

با سلام
ببخشيد دوست عزيز منظور از TfFactor چيست ؟ چون برنامه فوق در اين قسمت TFFactor.read خطا ميدهد اگر سوال ابتدائي است ببخشيد من مدتها است با دلفي كار نكردم