简易晶体管图示仪仿真

Ele_insect

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

# ]: M7 r. z: A( b
$ g2 }9 q+ u" Y; v, u  y7 O  o
程序很简单：
: }) u  [! u, g/ c$ `. \rem Main.bas file generated by New Project wizard
* _( z2 x" @5 b( G3 h5 a$ grem
8 m7 a1 Y1 `! c. `0 Srem Created:   周五 5月 2022/1/28    TAOTIE
2 ~$ y4 B0 G' b: _$ Q. `rem Processor: ATmega8
rem Compiler:  BASCOM-AVR简易晶体管图示仪仿真
, {& z/ [( V! N$ Q* y6 @. Yrem Write your code here

$ O) |) y+ I; c( j( Z: p $regfile = "m8def.dat"
7 N/ f9 A$ x. B( O9 h/ H# g. j  $crystal = 8000000
  Dim c As Byte          '通道变量
  Dim X As Byte          '电阻变量
ddrd.7=1
Config Pind.7 = Output
+ A5 t$ D) z$ H& x8 p, i
  Config Pinb.2 = Output   '写入控制
  Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
7 ?6 C: d* ^: N* f# |& o2 @. C2 [  Spiinit

: n! m. H# R( G0 g) c  V'调整各通道滑臂在下方输出电压为0v


& W/ h0 u8 N- X'频道0--5循环，上臂A--W电阻值由小变大
Do
: ?7 j  c4 u! ~5 B, ?: l% |+ h
  'For C = 0 To 5
  a! a+ ^7 F5 X# j'c=0
For x= 0 To 250 Step 25
Pind.7 =0
Waitus 15
Pind.7 =1
9 l! a/ F8 f2 x$ o3 HSpiout X , 1
/ ~8 v, ?. u6 |  Portb.2 = 0        '写入
9 n: @) v) L$ \'Spiout c, 1          '写入通道
Spiout X , 1        '写入电阻值
  R) j9 L6 w7 P5 PPortb.2 = 1       '写入停止
) y  }- T6 Q# e6 w9 w7 ?Pind.7 =1  
; \7 V- X. p+ t& K" _5 MNext x
'Waitms 100
0 K& i: M( d; F  Loop
( m. W/ x% u7 P2 r1 w! N  End
0 z6 {/ w2 @4 ?- C4 z/ W" Y
5 u$ }2 n* Z' [, w9 o$ v

Terran

666.做仪器呢！

名字好听吗

学习学习，感谢版主