شمارنده با سون سگمنت و m8

Ali120

دوستان گرامی سلام
لطفا ی نفر برنامه منو بررسی کنه...
چرا این شمارنده جواب نمیده؟
______________________
$regfile = "m8def.dat"
$crystal = 4000000
Config Portd = Output
Config Portc = Output
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Dataport Alias Portd
Comm Alias Portc

Dim A As Byte , B As Byte , C As Word , D As Word , _
, N As Byte , M As Byte , V As Byte , T As Byte , Hh As Byte

Declare Sub Q
Declare Sub W
Declare Sub E
Declare Sub K
Declare Sub X

Do
Call E
Call Q
Call K
Loop
'=============================================================================
Sub K
If Pinb.0 = 1 Then
Incr N
Call X
End If
If Pinb.1 = 1 Then
Decr N
Call X
End If
If Pinb.2 = 1 Then
N = 0
M = 0
T = 0
V = 0
Call X
End If
End Sub

'========================================================================
Sub E
If N > 9 Then
N = 0
Incr M
If M > 9 Then
M = 0
Incr V
If V > 9 Then
V = 0
Incr T
If T > 9 Then
T = 0
End Sub
End If
End If
End If
End If

'======================================================================
Sub Q
Comm = &B0111 : A = N : Call W
Comm = &B1011 : A = M : Call W
Comm = &B1101 : A = V : Call W
Comm = &B1110 : A = T : Call W

End Sub
'======================================================================
Sub W
Dataport = Lookup(a , Sa)
Waitms 4
Dataport = &H00
End Sub
'========================================================================
Sub X
For Hh = 1 To 2

Call E
Call Q
Next
End Sub
'=============================================================================
Sa:
Data &B11000000 , &B00000110 , &B10100100 , &B10110000
Data &B10011001 , &B10010010 , &B10000010 , &B11111000
Data &B10000000 , &B10010000
______________________________

	HLachini.elewiz.com صفحه اول انجمن -> AVR	زمان پيشفرض سايت: ساعت گرينويچ + 3.5 ساعت
صفحه 1 از 1