RF01D-ID3

[ali2590]

دوستان من یه ماژول RF01D-ID3 از فروشگاه سایت خریداری کردم و با بسکام این برنامه رو براش نوشتم ولی همش فقط 2 کاراکتر روی ال سی دی نشون میده و دوکاراکتر هم با تاخیر میاد و عحیب و غریبه (نه عدد نه حروف لاتین)
اینم از برنامه:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Cursor Off
Dim C As String * 1
Dim Code As String * 10
Hom:
Cls
Home : Lcd "RFID:"
C = Waitkey()
Code = Code + Chr(c)
Locate 1 , 7
Lcd Code
Wait 3
Goto Hom
End

[ali2590]

پاسخ : RF01D-ID3

کسی نیست جواب بده ...

[omidrobot]

پاسخ : RF01D-ID3

دوست عزیز.
کریستال را رو 8000000 بگذارید و فیوزبیت هارو تنظیم کنید(یا میتوان کریستال خارجی قرار داد).بعد میتونید با دستور زیر کارو ادامه بدید.من خودم برنامه را پروگرام کردم و کار کرد.

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Cursor Off
Dim Code As String * 10
Hom:
Cls
Home : Lcd "RFID:"
input code
cls
Lcd Code
Wait 3
Goto Hom
End