مهندس کاملا مشکلم با این نرم افزار جالب حل شد متشکرم
ببخشید با این نرم افزار میشه کاری کرد که LED ها اول به ترتیب روشن بشن و بعد به ترتیب خاموش بشن(البته با حالت کم نور شدن) ؟؟؟؟؟
سلام دوستان
من می خواستم که با زدن یه دکمه یه ال ای دی رو روشن کنم
ولی همون طوری ک تو تصویر زیر مشخصه ال ای دی یکسره روشن هستش میشه ایراد کارم رو بگید ؟ ممنون میشم
![[تصویر: Snap6%D8%B3.jpg]](http://s5.picofile.com/file/8285576426/Snap6%D8%B3.jpg)
سلام
کدتون دوتا مشکل داره
اول اینکه باید کد داخل یه حلقه do loop بنویسید چون برنامه داخل حلقه نیست پس درنتیجه دائم پایه رو چک نمیکنه
دوم اینکه برای چک کردن یک پایه باید از pinc.0 استفاده کنید کد به این صورت میشه
کد php:
do
if pinc.0=1 then
portc.1=1
waitms 500
end if
loop
خیلی خیلی ممنون
راستش مشکل اصلی من کد زیر هستش
میخوام وقتی که پین سی صفر صفر شد بره به نیوپسورد در غیر این صورت بره به اینتر پسورد ولی همش روی نیوپسورد میره !!!!
کد:
$regfile = "m16adef.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pina.2 , Db5 = Pina.3 , Db6 = Pina.4 , Db7 = Pina.5 , E = Pina.1 , Rs = Pina.0
Config Kbd = Portb , Debounce = 50 , Delay = 150
Config Portd.6 = Output
Config Portd.5 = Output
Config Portc.0 = Input
Cursor Off
Dim G As Byte , C As Byte , Text As String * 13 , Pass As Long , Star As String * 15
Do
Mainn:
Cls
If Pinc.0 = 0 Then
Locate 1 , 1
Lcd " NEW Password"
Goto Newpas
Else
Goto Enterpas
Locate 1 , 1
Lcd " Enter Password"
End If
loop
Cls اینجا درست نیست
قبل Do بذار
به اینصورت درسته
کد:
Elseif Pinc.0 = 1 Then
Goto Enterpas
کدت میشه
کد:
$regfile = "m16adef.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pina.2 , Db5 = Pina.3 , Db6 = Pina.4 , Db7 = Pina.5 , E = Pina.1 , Rs = Pina.0
Config Kbd = Portb , Debounce = 50 , Delay = 150
Config Portd.6 = Output
Config Portd.5 = Output
Config Portc.0 = Input
Cursor Off
Dim G As Byte , C As Byte , Text As String * 13 , Pass As Long , Star As String * 15
Mainn:
Cls :cursor off
Do
If Pinc.0 = 0 Then
Locate 1 , 1
Lcd " NEW Password"
Goto Newpas
Elseif pinc.0 = 1 then
Locate 1 , 1
Lcd " Enter Password"
Goto Enterpas
End If
loop
خیلی ممنون ولی بازم وقتی پوش باتن رو میزنم تغییریایجاد نمیشه و نمیره به نیو پسورد
![[تصویر: Snap9.jpg]](http://s6.picofile.com/file/8285674618/Snap9.jpg)
مهندس برنامه ظاهرا درسته ولی من حدس میزنم شما تمام برنامه نمیدید برای همین مشکلتون حل نمیشه
این برنامه که امید جان زحمتش کشیدن به ظاهر درسته