• 50 Vote(s) - 2.24 Average
  • 1
  • 2
  • 3
  • 4
  • 5
راه اندازی سون سگمنت با بسکام
#1

.zip   S1.zip (Size: 17.73 KB / Downloads: 2)
PHP Code:
$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 

 

 

 


برای ورود بر روی تصویر کلیک کنید.
www.avrprj.ir
  Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  آموزش کامل بسکام به همراه مثال a.mehran 16 15,765 09-26-2014، 04:24 PM
Last Post: a.mehran
  مدار فاصله سنج اولتراسونیک با بسکام a.mehran 2 3,078 09-02-2014، 07:56 AM
Last Post: a.mehran
  pwm با بسکام a.mehran 0 1,894 09-01-2014، 10:02 PM
Last Post: a.mehran

Forum Jump:


Users browsing this thread: 1 Guest(s)