مشکل با ویژوال بیسیک و avr

[ahadgd]

سلام
من می خوام با ویژوال بیسیک با یه AVR ارتباط برقرار کنم تو ارتباط مشکلی نیست اشکال اینجاست که وقتی از کامپیوتر به میکرو یه کلمه رو مثلا SALAM رو ارسال میکنم کلمه تیکه تیکه ارسال میشه نمیدونم منظورم رو رسوندم یا نه
کلمه salam تو میکرو اینطوری دریافت میشه
s
a
l
a
m
همشون جدا جدا دریافت میشه از میکرو به کامپیوتر مشکلی نیست کل کلمه یکجا دریافت میشه
مشکل کجاست کسی میتونه کمک کنه

[Wizard]

سلام!
اگر ارسالها را با کد خاصی به پایان برسانی مثلا کد 10 اسکی ( رفتن به خط جدید )
و در میکرو هم بگونه ای تعریف کنی که با دریافت این کد یک خط دریافت شد می تونی کنترل برنامه را در دست بگیری .

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

[ahadgd]

سلام
میخوام کلمه salam رو از کامپیوتر رو ال سی که به میکرو وصله نشون بدم ولی کلمه جدا جدا ارسال میشه
و فقط حرف آخر به نمایش در میاد"m"
اینا نوع متغییر و نحوه ارسال در ویژال بیسیک هست

Dim c As String * 5

c = Text1.Text
MSComm1.Output = c

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

Dim C As String * 5
Do
C = Inkey()
If C > "0" Then
Cls
Lcd C
End If
Loop

در ضمن با دستور waitkey هم امتحان کردم نشد
از میکروی مگا 8 که به ال سی دی وصله استفاده میکنم

[ahadgd]

اینم کل فایل
سورس بسکام , برنامه و سورس ویژوال بیسیک

[javad naderi]

سلام.اسنم پروژه کامل از
ویژوال بیسیک و ارتباط کامپیوتر


http://www.elec4u.ir/softwares/157-rs232-.html

[Wizard]

سلام.
کد را به صورت زیر اصلاح کن.

Do
    Input "Enter your name " , C
    Cls
    Lcd C
Loop

[ahadgd]

سلام.
کد را به صورت زیر اصلاح کن.

Do
    Input "Enter your name " , C
    Cls
    Lcd C
Loop

با این دستور تو terminal emulator بسکام درست کار می کنه ولی تو وِیژوال بیسیک نه . با این دستور بجای اینکه مقدار C تو ال سی دی نشون داده بشه مقدار تو کامپیوتر نشون داده میشه
این مشکل تو برنامه ای که آقای javad naderi معرفی کردن هم هست.

اگر ارسالها را با کد خاصی به پایان برسانی مثلا کد 10 اسکی ( رفتن به خط جدید )
و در میکرو هم بگونه ای تعریف کنی که با دریافت این کد یک خط دریافت شد می تونی کنترل برنامه را در دست بگیری .

میشه درباره این توضیح بدی فکر کنم مشکل همینجا باشه!!؟؟

[Wizard]

c = Text1.Text
MSComm1.Output = c

در این کد به آخر متغیر کد اسکی 10 که معدل خط جدید است اضافه کن مشکلت حل می شه!

c=c&Asc(10)
MSComm1.Output = c

من VB6 ندارم که این کد رو امتحان کنم ولی فکر کنم جواب بده

[ahadgd]

اگر ارسالها را با کد خاصی به پایان برسانی مثلا کد 10 اسکی ( رفتن به خط جدید )
و در میکرو هم بگونه ای تعریف کنی که با دریافت این کد یک خط دریافت شد می تونی کنترل برنامه را در دست بگیری

من این کارو کردم مشکل حل شد
ممنون Wizard جان
کد وِیژوال بیسیک:

C= txtSend.Text

MSComm1.Output = C & Chr$(255)

بسکام :قسمت دریافت رو تو یه حلقه گذاشتم و همه کد های دریافتی رو به هم وصل کردم و وقتی (chr(255 دریافت شد از حلقه خارج میشه و کد دریافتی رو نشون میده

Do
B = Ischarwaiting()
If B = 1 Then
 Do
  C1 = C1 + C
  C = Inkey()
  If C = Chr(255) Then
  Cls
  Lcd C1
  C1 = ""
  C = ""
  Exit Do
  End If
 Loop
End If
Loop

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

[sina_vd]

کد vb رو دست نزن،مشکلی نداره.من چند تا پروژه سریال کار کردم.درسته حروف تک تک ارسال میشه و چون شما تو حلقه از cls استفاده کردی تمام حروف رو تک تک دریافت می کنه و بدون اینکه شما بتونی تو ال سی دی ببینی پاک می کنه و در نهایت آخرین حرف نمایش داده میشه.کد بسکام رو اینجوری اصلاح کن :


Do
C = waitkey()
Lcd C
Loop

تست کن ببین درست نمایش داده میشه یا نه.برای پاک کردن هم می تونی شرط بزاری که اگه مثلا چیزی که دریافت میشه برابر 0 بود cls.

Do
C = waitkey()
If C="0" Then
Cls
End If
else
lcd c
Loop

[Wizard]

خب کد به صورت زیر اصلاح کن!

MSComm1.Output = C & Chr$(13) & Chr$(10)

[sina_vd]

اینو واست نوشتم.تستشم کردم جواب داد.البته برنامه واسه مگا 16 نوشته شده.خودت میتونی با کمی تغییرات رو مگا8 هم استفاده کنی.

دانلود پروژه

[ahadgd]

کد vb رو دست نزن،مشکلی نداره.من چند تا پروژه سریال کار کردم.درسته حروف تک تک ارسال میشه و چون شما تو حلقه از cls استفاده کردی تمام حروف رو تک تک دریافت می کنه و بدون اینکه شما بتونی تو ال سی دی ببینی پاک می کنه و در نهایت آخرین حرف نمایش داده میشه.کد بسکام رو اینجوری اصلاح کن :


Do
c = waitkey()
lcd c
loop

تست کن ببین درست نمایش داده میشه یا نه.برای پاک کردن هم می تونی شرط بزاری که اگه مثلا چیزی که دریافت میشه برابر 0 بود cls.

Do
c = waitkey()
if c="0" then
cls
end if
else
lcd c
loop

بازم سلام
خوب این حالت درست کار میکنه و درست نمایش داده شده ولی یه مشکلی که اینجا هست تو متغییر c فقط آخرین کارکتر ذخیره میشه که من کل کلمه رو لازم دارم

خب کد به صورت زیر اصلاح کن!
Mscomm1.output = c & chr$(13) & chr$(10)

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

[Wizard]

در کد زیر زمانی آیسی از کد Input خارج میشه که کاراکتر vbCrLf رو دریافت کنه و بره به خط نشون دادن . با terminal emulator بسکام در زمانی که اینتر می زنی کد رو روی LCD نشون می ده
ولی در بیسیک باید این کد را با دستور باید فرستاد تا به میکرو فهموند که خط تموم شده و می تونی نشون بدی!

Input "Enter your name " , C
Cls
Lcd C

vbCrLf=13+10

در پیوست فایل اجرایی با پروتئوس گذاشتم .

[ahadgd]

Wizard

ممنون این دقیقا همون چیزی بود که می خواستم

[ahadgd]

باز یه مشکل دیگه این وسط پیدا شد
اولین ارسال درست انجام میشه
میکرو به بیسک ارسال میکنه enter your name
بعد از بیسیک به میکرو یه اسم ارسال میکنم دریافت میکنه اونم نشون میده تا اینجا درست بود حالا دوباره میکرو ارسال میکنه enter your name اما با یه کارکتر اضافه که نمی دونم چیه دوباره از بیسیک یه اسم ارسال میکنم به میکرو باز اینجا هم یه کارکتر اضافه که به شکل سه تا خط اول اسم تو ال سی دی نشون میده مثل این (lll)
تو terminal emulator بسکام این اشکال نیست ولی تو بیسیک هست ؟؟؟؟؟؟
من چی کار کنم

[morteza_rk]

ولین ارسال درست انجام میشه
میکرو به بیسک ارسال میکنه enter your name
بعد از بیسیک به میکرو یه اسم ارسال میکنم دریافت میکنه اونم نشون میده تا اینجا درست بود حالا دوباره میکرو ارسال میکنه enter your name اما با یه کارکتر اضافه که نمی دونم چیه دوباره از بیسیک یه اسم ارسال میکنم به میکرو باز اینجا هم یه کارکتر اضافه که به شکل سه تا خط اول اسم تو ال سی دی نشون میده مثل این (lll)
تو terminal emulator بسکام این اشکال نیست ولی تو بیسیک هست ؟؟؟؟؟؟

سلام این کاراکتر اضافه درواقع کاراکتر Line Feed یا سرِخط هست. شما می تونید بعد از اینکه متن رو از ویژوال بیسیک دریافت کردید با دستور Mid فقط کاراکتر دوم به بعدش رو بگیرید! اینطوری کاراکتر اول دیگه نشون داده نمیشه.

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

راه های زیادی برای حل این مشکل وجود داره. راستی اینم بگم که کد اسکی معادل کاراکتر Line feed عدد 10 هست!

[ahadgd]

اول باید یه تشکر کنم بابت اینکه این همه کمک میکنید
دوم اینکه
با دستور mid اون اشکال رفع شد ولی تو ویژوال بیسیک با چه دستوری اون رو بر طرف کنم ؟؟؟
یه سوال دیگه هم دارم اون اینکه چرا وقتی کارکتری رو به میکرو ارسال می کنم دوباره همون کارکتر رو میکرو بر میگردونه به وِیژوال بیسیک؟؟؟
سوم اینکه بازم ممنون

[Wizard]

سلام
اگر این جوری مشکلت حل شد در بیسیک هم کد Mid وجود داره
و در مورد سوال دوم (ارسال کاراکتر) از کد زیر استفاده کن

Input "Enter your name " , C Noecho

ولی فکر نکنم اشکال کارت این باشه ! از کریستال 11.0592 مگاهرتز استفاده کن چون خطای ارسال حذف می شود!

[ahadgd]

مشکل کاملا حل شد
اشکال همون noecho بود با این دستور هم کارکتری اضافه که میکرو دوباره ارسال میکرد به بیسیک حذف شد هم کارکتر نامعلوم که بین این دوتا بود که فکر کنم همون کارکتر line feed بود حذف شد
ممنون