简易晶体管图示仪仿真

Ele_insect

经过几天的努力终于可以在Proteus 8 示波器显示小功率晶体管输出特性曲线图形了
采用数字电位器生成阶梯电压。在生成每个阶梯的同时产生同步信号（占空比%90~95)，反向后供锯齿波产生电路。



, B' d' f  A6 T' ]
程序很简单：
- h* I& H; `5 B: k/ O# Nrem Main.bas file generated by New Project wizard
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 here

6 O8 }  R: |% l% O2 B1 R  h0 ? $regfile = "m8def.dat"
  $crystal = 8000000
  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
Config Pind.7 = Output
% h9 ~* ?) C; D* w( s
  Config Pinb.2 = Output   '写入控制
  Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
  Spiinit
3 Y7 h* _6 T9 I5 x  P5 U2 j
! ]3 I5 G* B3 c; W! n; x'调整各通道滑臂在下方输出电压为0v


'频道0--5循环，上臂A--W电阻值由小变大
7 v. W: ~6 B; T+ }# eDo

  o0 [. s% a/ I& v  'For C = 0 To 5
'c=0
For x= 0 To 250 Step 25
; S; L& e8 \) B! q& R+ u* RPind.7 =0
Waitus 15
3 J% A3 ]1 p. hPind.7 =1
6 t6 h5 ]+ O" g9 h! T2 a% GSpiout X , 1
  Portb.2 = 0        '写入
/ j5 U$ ?% U9 w5 d'Spiout c, 1          '写入通道
' G5 K+ I% A6 w* [: `& WSpiout X , 1        '写入电阻值
Portb.2 = 1       '写入停止
1 c! q5 G  R1 c: k+ b* UPind.7 =1  
Next x
'Waitms 100
: z5 G1 \. X. N; R) z) K  Loop
  End
  R7 i# \- o2 m! i$ |+ z6 e' K# S
$ ~+ E+ U2 z3 H4 d

Terran

666.做仪器呢！

名字好听吗

学习学习，感谢版主