找回密码
 注册
关于网站域名变更的通知
查看: 164|回复: 2
打印 上一主题 下一主题

简易晶体管图示仪仿真

  [复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2022-5-25 10:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
经过几天的努力终于可以在Proteus 8 示波器显示小功率晶体管输出特性曲线图形了' W: ?$ K$ E6 |( M% A# V
采用数字电位器生成阶梯电压。在生成每个阶梯的同时产生同步信号(占空比%90~95),反向后供锯齿波产生电路。0 m+ A* Y( {# E" I, h/ @, c
! _' d' s- W7 Z  `! a
' X1 a: h1 Y' q: f

, B' d' f  A6 T' ]1 u8 P" S9 n2 q/ K% P3 y+ W: j% g
程序很简单:
- h* I& H; `5 B: k/ O# Nrem Main.bas file generated by New Project wizard  q- x6 Y3 [" Y: I6 W8 S
rem
7 @( m6 T9 B& jrem Created:   周五 5月 2022/1/28    TAOTIE
1 ]! O2 N' R1 a4 g9 F# t" N. N/ @rem Processor: ATmega8
6 U2 ]9 [7 {3 K+ prem Compiler:  BASCOM-AVR简易晶体管图示仪仿真
( S' Y/ L8 z3 Erem Write your code here1 k% Z4 d; t( \, B% q

6 O8 }  R: |% l% O2 B1 R  h0 ? $regfile = "m8def.dat"5 q2 |5 `7 B. O# Z. Y. j& r
  $crystal = 80000004 g1 c9 m' b) M+ R3 P  \5 H( a' e
  Dim c As Byte          '通道变量
5 o' i8 {/ D+ {' ~/ X  \0 I  Dim X As Byte          '电阻变量
$ M6 k! A2 ~% t+ D% X  b( Y* Rddrd.7=1( v+ R7 `/ W5 k4 W* r/ u( I5 O0 f% b9 i
Config Pind.7 = Output
% h9 ~* ?) C; D* w( s' k: ]( K/ @; z# v" _/ F% d2 t
  Config Pinb.2 = Output   '写入控制, W% k& v* t4 ]
  Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1- }' g" ?( s# I, I6 J) U
  Spiinit
3 Y7 h* _6 T9 I5 x  P5 U2 j
! ]3 I5 G* B3 c; W! n; x'调整各通道滑臂在下方输出电压为0v; M. Y# {# B. ]/ O6 q, n/ m
$ Z/ B+ n* R+ M
8 }* B! k' F4 z3 S0 i# C
'频道0--5循环,上臂A--W电阻值由小变大
7 v. W: ~6 B; T+ }# eDo 3 @# J# U& {1 o- J- r! h

  o0 [. s% a/ I& v  'For C = 0 To 58 n1 H8 L2 M# K2 P. F  k, Y
'c=0, ?0 F2 a8 K8 x1 Q
For x= 0 To 250 Step 25
; S; L& e8 \) B! q& R+ u* RPind.7 =01 K0 l3 ~: x/ R+ X2 }
Waitus 15
3 J% A3 ]1 p. hPind.7 =1
6 t6 h5 ]+ O" g9 h! T2 a% GSpiout X , 14 v* f0 P# L0 r3 V
  Portb.2 = 0        '写入
/ j5 U$ ?% U9 w5 d'Spiout c, 1          '写入通道
' G5 K+ I% A6 w* [: `& WSpiout X , 1        '写入电阻值' W- B$ k/ z# L& ^# L: E  J7 k
Portb.2 = 1       '写入停止
1 c! q5 G  R1 c: k+ b* UPind.7 =1  0 K- N( L+ ^4 J' \
Next x9 d, ?0 v9 ]" d6 y* ^; r% U" v
'Waitms 100
: z5 G1 \. X. N; R) z) K  Loop2 x- P' S  A, @" |6 D, B# t
  End
  R7 i# \- o2 m! i$ |+ z6 e' K# S
$ ~+ E+ U2 z3 H4 d

评分

参与人数 1威望 +1 收起 理由
Terran + 1 EDA365有你更精彩!

查看全部评分

该用户从未签到

2#
发表于 2022-5-25 13:22 | 只看该作者
666.做仪器呢!

该用户从未签到

3#
发表于 2022-5-25 16:27 | 只看该作者
学习学习,感谢版主
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-6-15 16:24 , Processed in 0.093750 second(s), 24 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表