|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
经过几天的努力终于可以在Proteus 8 示波器显示小功率晶体管输出特性曲线图形了 ' W: ?$ K$ E6 |( M% A# V
采用数字电位器生成阶梯电压。在生成每个阶梯的同时产生同步信号(占空比%90~95),反向后供锯齿波产生电路。0 m+ A* Y( {# E" I, h/ @, c
! _' d' s- W7 Z `! a
' X1 a: h1 Y' q: f
![]()
, B' d' f A6 T' ]1 u8 P" S9 n2 q/ K% P3 y+ W: j% g
程序很简单:
- h* I& H; `5 B: k/ O# Nrem Main.bas file generated by New Project wizard q- x6 Y3 [" Y: I6 W8 S
rem
7 @( m6 T9 B& jrem Created: 周五 5月 2022/1/28 TAOTIE
1 ]! O2 N' R1 a4 g9 F# t" N. N/ @rem Processor: ATmega8
6 U2 ]9 [7 {3 K+ prem Compiler: BASCOM-AVR简易晶体管图示仪仿真
( S' Y/ L8 z3 Erem Write your code here1 k% Z4 d; t( \, B% q
6 O8 } R: |% l% O2 B1 R h0 ? $regfile = "m8def.dat"5 q2 |5 `7 B. O# Z. Y. j& r
$crystal = 80000004 g1 c9 m' b) M+ R3 P \5 H( a' e
Dim c As Byte '通道变量
5 o' i8 {/ D+ {' ~/ X \0 I Dim X As Byte '电阻变量
$ M6 k! A2 ~% t+ D% X b( Y* Rddrd.7=1( v+ R7 `/ W5 k4 W* r/ u( I5 O0 f% b9 i
Config Pind.7 = Output
% h9 ~* ?) C; D* w( s' k: ]( K/ @; z# v" _/ F% d2 t
Config Pinb.2 = Output '写入控制, W% k& v* t4 ]
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1- }' g" ?( s# I, I6 J) U
Spiinit
3 Y7 h* _6 T9 I5 x P5 U2 j
! ]3 I5 G* B3 c; W! n; x'调整各通道滑臂在下方输出电压为0v; M. Y# {# B. ]/ O6 q, n/ m
$ Z/ B+ n* R+ M
8 }* B! k' F4 z3 S0 i# C
'频道0--5循环,上臂A--W电阻值由小变大
7 v. W: ~6 B; T+ }# eDo 3 @# J# U& {1 o- J- r! h
o0 [. s% a/ I& v 'For C = 0 To 58 n1 H8 L2 M# K2 P. F k, Y
'c=0, ?0 F2 a8 K8 x1 Q
For x= 0 To 250 Step 25
; S; L& e8 \) B! q& R+ u* RPind.7 =01 K0 l3 ~: x/ R+ X2 }
Waitus 15
3 J% A3 ]1 p. hPind.7 =1
6 t6 h5 ]+ O" g9 h! T2 a% GSpiout X , 14 v* f0 P# L0 r3 V
Portb.2 = 0 '写入
/ j5 U$ ?% U9 w5 d'Spiout c, 1 '写入通道
' G5 K+ I% A6 w* [: `& WSpiout X , 1 '写入电阻值' W- B$ k/ z# L& ^# L: E J7 k
Portb.2 = 1 '写入停止
1 c! q5 G R1 c: k+ b* UPind.7 =1 0 K- N( L+ ^4 J' \
Next x9 d, ?0 v9 ]" d6 y* ^; r% U" v
'Waitms 100
: z5 G1 \. X. N; R) z) K Loop2 x- P' S A, @" |6 D, B# t
End
R7 i# \- o2 m! i$ |+ z6 e' K# S
$ ~+ E+ U2 z3 H4 d |
评分
-
查看全部评分
|