اطلاعیه

Collapse
No announcement yet.

کمک برای تبدیل کد بسکام به c

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

    کمک برای تبدیل کد بسکام به c

    سلام
    کسی میتونه کد c عکس زیر برام بنویسه؟؟؟؟؟؟؟
    تو بسکام نوشته شده میخوام تو کدویژن بنویسمش خیلی گیر کردم :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry:


    regfile = "m32def.dat"
    crystal = 1000000
    Config Portd = Output
    Config Adc = Single , Prescaler = Auto , Reference = Avcc
    Dim W As Word
    Dim M As Word
    Declare Sub Gas(byval W As Word )
    Declare Sub Motion(byval M As Word )
    Start Adc
    Do
    W = Getadc(0)
    Call Gas(w)
    M = Getadc(1)
    Call Motion(m)
    Set Portd.5
    Waitms 500
    Reset Portd.5
    Waitms 600
    Loop
    End
    Sub Motion(m As Word )
    If M > 600 Then
    Set Portd.6
     Waitms 200
    Reset Portd.6
    Else
    Reset Portd.6
    End If
    End Sub
    Sub Gas(w As Word )
    If W > 300 Then
    Set Portd.6
    Wait 3
    Else
    Reset Portd.6
    End If
    End Sub
    اضافه شده در تاریخ :
    واقعا کسی از دوستان نمیتونه کمک کنه؟؟؟؟؟؟؟؟؟؟ :cry: :cry: :cry: :cry: :cry: :cry: :cry: :cry:
    اضافه شده در تاریخ :
    یعنی کسی واقعا نمیتونه؟؟؟؟؟
    برچسب ها: برای, بسکام, تبدیل, کد, کمک
    #2
    پاسخ : کمک برای تبدیل کد بسکام به c

    خب من تا حدی سی و بیسیک بلدم
    اگر خواستید شما شروع کنید من هم کمک میکنم
    مثلا reg file همون include هست یعنی بنویسید include <mega32.h>
    crystal هم که معلومه
    سطر سوم :پورت b رو خروجی میکنه
    سطر چهارم:راه اندازی adc با ولتاژ رفرنس برابر avcc
    سطر پنجم:تعریف متغیرw به صورت word
    سطر پششم:تعریف متغیر m به صورت word

    از این به بعد رو مرتب بنویسید تو قسمت کد همین بالا visual basic انتخاب کنید و کپی کنید
    تا بتونم بخونم
    از دو چیز بسیار زیاد یاد گرفتم (1) نمونه مدارهای موجود در سایت های خارجی (2) مهندسی معکوس بردهای غیر ایرانی. به نقل از آقای مرتضی امانی
    --------------------------------------------------------
    تمام دنیا ما را تحریم کرده اند؛ حداقل خودمان همدیگر را تحریم نکنیم. به نقل از pencil
    --------------------------------------------------------
    اشک هایی که پس از هر شکست ریخته میشوند همان عرق هاییست که برای پیروزی ریخته نشده است. mehran901

    دیدگاه

      #3
      پاسخ : کمک برای تبدیل کد بسکام به c

      (Declare Sub Gas(byval W As Word
      (Declare Sub Motion(byval M As Word



      اقا دم شما گرم

      دیدگاه

        #4
        پاسخ : کمک برای تبدیل کد بسکام به c

        Start Adc
        Do
        (W = Getadc(0
        (Call Gas(w
        (M = Getadc(1
        (Call Motion(m
        Set Portd.5
        Waitms 500
        Reset Portd.5
        Waitms 600
        Loop
        End

        دیدگاه

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