使用电脑控制家电.doc

《使用电脑控制家电.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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.T

2、ext=Check1.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.O

3、utput=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$(Val(&H3))m.Output=Chr$(Val(&H9))m.Output=Chr$(Val(&H7))m.Output=Chr$(Val(&H5))'5fhm.Output=Chr$

4、(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"Iff=11Thenf="b"Iff=12Thenf="c"Iff=13Thenf="d"Iff=14Thenf="e"Iff=15Thenf="f"Label2.Captio

5、n=Chr$(Val("&H"&s&f))Label1.Caption="&H"&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*64IfChe

6、ck2.Value=1ThenShape2.BackColor=&HFF&IfCheck2.Value=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.

7、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$(Val(&H0))a=Val(Text1.Text)s=Int(a/16)s1=sIfs=10Thens="a"Ifs=11Thens="b"Ifs=12Thens="c"

8、Ifs=13Thens="d"Ifs=14Thens="e"Ifs=15Thens="f"f=a-s1*16Iff=10Thenf="a"Iff=11Thenf="b"Iff=12Thenf="c"Iff=