Altium教程FPGAHardwareD软件设计E0(精).pdf

该【Altium教程FPGAHardwareD软件设计E0(精) 】是由【秋江孤影】上传分享，文档一共【12】页，该文档可以免费在线阅读，需要了解更多关于【Altium教程FPGAHardwareD软件设计E0(精) 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。:.
FPGAHardware_LEDChaserIOModule软件设计
第一部分原理图

VCC
U3
TCKTMSTDITDOTRST

JTAG
JTAG
..Q[15..0]
D[15..0]LCEC
CLRSLILEFTSRIU4
SR16CLEDBQ[15..0]
D[15..0]LCEC
CLRSLILEFTSRIU5
SR16CLEDBQ[15..0]
D[15..0]LCEC
CLRSLILEFTSRIU7
:.
SR16CLEDBQ[15..0]
D[15..0]LCEC
CLR
SLILEFTSRIU8
SR16CLEDBQ[15..0]
Q[31..16]
Q[63..48]
Q[47..32]
D[15..0]D[31..16]D[63..48]D[47..32]VCC
VCCVCCVCCQ16
Q32
Q48
Q64
Q[15..0]Q[16..31]Q[48..63]
Q[47..32]Q71Q15Q31Q471Chx8BitDigitalIO
AIN[7..0]
AOUT[7..0]
CTRLIOB_1X8
A[7..0]
:.
A0
A1
D[15..0]
D[31..16]
D[63..48]
D[47..32]
A[15..0]
B[15..0]
Y[15..0]S0
U9M16_B2B1
A[15..0]
B[15..0]
Y[15..0]S0
U10M16_B2B1
A[15..0]
B[15..0]
Y[15..0]S0U11M16_B2B1
A[15..0]
B[15..0]
:.
Y[15..0]S0
U6M16_B2B1
GND
GND
GND
A2
U12
OR3SLOAD
DIR
MANUAL
Q[7..0]
D[7..0]LCEC
CLRSLILEFTSRIU1
SR8CLEDB
Q[71..64]
D[71..64]VCCQ0
Q63GND
GND
GND
:.
GND
GNDD[71..64]
A[7..0]B[7..0]
Y[7..0]
S0
U2
M8_B2B1
GND
DIVN[..]<=1000000
CDQ
U19FD
U17
CDQ
U18FD
VCCSHIFT
GND
VCC
DigitalI/OLEDChaser
U13
:.
U14
/N
CNTL[31..0]
LOAD
U15
CDIVN_32
/5
U16
CDIV5
4Chx16BitDigitalIOAIN[15..0]BIN[15..0]CIN[15..0]DIN[15..0]
AOUT[15..0]BOUT[15..0]COUT[15..0]DOUT[15..0]
DIGIO
IOB_4X16
CLK_BRDPXX
TEST_BUTTON
PXXJTAG_NEXUS_TMS
PXX
:.
JTAG_NEXUS_TCKPXXJTAG_NEXUS_TDOPXXJTAG_NEXUS_TDIPXX
Thisexampleimplementsa72bitshiftregisterto"chase"LEDsarounda4x16Digital
I/.
YouwillneedtouptherefreshspeedontheI/Omoduleto100ms(Optionsbutton
.
Bit0(togglehighthelowwillloadthechaserwiththesettingsenteredintothe
-thisisthedisplay.
The4x16outputbitsareusedtocontrolthevaluethatwillbeloadedintothechaser
whenoperatingin"ManualMode"
Power-OnLoad

factthattheDFFswillcomeupwithzeroloaded.
Loadfromthreesources.


.

{......................................................................................................}Procedure
UnRouteNet(Board:IPCB_Board;Net:IPCB_Net;
Var
Iterator:IPCB_GroupIterator;
:.
Prim:IPCB_Prim;
KillList:TList;
i:Integer;
Begin
Iterator:=;
Prim:=;
KillList:=;
WhilePrim<>NIlDo
Begin

(Prim;
Prim:=;
End;
Fori:=-1Do
(KillList[i];
;
End;{......................................................................................................}
{......................................................................................................}Procedure
UnrouteClass(Board:IPCB_BOARD;NetClass:IPCB_OBjectClass;
:.
Var
Iterator:IPCB_BoardIterator;
net:IPCB_Net;
Begin
Iterator:=;
;
(MkSet(eNetObject;
Net:=;
WhileNet<>NIlDo
Begin
(
UnrouteNet(Board,Net;
Net:=;
End;
;
End;{......................................................................................................}
{......................................................................................................}Procedure
UnRouteSelectedClasses(Board:I_PCBBoard;
Var
:.
i:Integer;
Begin
Fori:=-1Do
[i]Then
UnrouteClass(Board,[i];
End;{......................................................................................................}
{......................................................................................................}Function
ChooseNetCLass(Dummy:Integer=0:Boolean;
Begin
Result:==mrOK;
End;
{......................................................................................................}
{......................................................................................................}Procedure
FillNetClassList(Board:IPCB_Board;
Var
Iterator:IPCB_BoardIterator;
c:IPCB_ObjectClass;
Begin
Iterator:=;
:.
;
(MkSet(eClassObject;
c:=;
Whilec<>NIlDo
Begin
=eClassMemberKind_NetThen
(,C;
c:=;
End;
End;{......................................................................................................}
{......................................................................................................}Procedure
UnRouteNetClass;
Var
ClassToUnroute:IPCB_OBjectClass;
Board:IPCB_Board;
Begin
;
Try
Board:=;
:.
IfNotAssigned(BoardThen
Begin
ShowMessage('TheCurrentDocumentisnotaProtelPCBDocument.';
Exit;
End;
FillNetClassList(Board;
IfChooseNetClassThen
UnrouteSelectedClasses(Board;
Finally
;
End;
End;{......................................................................................................}
{......................................................................................................}procedure
(Sender:TObject;
begin
ModalResult:=mrOK;
end;