ارسال فایل به پورت سریال

[teslanic]

با سلام به همگی
اول از همه اینو بگم که من در وی بی زیر مبتدی حساب میشم و به دلیل سربازی هم اکثر چیزایی که بلد بودم پاک شد!:گریه:

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

با سپاس

[ahadgd]

سلام
خوب اگه می خوای چیزی به پورت سریال ارسال کنی اول 6 Microsoft comm contorl رو به پروژه اضافه کن بعد از تنظیم باود و ... با کد MSComm1.Output = X اطلاعات رو به پورت سریال ارسال کن
قبل ارسال اول باید پورت رو با کد MSComm1.PortOpen = True باز کنی

[teslanic]

با تشکر از شما
من اینو چند وقت پیش استفاده کردم:

Dim tmp As Variant
Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
End Sub

Private Sub SEND_COMMAND_Click()
tmp = Ao_change

MSComm1.Output = Chr$(tmp)
End Sub


و اینم شکلشه:
http://www.pic.iran-forum.ir/images/eobry5lsakdyy3i3ha.jpg

حالا مشکل اینه که اینبار به جای عدد قراره یه فایل با حجم تقریبی 50000 بایت رو بفرستیم تا اونطرف با دستگاه بگیریمش. من میخوام برنامه طوری باشه که بتونم فایل رو از یه منوی open باز کنم و انتخابش کنم. بعد از اینکه کلید ارسال رو فشار دادم خودش فایل رو به صورت کامل برام رو دستگاه آپلود کنه. دستگاه رو طوری برنامش رو نوشتم که به ترتیب و بایت به بایت از سریال بگیره و روی مموری کارت ذخیره کنه.

ممنون میشم کسی راهنمایی کنه

[teslanic]

سلام
با تشکر
روی قضیه ارسال یه عدد و یا ... مشکلی نیست. من از این برنامه چند وقت پیش استفاده میکردم:
Dim tmp As Variant
Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
End Sub



Private Sub SEND_COMMAND_Click()
tmp = Ao_change

MSComm1.Output = Chr$(tmp)
End Sub

و اینم شکلش:
http://www.pic.iran-forum.ir/images/x9qph83vkbzcks35ekv4.jpg (http://www.pic.iran-forum.ir/)

الان مشکل اینه که من باید یه فایل رو به صورت کامل از اول تا آخر برای دستگاهم بفرستم و اونم اونو تحویل بگیره و در یه مموری کارت ذخیره کنه. برنامه اونطرف رو نوشتم و درست کار میکنه. اما چون در vb زیاد تجربه ندارم برای همین به مشکل برخوردم. من میخوام داخل برنامه ای که برای ویندوز کار میکنه قابلیت اینو داشته باشم که فایلم رو مثلا با یه گزینه شبیه اوپن کردن در نرم افزارها ئ گردش در درایو ها انتخاب کنم و به پورت سریال بفرستم.

نمیدونم منظورمو درست بیان کردم یا نه.

با سپاس