ايران ويج

صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

مهندس شما چهار تا آرایه برای صدم ثانیه و صانیه و دقیقه و ساعت داری !!

چهار تا متغیر هم داری که مقادیر زمان تو اونها داره تغییر می کنه !
n هم صفر است !
1وقتی کلیدی فشار داده شد :
2به n یکی بیافزا !
3مقادیر صدم ثانیه رو در آرایهN ام صدم ثانیه و بقیه مقادیر زمان رو هم ذخیره کن !
برو به 1

نمایش دادنش که بستگی به خودت داره !!!

مهرداد یکم بسکام رو بخون !
دستورات تبدیل کد اسکی به عدد و برعکس رو بخون !

ببخشید نمیدونم اینجا جاشه یا نه
ولی از نظر شما کتاب آقا سعید برا این کار خوبه؟
من اونو بخونم کافیه؟
بعدش اینکه جایی رو میشناسین هلپ بسکامو فارسیشو داشته باشن؟

اونو بخون !

بعدش هم هلپ انگلیسی بسکام رو بخونی نوشته هاش ساده هستش و می فهمی چی گفته !!!!

کد: 
dim a(s) as byte,d(s)as byte,c(s)as byte,d(s)as byte,s as byte

s=0

do

ifpinb.0=0 then

s=s+1

end if

if s=1 then

a(1)=aالی اخر.....

end if

loop

اینطوری درسته یا اینکه بعد از دستور شرط سریع بریزمش تو ارایه
2- برای من قسمت ارایش خطا میده..چه جور باید بنویسمش؟؟

علت خطا تابلوست !

کد php: 
dim a(10) as byte,d(10)as byte,c(10)as byte,d(10)as byte,s as byte
do
if pinb.0=0 then :
s=s+1
a(3) =  الی اخر.....
end if
loop 

سلام
یه سوال داشتم در باره دستور

کد: 
$include

در این مورد باید برنامه دوم رو کجا بریزم؟
باید دوباره کامپایلش کنم رو میکرو؟

برنامه یه برنامه دیگه باشه با همون پسوند.bas که کنار همین برنامه ات هست و کامپایل نمی خواد شده باشه !!!

خوب کنار همین برنامه تو کجا؟
تو کامپیوتر؟
یعنی باید همیشه پروگرمر به کامپیوتر وصل باشه؟

ببخشید یه سوال دیگه برام پیش اومد
تابع چیه؟
تو کتاب آقا سعیدو خوندم

نقل قول: DECLARE FUNCTION >معرفی تابع
از اين دستور برای معرفی تابع در ابتدای برنامه استفاده می شود . زمانی که بخواهيم تابعی را معرفی کنيم بايستی تابع
معرفی شده باشد . در صورت استفاده از تابع می بايستی يک داده برگردانده شود .

خوب این یعنی چی؟
اصلا خود تابع چیه که حالا بخوایم معرفیش کنیم؟

شرمنده
یه سوال دیگه
در مورد lcdگرافیکی
آیا میشه روی یه عکس گنده
که کل lcdرو گرفته
یه عکس کوچیکتر رو بیاریم؟
مثلا ما یه پس زمینه داریم
حالا میخوای روی یه گوشه از اون یه ضربدر کوچیک بیاریم
چنین کاریو میتونیم انجام بدیم؟

سلام دوستان
من یه برنامه برای ساعت نوشتم که به طور دستی هم قابل تنظیمه
بسکام داره بهش ارور میگیره که هرچی میخونمش متوجه نمیشم کجا را اشتباه کردم
برنامه اینه اگه کسی میدونه ممنون میشم راهنماییم کنه

کد php: 
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Rs = Portd.0 , E = Pind.2 , Db4 = Pind.4 , Db5 = Pind.5 , Db6 = Pind.6 , Db7 = Pind.7
Config Portb = Input
Enable Interrupts
'Config Date = Ymd , Separator.=
Config Clock = Soft , Gosub = Sectic
_sec = 57 : _min = 59 : _hour = 23 : _day = 02 : _month = 11 : _year = 89
Goto W
Set_ok:
Locate 1 , 10 : Lcd "set ok"
Wait 2 : Locate 1 , 10 : Lcd "                "
W:
Do
Debounce Pinb.5 , 0 , Incr _min : Waitms 100
If Pinb.6 = 0 Then : _sec = 0 : Waitms 400 : End If
If Pinb.7 = 0 Then : _sec = 30 : Waitms 400 : End If
Loop
Incr_min:
Do
Locate 1 , 10 : Lcd "set min" : Waitms 100
Debounce Pinb.5 , 0 , Incr _hour
If Pinb.6 = 0 Then : Incr _min : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _min : Waitms 400 : End If
Loop
Incr _hour:
Do
Locate 1 , 10 : Lcd "set hour"
Debounce Pinb.5 , 0 , Incr _day : Waitms 100
If Pinb.6 = 0 Then : Incr _hour : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _hour : Waitms 400 : End If
Loop
Incr _day
Do
Locate 1 , 10 : Lcd "set day"
Debounce Pinb.5 , 0 , Incr _month : Waitms 100
If Pinb.6 = 0 Then : Incr _day : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _day : Waitms 400 : End If
Loop
Incr _month:
Do
Locate 1 , 10 : Lcd "set mon"
Debounce Pinb.5 , 0 , Incr _year : Waitms 100
If Pinb.6 = 0 Then : Incr _month : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _month : Waitms 400 : End If
Loop
Incr _year:
Do
Locate 1 , 10 : Lcd "set year"
Debounce Pinb.5 , 0 , Set_ok : Waitms 100
If Pinb.6 = 0 Then : Incr _year : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _year : Waitms 400 : End If
Loop
End
Sectic:
Locate 1 , 1 : Lcd Date$ : Locate 2 , 1 : Lcd Time$
Return 

مشکلش را پیدا کردم یه سوتی ریز توش بود!!!
برنامه اصلاح شده را میذارم شاید به درد کسی بخوره Biggrin

کد php: 
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Rs = Portd.0 , E = Pind.2 , Db4 = Pind.4 , Db5 = Pind.5 , Db6 = Pind.6 , Db7 = Pind.7
Config Portb = Input
Enable Interrupts
Config Date = Ymd , Separator=/
Config Clock = Soft , Gosub = Sectic
_sec = 57 : _min = 59 : _hour = 23 : _day = 02 : _month = 11 : _year = 89
Goto W
Set_ok:
Locate 1 , 10 : Lcd "set ok"
Wait 2 : Locate 1 , 10 : Lcd " "
W:
Do
Debounce Pinb.5 , 0 , Incr_min : Waitms 100
If Pinb.6 = 0 Then : _sec = 0 : Waitms 400 : End If
If Pinb.7 = 0 Then : _sec = 30 : Waitms 400 : End If
Loop
Incr_min:
Do
Locate 1 , 10 : Lcd "set min" : Waitms 100
Debounce Pinb.5 , 0 , Incr_hour
If Pinb.6 = 0 Then : Incr _min : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _min : Waitms 400 : End If
Loop
Incr_hour:
Do
Locate 1 , 10 : Lcd "set hour"
Debounce Pinb.5 , 0 , Incr_day : Waitms 100
If Pinb.6 = 0 Then : Incr _hour : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _hour : Waitms 400 : End If
Loop
Incr_day
Do
Locate 1 , 10 : Lcd "set day"
Debounce Pinb.5 , 0 , Incr_month : Waitms 100
If Pinb.6 = 0 Then : Incr _day : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _day : Waitms 400 : End If
Loop
Incr_month:
Do
Locate 1 , 10 : Lcd "set mon"
Debounce Pinb.5 , 0 , Incr_year : Waitms 100
If Pinb.6 = 0 Then : Incr _month : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _month : Waitms 400 : End If
Loop
Incr_year:
Do
Locate 1 , 10 : Lcd "set year"
Debounce Pinb.5 , 0 , Set_ok : Waitms 100
If Pinb.6 = 0 Then : Incr _year : Waitms 400 : End If
If Pinb.7 = 0 Then : Decr _year : Waitms 400 : End If
Loop
End
Sectic:
Locate 1 , 1 : Lcd Date$ : Locate 2 , 1 : Lcd Time$
Return 

صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

t3r!p3000

WhiteNoise

t3r!p3000

EBKA

t3r!p3000

WhiteNoise

t3r!p3000

WhiteNoise

WhiteNoise

sheitunak

sheitunak