• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 12 رای - 2.33 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: راه اندازی سون سگمنت با بسکام
حالت موضوعی
#1

.zip   S1.zip (اندازه 17.73 KB / تعداد دانلود: 2)
کد پی‌اچ‌پی:
$regfile "M8def.dat"
$crystal 1000000

Config Portd 
Input
Config Portb 
Output Portb 0
Config Pinc.0 
Output S1 Alias Portc.0 Set S1
Config Pinc.1 
Output S2 Alias Portc.1 Set S2
Config Pinc.2 
Output S3 Alias Portc.2 Set S3
Config Pinc.3 
Output S4 Alias Portc.3 Set S4

Dim A 
As Word
Dim Aa 
As Word
Dim I 
As Byte
Dim T 
As Word 1

Declare Sub Show(byval A As Word)

Do
   
Pind
   
'A = 4321
   Call Show(a)
Loop

End
'
////////////////////////////     End Program    //////////////////////////////

'*******************************************    Show
Sub Show(a As Word)
   Do
      Incr I
      Aa = A Mod 10
      Select Case I
         Case 1:
            Portb = Lookup(aa , Annode_display)
            Set S1 : Waitms T
         Case 2:
            Portb = Lookup(aa , Annode_display)
            Set S2 : Waitms T
         Case 3:
            Portb = Lookup(aa , Annode_display)
            Set S3 : Waitms T
         Case 4:
            Portb = Lookup(aa , Annode_display)
            Set S4 : Waitms T
      End Select
      Reset S1 : Reset S2 : Reset S3 : Reset S4
      A = A \ 10 : If A = 0 Then Exit Do
   Loop
   I = 0
   Reset S1 : Reset S2 : Reset S3 : Reset S4
End Sub


'
_____________________________ For Annode Display
Annode_display
:
Data 192 249 164 176 153 146 130 248 128 144 191 127 199 143
'CHAR  0      1    2     3     4     5     6     7     8     9     -    dp    L      +

'      
0      1    2     3     4     5     6     7     8     9    10    11    12    13 

 

 

 
[عکس: bnk.png]

برای ورود بر روی تصویر کلیک کنید.
www.avrprj.ir
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  آموزش کامل بسکام به همراه مثال a.mehran 16 12,366 09-26-2014، 04:24 PM
آخرین ارسال: a.mehran
  مدار فاصله سنج اولتراسونیک با بسکام a.mehran 2 2,484 09-02-2014، 07:56 AM
آخرین ارسال: a.mehran
  pwm با بسکام a.mehran 0 1,626 09-01-2014، 10:02 PM
آخرین ارسال: a.mehran

پرش به انجمن:


Browsing: 1 مهمان