简易晶体管图示仪仿真

Ele_insect

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

/ F6 I% ~4 z4 q2 z
' E/ L* M% j9 t! A. w3 c

程序很简单：
  _9 n3 l. f0 n7 m; W* vrem Main.bas file generated by New Project wizard
rem
4 E" o! E6 w: arem Created:   周五 5月 2022/1/28    TAOTIE
rem Processor: ATmega8
# H% u( X/ S. x3 L) lrem Compiler:  BASCOM-AVR简易晶体管图示仪仿真
9 t& r; V; T6 \( Z; \* p& W2 [rem Write your code here
  P8 u  e+ u; ]/ b0 E; }
6 O- X) O, ^9 z $regfile = "m8def.dat"
1 m2 K7 k* k8 Q5 \& d  z  $crystal = 8000000
' N, _1 O# `+ u5 w6 i  Dim c As Byte          '通道变量
  Dim X As Byte          '电阻变量
6 V" A/ F& \* E, V: X# X: O5 yddrd.7=1
Config Pind.7 = Output

3 b1 O% E1 I* D7 E- i3 s8 T$ D1 @2 R. o  Config Pinb.2 = Output   '写入控制
  Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
- B3 ~) }& t$ i  Spiinit
. ]6 E9 q; e. @
'调整各通道滑臂在下方输出电压为0v
5 h0 W- h% P4 c3 H3 K8 |

# i, ^4 a# g' n1 v" ~/ T9 {'频道0--5循环，上臂A--W电阻值由小变大
Do

  'For C = 0 To 5
'c=0
For x= 0 To 250 Step 25
Pind.7 =0
( Q# r2 _' v0 @& {/ u% MWaitus 15
Pind.7 =1
Spiout X , 1
% g  n: G) C, g( j8 ~2 I  Portb.2 = 0        '写入
'Spiout c, 1          '写入通道
% {7 [3 T  e$ M" k# O& NSpiout X , 1        '写入电阻值
Portb.2 = 1       '写入停止
" Q4 ?' ~  K7 K) g7 gPind.7 =1  
$ O0 g  O! C. l: PNext x
$ S9 X* {2 @  J& K) F! f- v'Waitms 100
  Loop
" Z0 L: a, y+ U! D- i6 t  End
0 R6 g: V( ]( b7 s( {

Terran

666.做仪器呢！

名字好听吗

学习学习，感谢版主