سوالهای برنامه نویسی با کامپایلر BASCOM

[t3r!p3000]

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

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

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













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

[WhiteNoise]

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

[t3r!p3000]

اونو بخون !

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

[EBKA]

کد:

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- برای من قسمت ارایش خطا میده..چه جور باید بنویسمش؟؟

[t3r!p3000]

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

کد 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 


[WhiteNoise]

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

کد:

$include

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

[t3r!p3000]

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

[WhiteNoise]

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

---

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

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

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

[WhiteNoise]

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

[sheitunak]

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

کد 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 


[sheitunak]

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

کد 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