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

[mapmap]

با سلام
تو این برنامه ساده موندم
میخوام PortC.0 برای 50 بار به سرعت چشمک بزنه 0بعد از اون با سرعتی ملایم چشمک بزنه
باید چکار کنم؟؟؟ اصلا" تو بسکام چطور میشه چنتا DO-Loop داشته باشم؟؟؟
اینم برنامه:
Dim I As Byte
I = 1
Do
Incr I
Set Portc.0
Waitms 5
Toggle Portc.0
Loop Until I = 50
Exit Do
Do
Set Portc.0
Waitms 60
Toggle Portc.0
Loop
End

[madar]

شما می تونید از حلقه ی for -next برای اینکار استفاده کنید.مثلا 50 بار حلقه ی اول را تکرار کند بعد وارد for-next بعدی بشه.

[vahidasm]

میتونید برای اینکه برنامه کم حجمتر بشه مقدار زمان رو تو یه متغیر ذخیره کنی و بعد از for-next مقدارشو تغییر بدی و دوباره به اول for-next برگردی

[raminrayat]

سلام به دوستان.من دنبال یه برنامه pid کنترلر می گشتم .و بالاخره پیداش کردم اما به زبان c و با کدویژن نوشته .خودم اون رو دستو پا شکسته با بیسیک نوشتم.البته فعلا بدون کیپد. ولی دما رو به جای اینکه دقیقا رو مقدار ست پوینت نگه داره ! 4 الی 6 درجه دما بیشتر از setpoint میشه چون من زبان c بلد نبودم نتونستم علت رو با مقایسه با برنامه اصلی بفهمم .لطفا راهنماییم کنید.
اولی برنامه اصلی از سایت picpars.com
دومی برنامه نوشته شده با بیسیک

دوستان خواهش می کنم بعد از دانلود فایل بگید مشکل برنامه من تو بیسیک چیه.یا اگه راه بهتری مد نظرتونه بگید.

[raminrayat]

منتظر راهنماییتونم

[mahdi_91]

سلام
من تازه دارم بسکام یاد میگیرم میخواسم از دوستان کمک بگیرم ...
کسی میتونه این قسمت از برنامه ی دماسنج رو تحلیل کنه[PHP]Start Adc
B = 1
Enable Interrupts
Enable Timer2

On Timer2 K
Start Timer2
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''
Cls
Cursor Off

Do

Loop

End
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
K:

'''''''''''''''''''''''''''''''''''''
A = Getadc(0)
A = A / 2
Locate 2 , 1
Lcd "Temp =" ; A ; Chr(0) ; "c "
Locate 2 , 16
Lcd Chr(b)

Incr B
If B > 6 Then B = 1
[/PHP]

[mahdi_91]

کل برنامه ای هستش

$regfile = "m16def.dat"

Config Portb = Input
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , Rs = Portd.3 , E = Portd.2
Config Timer2 = Timer , Async = On , Prescale = 128
Config Adc = Single , Prescaler = Auto

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Secs As Byte , Minits As Byte , Hours As Byte
Dim A As Word , B As Byte
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
Deflcdchar 1 , 32 , 4 , 12 , 28 , 28 , 32 , 32 , 32
Deflcdchar 2 , 32 , 4 , 14 , 31 , 31 , 32 , 32 , 32
Deflcdchar 3 , 32 , 4 , 14 , 31 , 31 , 7 , 6 , 4
Deflcdchar 4 , 32 , 4 , 14 , 31 , 31 , 31 , 14 , 4
Deflcdchar 5 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32


Start Adc
B = 1
Enable Interrupts
Enable Timer2

On Timer2 K
Start Timer2
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Cls
Cursor Off

Do

Loop

End
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
K:

'''''''''''''''''''''''''''''''''''''
A = Getadc(0)
A = A / 2
Locate 2 , 1
Lcd "Temp =" ; A ; Chr(0) ; "c   "
Locate 2 , 16
Lcd Chr(b)

Incr B
If B > 6 Then B = 1

'''''''''''''''''''''''''''''''''''''
Incr Secs
If Secs > 59 Then
   Incr Minits
   Secs = 0
      If Minits > 59 Then
      Incr Hours
      Minits = 0
      Secs = 0
         If Hours > 23 Then
            Hours = 0
            Secs = 0
            Minits = 0
         End If
    End If
End If
If Pinb.2 = 1 Then
  Secs = 0
Elseif Pinb.0 = 1 Then
   Incr Minits
     Elseif Pinb.1 = 1 Then
       Incr Hours
       End If

Locate 1 , 1
If Hours < 10 Then
   Lcd "0" ; Hours ; ":"
Else
   Lcd Hours ; ":"
End If
If Minits < 10 Then
   Lcd "0" ; Minits ; ":"
Else
   Lcd Minits ; ":"
End If
If Secs < 10 Then
   Lcd "0" ; Secs
Else
   Lcd Secs
End If

Return

[morteza_rk]

تو این برنامه ساده موندم
میخوام PortC.0 برای 50 بار به سرعت چشمک بزنه 0بعد از اون با سرعتی ملایم چشمک بزنه
باید چکار کنم؟؟؟ اصلا" تو بسکام چطور میشه چنتا DO-Loop داشته باشم؟؟؟

سلام
فکر کنم نوبتی به سوالات جواب بدیم بهتره!

در این مورد چون تعداد تکرارها از قبل مشخصه بهترین حالت استفاده از حلقه for-next هست. و همینطور تعریف یه متغیر که هربار با تغییر محتواش بشه زمان چشمک زدنهارو کنترل کرد.

نکته : اگه زمان چشمک زدنها تقریبا کمتر از 20 میلی ثانیه باشه ، چشم ما نمی تونه خاموش شدن led رو تشخیص بده! (طبق اثر فلیکر) بنابراین ما فکر می کنیم که led همیشه روشنه. پس استفاده از مقادیر زیر 20 میلی ثانیه توصیه نمیشه.

اما برنامه ی شما می تونه بصورت زیر اصلاح بشه :

config portc.0=output

dim i as byte
dim wait1 as byte

do

wait1=50

for i=1 to 50
portc.0=1
waitms wait1
portc.0=0
waitms wait1
next

wait1=120

for i=1 to 50
portc.0=1
waitms wait1
portc.0=0
waitms wait1
next

loop

end

[morteza_rk]

سلام به دوستان.من دنبال یه برنامه pid کنترلر می گشتم .و بالاخره پیداش کردم اما به زبان c و با کدویژن نوشته .خودم اون رو دستو پا شکسته با بیسیک نوشتم.البته فعلا بدون کیپد. ولی دما رو به جای اینکه دقیقا رو مقدار ست پوینت نگه داره ! 4 الی 6 درجه دما بیشتر از setpoint میشه چون من زبان c بلد نبودم نتونستم علت رو با مقایسه با برنامه اصلی بفهمم .لطفا راهنماییم کنید.

راستش من برنامه رو دانلود کردم ، نگاه هم کردم ، ولی چیزی نفهمیدم! خیلی ضرب و تقسیم و جمع و تفریق و ... انجام داده ، آخرش که چی؟ اصلا چی می خواسته طرف؟

البته این پست و پست قبلی جواب کسانیه که چند ماه پیش سوالشونو مطرح کردن ، ولی من الان جواب دادم (قبلا ندیده بودم) شاید بعدها بدرد کسی بخوره ، حداقلش اینه که این تاپیک بیهوده نمی مونه.

[morteza_rk]

سلام
من تازه دارم بسکام یاد میگیرم میخواسم از دوستان کمک بگیرم ...
کسی میتونه این قسمت از برنامه ی دماسنج رو تحلیل کنه

تحلیل خاصی نداره! یه سنسور دمای آنالوگ داریم که وصل شده به مبدل آنالوگ به دیجیتال شماره 0 میکرو ، دستور a=getadc(0) مقدار آنالوگی که به دیجیتال تبدیل شده رو می خونه و می ریزه توی متغیر A ، بعدش طبق رابطه ای که برنامه نویس بدست آورده تقسیم بر 2 کرده تا بشه مقدار واقعی دما ، بعد این مقدار رو روی lcd نشون داده.

یه کاراکتر درجه (همون دایره کوچولو) با دستور Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32 درست کرده که اونم جلوی عدد دما روی lcd نشون میده ، با دستور lcdchr(0) ، همین.

[hetler]

با سلام
سوالم مبتدیانه است
چگونه می توان در میکرو دو حلقه را هم زمان اجرا کرد
مثلا یک پایه هر 50 میلی ثانیه 0 و1 شود ویک پایه دیگر هر 100 میل ثانیه0 و1 شود
بدون اینکه حلقه ها تک تک اجرا شود؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟

[morteza_rk]

چگونه می توان در میکرو دو حلقه را هم زمان اجرا کرد
مثلا یک پایه هر 50 میلی ثانیه 0 و1 شود ویک پایه دیگر هر 100 میل ثانیه0 و1 شود
بدون اینکه حلقه ها تک تک اجرا شود؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟

در یک میکروکنترلر نمیشه دو حلقه رو همزمان اجرا کرد! چون منطقی که میکروکنترلرها ازش پیروی می کنن طوریه که برنامه رو خط به خط اجرا می کنه. نمیشه که همزمان چند خط با هم اجرا بشن! بنابراین همیشه اول حلقه ای که در خطوط قبل از حلقه ی دوم نوشته شده اجرا میشه و بعدش حلقه ی دوم اجرا میشه.

اما فکر می کنم که پردازنده های fpga می تونن همزمان چند خط رو اجرا کنن! علتشم اینه که اونجا زبان برنامه نویسی درواقع مثل مدارهای دیجیتال می مونه! یعنی ورودی ها می تونن برابر یا مستقل باشن و خروجی ها هم همینطور.

مثلا شما یک آی.سی 7408 رو در نظر بگیرید. توی این آی.سی 4 تا گیت and هست. بطوریکه شما می تونید از هرکدوم به تنهایی استفاده کنید یا به همشون ورودی یکسان (یا غیر یکسان) بدید و در یک لحظه ازشون خروجی بگیرید. بدون اینکه خروجی ها بهم ربطی داشته باشن. (اما همزمان انجام میشن).

اما مثالی که شما زدید راه حل داره و سادست! شما می تونید یه حلقه درست کنید که داخلش به ازای هر 2 بار چشمک زدن یکی از پایه ها ، پایه ی بعدی یکبار چشمک بزنه!

[mahdi_91]

تحلیل خاصی نداره! یه سنسور دمای آنالوگ داریم که وصل شده به مبدل آنالوگ به دیجیتال شماره 0 میکرو ، دستور a=getadc(0) مقدار آنالوگی که به دیجیتال تبدیل شده رو می خونه و می ریزه توی متغیر a ، بعدش طبق رابطه ای که برنامه نویس بدست آورده تقسیم بر 2 کرده تا بشه مقدار واقعی دما ، بعد این مقدار رو روی lcd نشون داده.

یه کاراکتر درجه (همون دایره کوچولو) با دستور deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32 درست کرده که اونم جلوی عدد دما روی lcd نشون میده ، با دستور lcdchr(0) ، همین.

ممنون ...متغییر b تو تایمر نقشش چیه؟

[mehrdad22]

سلام به همه
من توی بسکام برنامه ای نوشتم ، البته هنوز کامل نیستا
ولی نباید error بگیره ولی میگیره!!!
از دستور alias استفاده کردم و ازهمون دستور هم ارور میگیره

$regfile = "m8def.dat"
$crystal = 8000000

Config Portd = Input
Config Portb = Output

Dim R As Bit
Dim V As Bit
Dim L As Bit

R Alias Pind.7
V Alias Pind.3
L Alias Pind.0

If V = 1 Then

Set Portb.7
Reset portb.6
Set portb.5
Reset portb.4
Set portb.1
Set portb.2


Elseif R = 1 And V = 0 Then
Reset portb.7
Set portb.6
Set portb.5
Reset portb.4
Set portb.1
Set Portb.2


End If

و این هم ارور ها :

ALIAS can not be CONST or DIMMED variable[R]
ALIAS can not be CONST or DIMMED variable[V]

دوستان لطفا کمک کنید

[ali_h]

سلام، نیازی نیست وقتی می خوای از alias استفاده کنی قبلش بیای یک متغیر با همون نام تعریف کنی. یعنی این 3 خط را باید حذف کنی :

Dim R As Bit
Dim V As Bit
Dim L As Bit

در واقع کامپایلر قبل از کامپایل می گرده و تمام کلمه هایی را که alias کردی با مقدار ثابت متناظرشون جایگزین می کنه و بعد برنامه شما را کامپایل می کنه.
به بیان دیگه alias کردن نه حجم برنامتون رو زیاد می کنه و نه میزان استفاده از sram میکرو رو.

[ali_h]

با سلام
سوالم مبتدیانه است
چگونه می توان در میکرو دو حلقه را هم زمان اجرا کرد
مثلا یک پایه هر 50 میلی ثانیه 0 و1 شود ویک پایه دیگر هر 100 میل ثانیه0 و1 شود
بدون اینکه حلقه ها تک تک اجرا شود؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟

اصولاً نه میکرو و نه هیچ موجود تک پردازنده ای دیگه ای (یعنی حتی پردازشگرهای کامپیوتری چند گیگاهرتزی چند سال پیش!) نمی تونن چند دستوزالعمل رو دقیقاً همزمان اجرا کنن این هنر برنامه نویسی که قابلیت Multitasking رو به سخت افزار ها اضافه کرده
شما هم اگر علاوه بر این چشمک زدن ها می خواید میکروتون همزمان کارهای دیگه ای هم انجام بده باید از تایمر یا اینتراپت های میکرو استفاده کنید. در غیر این صورت راه حل morteza_rk کاملاً درسته.
من پایه قضیه گفتم که به نظر پیچیده میاد ولی اگه بدردتون می خوره بگید توضیح ساده تر و کاربردی تری بدم.

[ali_h]

ممنون ...متغییر b تو تایمر نقشش چیه؟

با کمک این متغیر در سطر دوم و ستون 16 ام در هر ثانیه یکی از 6 کاراکتری که در بالا تعریف شده نمایش داده می شه. در واقع انگار که برنامه نویس می خواسته یک انیمیشن کاراکتری گوشه ال سی دی نشون بده.

[explore77]

آقا من يه برنامه اي نوشتم كه اواسط برنامه وقتي ميرسه به اين جا:
If A > F Then
For W = 1 To 5
Rotate Portd , Left , 1
Waitms 500
Toggle Portb.5
Next
End If
با وجود اينكه شرط برقرار وارد حلقه for نميشه
حالا وقتي شبيه سازيش ميكنم همه چي اجرا ميشه ولي تو عمل وارد حلقه نميشه
آيا اين نوع برنامه نويسي مشكل فني داره ؟
اگه بخوام واضح تر بپرسم ميشه تو داخل يه شرط از حلقه for استفاده كرد؟ اگه نه راه حل چيه.با تشكر

[alinavidy]

با سلام
من یه مشکل در برنامه نویسی بسکام avr دارم اگه کسی بتونه مشکل من رو حل کنه ممنونش میشم.12:
من یه پروژه ای دارم که میخوام یه سری اطلاعات رو نگه داره و با قطع برق(ریست میکرو) اطلاعاتش پاک نشه .... برای این کار هم رفتم از eeprom استفاده کردم که بایدفایل eep رو که bascom در خروجیش میده رو باید رو میکرو پروگرام کنم. ولی متاسفاته وقتی که کامپیلر میکنمbascom یه سری فایل رو میده(hex,...) ولی فایل eep رو بهم نمیده یه نمونه برنامه در هلپ بسکام گذاشته بود که وقتی اون رو کامپایل میکردم eep رو بهم میداد...
تو اینترنت هم یه سری نمونه گذاشته بود که اونها هم فایل eep نمیداد...
نمیدونم چی کار کنم . شاید یه سری چیزا رو رعایت نکرده ام .... البته بسکام هم هیچ اروری نمیده
من خواهش میکنم از کسایی که با ای حافظه کار کرده کند و جئاب گرفته اند و اطلاعاتی در این مورد دارند به من کمک کنند12FD:s

[morteza_rk]

سلام

یعنی شما الان از دستورهای eeprom$ یا eepromhex$ استفاده کردی ولی کد مربوط به eeprom رو نمی گیری؟