سلام .
برنامه زیر باید طوری باشه که هر وقت A بزرگتر از 3 شد یک واحد به B اضافه کنه (یعنی شمارش کنه ) و روی ال سی دی نمایش بده
ولی شمارش نمیکنه و فقط A ,B رو نشون میده .
مشکل چیه ؟؟؟
[code=vb]
برنامه زیر باید طوری باشه که هر وقت A بزرگتر از 3 شد یک واحد به B اضافه کنه (یعنی شمارش کنه ) و روی ال سی دی نمایش بده
ولی شمارش نمیکنه و فقط A ,B رو نشون میده .
مشکل چیه ؟؟؟
[code=vb]
$regfile "m16def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portb.5 , Db6 = Portb.4 , Db5 = Portb.3 , Db4 = Portb.2 , E = Portb.1 , Rs = Portb.0
Dim A As Byte
Dim B As Byte
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Ovf0
On Ovf0 = Ali
Start Timer0
Do
Ali:
Locate 1 , 8
Lcd "a"
Incr A
If A > 3 Then
Incr B
Locate 1 , 1
Lcd "b"
A = 0
End If
Loop
End
[/code]
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portb.5 , Db6 = Portb.4 , Db5 = Portb.3 , Db4 = Portb.2 , E = Portb.1 , Rs = Portb.0
Dim A As Byte
Dim B As Byte
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Ovf0
On Ovf0 = Ali
Start Timer0
Do
Ali:
Locate 1 , 8
Lcd "a"
Incr A
If A > 3 Then
Incr B
Locate 1 , 1
Lcd "b"
A = 0
End If
Loop
End