اطلاعیه

Collapse
No announcement yet.

مشکل در برنامه نویسی به زبان بیسیک

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

    مشکل در برنامه نویسی به زبان بیسیک

    سلام دوستان عزیز

    ببخشید یه سوال داشتم اونم اینکه توهمین برنامه بسکام دستور این عملی که من می خوام چی میشه؟

    من از دستور if یه شمارنده درست کردم که با یه پایه ی ورودی کارمیکنه. مثلا" وقتی که پایه ورودی 0 میشه شروع به شمارش میکنه و به محض اینکه پایه ی ورودی 1 شد شمارش رو متوقف میکنه. حالا میخوام یه دستور بنویسم که هروقت پایه ی ورودی 1 شد رو همون عددی که شمارش کرده بایسته. یعنی آخرین عددی رو که شمرده همون رو نمایش بده تا دوباره پایه ی ورودی 1 بشه و ادامه اش رو بشمره.
    فقط دوستان اگه میشه سریع جواب بدین خیلی وقتم کمه.
    خیلی خیلی ممنون

    #2
    پاسخ : یه سوال

    سلام
    من دقیقا منظورت رو متوجه نشدم
    ولی ببین اینی هست که می خوای


    $regfile = "M8def.DAt"
    $crystal = 1000000
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5 , Rs = Pinb.0 , E = Pinb.1
    Config Lcd = 16 * 2
    Config Pind.0 = Input

    Dim X As Long
    Dim Y As Long
    X = 0
    Cls
    Do

    If Pind.0 = 0 Then
    Incr X
    Lcd X
    Tekrar:
    If Pind.0 = 1 Then
    Lcd X
    Goto Tekrar
    End If

    End If

    Loop

    End

    من آن گلبرگ مغرورم که می میرم ز بی آبی ولی با خفت و خواری پی شبنم نمی گردم.

    دیدگاه


      #3
      پاسخ : یه سوال

      ببین دوست عزیز اینه برنامه ام
      $regfile = "m16def.dat"
      $crystal = 1000000
      Config Porta = Output
      Config Portb = Output
      Config Portc = Input
      Do
      If Pinc.0 = 1 Then


      Porta = &B00000000 : Portb = &B00000000 : Waitms 1000
      Porta = &B00000000 : Portb = &B00000001 : Waitms 1000
      Porta = &B00000000 : Portb = &B00000010 : Waitms 1000
      Porta = &B00000000 : Portb = &B00000011 : Waitms 1000
      Porta = &B00000000 : Portb = &B00000100 : Waitms 1000
      Porta = &B00000000 : Portb = &B00000101 : Waitms 1000
      Porta = &B00000000 : Portb = &B00000110 : Waitms 1000
      Porta = &B00000000 : Portb = &B00000111 : Waitms 1000
      Porta = &B00000000 : Portb = &B00001000 : Waitms 1000
      Porta = &B00000000 : Portb = &B00001001 : Waitms 1000
      .
      .
      .
      Else

      اینجا میخوام تا همون جایی که شمارش کرده توقف بشه. یعنی مثلا" اگه تا 8 شمرده . همون رو نشون بده و به محض اینکه دوباره Pinc.0 = 1 شد ادامه اش رو بشمره.
      End If

      Loop

      خیلی ممنون دوست عزیز

      دیدگاه

      لطفا صبر کنید...
      X