خیلی ممنون
واقعاکه شما دارید زکات علمتان رامی پردازید
من برنامه ای می خواهم که شمارنده باشه یعنی دو ورودی مثل برنامه قبلی داشته باشه ولی درال سی دی عددنشون بده یعنی بایک شدن یکی ازورودی ها به عدد ال سی دی یکی اضافه بشه وبایک شدن ورودی بعدی ازعدد ال سی دی یکی کم بشه(درضمن درلحظه اول عدد صفر رونشون بده).
باسپاس
(۲۵-دى-۱۳۸۸, ۱۵:۵۲:۱۱)رسول نوشته است: [ -> ]خیلی ممنون
واقعاکه شما دارید زکات علمتان رامی پردازید
من برنامه ای می خواهم که شمارنده باشه یعنی دو ورودی مثل برنامه قبلی داشته باشه ولی درال سی دی عددنشون بده یعنی بایک شدن یکی ازورودی ها به عدد ال سی دی یکی اضافه بشه وبایک شدن ورودی بعدی ازعدد ال سی دی یکی کم بشه(درضمن درلحظه اول عدد صفر رونشون بده).
باسپاس
سلام...
دوست عزیز برنامهاش خیلی راحته ولی دوست دارم خودت بنویسی....
یه متغییر تعریف کن و بعد با دستور if و زیر مجموعش به متغییر مقدار بده......
خودت بنویس تا یاد بگیری
نقل قول: دوست عزیز برنامهاش خیلی راحته ولی دوست دارم خودت بنویسی
نقل قول: خودت بنویس تا یاد بگیری
به شدت تایید می شه !!!!!
من خیلی تلاش کردم وازدستورات مختلف هم استفاده کردم اما من درابتدای کاربابیسکام هستم و چندان بلدنیستم .
لطفا این بارهم کمکم کنید.
لطفا
(۲۵-دى-۱۳۸۸, ۲۰:۵۶:۱۰)t3r!p3000 نوشته است: [ -> ]نقل قول: دوست عزیز برنامهاش خیلی راحته ولی دوست دارم خودت بنویسی
نقل قول: خودت بنویس تا یاد بگیری
به شدت تایید می شه !!!!!
این شدت ما رو کشته....
افرین....
ebka جان تو که کمک کار بودی؟
این بارهم کمک کن!
من باتلاش فراوان یک برنامه بصورت زیر نوشتم لطفا نگاه کنید اگراشکالی داشت راهنمایی ام کنید.
باتشکر
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Pind.0 = Input
Config Pind.1 = Input
Dim A As Byte
A = 0
Cls
Do
If Pind.0 = 1 Then
Incr A
Cls
Lcd A
End If
Cls
If Pind.1 = 1 Then
Decr A
Cls
Lcd A
End If
Loop
مهندس تقریبادرسته !
فقط کافیه یه تاخیر 200 میلی ثانیه هم تو حلقه ات بذاری !
چون الان یه لحظه کلید رو فشار بدی اینقدر سریع می شمره که به جای یکی می بینی 100 تا شمرد !!!
حالا همین برنامه رو با دستور DEBOUNCE بنویس !
(۲۶-دى-۱۳۸۸, ۱۱:۵۶:۰۴)رسول نوشته است: [ -> ]ebka جان تو که کمک کار بودی؟
این بارهم کمک کن!
من باتلاش فراوان یک برنامه بصورت زیر نوشتم لطفا نگاه کنید اگراشکالی داشت راهنمایی ام کنید.
باتشکر
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Pind.0 = Input
Config Pind.1 = Input
Dim A As Byte
A = 0
Cls
Do
If Pind.0 = 1 Then
Incr A
Cls
Lcd A
End If
Cls
If Pind.1 = 1 Then
Decr A
Cls
Lcd A
End If
Loop
سلام...
رسول جان من فقط میخوام یاد بگیری.... وقتی میبینم داری برنامه مینویسی خیلی خوشحال میشم... من و بقیه دوستان بهت کمک میکنیم...
افرین...
موفق باشی...
سلام
بالاخره تونستم برنامه کامل رابا ده ها بار آزمون وخطا بنویسم وجواب هم گرفتم.
ازشما دوستان عزیزهم خیلی ممنونم که به جای دادن ماهی به من ماهیگیری رایاد دادید.
باتشکر وسپاس
واما برنامه ام به صورت زیر است:
$regfile = "m8def.dat"
$crystal = 8000000
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
Config Pind.0 = Input
Config Pind.1 = Input
Dim A As Word
A = 0
Cls
Lcd A
Waitms 107
Do
If Pind.0 = 1 Then
Incr A
Cls
Lcd A
Waitms 165
End If
If Pind.1 = 1 Then
Decr A
Cls
Lcd A
Waitms 165
End If
Loop
(۲۶-دى-۱۳۸۸, ۲۰:۱۰:۳۳)رسول نوشته است: [ -> ]سلام
بالاخره تونستم برنامه کامل رابا ده ها بار آزمون وخطا بنویسم وجواب هم گرفتم.
ازشما دوستان عزیزهم خیلی ممنونم که به جای دادن ماهی به من ماهیگیری رایاد دادید.
باتشکر وسپاس
واما برنامه ام به صورت زیر است:
$regfile = "m8def.dat"
$crystal = 8000000
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
Config Pind.0 = Input
Config Pind.1 = Input
Dim A As Word
A = 0
Cls
Lcd A
Waitms 107
Do
If Pind.0 = 1 Then
Incr A
Cls
Lcd A
Waitms 165
End If
If Pind.1 = 1 Then
Decr A
Cls
Lcd A
Waitms 165
End If
Loop
سلام..
حالا بیا و از دستور debounceاستفاده کن....دیدی زمانی کا کلید رو میزنی یهو تندی زیاد میشه.....
ebi:
do
debounce pind.1,1,ebka
loop
ebka:
incr a
home l
lcd a
waitms 100
goto ebi