Altium教程EB1EB2Tester2软件设计C1(精).pdf

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

CLKDataIn[7..0]
SoundOut
U_DeltaSigma8

Clock
DOUT[7..0]
Reset
U_SineWaveGenerator

DeltaSigmaClk
Reset
DIVIDERRATIO[15..0]
NOTEN[7..0]
Invalid

/N
CNTL[15..0]
:.
LOAD
U1
CDIVN_16
GND
NoteN[7..0]U4
OR2S
I[15..0]OA[7..0]
OB[7..0]
U3
J16B_8B2
Vol[7..0]
A[7..0]B[7..0]P[15..0]
U2MULTU8B
--Entityname
--Created(
--.
--Modified(date,bywhom
--Description
--TristateIOBuffer
:.
LibraryIeee;
;
entityaddTransis
port(
sel:instd_logic;
inp:instd_logic_vector(15downto0;
outp:outstd_logic_vector(15downto0;
io:inoutstd_logic_vector(15downto0
;
endentity;
architecturertlofaddTransis
begin
outp<=iowhensel='0'else(others=>'Z';
io<=inpwhensel='1'else(others=>'Z';endarchitecture;
{..............................................................................}
{Summary}
{ConvertsamonochromeimageasaPCBLogointoaseriesofthin}
{PCBtracksthatcanbeplacedonaPCBdocumentasalogo.}
{}
:.
{Copyright(c2008byPurPerLimited}
{}
{}
{}
{}
{-}
{-Makemoretolerantofnon-monochromeimages,nowtracksarecreatedat}
{theboundaryofwhiteandnon-whitepixels}
{-Useusercustomizedlayernames}
{..............................................................................}
Var
gvBoard:IPCB_Board;
{......................................................................................................................}
ProcedureRunConverterScript;
Begin
;
End;{......................................................................................................................}
{......................................................................................................................}
ProcedurePlaceATrack(ABoard:IPCB_Board;X1,Y1,X2,Y2:TCoord;ALayer:
TLayer,AWidth:Float;
:.
Var
PCBTrack:IPCB_Track;
Sheet:IPCB_Sheet;
OffSet:TCoord;
Begin
//obtainthecoordinatesofthesheetsocanplacelogowithintheboard
Sheet:=;
OffSet:=MilsToCoord(100;
//placeanewtrackontheblankPCB
PCBTrack:=(eTrackObject,eNoDimension,
eCreate_Default;
:=Round(MilsToCoord(1*AWidth;
:=+MilsToCoord(X1+Offset;
:=+MilsToCoord(Y1+Offset;
:=+MilsToCoord(X2+Offset;
:=+MilsToCoord(Y2+Offset;
:=ALayer;
(PCBTrack;
End;{......................................................................................................................}
:.
{......................................................................................................................}
ProcedureScalingFactorChange(Dummy:TObject;
Begin
:=
FloatToStr((+1*
+'x'+
FloatToStr((+1*
+'mils';
End;{......................................................................................................................}
{......................................................................................................................}
(Sender:TObject;
Begin
ScalingFactorChange(Nil;
End;{......................................................................................................................}
{......................................................................................................................}
(Sender:TObject;
Var
I,J:Integer;
Begin

:.
Begin
:=0;
:='Loading...';
;
//loadingamonochromebitmaponly
(;
//Checkifimageismonochrome,otherwisepromptawarning
<>pf1bitThen
Begin
ForJ:=-1Do
ForI:=-1Do
Begin
[I,J]<>clWhiteThen
[I,J]:=clBlack;
End;
End;
ScalingFactorChange(Nil;
:=True;
:=False;
:.
:='Ready...';
;
End;
End;{......................................................................................................................}
{......................................................................................................................}
(Sender:TObject;
begin
//CreateastandaloneblankPCBdocumentandaddthenewlogotoit
//.
CreateNewDocumentFromDocumentKind('PCB';
//GetCurrentPCBBoardreturnsaIPCB_Boardtype.
gvBoard:=;
IfgvBoard=NilThen
Begin
ShowWarning('APCBdocumentisnotcreatedproperly.';
ShowModal:=mrError;
End
Else
SetupComboBoxFromLayer(ComboBoxLayers,gvBoard;
:.
end;{......................................................................................................................}
{......................................................................................................................}
(Sender:TObject;
x,y,x1,FlipY,FlipX:Integer;
PixelColor:TColor;
Start:Boolean;
//PCBBoard:IPCB_Board;
PCBLayer:TLayer;
TrackWidth:Integer;
Begin
:=crHourGlass;
:=;
PCBLayer:=GetLayerFromComboBox(ComboBoxLayers,gvBoard;
TrackWidth:=StrToFloat(;
//ensurethelayerselectedisdisplayedinthePCBworkspace
[PCBLayer]:=True;
ForY:=-1Do
Begin
:=Y;
:.
;
:='Converting...';
;
If(
FlipY:=Y
Else
FlipY:=Abs(Y--1;
FlipY:=FlipY*StrToFloat(;
//Denotesthestartofalineonarowofanimage
Start:=False;
ForX:=
Begin
If(
PixelColor:=clBlack
Else
PixelColor:=clWhite;
IfX<
PixelColor:=[x,y];

:.
FlipX:=abs(X-
Else
FlipX:=X;
FlipX:=FlipX*StrToFloat(;
If(
Begin
CasePixelColorOf
clWhite:
IfNot(StartThen
Begin
x1:=FlipX;
Start:=True;
End;
Else
Begin
If(StartThen
PlaceATrack(gvBoard,X1,FlipY,FlipX,FlipY,PCBLayer,TrackWidth;
Start:=False;
End;
:.
End;
End
Else
Begin
CasePixelColorOf
clWhite:
Begin
If(StartThen
PlaceATrack(gvBoard,X1,FlipY,FlipX,FlipY,PCBLayer,TrackWidth;
Start:=False;
End;
Else
IfNot(StartThen
Begin
x1:=FlipX;
Start:=True;
End;
End;
End;
:.
End;
End;
:=crArrow;
:='Done...';
;
//togglebuttons
:=False;
:=True;
//clearoutprogressbar
:=0;
;
//clearoutimage
:=nil;
('PCB:Zoom','Action=All',255,;
End;{......................................................................................................................}
{......................................................................................................................}
(Sender:TObject;
Begin
Close;
:.
End;{......................................................................................................................}