افکت کم نور و پر نور شدن تدریجی با بسکام؟

[hhdatiranled]

نرم افزاری رایگان جهت تولید کد برنامه بیسیک کم نور و پر نور کردن ال ای دی ها در تابلو ال ای دی های ثابت:
http://tirajeh-teg.ir/products%20-%2006.htm

[رسول21]

مهندس کاملا مشکلم با این نرم افزار جالب حل شد متشکرم

[mmoalh]

ببخشید با این نرم افزار میشه کاری کرد که LED ها اول به ترتیب روشن بشن و بعد به ترتیب خاموش بشن(البته با حالت کم نور شدن) ؟؟؟؟؟

[ahmad123321]

سلام دوستان 
من می خواستم که با زدن یه دکمه یه ال ای دی رو روشن کنم 
ولی همون طوری ک تو تصویر زیر مشخصه ال ای دی یکسره روشن هستش میشه ایراد کارم رو بگید ؟ ممنون میشم

[hadikh73]

سلام
کدتون دوتا مشکل داره
اول اینکه باید کد داخل یه حلقه do loop بنویسید چون برنامه داخل حلقه نیست پس درنتیجه دائم پایه رو چک نمیکنه
دوم اینکه برای چک کردن یک پایه باید از pinc.0 استفاده کنید کد به این صورت میشه

کد php:

do
if pinc.0=1 then
portc.1=1
waitms 500
end if
loop 


[ahmad123321]

خیلی خیلی ممنون 
راستش مشکل اصلی من کد زیر هستش 
میخوام وقتی که پین سی صفر صفر شد بره به نیوپسورد در غیر این صورت بره به اینتر پسورد ولی همش روی نیوپسورد میره !!!!

کد:

$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

[omid_phoenix]

کد:

Do
Mainn:
Cls

Cls اینجا درست نیست
قبل Do بذار

کد:

Else
Goto Enterpas

به اینصورت درسته

کد:

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

[ahmad123321]

خیلی ممنون ولی بازم وقتی پوش باتن رو میزنم تغییریایجاد نمیشه و نمیره به نیو پسورد

[hadikh73]

مهندس برنامه ظاهرا درسته ولی من حدس میزنم شما تمام برنامه نمیدید برای همین مشکلتون حل نمیشه
این برنامه که امید جان زحمتش کشیدن به ظاهر درسته