|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
经过几天的努力终于可以在Proteus 8 示波器显示小功率晶体管输出特性曲线图形了![]()
/ k+ o: L6 B, Y6 U采用数字电位器生成阶梯电压。在生成每个阶梯的同时产生同步信号(占空比%90~95),反向后供锯齿波产生电路。
4 R7 f! \5 G& ~& Q( P0 ~![]()
' c' j) ]' q% ?3 f4 J, \% w/ o0 f5 c6 m% z: x1 q/ S8 U
![]()
7 t0 L% h' G. V' T. m4 ]8 \! ?8 ]* u: A; N8 p6 k" m G% H- w
程序很简单:
& O {7 f( h7 \$ erem Main.bas file generated by New Project wizard
4 Y5 n# T* Y- krem
4 j q% H5 |1 d2 E( V1 K4 q9 Lrem Created: 周五 5月 2022/1/28 TAOTIE0 r; E9 l3 Y& S7 E+ T% h1 m
rem Processor: ATmega8
6 }+ c. d" I( D6 R) M c: s( Rrem Compiler: BASCOM-AVR简易晶体管图示仪仿真
7 m6 f& p; U _% y0 Srem Write your code here" {0 i2 A! X% W [/ Y2 w+ N9 H
; x$ S% P. R9 n+ J1 u7 U( A
$regfile = "m8def.dat"
* G) g, t' I/ R5 s $crystal = 8000000& z+ F& ^+ j5 w& _9 u5 e) [4 Y
Dim c As Byte '通道变量3 `+ O' U2 A# s8 I8 _
Dim X As Byte '电阻变量
; E2 M5 R* Q( ` N; r- nddrd.7=1
3 N( N4 g9 L+ v! R# K3 \% P& wConfig Pind.7 = Output $ w! l' q; D! B5 ?7 K
2 U, k4 A4 l& Z+ l( i Config Pinb.2 = Output '写入控制. ^# @; m6 s \6 D- W& F) W
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
- o" s w& P t, d: H+ h6 Y4 s Spiinit
: G& a$ r6 `, \4 x& r% y/ A+ i. b
'调整各通道滑臂在下方输出电压为0v8 u6 w p8 A2 W Z3 ]
3 w: f3 Z" @/ t; Z4 c9 F) ?3 y* z# o
'频道0--5循环,上臂A--W电阻值由小变大$ H7 ^8 z) t- d! _# L- e3 v) k
Do / @+ i( v8 z `+ W9 _+ a! ~1 M7 O
/ I3 r. {# D, L+ F% I9 Z- O
'For C = 0 To 5+ [) q5 _) d% W( D
'c=03 O- u/ A* X; f, F5 i+ f( `
For x= 0 To 250 Step 254 Y& v! f ^1 S, l0 j
Pind.7 =04 d* a' e) V }- z9 d1 Q* v) e
Waitus 15
, R" t; X$ r; ~. b& |* pPind.7 =1
# E D2 F M& R, U+ H6 p" |Spiout X , 16 p# J( ~& H" D3 N/ M
Portb.2 = 0 '写入7 W6 B) V5 p8 v8 H4 T' `
'Spiout c, 1 '写入通道
0 l: Q6 ~7 i8 F4 o, B% w! I2 oSpiout X , 1 '写入电阻值
* G+ u* c; Q! F% RPortb.2 = 1 '写入停止
: e* q* k$ [) P9 @5 Z# M: n9 wPind.7 =1 ) V1 k4 J2 O1 q" R3 u- Q
Next x
+ ^) e8 } Q' B5 Z4 G6 E! o6 D, Q0 I'Waitms 100
3 v& W& C4 |6 g# V Loop" Y E1 P6 a( X% T2 L
End
* L i' K L3 F& U; z$ M+ Q) c. T Y) M: Z) K+ _/ s
|
评分
-
查看全部评分
|