اگرورودی یک شود آنگاه lcd ...

[رسول]

خیلی ممنون
واقعاکه شما دارید زکات علمتان رامی پردازید
من برنامه ای می خواهم که شمارنده باشه یعنی دو ورودی مثل برنامه قبلی داشته باشه ولی درال سی دی عددنشون بده یعنی بایک شدن یکی ازورودی ها به عدد ال سی دی یکی اضافه بشه وبایک شدن ورودی بعدی ازعدد ال سی دی یکی کم بشه(درضمن درلحظه اول عدد صفر رونشون بده).
باسپاس

[EBKA]

خیلی ممنون
واقعاکه شما دارید زکات علمتان رامی پردازید
من برنامه ای می خواهم که شمارنده باشه یعنی دو ورودی مثل برنامه قبلی داشته باشه ولی درال سی دی عددنشون بده یعنی بایک شدن یکی ازورودی ها به عدد ال سی دی یکی اضافه بشه وبایک شدن ورودی بعدی ازعدد ال سی دی یکی کم بشه(درضمن درلحظه اول عدد صفر رونشون بده).
باسپاس

سلام...
دوست عزیز برنامهاش خیلی راحته ولی دوست دارم خودت بنویسی....
یه متغییر تعریف کن و بعد با دستور if و زیر مجموعش به متغییر مقدار بده......
خودت بنویس تا یاد بگیری

[t3r!p3000]

دوست عزیز برنامهاش خیلی راحته ولی دوست دارم خودت بنویسی

خودت بنویس تا یاد بگیری

به شدت تایید می شه !!!!!

[رسول]

من خیلی تلاش کردم وازدستورات مختلف هم استفاده کردم اما من درابتدای کاربابیسکام هستم و چندان بلدنیستم .
لطفا این بارهم کمکم کنید.
لطفا

[t3r!p3000]

مهندس کتاب سعید جون می تونه کمک خوبی باشه :
http://forum.iranled.com/showthread.php?tid=10869

اینم آموزش هم بدک نیست :
http://forum.iranled.com/showthread.php?tid=14543

اینها رو بخون !
هرجاشو مشکل داشتی بگو !!!

[EBKA]

دوست عزیز برنامهاش خیلی راحته ولی دوست دارم خودت بنویسی

خودت بنویس تا یاد بگیری

به شدت تایید می شه !!!!!

این شدت ما رو کشته....
افرین....

[رسول]

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

[t3r!p3000]

مهندس تقریبادرسته !

فقط کافیه یه تاخیر 200 میلی ثانیه هم تو حلقه ات بذاری !
چون الان یه لحظه کلید رو فشار بدی اینقدر سریع می شمره که به جای یکی می بینی 100 تا شمرد !!!

حالا همین برنامه رو با دستور DEBOUNCE بنویس !

[EBKA]

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

[EBKA]

سلام
بالاخره تونستم برنامه کامل رابا ده ها بار آزمون وخطا بنویسم وجواب هم گرفتم.
ازشما دوستان عزیزهم خیلی ممنونم که به جای دادن ماهی به من ماهیگیری رایاد دادید.
باتشکر وسپاس
واما برنامه ام به صورت زیر است:
$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