پورت سریال

[mohsenjooon]

با سلام خدمت همه.
میشه بگید چطور میشه فهمید که اطلاعات ارسال شده از طریق ترمینال امولاتور به داخل EEPROM   منتقل شده  یا نه؟  من این برنامه رو تو پروتوس داخل یک مگا32 لود کردم و وقتی که کلیدی از صفحه کلید رو میزنم اون عدد تو ترمینال امولاتور نوشته میشه . ولی آیا اون کاراکتر داخل EEPROM هم واقعا رفته ؟ اگه رفته چطور میشه فهمید. ممنون میشم اگه کمک کنید.

کد: [انتخاب]

$regfile = "M32def.dat" $crystal = 8000000
$baud = 9600
Config Serialout = Buffered , Size = 10
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7_
   = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Sda = Portc.0
Config Scl = Portc.1
Config I2cdelay = 1
Config Kbd = Porta
Declare Sub Writeeepromserial
Const Eewrite = 160
Const Eeread = 161
Dim A As Byte
Dim B As Byte
Dim Address As Word
Lcd "Start Writing…"
Address = &H0000

While Address < &H7FFF
A = High(address)
Print A
B = Low(address)
Print B
Call Writeeepromserial
Incr Address
Wend

End                                                         'end program

Sub Writeeepromserial
I2cstart
I2cwbyte Eewrite
I2cwbyte A
I2cwbyte B
I2cwbyte 7
I2cstop
Waitms 10
End Sub Writeeepromserial



[/font]

[shahinbahari]

خوب می تونید برای تست یه بار از روی eeprom بخونید و اونو روی lcd یا پورت سریال نشون بدید.
موفق باشید.

[mohsenjooon]

خوب می تونید برای تست یه بار از روی eeprom بخونید و اونو روی lcd یا پورت سریال نشون بدید.
موفق باشید.

تورو خدا میشه بگید چطوری؟

[mohsenjooon]

چرا همه ان قدر مختصر میگن ؟ دمتون گرم عجب راهنمایی خوبی.

[ayhan]

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

[کیهان اسدی]

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

کد: [انتخاب]

Config Sda = Portb.5

Config Scl = Portb.7

Dim X As Byte , Slave As Byte

X = 0                                                       'reset variable

Slave = &H40                                               'slave address of a PCF 8574 I/O IC

I2creceive Slave , X                                       'get the value

Print X                                                     'print it

 

 

Dim Buf(10)as Byte

Buf(1) = 1 : Buf(2) = 2

I2creceive Slave , Buf(1) , 2 , 1                           'send two bytes and receive one byte

Print Buf(1)                                               'print the received byte

End




[shahinbahari]

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

هایپر که چیز خاصی نداره.وقتی بازش می کنی یه اسم براش انتخاب می کنی و ok رو می زنی.تو پنجره بعدی که بات باز میشه گزینه ی connect using رو روی com می زاری وok میکنی.
بعد هم تنظیمات پورت رو انجام میدی و بعد از اون برنامه آماده کار هست.
این رو هم یه نگاهی بندازید ببنید به دردتون می خوره:
http://electrorc.blogfa.com/post-33.aspx

[shahinbahari]

چرا همه ان قدر مختصر میگن ؟ دمتون گرم عجب راهنمایی خوبی.

خوب من چه کمک دیگه ای می تونم به شما بکنم؟؟؟من بیسیک رو بلد نیستم(با C کار می کنم).پس فقط می تونم روش کار رو براتون بگم دیگه.
شما چه طور از پورت سریال خوندید  وروی EEPROM نوشتید؟ حالا برای امتحان از روی EEPROM بخونید و به پورت سریال بفرستید.
به هر حال مشکل دیگه ای بود در خدمتم

[mohsenjooon]

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

[shahinbahari]

خواهش می کنم .کاری نکردم
راستی یه چیز دیگه:
اگه بعد از اینکه روی EEPROM نوشتید پروتیوس رو pause کنید .روی میکروتون راست کلیک کنیدواز گزینه ی  EEPROM ,avr رو انتخاب کنید می تونید چک کنید که درست نوشتید یا نه.
ببخشید اگه جمله بندیش خیلی بد شد