bascom 74hc595仿真

赵彬

$regfile = "m16def.dat"                                     '
$crystal = 8000000                                          '8M晶振频率
$hwstack = 32                                               '设置堆栈大小
$swstack = 10
$framesize = 40
Dim I As Byte
Dim A(10) As Byte
Ddrc.4 = 1
Ddrc.3 = 1
Ddrc.6 = 1
Dain Alias Portc.4
Ce Alias Portc.6
Sck Alias Portc.3
Ce = 1
'Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
'Spiinit
Dim S As Byte
Restore Daima
For I = 1 To 10
Read A(i)
Next
Do
nop
'Spiout A(i) , 1
Shiftout Dain , Sck , A(i) , 1
Ce = 0
Waitms 150
Ce = 1
Incr I
If I > 10 Then
I = 1
End If
'Ce = 1
Loop

Daima:
Data &B11000000 , &B11111001 , &B10100100 , &B10110000 , &B10011001
Data &B10010010 , &B10000010 , &B11111000 , &B10000000 , &B10011000

ba1731

表四鄙人纯属随机路过。。。顺带帮顶。。。

oscfy

我也想了解，谢谢发帖的人

铜河

随机路过，没搞明白