简易晶体管图示仪仿真

Ele_insect

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

5 a) `7 v! R6 g8 ^3 N/ s


: z/ b7 u7 W$ {程序很简单：
rem Main.bas file generated by New Project wizard
rem
rem Created:   周五 5月 2022/1/28    TAOTIE
rem Processor: ATmega8
1 G/ @( j* U+ e5 C4 e* w4 Prem Compiler:  BASCOM-AVR简易晶体管图示仪仿真
rem Write your code here
5 M1 P6 {2 d6 P4 M5 j% F
+ w0 p8 _6 \$ ?2 ?9 Q $regfile = "m8def.dat"
  $crystal = 8000000
% Q8 L1 s" D! Q- q* d! P  Dim c As Byte          '通道变量
, @2 R. Y5 L" K4 ?. C  Dim X As Byte          '电阻变量
ddrd.7=1
1 a. ^2 |, L$ T5 s% S8 A# QConfig Pind.7 = Output

3 Y: J9 ]: X0 h: m/ G# @  Config Pinb.2 = Output   '写入控制
  Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
  Spiinit
6 l' e8 J6 y7 u/ C. r
# [2 }7 R! E0 c7 t  y' X'调整各通道滑臂在下方输出电压为0v
- v" [! z' i. ]3 K1 c+ S( q
8 R( b. ^- |) s" r: e4 C) n; C
'频道0--5循环，上臂A--W电阻值由小变大
Do

  'For C = 0 To 5
, X- E$ b; O: u  J% h. I6 F'c=0
7 s2 o5 `* A8 |5 F& R( B) k For x= 0 To 250 Step 25
, j6 U, e9 M* o  C5 qPind.7 =0
" p0 u1 f0 w! E% ^5 gWaitus 15
& `3 w( d- Z" E4 J8 F" bPind.7 =1
Spiout X , 1
  Portb.2 = 0        '写入
; Z1 t8 l6 z4 T# Y/ W'Spiout c, 1          '写入通道
0 ^8 N: ~- a, ^% }. b4 J# u- tSpiout X , 1        '写入电阻值
Portb.2 = 1       '写入停止
# ]. S/ V  r* C: s$ P  P! rPind.7 =1  
Next x
'Waitms 100
  Loop
( _0 x% K# M/ O* X+ J: g2 i  End

Terran

666.做仪器呢！

名字好听吗

学习学习，感谢版主