کمک دستور به زبان بسکام نوشتن برنامه تعریف رمز با صفحه کلید در AVR

[sinasat]

با سلام
من یک برنامه میخوام بنویسم که رمز رو خود کاربر توسط صفحه کلید تعریف کنه و بتونه عوضش بکنه :applause: :wow: :read: :nice: :question:

[silicon0]

پاسخ : کمک دستور به زبان بسکام (حلقه ای در یک زمان معین)

منظورتون اینه که اگر در مدت 60 دقیقه فقط یکبار پایه یک بشه شرط را اجرا کند

یا اینکه باید در تمام مدت 60 دقیقه یکسره پایه 1 باشد تا شرط اجرا شود ؟

[ry.mohammad]

پاسخ : کمک دستور به زبان بسکام (حلقه ای در یک زمان معین)

با سلام
من میخوام یک دستور به زبان بسکام بنویسم که اگر این پایه توی این 60 دقیقه 1 شد شرط را اجرا کن در غیر این صورت شرط بعدی رو اجرا کن نمیدونم از چه دستوری باید استفاده کنم
با تشکر تیمورشاهی
لطفا کمکم کنید :cry: :question: :sad: :rolleyes: :nerd: oo: :read: :cry2:

سلام
عزیز یک ساعت 60 دقیقه هست اگر منظورتان اینه که هر 60 دیقه چک کنه که این میشه 24 ساعته حتما منظور شما اینه که مثلا بین سات 10 تا 11 چک کنه برای همین یک مثال کوچولو میزنم

config pind.0=input
config portb.0=output
led alias portb.0
dim hour as byte
do
if hour>=10 and hour<11 then
if pind.0 =1 then
set led
else
reset led
end if
end if
loop
end

در این برنامه اگر پایه ی portd.0 توی ساعت بین 10 و 11 برابر 1 شد ال ای دی روشن میشه در غیر این صورت ال ای دی خاموش میشه
شما میتونید برنامه رو تغییر بدید و به خواستتون برسید

[sinasat]

کمک دستور به زبان بسکام نوشتن برنامه تعریف &

1

[ry.mohammad]

پاسخ : کمک دستور به زبان بسکام (حلقه ای در یک زمان معین)

خیلی ممنون از دوستان
من فقط میخوام یکبار 1 بشه دوست عزیز
و شما دوست عزیزم برنامه تون کمی کمکم کرد اما کامل نه من میخوام که اگر در زمان معینی مثلا 60 ثانیه یک شد شرط رو اجرا کنه حتی زودتر از 60 ثانیه هم یک شد شرط رو اجرا کنه در غیر اینصورت شرط بعدی رو اجرا کنه
:applause: :wow: :cry2: :read: :nerd: :nice: :bye :question: :mrgreen: :rolleyes: :agree: :cry2:

دوست عزیز من منظور شما رو نمی فهمم که کمکتون کنم یکم بیشتر توضیح بدین خوب

[sinasat]

کمک دستور به زبان بسکام نوشتن برنامه تعریف &

2

[ry.mohammad]

پاسخ : کمک دستور به زبان بسکام (حلقه ای در یک زمان معین)

با سلام
من میخوام اگر در طول 60 ثانیه portd.0=1 شد شرط if رو اجرا کنه و اگر 60 ثانیه تمام شد و Portd.0 مساوی با یک نشد شرط else رو اجرا کن
تشکر تیمورشاهی
:wow: :read: :applause: :nice: :nerd: :question: :mrgreen: :rolleyes: :agree:

یعنی می خوای وقتی آی سی که شروع به کار کرد از 0 تا 60 بشماره اینا رو چک کنه بعد دیگه هیچ وقت چک نکنه یعنی فقط یک بار آخه شما نمی گی که این برنامه شما که 0 تا 60 رو میشماره ساعت هست نیست
ببین اگر شما از ثانیه شمار ساعت استفاده کنی 0 تا 60 هست بعد 60 میره صفر یعنی بیشتر از 60 نمیره که شما بخوای شرط دوم رو اجرا کنه
صندوق پیامها هم که پره جناب تیمور شاهی اونا رو خالی کن و سوالاتت رو اینجا مطرح کن با تشکر

[silicon0]

پاسخ : کمک دستور به زبان بسکام (حلقه ای در یک زمان معین)

با سلام
من میخوام اگر در طول 60 ثانیه portd.0=1 شد شرط if رو اجرا کنه و اگر 60 ثانیه تمام شد و Portd.0 مساوی با یک نشد شرط else رو اجرا کن
تشکر تیمورشاهی
:wow: :read: :applause: :nice: :nerd: :question: :mrgreen: :rolleyes: :agree:

یه برنامه برا مثال :

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

Config Pind.0 = Input
Config Pind.1 = Output
Config Timer1 = Timer , Prescale = 256
Enable Interrupts
Enable Timer1
On Timer1 Timer1_isr
Timer1 = 34286
Start Timer1
Dim A As Bit
A = 0

Do
If Pind.0 = 1 Then
Portd.1 = 1 (شرط مورد نظر)
here:
goto here
End If
Loop Until A = 1

Do : Loop (بجای این خط شرط else و بقیه برنامه قرار میگیره )

End

Timer1_isr:
A = 1
Return