سلام
من یک برنامه نوشتم که به صورت سریال یک عدد بفرسته به روی lcd . مشکل من اینجاست که بعد از هر عدد یک صفر هم بررویlcd چاپ می کنه. اگردوستان راهنمایی کنند ممنون می شم
میکرو 1
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Enable Interrupts
Config Serialin = Buffered , Size = 200
' Config Serialout = Buffered , Size = 200 '
Config Lcdpin = Pin , Db4 = Pina.2 , Db5 = Pina.3 , Db6 = Pina.4 , Db7 = Pina.5 , Rs = Pina.0 , E = Pina.1
Config Lcd = 16 * 2
Cursor Off
Config Portc = Output
Dim T As Byte
Wait 1
Cls
Do
T = Inkey()
Locate 1 , 1
Lcd T
Waitms 500
If T = 10 Then
Set Portc.0
Waitms 400
Reset Portc.0
End If
Loop
End
-----------------------------------------
میکرو 2
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Enable Interrupts
Enable Timer0
Config Timer0 = Timer , Prescale = 1024
Dim Second As Byte
Dim T As Integer
Second = 0
Wait 3
Start Timer0
On Timer0 S
Do
Loop
S:
Incr Second
While Second = 10
Second = 0
Goto Temp
Wend
Temp:
Incr T
Printbin T
Return
End
من یک برنامه نوشتم که به صورت سریال یک عدد بفرسته به روی lcd . مشکل من اینجاست که بعد از هر عدد یک صفر هم بررویlcd چاپ می کنه. اگردوستان راهنمایی کنند ممنون می شم
میکرو 1
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Enable Interrupts
Config Serialin = Buffered , Size = 200
' Config Serialout = Buffered , Size = 200 '
Config Lcdpin = Pin , Db4 = Pina.2 , Db5 = Pina.3 , Db6 = Pina.4 , Db7 = Pina.5 , Rs = Pina.0 , E = Pina.1
Config Lcd = 16 * 2
Cursor Off
Config Portc = Output
Dim T As Byte
Wait 1
Cls
Do
T = Inkey()
Locate 1 , 1
Lcd T
Waitms 500
If T = 10 Then
Set Portc.0
Waitms 400
Reset Portc.0
End If
Loop
End
-----------------------------------------
میکرو 2
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Enable Interrupts
Enable Timer0
Config Timer0 = Timer , Prescale = 1024
Dim Second As Byte
Dim T As Integer
Second = 0
Wait 3
Start Timer0
On Timer0 S
Do
Loop
S:
Incr Second
While Second = 10
Second = 0
Goto Temp
Wend
Temp:
Incr T
Printbin T
Return
End
دیدگاه