Parsi Coders

نسخه‌ی کامل: راه اندازی سون سگمنت با بسکام
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
[attachment=556]
کد پی‌اچ‌پی:
$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