سلام دوستان چند وقت پیش پروژه ای رو دانلود کردم که اطلاعات رو از طریق پورت سریال به میکرو مگا32 میداد و میکرو نیز اطلاعات رو رو LCD نمایش میداد. وقتی که فایل هگزفابریکشو باز میکنم مدار به درستی کار میکنه ولی وقتی که با بسکام بدون ویرایش کامپایلش میکنم دیگه مدار کار نمیکنه
فایل های پروژه
http://s3.picofile.com/file/81968356...tring.rar.html
برنامه پروژه هم به شرح زیره:
$regfile = "m32def.dat"
$crystal = 8000000
'--- config serial -------------------------------------------------------------
Ucsra = &B00000000
Ucsrb = &B00011000
Ucsrc = &B10001110
$baud = 9600
'--- config port ---------------------------------------------------------------
Ddra = 0 : Porta = 255
Config Portc = Output
'--- dim var as ----------------------------------------------------------------
Dim R(100) As Byte , N As Integer , Convert As Byte , New As Byte
Dim S(100) As String * 1
'--- config lcd ----------------------------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , _
Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Cursor Off
Cls
Lcd "HELLO"
Wait 1
Cls
'--- SEND ----------------------------------------------------------------------
Print "HELLO"
'--- RESIVE ----------------------------------------------------------------------
Do
If Ucsra.7 = 1 Then
N = 0
Do
If Ucsra.7 = 1 Then
N = N + 1
R(n) = Udr
New = R(n)
If New <> 10 Then
S(n) = String(1 , New)
Else
N = 0
End If
Ucsra.7 = 0
If R(n) = 13 Then
Cls
New = N - 1
For Convert = 1 To New
If Convert =< 16 Then
Locate 1 , Convert
Else
N = Convert - 16
Locate 2 , N
End If
Lcd S(convert)
Next
Exit Do : End If
End If
Loop
End If
Loop
دوستان شدیدا به کمکتون نیاز دارم. :cry2:
فایل های پروژه
http://s3.picofile.com/file/81968356...tring.rar.html
برنامه پروژه هم به شرح زیره:
$regfile = "m32def.dat"
$crystal = 8000000
'--- config serial -------------------------------------------------------------
Ucsra = &B00000000
Ucsrb = &B00011000
Ucsrc = &B10001110
$baud = 9600
'--- config port ---------------------------------------------------------------
Ddra = 0 : Porta = 255
Config Portc = Output
'--- dim var as ----------------------------------------------------------------
Dim R(100) As Byte , N As Integer , Convert As Byte , New As Byte
Dim S(100) As String * 1
'--- config lcd ----------------------------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , _
Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Cursor Off
Cls
Lcd "HELLO"
Wait 1
Cls
'--- SEND ----------------------------------------------------------------------
Print "HELLO"
'--- RESIVE ----------------------------------------------------------------------
Do
If Ucsra.7 = 1 Then
N = 0
Do
If Ucsra.7 = 1 Then
N = N + 1
R(n) = Udr
New = R(n)
If New <> 10 Then
S(n) = String(1 , New)
Else
N = 0
End If
Ucsra.7 = 0
If R(n) = 13 Then
Cls
New = N - 1
For Convert = 1 To New
If Convert =< 16 Then
Locate 1 , Convert
Else
N = Convert - 16
Locate 2 , N
End If
Lcd S(convert)
Next
Exit Do : End If
End If
Loop
End If
Loop
دوستان شدیدا به کمکتون نیاز دارم. :cry2:
دیدگاه