سلام خدمت همه ی اساتید
من دارم رو یه پروژه کار می کنم که از پورت سریا دوم atmega64 استفاده کردم
الان نیاز دارم که هر وقت دیتا از کامپیوتر اومد یه سری دستورات اجرا کنه.اگه نیومد به کار خودش ادامه بده.بخاطر همین از وقفه سریال استفاده کردم ولی نتونستم ازش جواب بگیرم.
با بسکام کد نویسی می کنم و اینم برنامه ای که نوشتم.لطفا اشکال کارمو بگین
ممنون
من دارم رو یه پروژه کار می کنم که از پورت سریا دوم atmega64 استفاده کردم
الان نیاز دارم که هر وقت دیتا از کامپیوتر اومد یه سری دستورات اجرا کنه.اگه نیومد به کار خودش ادامه بده.بخاطر همین از وقفه سریال استفاده کردم ولی نتونستم ازش جواب بگیرم.
با بسکام کد نویسی می کنم و اینم برنامه ای که نوشتم.لطفا اشکال کارمو بگین
ممنون
$regfile = "m64def.dat"
$crystal = 8000000
'------------------------------------------------LCD configuration------------------------------------
Config Lcdpin = Pin , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7 , Rs = Pina.0 , E = Pina.2
Config Lcd = 16 * 2
'-----------------------------------------------------------------------------------------------------
'------------------------------------------------Usart1 configuration---------------------------------
$baud1 = 9600
Open "COM2:" For Binary As #2
'-----------------------------------------------------------------------------------------------------
'---------------------------------------Variable between com & machin(serial interface)---------------
Dim Code As String * 1
Dim W1 As String * 1
Dim W2 As String * 1
Dim W3 As String * 1
'-----------------------------------------------------------------------------------------------------
Enable Interrupts
Enable Urxc1
On Serialin
Do
Mainprog:
Locate 1 , 1
Lcd "It,s OK"
'wait 1
Loop
End 'end program
'------------------------------Functions-----------------------------------------------------------------
'get data from pc to changing mode --------------------------------------
Serialin:
Cls
Lcd "ok"
Input #2 , Code
Wait 1
Return
$crystal = 8000000
'------------------------------------------------LCD configuration------------------------------------
Config Lcdpin = Pin , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7 , Rs = Pina.0 , E = Pina.2
Config Lcd = 16 * 2
'-----------------------------------------------------------------------------------------------------
'------------------------------------------------Usart1 configuration---------------------------------
$baud1 = 9600
Open "COM2:" For Binary As #2
'-----------------------------------------------------------------------------------------------------
'---------------------------------------Variable between com & machin(serial interface)---------------
Dim Code As String * 1
Dim W1 As String * 1
Dim W2 As String * 1
Dim W3 As String * 1
'-----------------------------------------------------------------------------------------------------
Enable Interrupts
Enable Urxc1
On Serialin
Do
Mainprog:
Locate 1 , 1
Lcd "It,s OK"
'wait 1
Loop
End 'end program
'------------------------------Functions-----------------------------------------------------------------
'get data from pc to changing mode --------------------------------------
Serialin:
Cls
Lcd "ok"
Input #2 , Code
Wait 1
Return
دیدگاه