اطلاعیه

Collapse
No announcement yet.

اضافه کردن if در بسکام

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    اضافه کردن if در بسکام

    سلام من میخوام به این کد یه دستور اضافه کنم
    که وقتی 7سکمنت عدد 6 رو نشون میده پین c.0 روشن بشه بعنی خروجی و وقتی کمتراز 6 هست پین خاموش باشه
    اینم کد برنامه
    باید چی به برنامه اضافه کنم
    کد:
    $regfile = "m8def.dat"
$crystal = 1000000
Config Portb = Input
Config Portd = Output
Dim A As Byte
Dim B As Byte
Dim C As Byte
Declare Sub Rand
Do
Debounce Pinb.0 , 1 , Rand , Sub
B = Lookup(a , Mohamad)
C = Rnd(6)
Portd = B
Loop
End
'*******************************************************************************
Mohamad:
Data &B1000000 , &B1111001 , &B0100100 , &B0110000
Data &B0011001 , &B0010010 , &B0000010 , &B1111000
Data &B0000000 , &B0010000
'**************************************                             'end program
Sub Rand
A = Rnd(6)
A = A + 1
End Sub
    برچسب ها: اضافه, بسکام, در, کردن
    #2
    پاسخ : اضافه کردن if در بسکام

    کد:
    if b=6 then
portc.0=1
else
portc.0=0
end if
    .The best question deserves a better answer
    =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=
    «پناه»می برم «به خدا»
    از عـیبی که ، «امروز» در خود می بینم، و «دیروز» «دیگران را» به خاطر، «هـمان عیـب» ملامت کرده ام.
    محتاط باشیم، در «سرزنش» و «قضاوت کردن دیگران». وقتی نه از «دیروز او» خبر داریم و نه از "فردای خودمان" .

    دیدگاه

      #3
      پاسخ : اضافه کردن if در بسکام

      ممنون از راهنمایینون میشه بگید کجاش باید اضافه کنم

      دیدگاه

        #4
        پاسخ : اضافه کردن if در بسکام

        برنامه مد نطرتو بگو نا برات بزارم
        .The best question deserves a better answer
        =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=
        «پناه»می برم «به خدا»
        از عـیبی که ، «امروز» در خود می بینم، و «دیروز» «دیگران را» به خاطر، «هـمان عیـب» ملامت کرده ام.
        محتاط باشیم، در «سرزنش» و «قضاوت کردن دیگران». وقتی نه از «دیروز او» خبر داریم و نه از "فردای خودمان" .

        دیدگاه

          #5
          پاسخ : اضافه کردن if در بسکام

          گفتم که میخوام وقتی 7 سگمنت عدد 6 رو نشون میده portc.0 روشن شه یا همون یک شه
          و وقتی غیر از 6 رو نشون میده اون پین خروجی نشه یعنی صفر شه

          دیدگاه

            #6
            پاسخ : اضافه کردن if در بسکام

            کد:
            $regfile = "m8def.dat"
$crystal = 1000000
Config Portb = Input
Config Portd = Output
Dim A As Byte
Dim B As Byte
Dim C As Byte
Declare Sub Rand
Do
Debounce Pinb.0 , 1 , Rand , Sub
B = Lookup(a , Mohamad)
C = Rnd(6)
Portd = B
if a=6 then
portc.0=1
else
portc.0=0
end if
Loop
End
'*******************************************************************************
Mohamad:
Data &B1000000 , &B1111001 , &B0100100 , &B0110000
Data &B0011001 , &B0010010 , &B0000010 , &B1111000
Data &B0000000 , &B0010000
'**************************************                             'end program
Sub Rand
A = Rnd(6)
A = A + 1
End Sub
            .The best question deserves a better answer
            =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=
            «پناه»می برم «به خدا»
            از عـیبی که ، «امروز» در خود می بینم، و «دیروز» «دیگران را» به خاطر، «هـمان عیـب» ملامت کرده ام.
            محتاط باشیم، در «سرزنش» و «قضاوت کردن دیگران». وقتی نه از «دیروز او» خبر داریم و نه از "فردای خودمان" .

            دیدگاه

              #7
              پاسخ : اضافه کردن if در بسکام

              تو پرتئوس جواب نمیده

              دیدگاه

                #8
                پاسخ : اضافه کردن if در بسکام

                http://www.4shared.com/rar/Aoowfifh/rand.html
                .The best question deserves a better answer
                =-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=
                «پناه»می برم «به خدا»
                از عـیبی که ، «امروز» در خود می بینم، و «دیروز» «دیگران را» به خاطر، «هـمان عیـب» ملامت کرده ام.
                محتاط باشیم، در «سرزنش» و «قضاوت کردن دیگران». وقتی نه از «دیروز او» خبر داریم و نه از "فردای خودمان" .

                دیدگاه

                  #9
                  پاسخ : اضافه کردن if در بسکام

                  ممنون از راهنماییتون
                  خیلی خیلی ممنون

                  دیدگاه

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