۱۶-تير-۱۳۸۹, ۱۲:۲۴:۳۹
برنامه ای که نوشتم اینه
ولی فکر کنم خیلی ایراد داره
تو قسمت if منظورم این بوده که اگه ورودی که به سنسور وصله بین 0و 1 بود(یعنی نور محیط بین تاریک و روشن) خروجی که b هست و به لامپ وصله هم بین خاموش و روشن باشه.اگه ورودی کلا خاموش بود لامپ روشن بشه و برعکس.
قسمت بعد هم یعنی تا وقتی که کلید های صفحه کلید فشرده نشدن این کاررو انجام بده و اگه کلیدی فشرده شد ورودی از سنسور نگیر
کد php:
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = _ Pinb.7 , Rs = Pinb.2 , E = Pinb.3
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto
Config Kbd = Portc
Config Timer1 = Pwm , Prescale = 8 , Pwm = 10 , Compare A Pwm = Clear Down ,
Config Porta = Output
Dim A As Word
Dim B As Byte
Dim S As Byte
B = Porta
Start Adc
X:
A = Getadc(1)
Lcd A
Goto X
S = Getkbd()
Waitms 500
Lcd S
Y:
Do
Pwm1a = A
Incr A
Waitms 500
If 0 < A < 1 Then
0 < B < 1
Else
If A = 1 Then
B = 0
Else
A = 0 Then
B = 1
End If
While S = 0
Goto Y
Wend
Loop
end
ولی فکر کنم خیلی ایراد داره
تو قسمت if منظورم این بوده که اگه ورودی که به سنسور وصله بین 0و 1 بود(یعنی نور محیط بین تاریک و روشن) خروجی که b هست و به لامپ وصله هم بین خاموش و روشن باشه.اگه ورودی کلا خاموش بود لامپ روشن بشه و برعکس.
قسمت بعد هم یعنی تا وقتی که کلید های صفحه کلید فشرده نشدن این کاررو انجام بده و اگه کلیدی فشرده شد ورودی از سنسور نگیر