اطلاعیه

Collapse
No announcement yet.

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

Collapse
X
Collapse
 
  • صفحه of 2
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی 1 2 template بعدی
    #1

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

    من یه مشکلی توی برنامه نویسی با بسکام دارم .من دو تا برنامه ولتمتر و فرکانس متر نوشتم. حالا میخوام دو تا کلید اضافه کنم تا با فشردن یکی ولتمتر و فشردن کلید دوم فرکانسمتر کار کنه .نمیدونم چیطور برنامشو بنویسم
    این برنامه ولتمتره :
    کد:
    $regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Timer1 = Timer , Prescale = 64
Dim U As Word , V As Single , Vrms As Single , A As Byte , T As Single

Enable Timer1
Enable Interrupts
On Timer1 Timer1_isr
Timer1 = 3036
Start Timer1
Vrms = 0
A = 0
T = 0

Start Adc

Do

  U = Getadc(0)
  V = U
  V = V * 0.004887
  V = V * 3
  V = V ^ 2
  Vrms = Vrms + V
  T = T + 1

Loop Until A = 1

T = 0.5 / T
Vrms = Vrms * T
Vrms = Vrms / 0.5
Vrms = Sqr(vrms)

Cls

Lcd "vrms(v)=" ; Vrms


End

Timer1_isr:
Timer1 = 3036
A = 1
Return
    و این برنامه فرکانسمتره :
    کد:
    $regfile = "m16def.dat"
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Timer1 = Counter , Edge = Rising
Config Timer0 = Timer , Prescale = 1024

Enable Timer1
Enable Timer0
Enable Interrupts

On Ovf1 Pulse_counter
On Ovf0 Main

Dim Freq As Long , Overflow1 As Byte , Overflow0 As Long

Overflow1 = 0
Start Timer0
Do
Loop
End

Main:
 Incr Overflow0
 If Overflow0 > 30 Then
 Stop Timer0
 Cls
 Freq = Overflow1 * 65536
 Freq = Freq + Counter1
 Lcd "frequency:" ; Freq
 Overflow1 = 0
 Overflow0 = 0
 Counter1 = 0
 Start Timer0
 End If
Return

Pulse_counter:
 Incr Overflow1
 Counter1 = 0
Return
    میشه کد برنامه کامل شده را بنویسین ؟ چون خیلی روش کار کردم و میخوام از دستور debounce استفاده کنم ولی نمیدونم چطوری .
    نکته دیگه اینکه در برنامه اول تایمر 1 به عنوان تایمر و در برنامه دوم به عنوان کانتر استفاده شده.
    حالا چطور این دو برنامه رو با دستور debounce یکی کنم ؟
    برچسب ها: برنامه, بسکام, در, مشکل, نویسی
    #2
    پاسخ : مشکل در برنامه نویسی در بسکام

    سلام داداش

    فک کنم نیاز به نوشتن کد اصلاح کننده تو حافظه bootloader هم داری

    دیدگاه

      #3
      پاسخ : مشکل در برنامه نویسی در بسکام

      میشه راهنمایی کنید کد برنامه کامل شده چطوریه ؟

      دیدگاه

        #4
        پاسخ : مشکل در برنامه نویسی در بسکام

        سلام...
        دوست عزیز برنامه رو واست نوشتم،ولی تستش نکردم،امیدوارم براتون کار کنه یا حداقل مقدمه ای باشه برا تکمیلش...
        کد:
        $regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Deflcdchar 2 , 1 , 3 , 7 , 15 , 15 , 7 , 3 , 1       ' replace [x] with number (0-7)
Dim Main As Byte
Dim Selectp As Byte
Dim Ex As Bit
Selectp = 0
Main = 3
Ex = 0
Config Timer1 = Timer , Prescale = 256
On Timer1 Timer1_reg
Enable Interrupts
Enable Timer1
Cls
Do
start timer1
 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "vol.m"
 Locate 2 , 10
 Lcd "freq.m"
 Do
 Debounce Pinb.0 , 0 , Selection , Sub
 If Selectp = 1 Then
 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "vol.m" ; Chr(2)
 Locate 2 , 10
 Lcd "freq.m" : End If
 If Selectp = 2 Then
 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "vol.m"
 Locate 2 , 10
 Lcd "freq.m" ; Chr(2) : End If
 Loop Until Ex = 1
 Ex = 0


While Main = 1
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Timer1 = Timer , Prescale = 64
Dim U As Word , V As Single , Vrms As Single , A As Byte , T As Single

Enable Timer1
Enable Interrupts
Timer1 = 3036
Start Timer1
Vrms = 0
A = 0
T = 0

Start Adc

Do

  U = Getadc(0)
  V = U
  V = V * 0.004887
  V = V * 3
  V = V ^ 2
  Vrms = Vrms + V
  T = T + 1

Loop Until A = 1
 Do
T = 0.5 / T
Vrms = Vrms * T
Vrms = Vrms / 0.5
Vrms = Sqr(vrms)

Cls

Lcd "vrms(v)=" ; Vrms
 Loop
Wend




While Main = 2
Config Timer1 = Counter , Edge = Rising
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Timer0
Enable Ovf1

On Timer0 Main2

Dim Freq As Long , Overflow1 As Byte , Overflow0 As Long

Overflow1 = 0
Start Timer0
Do
Loop
End
Wend
Loop
End




Main2:
 Incr Overflow0
 If Overflow0 > 30 Then
 Stop Timer0
 Cls
 Freq = Overflow1 * 65536
 Freq = Freq + Counter1
 Lcd "frequency:" ; Freq
 Overflow1 = 0
 Overflow0 = 0
 Counter1 = 0
 Start Timer0
 End If
Return



Timer1_reg:
If Main = 1 Then
Timer1 = 3036
A = 1
End If
 If Main = 2 Then
 Incr Overflow1
 Counter1 = 0
 End If
 If Selectp = 1 Then : Main = 1 : Selectp = 0 : Ex = 1 : Stop Timer1 : End If
 If Selectp = 2 Then : Main = 2 : Selectp = 0 : Ex = 1 : Stop Timer1 : End If
Return


Selection:
Cls
Timer1 = 0
Incr Selectp
If Selectp > 2 Then : Selectp = 1 : End If
Return

        دیدگاه

          #5
          پاسخ : مشکل در برنامه نویسی در بسکام

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

          دیدگاه

            #6
            پاسخ : مشکل در برنامه نویسی در بسکام

            سلام
            شرمنده فضولی میکنم

            اول از همه دوتا برنامه رو یکی کن و یه شرط اینجوری بذار:
            [code=qbasic]
            If I=0 then
            برنامه ولتمتر
            Elseif I=1 Then
            برنامه فرکانسمتر
            End If[/code]

            بعدم کلید ها رو اینجوری تعریف کن:
            [code=qbasic]If PinA.0=1 then
            I=0
            پبکر بندئ تابمر برائ ولتمتر
            Elseif PinَA.1=1 then
            I=1
            پبکر بندئ تابمر برائ فرکانسمتر
            End If[/code]

            پین A صفر و یک رو برای مثال عرض کردم
            آموزش ساخت جعبه برای مدار با نرم افزار Corel Draw - آموزش طراحی تابلو ثابت با Corel Draw و LED Tool - آموزش کرک LED Tool

            116 کتابخانه مورد نیاز برای Altium Designer

            از دروغ متنفرم؛ هرچند در این مملکت به جرم صداقت، کودن نامیده شوم.

            دیدگاه

              #7
              پاسخ : مشکل در برنامه نویسی در بسکام

              نوشته اصلی توسط masoud_m_bf
              سلام
              شرمنده فضولی میکنم

              اول از همه دوتا برنامه رو یکی کن و یه شرط اینجوری بذار:
              [code=qbasic]
              If I=0 then
              برنامه ولتمتر
              Elseif I=1 Then
              برنامه فرکانسمتر
              End If[/code]

              بعدم کلید ها رو اینجوری تعریف کن:
              [code=qbasic]If PinA.0=1 then
              I=0
              پبکر بندئ تابمر برائ ولتمتر
              Elseif PinَA.1=1 then
              I=1
              پبکر بندئ تابمر برائ فرکانسمتر
              End If[/code]

              پین A صفر و یک رو برای مثال عرض کردم
              از جوابتون ممنون
              اینطوری که شما گفتین نوشتم ، جواب نمیده
              کدش اینه :
              کد:
              $regfile = "m16def.dat"
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2

Config Portd = Input

Config Debounce = 30

Dim I As Byte

On Timer1 Timer1_reg

Do

 Debounce Pind.0 , 0 , Selection1 , Sub
 Debounce Pind.1 , 0 , Selection2 , Sub

 If I = 0 Then

  Config Adc = Single , Prescaler = Auto , Reference = Avcc
  Config Timer1 = Timer , Prescale = 64
  Dim U As Word , V As Single , Vrms As Single , A As Byte , T As Single

  Enable Timer1
  Enable Interrupts

  Timer1 = 3036
  Start Timer1
  Vrms = 0
  A = 0
  T = 0

  Start Adc

  Do

   U = Getadc(0)
   V = U
   V = V * 0.004887
   V = V * 3
   V = V ^ 2
   Vrms = Vrms + V
   T = T + 1

  Loop Until A = 1

  T = 0.5 / T
  Vrms = Vrms * T
  Vrms = Vrms / 0.5
  Vrms = Sqr(vrms)

  Cls

  Lcd "vrms(v)=" ; Vrms

 Elseif I = 1 Then

  Config Timer1 = Counter , Edge = Rising
  Config Timer0 = Timer , Prescale = 1024

  Enable Timer1
  Enable Timer0
  Enable Interrupts


  On Ovf0 Main

  Dim Freq As Long , Overflow1 As Byte , Overflow0 As Long

  Overflow1 = 0
  Start Timer0
  Do
  Loop


 End If


Loop
End

Selection1:
I = 0
Return

Selection2:
I = 1
Return



Main:
 Incr Overflow0
 If Overflow0 > 30 Then
 Stop Timer0
 Cls
 Freq = Overflow1 * 65536
 Freq = Freq + Counter1
 Lcd "frequency:" ; Freq
 Overflow1 = 0
 Overflow0 = 0
 Counter1 = 0
 Start Timer0
 End If
Return

Timer1_reg:
If I = 0 Then
 Timer1 = 3036
 A = 1
Elseif I = 1 Then
 Incr Overflow1
 Counter1 = 0
End If
Return
              ولی فرقی نمیکرد جوباب نمیده

              دیدگاه

                #8
                پاسخ : مشکل در برنامه نویسی در بسکام

                با توجه به راهنماییاتون من این کدو نوشتم :
                کد:
                $regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Config Portd = Input
Config Debounce = 30

Deflcdchar 2 , 1 , 3 , 7 , 15 , 15 , 7 , 3 , 1

Dim Main As Byte

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer1_reg

Cls

Do


 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "volt.m"
 Locate 2 , 10
 Lcd "freq.m"


 Debounce Pind.0 , 0 , Selection1 , Sub
 Debounce Pind.1 , 0 , Selection2 , Sub

 If Main = 1 Then
 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "volt.m" ; Chr(2)
 Locate 2 , 10
 Lcd "freq.m" : End If
 If main = 2 Then
 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "volt.m"
 Locate 2 , 10
 Lcd "freq.m" ; Chr(2) : End If

While Main = 1
 Config Adc = Single , Prescaler = Auto , Reference = Avcc
 Config Timer1 = Timer , Prescale = 64
 Dim U As Word , V As Single , Vrms As Single , A As Byte , T As Single

 Enable Timer1
 Enable Interrupts

 Timer1 = 3036
 Start Timer1
 Vrms = 0
 A = 0
 T = 0
 Start Adc

 Do

  U = Getadc(0)
  V = U
  V = V * 0.004887
  V = V * 3
  V = V ^ 2
  Vrms = Vrms + V
  T = T + 1

 Loop Until A = 1

 T = 0.5 / T
 Vrms = Vrms * T
 Vrms = Vrms / 0.5
 Vrms = Sqr(vrms)

 Cls

 Lcd "vrms(v)=" ; Vrms

Wend

While Main = 2
 Config Timer1 = Counter , Edge = Rising
 Config Timer0 = Timer , Prescale = 1024
 Enable Interrupts
 Enable Timer0
 Enable Ovf1


 On Timer0 Main2

 Dim Freq As Long , Overflow1 As Byte , Overflow0 As Long

 Overflow1 = 0
 Start Timer0
 Do
 Loop

Wend

Loop
End

Main2:
 Incr Overflow0
 If Overflow0 > 30 Then
 Stop Timer0
 Cls
 Freq = Overflow1 * 65536
 Freq = Freq + Counter1
 Lcd "frequency:" ; Freq
 Overflow1 = 0
 Overflow0 = 0
 Counter1 = 0
 Start Timer0
 End If
Return



Timer1_reg:
If Main = 1 Then
 Timer1 = 3036
 A = 1
End If
If Main = 2 Then
 Incr Overflow1
Counter1 = 0
End If

Return


Selection1:
Cls
Main = 1

Return

Selection2:
Cls
Main = 2

Return
                فرکانس مترش درسته ولی ولتمترش همش 14.97 رو نشون میده .
                اشکال کد چیه ؟
                شاید به تایمر 1 ربط داشته باشه .
                کسی نمیدونه چطوری درست میشه ؟؟؟

                دیدگاه

                  #9
                  پاسخ : مشکل در برنامه نویسی در بسکام

                  فایل پروتیوس رو بزارید تا تستش کنم

                  دیدگاه

                    #10
                    پاسخ : مشکل در برنامه نویسی در بسکام

                    نوشته اصلی توسط میثم قاسمی نیا
                    فایل پروتیوس رو بزارید تا تستش کنم
                    خیلی ممنون
                    فایل پروتئوس:
                    http://s3.picofile.com/file/8190350034/prj.DSN.html

                    دیدگاه

                      #11
                      پاسخ : مشکل در برنامه نویسی در بسکام

                      دوست عزیز
                      برنامه رو اصلاح کردم،اما مشکلشما این بود که شما مرجع adc رو avccتعریف کرده بودید ولی فیلتر LC این پایه رو نزاشته بودید
                      کد:
                      $regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Config Portd = Input
Config Debounce = 30

Deflcdchar 2 , 1 , 3 , 7 , 15 , 15 , 7 , 3 , 1

Dim Main As Byte




Cls

Do


 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "volt.m"
 Locate 2 , 10
 Lcd "freq.m"


 Debounce Pind.0 , 0 , Selection1 , Sub
 Debounce Pind.1 , 0 , Selection2 , Sub

 If Main = 1 Then
 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "volt.m" ; Chr(2)
 Locate 2 , 10
 Lcd "freq.m" : End If
 If main = 2 Then
 Locate 1 , 1
 Lcd "process...?"
 Locate 2 , 1
 Lcd "volt.m"
 Locate 2 , 10
 Lcd "freq.m" ; Chr(2) : End If

While Main = 1
 Config Adc = Single , Prescaler = Auto , Reference = avcc
 Config Timer1 = Timer , Prescale = 64
 Dim U As Word , V As Single , Vrms As Single , A As Byte , T As Single
  On Timer1 Timer1_reg
 Enable Timer1
 Enable Interrupts

 Timer1 = 3036
 Start Timer1
 Vrms = 0
 A = 0
 T = 0
 Start Adc

 Do

  U = Getadc(0)
  V = U
  V = V * 0.004887
  V = V * 3
  V = V ^ 2
  Vrms = Vrms + V
  T = T + 1

 Loop Until A = 1

 T = 0.5 / T
 Vrms = Vrms * T
 Vrms = Vrms / 0.5
 Vrms = Sqr(vrms)

 Cls

 Lcd "vrms(v)=" ; Vrms

Wend

While Main = 2
 Config Timer1 = Counter , Edge = Rising
 Config Timer0 = Timer , Prescale = 1024
 Enable Interrupts
 Enable Timer0
 Enable Ovf1


 On Timer0 Main2

 Dim Freq As Long , Overflow1 As Byte , Overflow0 As Long

 Overflow1 = 0
 Start Timer0
 Do
 Loop

Wend

Loop
End

Main2:
 Incr Overflow0
 If Overflow0 > 30 Then
 Stop Timer0
 Cls
 Freq = Overflow1 * 65536
 Freq = Freq + Counter1
 Lcd "frequency:" ; Freq
 Overflow1 = 0
 Overflow0 = 0
 Counter1 = 0
 Start Timer0
 End If
Return



Timer1_reg:
If Main = 1 Then
 Timer1 = 3036
 A = 1
End If
If Main = 2 Then
 Incr Overflow1
Counter1 = 0
End If

Return


Selection1:
Cls
Main = 1

Return

Selection2:
Cls
Main = 2

Return

                      دیدگاه

                        #12
                        پاسخ : مشکل در برنامه نویسی در بسکام

                        نوشته اصلی توسط m.riahi
                        از جوابتون ممنون
                        اینطوری که شما گفتین نوشتم ، جواب نمیده
                        کدش اینه :
                        کد:
                        $regfile = "m16def.dat"
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2

Config Portd = Input

Config Debounce = 30

Dim I As Byte

On Timer1 Timer1_reg

Do

 Debounce Pind.0 , 0 , Selection1 , Sub
 Debounce Pind.1 , 0 , Selection2 , Sub

 If I = 0 Then

  Config Adc = Single , Prescaler = Auto , Reference = Avcc
  Config Timer1 = Timer , Prescale = 64
  Dim U As Word , V As Single , Vrms As Single , A As Byte , T As Single

  Enable Timer1
  Enable Interrupts

  Timer1 = 3036
  Start Timer1
  Vrms = 0
  A = 0
  T = 0

  Start Adc

  Do

   U = Getadc(0)
   V = U
   V = V * 0.004887
   V = V * 3
   V = V ^ 2
   Vrms = Vrms + V
   T = T + 1

  Loop Until A = 1

  T = 0.5 / T
  Vrms = Vrms * T
  Vrms = Vrms / 0.5
  Vrms = Sqr(vrms)

  Cls

  Lcd "vrms(v)=" ; Vrms

 Elseif I = 1 Then

  Config Timer1 = Counter , Edge = Rising
  Config Timer0 = Timer , Prescale = 1024

  Enable Timer1
  Enable Timer0
  Enable Interrupts


  On Ovf0 Main

  Dim Freq As Long , Overflow1 As Byte , Overflow0 As Long

  Overflow1 = 0
  Start Timer0
  Do
  Loop


 End If


Loop
End

Selection1:
I = 0
Return

Selection2:
I = 1
Return



Main:
 Incr Overflow0
 If Overflow0 > 30 Then
 Stop Timer0
 Cls
 Freq = Overflow1 * 65536
 Freq = Freq + Counter1
 Lcd "frequency:" ; Freq
 Overflow1 = 0
 Overflow0 = 0
 Counter1 = 0
 Start Timer0
 End If
Return

Timer1_reg:
If I = 0 Then
 Timer1 = 3036
 A = 1
Elseif I = 1 Then
 Incr Overflow1
 Counter1 = 0
End If
Return
                        ولی فرقی نمیکرد جوباب نمیده
                        چرا اینقدر Do-Loop نوشتید؟

                        به هر جال فکر کنم مشکل حل شد
                        درسته؟
                        آموزش ساخت جعبه برای مدار با نرم افزار Corel Draw - آموزش طراحی تابلو ثابت با Corel Draw و LED Tool - آموزش کرک LED Tool

                        116 کتابخانه مورد نیاز برای Altium Designer

                        از دروغ متنفرم؛ هرچند در این مملکت به جرم صداقت، کودن نامیده شوم.

                        دیدگاه

                          #13
                          پاسخ : مشکل در برنامه نویسی در بسکام

                          از جواب همه دوستان مخصوصا آقای میثم قاسمی نیا بسیار ممنون.
                          بله جواب داد.
                          فقط یک سوال درباره کلید داشتم ،توی پروتئوس باید چند بار کلید فشار بدم یا چند ثانیه روی کلید مدام فشار بدم تا کار کنه.
                          میخواستم بدونم توی عمل هم همینطوریه ؟ را حلی داره که بایک بار فشردن کار کنه ؟ چون میخوام اینو بسازم میپرسم.

                          یک سوال دیگه اینه میشه این پروژه زا با بتطری ساخت ؟؟ به جای منبع تغذیه ؟؟؟؟

                          بازم از همه دوستان ممنون.

                          دیدگاه

                            #14
                            پاسخ : مشکل در برنامه نویسی در بسکام

                            من باید چند بار پشت سرهم روی کلید فشار بدم تا برنامه کار کنه.
                            کسی را حلی داره ؟

                            دیدگاه

                              #15
                              پاسخ : مشکل در برنامه نویسی در بسکام

                              نوشته اصلی توسط m.riahi
                              من باید چند بار پشت سرهم روی کلید فشار بدم تا برنامه کار کنه.
                              کسی را حلی داره ؟
                              سلام
                              کلاک میکرو رو ببرید بالا
                              دستور چک کردن کلید رو هم توی سمتی از برنامه بذارید که مرتبا چک بشن

                              با باتری کتابی میتونید راه اندازی کنید؛ به شرطی که رگولاتور سر راهش بذارید
                              آموزش ساخت جعبه برای مدار با نرم افزار Corel Draw - آموزش طراحی تابلو ثابت با Corel Draw و LED Tool - آموزش کرک LED Tool

                              116 کتابخانه مورد نیاز برای Altium Designer

                              از دروغ متنفرم؛ هرچند در این مملکت به جرم صداقت، کودن نامیده شوم.

                              دیدگاه

                              قبلی 1 2 template بعدی
                              لطفا صبر کنید...
                              X