با سلام ،
دوست عزیز شما در حال استفاده از ورژنی قدیمی از اینترنت اکسپلورر هستید ، برای اینکه مشکلات ناشی از نمایش را نداشته باشید ، لطفا اقدام به دریافت مرورگری مناسب کرده و یا از ورژن قدیمی ما استفاده نمایید.


امتیاز موضوع:
  • 2 رأی - میانگین امتیازات: 5
  • 1
  • 2
  • 3
  • 4
  • 5
سوالات برنامه نویسی با بسکام
سلام
من می خوام برنامه با avr باشه یعنی c باشه یا بسکام .
ممنون
پاسخ
سلام.
من یه برنامه ی موتور براشلس نوشته ام اگه میشه ببینید درسته:
$regfile = "m32def.dat"
$crystal = 8000000
Config Porta = Output
Config Portb = Input

Dim A As Word

Set Porta.1
Waitms 1
Reset Porta.1
A = 1000
wait 1
Do

If Pinb.1 = 1 Then
A = A + 50
End If

If Pinb.2 = 1 Then
A = A - 50
End If



If A = 2000 Then A = 1000
If A < 1000 Then A = 2000

Set Porta.1
Waitus A
Reset Porta.1

Loop
به اینصورت که یه پالس 1 میلی ثانیه ایجاد میکنیم و بعد پالس هایی با دامنه 1 تا 2 میلی ثانیه برای کنترل سرعت.
پاسخ
سلام
برنامه درسته ولی نتیجه مطلوب رو نمیده . ( یه waitus 1000 بالای loop بذار )
دستور wait توی بسکام و دستور delay توی کدویژن برای تاخیرهای دقیق توی برنامه نیست .
بهتره از pwm استفاده کنی . فرکانس تایمر رو بیار بین 50 تا 300 هرتز و کم و زیاد کردن مقدار عرض یک یا همون دیوتی سایکل سرعت رو کنترل کن .
پاسخ
سلام .
یعنی من باید از تایمر 1 استفاده کنم.میشه اون قسمتی از برنامه رو که باید فرکانس رو بین 50 تا 300 بیارم و دیوتی سایکل رو تغییر بدم بنویسید؟خیلی نیاز دارم. با تشکر.Sign_helpSign_helpSign_help
پاسخ
آره . من با c و کدویژن کار میکنم و با بیسیک ار نمیکنم .
پاسخ
سلام
مشکلی نداره من با c هم کار میکنم.اگه زحمتی نیست کمکم کنید و اون قسمت از برنامه رو بذارید.Sign_help
پاسخ
کسی یست کمکم کنه؟
پاسخ
سلام بر استادان گرامی
برنامه ای که براتون میفرستم مربوط به افکت کم نور و پرنور شدن ال ای دی های تابلو ثابت هست که به زبان بسکام نوشته شده.
حالا سوالات:
1-این برنامه برای 10کانال نوشته شده که عبارت است از پورت Dو دوپایه پورت b اگه بخوایم 8کانال استفاده کنیم و دوپایه دیگه استفاده نکنیم مشکلی که پیش نمیاد؟
2-میخوام این افکت چند بار تکرار بشه مثلا 5با یا مثلا5ثانیه بعدش بره توی یه افکت دیگه
برنامه باید به چه صورت نوشته بشه؟

برنامه بسکام:
$regfile = "M8DEF.DAT"
$crystal = 1000000


Config
Portd = Output
Config Portb.0 =
Output
Config Portb.1 = Output

Declare Sub Efct00
Declare Sub Initial_set
Declare Sub Initial_
reset


Dim
Rpt_cnt_00 As Byte , Rpt_cnt_01 As Byte , Rpt_cnt_02 As Byte
Dim Pwm_t_on As Byte , Pwm_t_of As Byte

Do
Call Efct00
Loop

Sub Efct00:
Pwm_t_on = 1
Pwm_t_of = 99
For Rpt_cnt_00 = 1 To 100
For Rpt_cnt_01 = 0 To 5
Call Initial_set
For Rpt_cnt_02 = 0 To Pwm_t_on
%0N/:K55 Waitus 50
Next
Call Initial_reset
For Rpt_cnt_02 = 0 To Pwm_t_of
Waitus 50
Next
Next
Pwm_t_on = Pwm_t_on + 1
Pwm_t_of = Pwm_t_of - 1
Next
Call Initial_set

Pwm_t_on = 99
Pwm_t_of = 1
For Rpt_cnt_00 = 1 To 100
For Rpt_cnt_01 = 0 To 5
Call Initial_set
For Rpt_cnt_02 = 0 To Pwm_t_on
Waitus 50
Next
Call Initial_reset
For Rpt_cnt_02 = 0 To Pwm_t_of
Waitus 50
Next
Next
Pwm_t_on = Pwm_t_on - 1
Pwm_t_of = Pwm_t_of + 1
Next
Call Initial_reset
End Sub

Sub Initial_set:
Portd = 255
Set Portb.0
Set Portb.1
End Sub

Sub Initial_reset:
Portd = 0
Reset Portb.0
Reset Portb.1
End Sub

End
پاسخ
سلام اینو امتحان کنین

کد php:
$regfile "M8DEF.DAT"
    
$crystal 1000000
  
    
 Config
  Portd 
Output
    Config Portb.0 

 
Output
    Config Portb.1 
Output
  
    
Declare Sub Efct00
    
Declare Sub Initial_set
    
Declare Sub Initial_
 reset
  
    
 Dim
  Rpt_cnt_00 
As Byte Rpt_cnt_01 As Byte Rpt_cnt_02 As Byte
    Dim Pwm_t_on 
As Byte Pwm_t_of As Byte
  
    
Do
Call Efct00
Call Efct00
Call Efct00
Call Efct00
Call Efct00
    waitms 5000
افکت بعد رو اینجا بنیس
Loop


  
  Sub Efct00
:
    
Pwm_t_on 1
    Pwm_t_of 
99
    
For Rpt_cnt_00 1 To 100
       
For Rpt_cnt_01 0 To 5
         Call Initial_set
         
For Rpt_cnt_02 0 To Pwm_t_on
  
%0N/:K55        Waitus 50
         Next
         Call Initial_reset
         
For Rpt_cnt_02 0 To Pwm_t_of
            Waitus 50
         Next
       Next
       Pwm_t_on 
Pwm_t_on 1
       Pwm_t_of 
Pwm_t_of 1
    Next
    Call Initial_set
  
    Pwm_t_on 
99
    Pwm_t_of 
1
    
For Rpt_cnt_00 1 To 100
       
For Rpt_cnt_01 0 To 5
         Call Initial_set
         
For Rpt_cnt_02 0 To Pwm_t_on
            Waitus 50
         Next
         Call Initial_reset
         
For Rpt_cnt_02 0 To Pwm_t_of
            Waitus 50
         Next
       Next
       Pwm_t_on 
Pwm_t_on 1
       Pwm_t_of 
Pwm_t_of 1
    Next
    Call Initial_reset
  End Sub
  
  Sub Initial_set
:
    
Portd 255
    Set Portb.0
    Set Portb.1
  End Sub
  
  Sub Initial_reset
:
    
Portd 0
    Reset Portb.0
    Reset Portb.1
  End Sub
  
  End 
به سلامتی مهره های تخته نرد
که تا وقتی رفیقشون تو حبسه به احترامش بازی نمیکنن ...
پاسخ
با سلام دوستان من یه برنامه دارم مربوط به اموزش تابلو روان اقای فرهمند اینم لینکش که ماله همین سایته که در پست اول برنامه ها رو گزاشتن
دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.

این برنامه از جدول lookup استفاده کرده حالا مشکل من اینجاسBig Grin که این اعداد data چیه؟از کجا اومده؟وچطور بدست اوردن
ممنون میشم جوابمو بدین
انسان هایی هستند که دیوار بلندت را میبینند ولی به دنبال همان یک اجر لق میان دیوارت هستند تا تو را فرو بریزند تا انکارت کنند و دست روزگار هم هلت میدهد
ولی قرار نیست تو بیفتی اگر بی تاب نباشی و خودت را به اسمان گره زده باشی اوج میگیری به همین سادگی


پاسخ
مشترک شدن در این موضوع


پرش به انجمن:

کاربرانِ درحال بازدید از این موضوع: 1 مهمان

انتخاب پوسته :

دسترسی سریع
درباره ما
انجمن سرزمین الکترونیک در 20 شهریور 91 تاسیس شده ، که همیشه سعی کرده با ظاهری متفاوت و سرعتی خوب رضایت کاربران را جلب کند ، امیدواریم توانسته باشیم گامی کوچک در پیشرفت فناوری در ایران برداشته باشیم...
نیرو گرفته از MyBB 1.8.6 با فارسی سازی مای بی بی ایران - طراحی شده در : ملت دیزاین
© تمامی حقوق برای انجمن سرزمین الکترونیک محفوظ می باشد .

پوسته‌ی انجمن: