در خواست کمک درباره VB و serial port و میکرو mega16 ؟

[sharktech]

با سلام

من یه مداری با میکرو mega16 ساختم که حروفی (نه کلمه) رو به پورت سریال می فرسته که البته این حروف به صورت دایم و پشت سرهم هی همین جوری دارن میان, و حالا میخوام این حروف رو توی یه برنامه که توی vb هست رو دریافت کنم اما توی vb مشکل دارم یعنی نمی دونم چطوری این کار رو انجام بدم. :cry:
اگه کمکم کنین ممنون میشم.

با تشکر
:nerd:

[sharktech]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

[John Lock]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

دوست عزیز شما با استفاده از دستور

open"com1:"

به راحتی می تونید این کارو بکنید یه سرچ تو گوگه که نه تو انجمن بزنی سمپلش هست .

[sharktech]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

ای بابا این که نشد راهنمایی دوست عزیز اینو که خودم می دونستم( شوخی :mrgreen

اگه لینکی کدی چیزی داری بزار.

با تشکر :nerd:

[John Lock]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

در ضمن دوست عزیز این تاپیک در انجمن کلی اطلاعات مفید داره چرا دوباره تاپیک زدی برای موضوع یک یان اینو میخوندی حد قل
http://www.eca.ir/forum2/index.php?topic=28334.0

[sharktech]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

با سلام و تشکر

دوست عزیز من این تاپیک رو خوندم ولی چیزی دست گیرم نشد و دوستان توی این تاپیک از بحث منحرف شده بودند.
اینم کد میکرو توی bascom:

If Porta.0 = 1 Then Print "A" Else Print "a"
If Porta.0 = 1 Then Print "B" Else Print "b"
If Porta.0 = 1 Then Print "C" Else Print "c"
If Porta.0 = 1 Then Print "D" Else Print "d"
If Porta.0 = 1 Then Print "E" Else Print "e"
If Porta.0 = 1 Then Print "F" Else Print "f"
If Porta.0 = 1 Then Print "G" Else Print "g"

راستی من Microsoft Visual Studio 2008 رو هم نصب کردم وقتی که یه پروژه VB درست میکنی خود برنامه یه component به سم serial port داره ,اگه کسی تا حالا باهاش کار کرده لطفا بهم کمک کنه.

[sharktech]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

[John Lock]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

من تا اونجائی که فکر کنم باید تمام اون port ها رو بکنی pin کل برنامه رو بنویس که ببینم چه طوری میخوای وصل شی

[sharktech]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

چقدر دانشمندم من!!! :redface:

شرمنده کد رو اشتباه نوشتم: :redface:

If Porta.0 = 1 Then Print "A" Else Print "a"
If Porta.1 = 1 Then Print "B" Else Print "b"
If Porta.2 = 1 Then Print "C" Else Print "c"
If Porta.3 = 1 Then Print "D" Else Print "d"
If Porta.4 = 1 Then Print "E" Else Print "e"
If Porta.5 = 1 Then Print "F" Else Print "f"
If Porta.6 = 1 Then Print "G" Else Print "g"
If Porta.7 = 1 Then Print "H" Else Print "h"

حالا چی به نظرتون جواب میده ؟
با تشکر
:nerd:

[adeljoo]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

سلام واضح بگو ببینم کجا مشکل داری
تو اینترنت در مورد mscomm جستجو بکن البته به اینگلیسی چیزهای خوبی گیر می اری
اگه کمک خواستس بگو
adeljoo@yahoo.com

[naeimwtg]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

کاری نداره

MSComm1.CommPort = 1   ‘I am using COM 1 on my PC
SetupPort MSComm1    ‘Now I have setup the port
MSComm1.PortOpen = True ‘Now I have opened the port and can output

برای ارسال از این کد

MSComm1.Output = "AT" & vbCrLf

برای دریافت output رو به input تغییر بده

موفق باشی

[naeimwtg]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

اینم یادم رفت

MSComm1.Settings = "2400,N,8,1"

[sharktech]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

با سلام
من با برنامه نویسی pc مشکلی به اون صورت مشکلی ندارم ,من توی برنامه نویسی میکرو ,از چه دستوری توی برنامه میکرو برای نشان دادن یک یا صفر بودن پایه ورودی باید استفاده کنم.
در ضمن گفتم که خود برنامه Microsoft Visual Studio 2008 توی VB یه component به اسم serialport داره اما من تا حالا با این component کار نکردم, اگه کسی کار کرده کمک کنه.

با تشکر
:nerd:

[John Lock]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

چرا دقیق سوالتو نمیگی میخوای فرضا خوندی چی کار کنی رو LCd نشون بدی میخوای Led خاموش روشن کنی می خوای چی کار کنی بگو تا بهت بگم

[sharktech]

پاسخ : در خواست کمک درباره VB و serial port و میکرو mega16 ؟

با سلام :wow: :applause: oo:

دوست عزیز nima_1981 مشکل من رو شما توی اون پستی که ازتون تشکر کردم حل کردین ممنونم . توی کد برنامه وقتی که می نویسی If Porta.0 = 1 Then Print "A" Else Print "a" جواب نمیداد اما وقتی به جای Porta.0 نوشتم Pina.0 برنامه جواب داد و شرط برقرار شد,و حرف A رو وقتی پورت 1 بود ارسال و وقتی همون پورت 0 شد a رو ارسال کرد. :job:

ممنونم از دوستان
:nerd: