简易晶体管图示仪仿真

Ele_insect

经过几天的努力终于可以在Proteus 8 示波器显示小功率晶体管输出特性曲线图形了
/ k+ o: L6 B, Y6 U采用数字电位器生成阶梯电压。在生成每个阶梯的同时产生同步信号（占空比%90~95)，反向后供锯齿波产生电路。
4 R7 f! \5 G& ~& Q( P0 ~
' c' j) ]' q% ?3 f4 J, \% w/ o

7 t0 L% h' G. V' T. m4 ]8 \! ?8 ]
程序很简单：
& 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    TAOTIE
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

$regfile = "m8def.dat"
* G) g, t' I/ R5 s  $crystal = 8000000
  Dim c As Byte          '通道变量
  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

2 U, k4 A4 l& Z+ l( i  Config Pinb.2 = Output   '写入控制
  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
'调整各通道滑臂在下方输出电压为0v

3 w: f3 Z" @/ t; Z
'频道0--5循环，上臂A--W电阻值由小变大
Do

  'For C = 0 To 5
'c=0
For x= 0 To 250 Step 25
Pind.7 =0
Waitus 15
, R" t; X$ r; ~. b& |* pPind.7 =1
# E  D2 F  M& R, U+ H6 p" |Spiout X , 1
  Portb.2 = 0        '写入
'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  
Next x
+ ^) e8 }  Q' B5 Z4 G6 E! o6 D, Q0 I'Waitms 100
3 v& W& C4 |6 g# V  Loop
  End
* L  i' K  L3 F& U; z$ M

Terran

666.做仪器呢！

名字好听吗

学习学习，感谢版主