简易晶体管图示仪仿真

Ele_insect

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

$ D) a) x; ^3 Y2 C# y! x/ P

. F3 L3 B2 f) p' j. m; A! i
程序很简单：
( |) d  _  z  i$ [3 w( q4 p0 ?rem Main.bas file generated by New Project wizard
rem
rem Created:   周五 5月 2022/1/28    TAOTIE
rem Processor: ATmega8
rem Compiler:  BASCOM-AVR简易晶体管图示仪仿真
rem Write your code here
$ U5 Z3 j0 J! N& R& Z
/ `1 T' ^. b+ w3 y/ _( E $regfile = "m8def.dat"
9 N2 g; G+ }- S- K2 a6 y  $crystal = 8000000
  Dim c As Byte          '通道变量
/ P6 ~0 K" p- B  Dim X As Byte          '电阻变量
ddrd.7=1
Config Pind.7 = Output
/ a& V. G$ D# n4 ?8 u9 N
$ C) g( Y0 S4 |0 W- Z( V  Config Pinb.2 = Output   '写入控制
  Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
, F; a. O" d3 E3 U( Z4 R! E9 K1 M  Spiinit
4 i  a  D" m% E% x& t2 [" d
8 e& X: \) Y# |( q'调整各通道滑臂在下方输出电压为0v
' t5 v  Y7 T- O. ]
: K# q! g/ x$ v  i2 ~
'频道0--5循环，上臂A--W电阻值由小变大
Do

  'For C = 0 To 5
'c=0
For x= 0 To 250 Step 25
! F, P' L" T; Q7 qPind.7 =0
( V% O% p- }- F0 lWaitus 15
( K& I5 A" V( fPind.7 =1
% ?0 D5 U* d- ?5 ASpiout X , 1
  Portb.2 = 0        '写入
" I- [1 U5 `- ^- v# V'Spiout c, 1          '写入通道
( j+ @& i7 Z9 N/ CSpiout X , 1        '写入电阻值
6 p2 [+ q4 R3 l# x9 `! s) APortb.2 = 1       '写入停止
Pind.7 =1  
Next x
( m  X3 I! N, U* x. Z( ?0 @* H'Waitms 100
- e4 R" }* E# q! Q7 i( G, f  Loop
0 c+ ~8 u5 Z5 }1 ~4 s+ L/ A4 ]  End
4 H! ^; D# G5 N$ P+ c
; n9 q, a; K1 n6 W# e

Terran

666.做仪器呢！

名字好听吗

学习学习，感谢版主