اطلاعیه

Collapse
No announcement yet.

زنگ زدن در زمان مشخص

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

    زنگ زدن در زمان مشخص

    با سلام ان نرم ازار ساعت دققه مخوام در زمان 00.00.35 پورت د 0 روشن بشه کمکم کند :read:
    'micro-avr.blogfa.com
    $regfile = "m8def.dat"
    $crystal = 1000000
    Config Pinb.0 = Input
    Config Pinb.1 = Input
    Config Pinb.2 = Input
    Hour Alias Pinb.0 : Mine Alias Pinb.1 : Seco Alias Pinb.2
    Config Clock = Soft

    Time$ = "00:00:00"




    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , _
    Db5 = Portc.3 , Db4 = Portc.2 , Rs = Portc.0 , E = Portc.1
    Cursor Off
    Enable Interrupts
    Declare Sub A
    Declare Sub B
    Declare Sub C
    Cls
    Dim V As Byte
    Do
    Call A
    Call B


    Loop
    End


    Sub A
    Home : Lcd "TIME:" ; Time$ ; " "
    End Sub

    Sub B
    If Hour = 0 Then
    Incr _hour
    If _hour > 23 Then _hour = 0
    End If

    If Mine = 0 Then
    Incr _min
    If _min > 59 Then _min = 0
    End If

    If Seco = 0 Then
    Incr _sec
    If _sec > 59 Then _sec = 0
    End If
    Call C
    End Sub

    Sub C
    For V = 0 To 5
    Call A
    Next

    End Sub
    برچسب ها: در, زدن, زمان, زنگ, مشخص
    #2
    پاسخ : زنگ زدن در زمان مشخص

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

    دیدگاه

      #3
      پاسخ : زنگ زدن در زمان مشخص

      yes

      دیدگاه

        #4
        پاسخ : زنگ زدن در زمان مشخص

        سلام به همه
        صلوات
        نوشتن yes مشکلات حل شد oo:
        دوست عزیز حداقل مرتبش کن تا بشه کدهارو خوند یه نگاه به کدهای خودت این پایین بنداز که چقدر راحت تر میشه خوندش:
        کد:
        'micro-avr.blogfa.com
$regfile = "m8def.dat"
$crystal = 1000000
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Hour Alias Pinb.0 : Mine Alias Pinb.1 : Seco Alias Pinb.2
Config Clock = Soft

Time$ = "00:00:00"




Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , _
 Db5 = Portc.3 , Db4 = Portc.2 , Rs = Portc.0 , E = Portc.1
Cursor Off
Enable Interrupts
Declare Sub A
Declare Sub B
Declare Sub C
Cls
Dim V As Byte
Do
Call A
Call B


Loop
End


Sub A
Home : Lcd "TIME:" ; Time$ ; " "
End Sub

Sub B
If Hour = 0 Then
Incr _hour
If _hour > 23 Then _hour = 0
End If

If Mine = 0 Then
Incr _min
If _min > 59 Then _min = 0
End If

If Seco = 0 Then
Incr _sec
If _sec > 59 Then _sec = 0
End If
 Call C
End Sub

Sub C
For V = 0 To 5
Call A
Next

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

        دیدگاه

          #5
          پاسخ : زنگ زدن در زمان مشخص

          شما ببخشد حالا من مخوام ساعت 00.00.35 پورت d.0 روشن بشه متوند تکملش کند

          دیدگاه

            #6
            پاسخ : زنگ زدن در زمان مشخص

            سلام به همه
            صلوات
            من که حسابی گیج شدم!
            تو دستور زیر:
            کد:
            Home : Lcd "TIME:" ; Time$ ; " "
            اون دو تا کتیشین آخر قراره چیکار کنن؟
            از اسم مستعارهای Hour , Mine ,Seco به عنوان یه کلید استفاده کردی که هر وقت زمین شدن به مقدار مربوطه یک واحد اضافه کنن ؟
            اگر قبل از نمایش ساعت روی LCD یک بار صفحه رو پاک کنی بهتره اگرم میخوای پاک شدن صفحه باعث بد نشون دادن LCD نشه از تاخیر استفاده کن
            نیازی به تابع C نداری
            اینم برنامش:
            کد:
            $regfile = "m8def.dat"
$crystal = 1000000
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input

Config Pind.0 = Output
'----------------------
Hour Alias Pinb.0 : Mine Alias Pinb.1 : Seco Alias Pinb.2
Config Clock = Soft
'----------------------
Time$ = "00:00:00"
'----------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , _
 Db5 = Portc.3 , Db4 = Portc.2 , Rs = Portc.0 , E = Portc.1
'----------------------
Enable Interrupts
'----------------------
Declare Sub A
Declare Sub B
Declare Sub New
'----------------------
Cursor Off
Cls
Dim V As Byte
'----------------------'----------------------'----------------------'----------
Main:
Do

  Call A
  Call B
  Call New
Loop
End
'----------------------'----------------------'----------------------'----------
Sub A
  For V = 0 To 5
   Cls
   Home : Lcd "TIME:" ; Time$
   Waitms 700
  Next V
End Sub
'----------------------
Sub B

If Hour = 0 Then
Incr _hour
If _hour > 23 Then _hour = 0
End If
'~~~~~~~~~~~~
If Mine = 0 Then
Incr _min
If _min > 59 Then _min = 0
End If
'~~~~~~~~~~~~
If Seco = 0 Then
Incr _sec
If _sec > 59 Then _sec = 0
End If

End Sub
'----------------------
'Sub C
'For V = 0 To 5
'Call A
'Next

'End Sub
'----------------------
 Sub New
 If _hour = 0 Then
  If _min = 0 Then
   If _sec = 35 Then
     Pind.0 = 1
   Else
     Pind.0 = 0
   End If
  End If
 End If

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

            دیدگاه

              #7
              پاسخ : زنگ زدن در زمان مشخص

              مهندس درست شده اما همون زمان روشن ممونه امام تامرش درست نمشماره

              دیدگاه

                #8
                پاسخ : زنگ زدن در زمان مشخص

                دو تا سوال دارم

                زبان بسک رو چطور اد بگرم جزوه ا بدد تا اد بگرم


                دوم انکه من جمله هام رو کامل منوسم اما سات نصفش رو پاک مکنه چرا؟

                دیدگاه

                  #9
                  پاسخ : زنگ زدن در زمان مشخص

                  سلام به همه
                  صلوات
                  فرستادی؟
                  دوم انکه من جمله هام رو کامل منوسم اما سات نصفش رو پاک مکنه چرا؟
                  مسقیم توی سایت مینویسی یا اینکه اول توی word کامپیوتر مینویسی و بعد انتقال میدی روی سایت؟
                  مهندس درست شده اما همون زمان روشن ممونه امام تامرش درست نمشماره
                  خاموش نمیشه چون تو برنامه براش تعریف نکردم
                  برای اینکار هم کافیه که از همون شیوه ای که برات گذاشتم استفاده کنی و زمان خاموش شدن رو بهش بدی و بگی پایه هم در اون زمان صفر کن
                  زبان بسک رو چطور اد بگرم جزوه ا بدد تا اد بگرم
                  فقط تمرین
                  برنامت رو بنویس بعد توی پروتئوس چک کن اگر جواب داد یا نداد توی عمل هم چک کن (چون اگر به پروتئوس متکی بشی خیلی باعث عقب افتادنت توی عمل میشه)
                  من از کتاب:
                  میکرو کنترلر های AVR نوشته مهندس علی کاهه استفاده کردم
                  برای راه افتادن خوبه اما بعد که کمی دستت راه افتاد حتما حتما حتما برو سراغ HELP خود نرم افزار Bascom که عالیه
                  بعد از اون هم هر چه سریعتر بیا سراغ زبان c
                  مهمترین کار هم توی یادگیری اینه که بتونی یک پایه رو روشن و خاموش کنی
                  مثلا 1 ثانیه روشن و یک ثانیه خاموش
                  اگر تازه اومدی سراغ برنامه نویسی اصلا دلسرد نشو چون تا یک ماه بعد از اینکه بگیری دور برنامه نویسی مطمئنا میتونی بیای اینجا و به بقیه دوستان یاد بدی
                  ای خدا ، من باید از نظر علم از همه برتر باشم، تا مبادا که دشمنان مرا از این راه طعنه زنند. باید به آن سنگدلانی که علم را بهانه کرده و به دیگران فخر میآ*فروشند، ثابت کنم که خاک پای من هم نخواهند شد. باید همه آن تیره دلان مغرور و متکبر را به زانو در آورم، آنگاه خود خاضع ترین و افتاده ترین مرد روی زمین باشم.
                  شهید دکتر مصطفی چمران​
                  اللهم صل علی محمد و ال محمد و عجل فرجهم
                  ; C is not for children

                  دیدگاه

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