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

[mikla]

لطفا راهنماییم کنید برنامه های زیر چرا جواب نمی دن
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600

Dim C As Integer , D As Byte
Dim S As String * 15
Input "e" , C
Print C
Input "m" , C , D
Print C ; " " ; D
Input "n" , S
Print "h" ; S
Input S Noecho
Print S
End


$regfile = "m32def.dat"
$crystal = 4000000
$baud = 19200
Dim S As String * 10
Do
Input "input password" , S
If S <> "bascom" Then
Print "invalid password"
Exit Do
End If
Print "valid password"
Input "name?" 's 's
Print "hello" ; S
Exit Do
Loop
Print "program end"
End


میخوام دیتا رو با صفحه کلید به میکرو بفرستم سخت افزارم مورد نداره چون با برنامه codevisin دریافت و ارسال دیتا رو بدرستی انجام میده ولی تو بیسکام تو دریافت دیتا توسط میکرو نه برنامه های help بیسکام جواب میده نه برنامه های کتاب کاهه :cry:

[baba_barghi]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

این که دو تا برنامه هستش :surprised:
منظور شما کدومشونه؟

[mikla]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

هیچکدوم جواب نمیده :cry2:

[mikla]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

لطفا یکی جواب بده :angry:

[baba_barghi]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

سلام
یادم اومد فکر کنم بعد از تعیین کریستال باید از دستور Config serialاستفاده کنی

[mikla]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

من توی بیسکام تازه کارم بنابراین نمیدونم وقتی تو مدارم lcd ندارم چرا باید از config lcd استفاده کنم oo:

[mikla]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

اقا ببخشید مثل اینکه خوابم میاد که serial رو lcd میبینم :eek:
ممنونم

[general]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

برای دریافت اطلاعات از port com باید در میکرو از دستور() a=inkey استفاده کنی
$ regfile='m32def.dat"
$crystal=8000000
$boud=9600

dim a as byte
l1:
a=inkey()


if a=0 then goto l1

[mikla]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

من دقیقا برنامه زیر را کامپایل کردم
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
' Config Serial
Config Portb = Output
Config Portc = Output

dim a as byte
l1:
a=inkey()


If A = 0 Then Goto L1

Portc = &HF0
Portb = &HF0
Portb = &HE0
Portb = &H00
Portb = &H10
Portb = &H20
Portb = &H30
Portb = &H40
Portb = &HF0
End
که پورت b خط ادرس من و پورت c خط دیتا برای نمایشگرها که 6 ردیف led هستند می باشند ولی تو محیط ترمینال بعد از انتخاب کلید های key board هیچ اتفاقی نیافتاد
در ضمن در دو برنامه ای که گذاشته بودم وقتی عبارت Config Serial را گذاشتم کامپایلر error می گیره :angry: :angry: :angry:

[mikla]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

کسی راهنمایی برای من نداره :cry2: :cry2: :cry2:

[hamed_online62]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

اصلا کار پیچیده ای نیست. تا اونجایی که من فهمیدم می خوای با استفاده از PC و صفحه کلیدش یه چیزی رو به میکرو ارسال کنی.
من پیشنهاد می کنم اونو رو LCD نمایش بدی. برای این کار فقط باید باود رو تو Terminal emulator با نرخ ارسال توی میکرو یکی تعریف کنی. بعد با بستن سخت افزار ( همون کابل و max232 ) راحت می تونی اون رو نمایش بدی

[mikla]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

منم اول میخواستم روی lcd نشون بدم چون بردم تو نمایشگرهاش lcd هم داره باود ریت رو هم هماهنگ تعریف میکنم چون دیتا از میکرو برای pc ارسال میشه ولی از صفحه کلید نمی تونم دیتا بفرستم البته قبلا گفتم تو codevisin مشکلی نداشتم تو بیسکام دو روز منو معطل خودش کرده :angry: خواهشا اگه برنامه تست شده (حتما خودتون جواب گرفته باشین ) دارید برام بزارید
هم اکنون نیازمند کمک سبزتان هستیم!!!!

[hamed_online62]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

من بارها با بیسکام امتحان کردم و مشکلی نداشتم.
دقت کن که وقتی داری تایپ می کنی cursor روی صفحه ایمولاتور چشمک زن باشه(برای اطمینان قبلش با موس روی صفحه کلیک کن). ضمن اینکه وقتی تایپ می کنی چیزی روی صفحه دیده نمیشه. اگه می خوای بفهمی که چی تایپ کردی و البته مطمئن بشی که از سمت میکرو هم به PC ارسال میشه تو برنامه بنویس که همونی که دریافت شده نمایش بده. مثلا اینجوری:

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600

Dim S As String * 10

Do
Input S
Print S
Loop

End

[a_sourena]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

سلام.
من یه پیشنهادی می کنم. امیدوارم که جواب بگیری.
راستش من یه بار بیشتر با avr کار نکردم . چندی پیش یه پروژه با rs232 با avr ساختم . 2 روز بود که هرکاری می کردم جواب نمی گرفتم. برنامه ام مشکلی نداشت. می دونید مشکل از کجا بود؟ در نرم افزار پروگرمرم باید تیک همه فیوز بیت ها را بر می داشتم و گزینه پروگرم شدن فیوز بیت ها را فعال می کردم. نمیدونم که پروگرمرت چیه؟ اسم پروگرمر من hattel هستش. و فکر کنم که بقیه هم نرم افزار هاشون این ویژگی را داشته باشن .
پس در مرحله اول سعی کنید تیک فیوز بیت ها را بردارید و بعد گزینه پروگرم کردن فیوز بیت ها را هم فعال کنید.
دوم اینکه یه برنامه ساده تر رو تست کن. مثلا یه برنامه بنویس که فقط کارش ارسال کاراکتر a باشه اینجوری راحت تر خطا یابی می کنید.
این هم یه برنامه ساده:
$regfile = "m32def.dat"
$baud = 2400
$crystal = 8000000
print "a"
end
امیدوارم که مشکلت حل بشه.

[mikla]

پاسخ : دریافت دیتا با پورت سریال در ترمینال بیسکام

پروگرمر من پروگرمر usb نواوران هست که avrstadio اونو به عنوان stk500 میشناسه فیوز بیتهایی هم که فعال مربوط به کلاک داخلی و حفاظت eeprom و حداقل ولت کاری میکرو و boot flash
جالب بدونین الان برنامه ارسال دیتایی که با codevision نوشتم رو تو ترمینال بیسکام اجرا میکنه و دیتا برای میکرو ارسال میشه از طرفی من با ارسال دیتا به pc مشکل ندارم و اجرا میشه با دریافت دیتا توسط میکرو مشکل دارم برناممبعد از اخرین تغییرات اینه
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Portb = Output
Config Portc = Output
Dim S As String * 10

Do
Input S
Print S
Portc = &HFF
Portb = &HF0
Portb = &HE0
Portb = &H00
Portb = &H10
Portb = &HF0
Portc = &H00
Portb = &H20
Portb = &H30
Portb = &H40
Portb = &HF0
Waitms 500
Loop

End