扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:东亮 来源:yesky 2007年11月1日
关键字:
B:=ReadPort($378); B:=B and $FB; WritePort($378,B); |
B:=ReadPort($378); B:=B or $04; WritePort($378,B); |
B:=ReadPort($378); if ((B and $04)=$04) then //电位为高时的代码 else //电位为低时的代码 或: B:=ReadPort($378); if ((B or $FB)=$FF) then //电位为高时的代码 else //电位为低时的代码 |
function ReadPort(Port:WORD):BYTE; procedure WritePort(Port:WORD;ConByte:BYTE); function ReadPort(Port:WORD):BYTE; var B:BYTE; begin ASM MOV DX, Port; IN AL, DX; MOV B, AL; END; Result:=B; end; procedure WritePort(Port:WORD;ConByte:BYTE); begin ASM MOV DX, Port; MOV AL, ConByte; OUT DX, AL; END; end; |
procedure TForm1.CheckBox1Click(Sender: TObject); var b:BYTE; begin b:=0; if CheckBox1.Checked then b:=b or $01; if CheckBox2.Checked then b:=b or $02; if CheckBox3.Checked then b:=b or $04; if CheckBox4.Checked then b:=b or $08; if CheckBox5.Checked then b:=b or $10; if CheckBox6.Checked then b:=b or $20; if CheckBox7.Checked then b:=b or $40; if CheckBox8.Checked then b:=b or $80; WritePort($378,b); //写数据端口 end; |
procedure TForm1.Timer1Timer(Sender: TObject); var B:BYTE; begin B:=ReadPort($378); //读数据端口 CheckBox1.Checked:=((B or $FE)=$FF); CheckBox2.Checked:=((B or $FD)=$FF); CheckBox3.Checked:=((B or $FB)=$FF); CheckBox4.Checked:=((B or $F7)=$FF); CheckBox5.Checked:=((B or $EF)=$FF); CheckBox6.Checked:=((B or $DF)=$FF); CheckBox7.Checked:=((B or $BF)=$FF); CheckBox8.Checked:=((B or $7F)=$FF); end; |
procedure TForm1.CheckBox9Click(Sender: TObject); begin Timer1.Enabled:=CheckBox9.Checked; end; |
var Form1: TForm1; tb:BYTE; |
procedure TForm1.Timer2Timer(Sender: TObject); var B:BYTE; begin if tb=0 then tb:=1 else tb:=tb * 2; WritePort($378,tb); B:=ReadPort($378); CheckBox1.Checked:=((B or $FE)=$FF); CheckBox2.Checked:=((B or $FD)=$FF); CheckBox3.Checked:=((B or $FB)=$FF); CheckBox4.Checked:=((B or $F7)=$FF); CheckBox5.Checked:=((B or $EF)=$FF); CheckBox6.Checked:=((B or $DF)=$FF); CheckBox7.Checked:=((B or $BF)=$FF); CheckBox8.Checked:=((B or $7F)=$FF); end; |
procedure TForm1.CheckBox10Click(Sender: TObject); begin Timer2.Enabled:=CheckBox10.Checked; end; |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者