مثالی برای کار با باسکولهای توزین الکتریک
سلام دوستان عزیز
با تشکر فراوان از آقای کیا که اطلاعات خوبشون رو در اختیار بقیه قرار دادن
من یک مثال آماده تست شده با باسکول شرکت توزین الکترونیک دارم که خودم نوشتم. اطلاعات دو باسکول را همزمان نشان می دهد.
با اجازه ی آقای کیا و بقیه دوستان
هر کسی سورس این برنامه را میخواهد پیغام بگذرارد تا برایش بفرستم
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
من می خوام بدونم عددی رو که می خونم باید چی کارش کنم؟
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
شما عدد نمیخونید ، یک رشته 5بایتی را میخونید که باید طبق اون دستور العمل به عدد تبدیلش کنید
//----------------------------------
ادیت شد :
به علت تجاری بودن سورس
اگه خواستين ميتونم انجين اون را با قفل سخت افزاري بهتون بدم ، هر نسخه 200تومن
انجين قابليت كار با تيك هاي شركتهاي مختلف توليد كننده مثل
DI-1000
CARDINAL
HB-8210
TEC (توزين الكترونيك )
schenck (ديزومات )
DEGHAT ( دقت )
و....
را داره
نصب به صورت Service
ارائه لحظه اي وزن در آدرس مشخصي در رجيستري
ارائه لحظه اي وزن در آدرس مشخصي در فايل متني.
امكان تنظيم اوليه براي كاركردن با هركدوم از دستگاههاي فوق فقط در يك فايل ini توسط برنامه نويس.
نرم افزار آماده هم البته اگه بخواهين در دو ورژن موجود هست
يكي نسخه مخصوص باسكولهاي عمومي ( قيمت 1 ميليون )
و يك نسخه مخصوص باسكولهاي خصوصي ( داخل شركت يا سازماني ، با رويه هاي خاص خودشون) البته اين دومي كار من نيست و ديگر دوستان نوشتن ( قيمت حدود 500 هزارتومن)
، جهت خرید انجين يا نسخه هاي آماده به صورت خصوصي در سايت باهام تماس بگيريد
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
سلام .
من هم از دلفی استفاده می نمایم .
می خواهم یک نرم افزار کوچک برای زدن فاکتور برای باسکول TEC1500 A شرکت توزین الکترونیک بنویسم .
از ComPort هم برای خواندن از پورت Com استفاده می کنم .
من پس از اتصال کابل باید چه کار کنم .
لطفاً تنظیمات پورت و ... را توضیح دهید .
من فقط می خواهم وزن را بخوانم !!!!
اگر از Componentَ یا ActiveX خاصی نیز استفاده می نمائید توضیح دهید ...
لطفاً راهنمایی بفرمائید .
متشکرم .
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
دوست عزيز "Mah" يا "joker" اگر در دلفي به نتيجه رسيديد به من هم كمك كنيد.متشكرم.
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
من هم در دلفي مي خواهم اين كار را انجام دهم
لطفا كمك كنيد.
متشكرم.
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
با سلام
من در حال حاضر از روی دفترچه راهنما باسکول TEC1500 A برای اتصال به کامپیوتر از روی پنل باسکول کلید file و بعد عدد 9 رو می زنم روی صفحه باسکول می نویسه conect pc برنامه رو هم با دلفی 7 و فایل comport.dll محصول شرکت winsoft نوشتم ولی به جای دریافت 5 بایت اطلاعات هیچ چیز دریافت نمی کنه ، تا همین جا کار کسی می تونه بگه مشکل از کجاست ؟ از نحوه ارتباط با باسکول هست یا نوع کامپوننتی که دارم استفاده می کنم ؟ ممنون می شوم دوستان کمک بفرمایند
با تشکر
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
سلام دوستان .
من از آقای JOKER خیلی ممنونم چون آن زمان خیلی به من کمک کرد .
دوست عزیز fsp-port من هم ابتدا از COMPORT استفاده می کردم ولی جواب نگرفتم برای همین از کمپوننت TCiaComPort استفاده نمودم .
روش اتصال :
من برای اتصال این کار را کردم .
ابتدا با یک کابل ریسیور باسکول را به پورت COM کامپیوتر وصل کردم . بعد بدون اینکه به پرینتر سوزنی یا پنل باسکول کاری داشته باشم . برنامه ام را اجرا کردم . جالبه که یکبار پرینتر را جدا کردیم و باسکول خراب شد و با تماس با شرکا سازنده گفتند نباد این کار را می کردید !!!!
خب برای خواندن پورت COM هم فکر کنم از کمپوننت TCiaComPort استفاده کردم .
تنظیمات :
BoundRate=9600
DataBits=8
Parity=Even
البته یک فرمول هم در همین پست بود که زمان خواندن پورت باید آن را روی داده های خوانده شده اعمال می کردیم تا عدد درست نمایش داده شود .
من با این روش در دلفی 7 جواب گرفتم .
این هم لینک دانلود TCIACOMPORT
خب من الان دیگه اون باسکول دم دستم نیست که بتونم برنامه ای را تست کنم .
امیدوارم تا اینجا تونسته باشم کمکی به شما بکنم .
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
واسه ترازو و باسکول های پند من برای خوندن وزن از این دستورات استفاده میکنم ، میذارم اینجا شاید بدرد کسی بخوره
اول برنامه ام ای دستور رو قرار میدم
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
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
نقل قول:
نوشته شده توسط
Mah
البته یک فرمول هم در همین پست بود که زمان خواندن پورت باید آن را روی داده های خوانده شده اعمال می کردیم تا عدد درست نمایش داده شود .
با سلام
از کمک به موقع شما دوست عزیز خیلی ، خیلی ممنونم و متشکرم . تا حدی کارم راه افتاد
ببخشید یک سوال دیگه این فرمولی که فرمودید بعد از خواندن اطلاعات بر روی داده اعمال بشه در حال حاضر که در این تاپیک موجود نیست می تونید راهنمایی بفرمایید از چه ماخذی در مورد این فرمول تبدیل اطلاعات کسب کنم ؟ یا بهتر بگم تحت چه عنوانی باید به دنبالش بگردم
با تشکر
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
سلام .
دوست عزیز fsp-port در اولین فرصت آن را در همین پست می گذارم .
البته اون فرمول را هم فکر کنم آقای JOKER نوشته بودند .
امیدوارم اجازه این کار را به من بدهند که فرمول ایشان را در اینجا قرار دهم .
موفق باشید .
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
سلام .
از آنجائيكه اين روال تحت حق كپي رايت قرار دارد و صاحب آن راضي نيست كدش در اينجا در دسترس همگان قرار گيرد كد را بر مي دارم .
موفق باشید .
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
با سلام
ضمن تشکر از پاسخ بسیار مفیدتان در مورد این سوال ، آیا بعد از دستور
CiaComPort1.open.true
(true شد) باید دستور خاص دیگری به باسکول ارسال شودتا باسکول پاسخ دهد (مقدار را برگرداند) ؟؟؟؟؟
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
سلام .
نه نیازی نیست . البته من الان سورس همراهم نیست که دقیق پاسخ بدم .
اما پس از باز کردن پورت کارهای شما در متد ذیل انجام می شود .
procedure TfFactor.CiaComPort1DataAvailable(Sender: TObject);
موفق باشید
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
با سلام
ببخشيد دوست عزيز منظور از TfFactor چيست ؟ چون برنامه فوق در اين قسمت TFFactor.read خطا ميدهد اگر سوال ابتدائي است ببخشيد من مدتها است با دلفي كار نكردم
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
نقل قول:
نوشته شده توسط
jafari1
با سلام
ببخشيد دوست عزيز منظور از TfFactor چيست ؟ چون برنامه فوق در اين قسمت TFFactor.read خطا ميدهد اگر سوال ابتدائي است ببخشيد من مدتها است با دلفي كار نكردم
سلام . دوست گرامي TFFactor نام فرم برنامه من است . متد Read هم يكي از روالهاي اين فرم است .
موفق باشيد .
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
نقل قول:
TFFactor نام فرم برنامه من است . متد Read هم يكي از روالهاي اين فرم است .
ضمن سلام و عرض تشكر از توجه جنابعالي
اگر زحمتي نيست مثال فوق را كه فرموديد بصورت كاملتر و قابل استفاده ارائه فرماييد
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
نقل قول:
اگر زحمتي نيست مثال فوق را كه فرموديد بصورت كاملتر و قابل استفاده ارائه فرماييد
ما زياران چشم ياري داشتيم
خود غلط بود آنچه ما پنداشتيم
:گریه:
نقل قول: مثالی برای کار با باسکولهای توزین الکتریک
با سلام به همه
:سي با ترازو پند كار كرده اين پشتيباني يكي 2400 كار مي كنه يكي ميگه 9600 معلوم نيست چي ميگن
اگر كسي كار كرده لطفا بار من يك كد نمونه يا الگوريتمش بزاره
ممنون