به نظر من این نوع طراحی اصلا جالب نیست، ولی فکر کنم با کمی پشتک و واروی نرم افزاری میشه کاری که شما میخواید رو انجام داد. اگر خواستی برنامش رو برام بفرست تا رووش کار کنم.
راستی به غیر از این مشکلی که شما گفتی، مشکل دیگه ای نداره؟! کلا کار میکنه؟!
اصلا کار نکرد.چشم تو پی سی میگردم پیدا کردم میفرستم براتون.
Shcp Alias Portb.0
Ds Alias Portb.1
Stcp Alias Portb.2
Config Shcp = Output
Config Ds = Output
Config Stcp = Output
Declare Sub Send(byval Dat As Byte)
Sub Send(byval Dat As Byte)
Local I As Byte
Stcp = 0
For I = 1 To 8
Shcp = 0
Ds = Dat.0
Shcp = 1
Shift Dat , Right
Next
Stcp = 1
End Sub
دیدگاه