کمک مشکل برنامه

[timkia]

سلام دوستان خستع نباشید کمک کنین به برنامه میخام برای دانشگاه هر چی فکر میکنم نمیشه نوشت :sad: :sad: :sad:
میخام که اگر یه کلید فشاری رو2 بار فشرده شد یکی از پایه های میکرو یک بشه که بک رله 3 ولت رو فعال کنه میشه تویه نوشتن برنامه کمک کنین برنامه نویسیم صفره :cry: :cry: ممنون

[ry.mohammad]

پاسخ : کمک مشکل برنامه

سلام
نگفتی با کدوم زبان می خوای برای همین من با بیسیک می گم که بنویسی
یه متغیر تعریف می کنی مثلا با نام A بعد با دستور شرطی اون کلیدی که به پایه میکرو وصل هست رو با این متغیر مقدار قطع و وصلش رو می شماری و می گی که اگر A=2 شد فلان پورت رو یک کن بعد یه ترانزیستور رو به این فلان پورت وصل می کنی و رله رو هم به این ترانزیستور وصل می کنی :rolleyes:

[RahimEdison]

پاسخ : کمک مشکل برنامه

$regfile = "m8def.dat"
$crystal = 8000000
Config Pinb.0 = Output
Config Pinc.0 = input
dim sw as Byte
sw = 0

do
  if pinc.0 = 1 then sw = sw + 1

  if sw = 3 then
    reset PORTB.0
    sw = 0
   end IF

   if sw = 2 then
    set PORTB.0
  end IF

  waitms 300

loop
end

[timkia]

پاسخ : کمک مشکل برنامه

دستت درد نکنه با همین بیسیک بود فکر کنم یه دونیا ممنون

[timkia]

پاسخ : کمک مشکل برنامه

دوستان یه تایپیک اشتباهی مثل این ساختم چه جوری میشه حدف کرد

[timkia]

پاسخ : کمک مشکل برنامه

سلام میگم که یه سوال دیگه اگر بخام هر بار که دو بار فشرده میشه فقط یک بار رله فعال بشه و تموم بشه باید چی بنویسم چون الان وقتی کلید رو میزنم هر چند ثانیه ای فعال میشه ببخشید همش سوال میکنم oo: :cry:

[RahimEdison]

پاسخ : کمک مشکل برنامه

$regfile = "m8def.dat"
$crystal = 8000000
Config Pinb.0 = Output
Config Pinc.0 = input
dim sw as Byte
sw = 0

do
  if pinc.0 = 1 then sw = sw + 1

   if sw = 2 then
    set PORTB.0
  end IF

  waitms 300

loop
end

به همین راحتی

[mj.sh]

پاسخ : کمک مشکل برنامه

با اجازه.شاید این هم باشه.خیلی هم ساده

Debounce Pind.0 , 0 , mj , Sub
mj:
Debounce Pind.0 , 0 , sh , Sub
return
sh:
set porta.1
wait 1
return

[timkia]

پاسخ : کمک مشکل برنامه

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

[timkia]

پاسخ : کمک مشکل برنامه

با اجازه.شاید این هم باشه.خیلی هم ساده

Debounce Pind.0 , 0 , mj , Sub
mj:
Debounce Pind.0 , 0 , sh , Sub
return
sh:
set porta.1
wait 1
return

این چه زبانیه من زیاد وارد نیستم oo:

[ry.mohammad]

پاسخ : کمک مشکل برنامه

سلام

اینا همش زبان بیسیک هست
اینم اون برنامه ای که می خوای

http://s6.picofile.com/file/8216060684/New_folder_2_.rar.html

[code=c]
$regfile = "m8def.dat"
$crystal = 8000000
Config Pinb.0 = Output
Config Pinc.0 = input
Dim Sw As Byte , A As Byte
sw = 0

Do
If Pinc.0 = 1 Then A = 0
If Pinc.0 = 0 And A = 0 Then
A = 1
Sw = Sw + 1
If Sw > 2 Then Sw = 1
End If

if sw = 2 then
set PORTB.0
end IF

If Portb.0 = 1 Then
Waitms 1000
Reset Portb.0
Sw = 0
End If

loop
end

[/code]

[timkia]

پاسخ : کمک مشکل برنامه

سلام

اینا همش زبان بیسیک هست
اینم اون برنامه ای که می خوای

http://s6.picofile.com/file/8216060684/New_folder_2_.rar.html

[code=c]
$regfile = "m8def.dat"
$crystal = 8000000
Config Pinb.0 = Output
Config Pinc.0 = input
Dim Sw As Byte , A As Byte
sw = 0

Do
If Pinc.0 = 1 Then A = 0
If Pinc.0 = 0 And A = 0 Then
A = 1
Sw = Sw + 1
If Sw > 2 Then Sw = 1
End If

if sw = 2 then
set PORTB.0
end IF

If Portb.0 = 1 Then
Waitms 1000
Reset Portb.0
Sw = 0
End If

loop
end

[/code]

سلام ایول ^_^ یه دنیا ممنون خیلی لطف کردی

[timkia]

پاسخ : کمک مشکل برنامه

دستت دردنکنه ولی برنامه عمل نمیکنه :sad: :sad: :sad:

[milad brave]

پاسخ : کمک مشکل برنامه

من برات یه کد ساده نوشتم یه فایل شبیه سازی هم هست صد در صد کار میکنه
دوستان چرا پیچیده اش میکنید!!! oo:
یه کلید دوبار میزنی یه ال ای دی روشن میشه 1 ثانیه بعد خاموش میشه ک میتونی بجای ال ای دی رله استفاده کنی

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

Config Portb = Input
Config Porta = Output

Dim A As Byte

Do
If Pinb.0 = 1 Then
Incr A
Waitms 250
End If

If A = 2 Then
Porta.0 = 1
Wait 1
Porta.0 = 0
A = 0
End If

Loop

http://uplod.ir/j9suz9cdjz0o/milad.zip.htm

[ry.mohammad]

پاسخ : کمک مشکل برنامه

سلام ایول ^_^ یه دنیا ممنون خیلی لطف کردی

یه فایل پروتیوس هست اون رو باز کن و دقیقا مدارت رو عین اون ببند کار می کنه