程序很简单：
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
$regfile = "m8def.dat"
$crystal = 8000000
Dim c As Byte '通道变量
Dim X As Byte '电阻变量
ddrd.7=1
Config Pind.7 = Output
Config Pinb.2 = Output '写入控制
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
Spiinit
'调整各通道滑臂在下方输出电压为0v
'频道0--5循环，上臂A--W电阻值由小变大
Do
'For C = 0 To 5
'c=0
For x= 0 To 250 Step 25
Pind.7 =0
Waitus 15
Pind.7 =1
Spiout X , 1
Portb.2 = 0 '写入
'Spiout c, 1 '写入通道
Spiout X , 1 '写入电阻值
Portb.2 = 1 '写入停止
Pind.7 =1
Next x
'Waitms 100
Loop
End
