اطلاعیه

Collapse
No announcement yet.

دستور IF

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    دستور IF

    سلام .
    برنامه زیر باید طوری باشه که هر وقت 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]
    ما زنده به آنیم که آرام نگیـریم
    موجـیم که آسودگی ما عدم ماست...
لطفا صبر کنید...
X