简易晶体管图示仪仿真

Ele_insect

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

+ R' b+ D  ]4 M& Q" t9 U6 y

程序很简单：
rem Main.bas file generated by New Project wizard
, r' M+ a$ m' R5 _1 D, wrem
rem Created:   周五 5月 2022/1/28    TAOTIE
# n6 q& y) |) ^% hrem Processor: ATmega8
rem Compiler:  BASCOM-AVR简易晶体管图示仪仿真
rem Write your code here
7 V" }* X3 X# v
% Z; i1 e, `! a1 {# O6 q6 T $regfile = "m8def.dat"
  $crystal = 8000000
+ w0 B2 X& L) o5 k  Dim c As Byte          '通道变量
) d( s3 {+ \; {  Dim X As Byte          '电阻变量
3 c$ @  \& F( E% b  Y9 d" S6 \ddrd.7=1
7 V2 {6 N4 N, K! M0 U/ K+ u- GConfig Pind.7 = Output
! z$ W& X5 ~9 u! Z
  Config Pinb.2 = Output   '写入控制
& G% e+ p5 N" P/ w  Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
) ?3 r1 Z& I0 E0 K3 i- f  Spiinit

'调整各通道滑臂在下方输出电压为0v
2 f- U! ]; X# X6 i! Z6 A  N& P

$ ~/ p8 _( f' G+ T- @3 Q'频道0--5循环，上臂A--W电阻值由小变大
Do
) S; @. Q- l$ O, w3 p
3 U; s1 U$ R" G% n" B" w' I  'For C = 0 To 5
'c=0
For x= 0 To 250 Step 25
8 \0 ^$ s( {7 }3 o0 R8 M5 W! w3 \5 V* ZPind.7 =0
+ E: X- F6 Q$ a: Z. r- l9 [/ G" g9 \Waitus 15
& A# Z3 t( B( k' f  |" ?* b2 ZPind.7 =1
( {+ O; m! @2 f) ^: s' TSpiout X , 1
0 A  ^! E  W8 w' \  Portb.2 = 0        '写入
'Spiout c, 1          '写入通道
Spiout X , 1        '写入电阻值
0 Q% A6 F6 X5 p7 cPortb.2 = 1       '写入停止
$ W2 [- W/ P* ?. }! {+ zPind.7 =1  
Next x
* @  [' F+ v3 k4 O9 M5 \' m'Waitms 100
; B( n, p7 J" R1 e: H. L  Loop
6 Z6 j1 M2 P% ~" G# B  End

Terran

666.做仪器呢！

名字好听吗

学习学习，感谢版主