سلام دوستان
من میخوام یه عدد رو از یه MEGA32 به یه MEGA32 دیگه بفرستم و از میکروی گیرنده ، مقدار دریافتی را در کامپیوتر مشاهده کنم.
در قسمت ارسال مقدار دریافتی به کامپیوتر از RS232 استفاده ام که مطمئنم مشکلی نداره
ولی مقدار دریافتی ، عدد فرستاده شده نیست و همچنین هی مقدار دریافتی تغییر میکند و عدد ثابتی را نشان نمیدهد
راستی برنامه ها رو میتونید از لینک گذاشته شده نیز دانلود کنید
برنامه ی فرستنده:
$regfile = "M32DEF.dat"
$crystal = 8000000
Config I2cdelay = 5
Config Sda = Portc.1
Config Scl = Portc.0
I2cstart
Do
I2csend &H33 , 23
Loop
برنامه ی گیرنده:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config I2cdelay = 5
Config Sda = Portc.1
Config Scl = Portc.0
Dim X As Integer
I2cstart
WAIT 3
Do
I2creceive &H33 , X
Print "REC=" ; X
Waitms 50
Loop
لینک ها
http://izip.ir/download.php?id=8B1BE4AC1
یا http://www.lgshare.com/upload/do.php...aaf400cf71.zip
من میخوام یه عدد رو از یه MEGA32 به یه MEGA32 دیگه بفرستم و از میکروی گیرنده ، مقدار دریافتی را در کامپیوتر مشاهده کنم.
در قسمت ارسال مقدار دریافتی به کامپیوتر از RS232 استفاده ام که مطمئنم مشکلی نداره
ولی مقدار دریافتی ، عدد فرستاده شده نیست و همچنین هی مقدار دریافتی تغییر میکند و عدد ثابتی را نشان نمیدهد
راستی برنامه ها رو میتونید از لینک گذاشته شده نیز دانلود کنید
برنامه ی فرستنده:
$regfile = "M32DEF.dat"
$crystal = 8000000
Config I2cdelay = 5
Config Sda = Portc.1
Config Scl = Portc.0
I2cstart
Do
I2csend &H33 , 23
Loop
برنامه ی گیرنده:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config I2cdelay = 5
Config Sda = Portc.1
Config Scl = Portc.0
Dim X As Integer
I2cstart
WAIT 3
Do
I2creceive &H33 , X
Print "REC=" ; X
Waitms 50
Loop
لینک ها
http://izip.ir/download.php?id=8B1BE4AC1
یا http://www.lgshare.com/upload/do.php...aaf400cf71.zip
دیدگاه