مشکل ساخت کالر آی دی با ht9032d

[ُSepideh]

با سلام
من ی خوام با ای سی ht9032D و avr کالر ای دی بسازم ولی به مشکل خوردم نمی دونم باید چی کار کنم
یکم اعداد چرت و پرت نشون می ده بعدم error می ده
مدارم اینه

و کد bascom هم اینه :

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 1200
Dim A As Byte , B As Byte , C As Byte , D As Byte
Dim E As Word
'--------------------------------------------
Config Pind.0 = Output
Portd.0 = 0
Cls
'--------------------------------------------
Do
Cursor Off
A = Waitkey()
If A = 4 Then
E = A
A = Waitkey()
D = A - 8
E = E + A
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lcd "/"
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Locate 1 , 8
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lcd ":"
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lowerline
For B = 1 To D
A = Waitkey()
E = E + A
C = A And 15
Lcd C
Next B
A = Waitkey()
E = E + A
E = E Mod 256
If E <> 0 Then
Cls
Lcd "error"
End If
End If
Wait 10
Cls
Loop
End

اصلا کد و برنامه ام درسته یا نه؟
خواهشا کمک کنید باید پروژه رو تا هفته دیگه تحویل بدم :cry2:

[Mojtababm]

پاسخ : مشکل در راه اندازی ht9032d

با سلام
من تو راه اندازی ای سی ht9032D با avr موندم نمی دونم باید چی کار کنم
یکم اعداد چرت و پرت نشون می ده بعدم error می ده
مدارم اینه

و کد bascom هم اینه :

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 1200
Dim A As Byte , B As Byte , C As Byte , D As Byte
Dim E As Word
'--------------------------------------------
Config Pind.0 = Output
Portd.0 = 0
Cls
'--------------------------------------------
Do
Cursor Off
A = Waitkey()
If A = 4 Then
E = A
A = Waitkey()
D = A - 8
E = E + A
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lcd "/"
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Locate 1 , 8
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lcd ":"
For B = 1 To 2
A = Waitkey()
E = E + A
A = A And 15
Lcd A
Next B
Lowerline
For B = 1 To D
A = Waitkey()
E = E + A
C = A And 15
Lcd C
Next B
A = Waitkey()
E = E + A
E = E Mod 256
If E <> 0 Then
Cls
Lcd "error"
End If
End If
Wait 10
Cls
Loop
End

اصلا کد و برنامه ام درسته یا نه؟
خواهشا کمک کنید باید پروژه رو تا هفته دیگه تحویل بدم :cry2:

والا منم چند وقت پیش همین مدار رو با همین برنامه بستم ولی اعداد چرت و پرت پشت سر هم نشون می داد
فکر کنم مشکل داره برنامه اش
از دوستان کسی هست بتونه کمک کنه؟!!!!

[ُSepideh]

پاسخ : مشکل در راه اندازی ht9032d

والا منم چند وقت پیش همین مدار رو با همین برنامه بستم ولی اعداد چرت و پرت پشت سر هم نشون می داد
فکر کنم مشکل داره برنامه اش
از دوستان کسی هست بتونه کمک کنه؟!!!!

آره دقیقا مشکل منم همینه
توی دیتا شیت آی سی رو هم که نگاه کردم مدارش تقریبا همین بود
استادم پنج شنبه قرار نمره ها رو تایید نهایی کنه اگه تا پنج شنبه تحویل ندم نمره نمی گیرم

[ُSepideh]

پاسخ : مشکل ساخت کالر آی دی با ht9032d

یعنی کسی نیست به داد من برسه 3 روز دیگه باید این پروژه رو تحویل بدم

[ُSepideh]

پاسخ : مشکل ساخت کالر آی دی با ht9032d

مثل اینکه اعضای این انجمن از تازه واردا خوششون نمیاد که حتی یه راهنمایی کوچیک هم به من نکردن
من فقط می خواستم با این ht9032 فقط شماره کسی که زنگ می زنه رو روی lcd نشون بدم
ولی چون تازه کارم نمی دونستم باید چی کار کنم