简易晶体管图示仪仿真

Ele_insect

经过几天的努力终于可以在Proteus 8 示波器显示小功率晶体管输出特性曲线图形了
* o& j1 b& {* B2 a采用数字电位器生成阶梯电压。在生成每个阶梯的同时产生同步信号（占空比%90~95)，反向后供锯齿波产生电路。
6 I* Z) `4 F7 B/ J1 z4 H) Y
  }( n$ e+ O% o; ^2 Y
9 [& L# Q5 u$ U" g( a
7 G' z) @8 ?! _5 ]/ g; i: C0 d
, {- u' e; w) C# ~- u3 `- N1 |程序很简单：
  R/ t8 R" q) t5 Q$ H1 hrem Main.bas file generated by New Project wizard
9 I* t+ f9 O( m7 G0 i+ w7 g/ grem
6 H: t9 o/ a* @2 b4 Hrem Created:   周五 5月 2022/1/28    TAOTIE
* H  `3 u0 X. t. x+ N0 i8 crem Processor: ATmega8
5 c% h* [! X7 l& Rrem Compiler:  BASCOM-AVR简易晶体管图示仪仿真
rem Write your code here
! }; D% V1 x. s8 i5 [
$regfile = "m8def.dat"
2 K+ R$ ~" g+ Q0 J1 j/ F5 f  $crystal = 8000000
  Dim c As Byte          '通道变量
, O9 k7 I, _6 Z  Dim X As Byte          '电阻变量
8 ?5 n( k0 a* |1 j3 Y7 Pddrd.7=1
5 L8 P$ Z2 v" |. `; k: D9 J& I! CConfig Pind.7 = Output

+ \0 C  U1 v9 _+ G2 i6 d2 B* d  Config Pinb.2 = Output   '写入控制
  Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
  Spiinit
8 ?: G8 o* j. ]1 j( g
'调整各通道滑臂在下方输出电压为0v

! Q) I/ S6 Y" B; [1 f, S+ k
2 I1 H" _  Q, n2 W'频道0--5循环，上臂A--W电阻值由小变大
& c& I* c. f% n$ N9 h/ x. @0 IDo
3 m5 G5 n( w  O, _& R6 x4 D4 {
( U* K: S; O0 s" b  'For C = 0 To 5
'c=0
, A. p) }0 p/ y* F( ^% W2 i For x= 0 To 250 Step 25
( K+ N5 |4 {5 ]- ~2 uPind.7 =0
7 ?1 K; Y6 D* y: nWaitus 15
2 m, r. q7 p; \8 bPind.7 =1
Spiout X , 1
  Portb.2 = 0        '写入
- b5 Q" G0 a0 d8 r# A# o'Spiout c, 1          '写入通道
Spiout X , 1        '写入电阻值
Portb.2 = 1       '写入停止
( l/ w! D  E) h7 O  uPind.7 =1  
Next x
1 w! v' }& b2 M1 S5 b7 w0 \'Waitms 100
  Loop
  End
+ o& V" A2 A4 A/ M" x0 o  Z

Terran

666.做仪器呢！

名字好听吗

学习学习，感谢版主