درخواست کانتر ساده

[saeidnm]

پاسخ : درخواست کانتر ساده

من تایپیک بالا گفتم این آخرین برنامه ای که دادی مشکلش چیه. میخوام در هر شماره ای بود صعودی و نزولی شمار رو انجام بده مثلا زمانی از 0 به 1 و 2 و3 و4 بصورت صعودی رفت حالا با تحریک میکروسئیچ نزولی خواستم به 3 برگردم این کار رو انجام بده برنامه ای که شما دادین فقط زمانی که به 10 رسید نزولی شمار فعال میشه و همچنین زمانی به صفر رسید صعودی شمار فعال میشه
با تشکر

[alireza shabani parsa]

پاسخ : درخواست کانتر ساده

سلام عزیزم
آقا جان ، برادر من ، عزیز من ، قربون شکلت
این یکی جدیده شما اینو تست کن اگه اینطوری نبود بیا منو بزن

$regfile = "m16adef.dat"
$crystal = 8000000

Config Porta.0 = Input
Config Porta.1 = Input

Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , Rs = Portb.2 , E = Portb.3

Config Lcd = 16 * 2

Dim A As Byte
Dim B As Byte

Sw1 Alias Pina.0
Sw2 Alias Pina.1

Cls
Lcd A


Do
If Sw1 = 1 Then Gosub C
If Sw2 = 1 Then Gosub D
Loop



C:
Incr A
If A > 10 Then A = 10
Cls
Lcd A
While Sw1 = 1
Wend
Return

D:
Decr A
if a > 254 then a=0
Cls
Lcd A
While Sw2 = 1
Wend
Return

[saeidnm]

پاسخ : درخواست کانتر ساده

این یکی دیگه حل شد دمت گرم

[alireza shabani parsa]

پاسخ : درخواست کانتر ساده

فدایی داری