欢迎来到天天文库
浏览记录
ID:23093995
大小:607.50 KB
页数:24页
时间:2018-11-04
《使用电脑控制家电》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、使用电脑控制家电VB源程序如下:DimkAsIntegerDiml(8)AsIntegerPrivateSubCommand2_Click()'m.PortOpen=False'Form1.Show'Form2.Visible=False'UnloadForm2EndSubPrivateSubCh1_Click()IfCh1.Value=1ThenCh1.Caption="开"IfCh1.Value=0ThenCh1.Caption="关"l(1)=0k=0ClsEndSubPrivateSubCheck1_Click()Text1.Text=Check1
2、.Value+Check2.Value*2+Check3.Value*4+Check4.Value*8+Check5.Value*16+Check6.Value*32+Check7.Value*64IfCheck1.Value=1ThenShape1.BackColor=&HFF&IfCheck1.Value=0ThenShape1.BackColor=&HC0C0C0'77H不保存标志'FFH结束标志,7E判断结束标志m.Output=Chr$(Val(&H6))m.Output=Chr$(Val(&H8))m.Output=Chr$(Val(&H3))
3、m.Output=Chr$(Val(&H9))m.Output=Chr$(Val(&H7))m.Output=Chr$(Val(&H5))m.Output=Chr$(Val(&H7))m.Output=Chr$(Val(&H6))'5ahm.Output=Chr$(Val(&H8))m.Output=Chr$(Val(&H3))m.Output=Chr$(Val(&H9))m.Output=Chr$(Val(&H7))m.Output=Chr$(Val(&H5))'5fhm.Output=Chr$(Val(&H7))'50hm.Output=Chr$(Va
4、l(&H0))a=Val(Text1.Text)s=Int(a/16)s1=sIfs=10Thens="a"Ifs=11Thens="b"Ifs=12Thens="c"Ifs=13Thens="d"Ifs=14Thens="e"Ifs=15Thens="f"f=a-s1*16Iff=10Thenf="a"Iff=11Thenf="b"Iff=12Thenf="c"Iff=13Thenf="d"Iff=14Thenf="e"Iff=15Thenf="f"Label2.Caption=Chr$(Val("&H"&s&f))Label1.Caption="&H"
5、&s&fm.Output=Chr$(Val("&H"&s&f))'控制缓冲单元m.Output=Chr$(Val(&HFF))'ff是传输结束标志'''''''EndSubPrivateSubCheck2_Click()Text1.Text=Check1.Value+Check2.Value*2+Check3.Value*4+Check4.Value*8+Check5.Value*16+Check6.Value*32+Check7.Value*64IfCheck2.Value=1ThenShape2.BackColor=&HFF&IfCheck2.Valu
6、e=0ThenShape2.BackColor=&HC0C0C0'77H不保存标志'FFH结束标志,7E判断结束标志m.Output=Chr$(Val(&H6))m.Output=Chr$(Val(&H8))m.Output=Chr$(Val(&H3))m.Output=Chr$(Val(&H9))m.Output=Chr$(Val(&H7))m.Output=Chr$(Val(&H5))m.Output=Chr$(Val(&H7))m.Output=Chr$(Val(&H6))'5ahm.Output=Chr$(Val(&H8))m.Output=Chr
7、$(Val(&H3))m.Output=Chr$(Val(&H9))m.Output=Chr$(Val(&H7))m.Output=Chr$(Val(&H5))'5fhm.Output=Chr$(Val(&H7))'50hm.Output=Chr$(Val(&H0))a=Val(Text1.Text)s=Int(a/16)s1=sIfs=10Thens="a"Ifs=11Thens="b"Ifs=12Thens="c"Ifs=13Thens="d"Ifs=14Thens="e"Ifs=15Thens="f"f=a-s1*16Iff=10Thenf="a"I
8、ff=11Thenf="b"Iff=12Thenf="c"Iff=
此文档下载收益归作者所有