اطلاعیه

Collapse
No announcement yet.

کمک برای یه برنامه ساده

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

    کمک برای یه برنامه ساده

    سلام و خسته نباشید خدمت اساتید محترم
    برای نوشتن یک برنامه ساده به مشکل برخوردم
    ممنون میشم کمکم کنید
    میخوام دستورات :

    Set Portd.0

    Waitms 500

    Reset Portd.0



    Set Portd.1

    Waitms 500

    Reset Portd.1


    Set Portd.0

    Waitms 500

    Reset Portd.0


    Set Portd.2

    Waitms 500

    Reset Portd.2

    رو جای قسمت علامت سوال قرار بدم
    به طوری که با اولین فشرده شدن کلید pina.0 فقط بار اوا اجرا بشن و بار دو تا بی نهایت دستور
    Set Portd.2

    Waitms 200

    Reset Portd.2
    اجرا بشه

    این هم خود برنامه:

    '########################

    $regfile = "m32def.dat"
    $crystal = 1000000

    '######################

    Config Lcd = 16 * 2

    Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5



    Cursor Off
    Cls



    Config Portd.0 = Output

    Config Portd.1 = Output

    Config Portd.2 = Output

    Config Portd.3 = Output

    Config Pina.0 = Input
    Config Pina.1 = Input
    '###############################

    Dim A As Integer

    A = 0
    '//////////////////////////////
    Main:

    Do

    If Pina.0 = 1 Then
    Gosub Up




    End If

    Loop





    '/////////////////////////////////


    Up:

    A = A + 1
    Locate 1 , 1
    Lcd A

    '////////////////////////////////

    '?????????

    '////////////////////////////////



    Set Portd.2

    Waitms 200

    Reset Portd.2






    Return




    End

    برچسب ها: برای, برنامه, ساده, کمک, یه
    #2
    پاسخ : کمک برای یه برنامه ساده

    سلام
    دادا سوالت خیلی گنگ هستش بیشتر توضیح بده قضیه چیه

    دیدگاه

      #3
      پاسخ : کمک برای یه برنامه ساده

      سلام به داداها
      1-سوالت رو مرتب کن و کد هات رو موقع اضافه کردن توی قسمت اضافه کردن کد بزار تا خوانایی بره بالا
      اي خدا ، من بايد از نظر علم از همه برتر باشم، تا مبادا که دشمنان مرا از اين راه طعنه زنند. بايد به آن سنگدلاني که علم را بهانه کرده و به ديگران فخر ميآ*فروشند، ثابت کنم که خاک پاي من هم نخواهند شد. بايد همه آن تيره دلان مغرور و متکبر را به زانو در آورم، آنگاه خود خاضع ترين و افتاده ترين مرد روي زمين باشم.
      شهيد دکتر مصطفي چمران​
      اللهم صل علي محمد و ال محمد و عجل فرجهم
      ; C is not for children

      دیدگاه

        #4
        پاسخ : کمک برای یه برنامه ساده

        نوشته اصلی توسط مهدی رهی
        سلام به داداها
        1-سوالت رو مرتب کن و کد هات رو موقع اضافه کردن توی قسمت اضافه کردن کد بزار تا خوانایی بره بالا



        داداش خیلی واضح گفتم .اما به روی چشم بازم شفاف سازی میکنم
        میخوام با هر بار زدن کلید در پین ورودی( pina.0 )در خروجی portd.2 روشن و خاموش بشه
        اما قبل روشن شدن پورت d2 میخوام یه سری دستورات اجرا بشه که بالا دستوراتو گذاشتم
        مشکلم اینجاس که میخوام با اولین فشرده شدن کلید اون ستورات فقط بار اول اجرا بشن و با فشردن دوباره کلید فقط portd.2 روشن و خاموش بشه

        دیدگاه

          #5
          پاسخ : کمک برای یه برنامه ساده

          میخوای برای اولین بار که کلید رو فشار دادی اون دستورات اجرا بشه و روی portd.2عملی صورت نگیره,و با فشردن کلید از بار دوم به بعد دستورات اجرا نشه و portd.2=Setبشه بعدش با فشردن همون کلید portd.2=resetبشه درست گفتم؟اون دستورات رو هم مرتب تو بخش گذاشتن دستور بزاری اینجا قضیه حله,میشه یه برنامه برات نوشت.

          دیدگاه

            #6
            پاسخ : کمک برای یه برنامه ساده

            نوشته اصلی توسط MeysaM m16
            میخوای برای اولین بار که کلید رو فشار دادی اون دستورات اجرا بشه و روی portd.2عملی صورت نگیره,و با فشردن کلید از بار دوم به بعد دستورات اجرا نشه و portd.2=Setبشه بعدش با فشردن همون کلید portd.2=resetبشه درست گفتم؟اون دستورات رو هم مرتب تو بخش گذاشتن دستور بزاری اینجا قضیه حله,میشه یه برنامه برات نوشت.
            عالی گفتی دادا
            فقط در مورد آخرش با زدن کلید خودش روشن و خاموش بشه _ portd.2 set و بعد 200میلی ثانیه خودش رست بشه
            دست گلت درد نکنه
            دستورات:

            Set Portd.0

            Waitms 500

            Reset Portd.0



            Set Portd.1

            Waitms 500

            Reset Portd.1



            Set Portd.0

            Waitms 500

            Reset Portd.0

            دیدگاه

              #7
              پاسخ : کمک برای یه برنامه ساده

              [code=qbasic]
              $Regfile="m32def.dat"
              $Crystal=1000000
              Config PortD=Output
              Config PortA.0=Input
              PortA.0=1
              If pina.0=0 then
              If pina.0=1 then
              Set portd.0
              waitms 500
              Reset portd.0
              Set portd.1
              waitms 500
              Reset portd.1
              Set portd.0
              waitms 500
              Reset portd.0
              End if
              End if
              Do
              If pina.0=0 then
              If pina.0=1 then
              Set portd.0
              waitms 500
              Reset portd.0
              Loop
              End if
              End if

              [/code]

              دیدگاه

                #8
                پاسخ : کمک برای یه برنامه ساده

                دادا این برنامه رو نوشتم البته دستی چون به لپتاپم دسترسی ندارم نتونستم چک کنم عملکرد برنامه رو,خودت چک کن ببین به دردت خورد یه اطلاعی بده .تغییری هم خواستی بدی یا سوالی داشتی باز تا حد توان در خدمتیم .البته احتمالا دوستان با تجربه تر برنامه های بهتری بزارن

                دیدگاه

                  #9
                  پاسخ : کمک برای یه برنامه ساده

                  نوشته اصلی توسط MeysaM m16
                  دادا این برنامه رو نوشتم البته دستی چون به لپتاپم دسترسی ندارم نتونستم چک کنم عملکرد برنامه رو,خودت چک کن ببین به دردت خورد یه اطلاعی بده .تغییری هم خواستی بدی یا سوالی داشتی باز تا حد توان در خدمتیم .البته احتمالا دوستان با تجربه تر برنامه های بهتری بزارن
                  دست گلت درد نکنه
                  برنامه رو کامپایل کردم بسکام هیچ خطایی نگرفت
                  اما تو پرتئوس اجرا نشد
                  شرمنده وقتتم گرفتم
                  فایل پروتئوس رو برات میزارم که خودت هم چک کنی

                  دیدگاه

                    #10
                    پاسخ : کمک برای یه برنامه ساده

                    نوشته اصلی توسط aref db
                    دست گلت درد نکنه
                    برنامه رو کامپایل کردم بسکام هیچ خطایی نگرفت
                    اما تو پرتئوس اجرا نشد
                    شرمنده وقتتم گرفتم
                    فایل پروتئوس رو برات میزارم که خودت هم چک کنی
                    چطوری باید فایل بزارم اینجا؟؟؟؟

                    دیدگاه

                      #11
                      پاسخ : کمک برای یه برنامه ساده

                      نوشته اصلی توسط aref db
                      دست گلت درد نکنه
                      برنامه رو کامپایل کردم بسکام هیچ خطایی نگرفت
                      اما تو پرتئوس اجرا نشد
                      شرمنده وقتتم گرفتم
                      فایل پروتئوس رو برات میزارم که خودت هم چک کنی
                      خواهش میکنم.
                      تو پروتوس بعد گذاشتن میکرو رو صفحه ,روش دوبل کلید کن یه علامت گذاشتن فایل میبینی از اونجا فایلی رو که با بسکام کامپایل کردی رو انتخاب کن و okکن تا روی میکرو ثبت بشه.
                      نوشته اصلی توسط aref db
                      چطوری باید فایل بزارم اینجا؟؟؟؟
                      برا گذاشتن دستور ها تو اینجا هم روی پاسخ که میزنی بالا بعد از موضوع و ایکن و انتخاب فونت ,داخل مستطیل سفید نوشته کد ,از داخلش بیسیک رو انتخاب کن و بیا دستوراتت رو پایین بنویس.
                      لپتاپم مشکل پیدا کرده باید بدم تعمیر تا دو سه هفته به لپتاپ دسترسی ندارم فایل ها رو نمیتونم چک کنم

                      دیدگاه

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