saz20120
پنج شنبه 10 تیر 1389, 00:43 صبح
سلام دوستان
من یه کد برای مگا 8 دارم که توی هر ثانیه صد بار یک رو به پورت کام ارسال می کنه و یه کلید گذاشتم که وقتی میزنی 1 رو به سیستم ارسال میکنه حالا میخوام که وقتی کلید رو میزنم فقط یکبار به سیستم 1 ارسال کنه و بعد از 2 ثانیه اگر دوباره کلید رو زدم یک ارسال کنه.یعنی میخوام کاری کنم که توی هر دو ثانیه فقط یکبار قابلیت ارسال یک رو داشته باشه کد رو میزارم اگه کسی میتونه واسم کاملش کنه.مرسی
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.2 = Output
Config Pinc.1 = Input
Open "comd.2:9600,8,n,1" For Output As #1
Do
If Pinc.1 = 0 Then
Print #1, "1"
Else
Print #1, "0"
End If
Waitms 10
Loop
من یه کد برای مگا 8 دارم که توی هر ثانیه صد بار یک رو به پورت کام ارسال می کنه و یه کلید گذاشتم که وقتی میزنی 1 رو به سیستم ارسال میکنه حالا میخوام که وقتی کلید رو میزنم فقط یکبار به سیستم 1 ارسال کنه و بعد از 2 ثانیه اگر دوباره کلید رو زدم یک ارسال کنه.یعنی میخوام کاری کنم که توی هر دو ثانیه فقط یکبار قابلیت ارسال یک رو داشته باشه کد رو میزارم اگه کسی میتونه واسم کاملش کنه.مرسی
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.2 = Output
Config Pinc.1 = Input
Open "comd.2:9600,8,n,1" For Output As #1
Do
If Pinc.1 = 0 Then
Print #1, "1"
Else
Print #1, "0"
End If
Waitms 10
Loop