使用电脑控制家电

1、使用电脑控制家电VB源程序如下：Dim k As IntegerDim l(8) As IntegerPrivate Sub Command2_Click()'m.PortOpen = False'Form1.Show'Form2.Visible = False'Unload Form2End SubPrivate Sub Ch1_Click()If Ch1.Value = 1 Then Ch1.Caption = "开"If Ch1.Value = 0 Then Ch1.Caption = "关"l(1) = 0k =

2、0ClsEnd SubPrivate Sub Check1_Click()Text1.Text = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.Value * 64If Check1.Value = 1 Then Shape1.BackColor = &HFF&If Check1.Value = 0 Then Shape1.BackColor = &HC0C0C0'77H

3、不保存标志'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 = Ch

4、r$(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 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = &quo

5、t;c"If s = 13 Then s = "d"If s = 14 Then s = "e"If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f = "a"If f = 11 Then f = "b"If f = 12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = &

6、quot;f"Label2.Caption = Chr$(Val("&H" & s & f)Label1.Caption = "&H" & s & fm.Output = Chr$(Val("&H" & s & f) '控制缓冲单元m.Output = Chr$(Val(&HFF) 'ff是传输结束标志'''''''End SubPrivate Sub Check2_Clic

7、k()Text1.Text = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.Value * 64If Check2.Value = 1 Then Shape2.BackColor = &HFF&If Check2.Value = 0 Then Shape2.BackColor = &HC0C0C0'77H不保存标志'FFH结束标志，7E判断结束标志m.Output

8、 = 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$(Val(&H3)m.Output = Chr$(Val

9、(&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 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "

10、d"If s = 14 Then s = "e"If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f = "a"If f = 11 Then f = "b"If f = 12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(

11、Val("&H" & s & f)Label1.Caption = "&H" & s & fm.Output = Chr$(Val("&H" & s & f) '控制缓冲单元m.Output = Chr$(Val(&HFF) 'ff是传输结束标志'''''''End SubPrivate Sub Check3_Click()Text1.Text = Check1.Value + Che

12、ck2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.Value * 64If Check3.Value = 1 Then Shape3.BackColor = &HFF&If Check3.Value = 0 Then Shape3.BackColor = &HC0C0C0'77H不保存标志'FFH结束标志，7E判断结束标志m.Output = Chr$(Val(&H6)m.Output = Chr

13、$(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$(Val(&H3)m.Output = Chr$(Val(&H9)m.Output = Chr$(Val(&

14、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 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "d"If s = 14 Then s = "e&

15、quot;If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f = "a"If f = 11 Then f = "b"If f = 12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(Val("&H" & s &am

16、p; f)Label1.Caption = "&H" & s & fm.Output = Chr$(Val("&H" & s & f) '控制缓冲单元m.Output = Chr$(Val(&HFF) 'ff是传输结束标志'''''''End SubPrivate Sub Check4_Click()Text1.Text = Check1.Value + Check2.Value * 2 + Check3.Value * 4 +

17、 Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.Value * 64If Check4.Value = 1 Then Shape4.BackColor = &HFF&If Check4.Value = 0 Then Shape4.BackColor = &HC0C0C0'77H不保存标志'FFH结束标志，7E判断结束标志m.Output = Chr$(Val(&H6)m.Output = Chr$(Val(&H8)m.Output = Chr$(Val(

18、&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) &#

19、39;5fhm.Output = Chr$(Val(&H7) '50hm.Output = Chr$(Val(&H0)a = Val(Text1.Text)s = Int(a / 16)s1 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "d"If s = 14 Then s = "e"If s = 15 Then s = "f&qu

20、ot;f = a - s1 * 16If f = 10 Then f = "a"If f = 11 Then f = "b"If f = 12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(Val("&H" & s & f)Label1.Caption = "&H

21、" & s & fm.Output = Chr$(Val("&H" & s & f) '控制缓冲单元m.Output = Chr$(Val(&HFF) 'ff是传输结束标志'''''''End SubPrivate Sub Check5_Click()Text1.Text = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value *

22、 16 + Check6.Value * 32 + Check7.Value * 64If Check5.Value = 1 Then Shape5.BackColor = &HFF&If Check5.Value = 0 Then Shape5.BackColor = &HC0C0C0'77H不保存标志'FFH结束标志，7E判断结束标志m.Output = Chr$(Val(&H6)m.Output = Chr$(Val(&H8)m.Output = Chr$(Val(&H3)m.Output = Chr$(Val(&H

23、9)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)

24、 '50hm.Output = Chr$(Val(&H0)a = Val(Text1.Text)s = Int(a / 16)s1 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "d"If s = 14 Then s = "e"If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f

25、 = "a"If f = 11 Then f = "b"If f = 12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(Val("&H" & s & f)Label1.Caption = "&H" & s & fm.Output = C

26、hr$(Val("&H" & s & f) '控制缓冲单元m.Output = Chr$(Val(&HFF) 'ff是传输结束标志'''''''End SubPrivate Sub Check6_Click()Text1.Text = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.V

27、alue * 64If Check6.Value = 1 Then Shape6.BackColor = &HFF&If Check6.Value = 0 Then Shape6.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.Ou

28、tput = 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$(Val(&

29、H0)a = Val(Text1.Text)s = Int(a / 16)s1 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "d"If s = 14 Then s = "e"If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f = "a"If f = 11 Then f =

30、 "b"If f = 12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(Val("&H" & s & f)Label1.Caption = "&H" & s & fm.Output = Chr$(Val("&H" & s

31、 & f) '控制缓冲单元m.Output = Chr$(Val(&HFF) 'ff是传输结束标志'''''''End SubPrivate Sub Check7_Click()Text1.Text = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.Value * 64If Check7.Value = 1 Then

32、Shape7.BackColor = &HFF&If Check7.Value = 0 Then Shape7.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 =

33、 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$(Val(&H0)a = Val(Text1.Text)s = Int(a /

34、16)s1 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "d"If s = 14 Then s = "e"If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f = "a"If f = 11 Then f = "b"If f = 12 Then f = &

35、quot;c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(Val("&H" & s & f)Label1.Caption = "&H" & s & fm.Output = Chr$(Val("&H" & s & f) '控制缓冲单元m.Output = Ch

36、r$(Val(&HFF) 'ff是传输结束标志'''''''End SubPrivate Sub Command1_Click()'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(&

37、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$(Val(&H0)a = Val(Text1.Text

38、)s = Int(a / 16)s1 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "d"If s = 14 Then s = "e"If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f = "a"If f = 11 Then f = "b"If f =

39、12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(Val("&H" & s & f)Label1.Caption = "&H" & s & fm.Output = Chr$(Val("&H" & s & f) '控制缓冲单元

40、m.Output = Chr$(Val(&HFF) 'ff是传输结束标志''''''''m.PortOpen = False'Form1.Show'Form2.Visible = False'Unload Form2End SubPrivate Sub Form_Load()m.InputMode = comInputModeBinarym.InBufferSize = 1024m.InputLen = 1      m.InputMode

41、= 0m.RThreshold = 1m.RTSEnable = Truem.SThreshold = 1m.PortOpen = TrueEnd SubPrivate Sub Label1_Click()Dim a As Integera = Val(Text1.Text)Label1.Caption = "&H" & Val(a)End SubPrivate Sub Timer1_Timer()Form1.Caption = Date & "        

42、      更多内容访问 "Label7.Caption = Timek = k + 1If k = 60 Then l(1) = l(1) + 1: k = 57If l(1) = Val(Text2.Text) And Ch1.Value = 1 ThenCheck1.Value = 1Text1.Text = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 +

43、 Check7.Value * 64If Check1.Value = 1 Then Shape1.BackColor = &HFF&If Check1.Value = 0 Then Shape1.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(&am

44、p;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$(

45、Val(&H0)a = Val(Text1.Text)s = Int(a / 16)s1 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "d"If s = 14 Then s = "e"If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f = "a"If f = 11

46、 Then f = "b"If f = 12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(Val("&H" & s & f)Label1.Caption = "&H" & s & fm.Output = Chr$(Val("&H"

47、; & s & f) '控制缓冲单元m.Output = Chr$(Val(&HFF) 'ff是传输结束标志'''''''End IfIf l(1) = Val(Text2.Text) And Ch1.Value = 0 ThenCheck1.Value = 0Text1.Text = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 3

48、2 + Check7.Value * 64If Check1.Value = 1 Then Shape1.BackColor = &HFF&If Check1.Value = 0 Then Shape1.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(

49、&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 = Ch

50、r$(Val(&H0)a = Val(Text1.Text)s = Int(a / 16)s1 = sIf s = 10 Then s = "a"If s = 11 Then s = "b"If s = 12 Then s = "c"If s = 13 Then s = "d"If s = 14 Then s = "e"If s = 15 Then s = "f"f = a - s1 * 16If f = 10 Then f = "a"If f =

51、 11 Then f = "b"If f = 12 Then f = "c"If f = 13 Then f = "d"If f = 14 Then f = "e"If f = 15 Then f = "f"Label2.Caption = Chr$(Val("&H" & s & f)Label1.Caption = "&H" & s & fm.Output = Chr$(Val("&H&q

52、uot; & s & f) '控制缓冲单元m.Output = Chr$(Val(&HFF) 'ff是传输结束标志''''''''''''End If'Print k, l(1), Ch1.ValueEnd Sub单片机程序;定时器Address EQU 08H I2CData EQU 09H SCL BIT P3.4;定义24C02的串行时钟线 SDA BIT P3.5;定义24C02的串行数据线ORG 0000HAJMP STARTORG 000B

53、HAJMP XIANorg 0023hajmp fasong;串行中断入口ORG 0030H   START:;读E2PROMMOV 59H,#01FH;要读出的个数MOV R0,#070H;缓冲首地址MOV 08H,#000H;24存入的首地址XI6:MOV SP,#60H;堆栈指针MOV I2CDATA,#0AAH ; ;MOV Address,#000HLCALL I2C_READMOV I2CData,A;读出数据 MOV R0,AINC 08HINC R0DJNZ 59H,XI6MOV R0,#92HMOV IE,R0MOV TMOD,#22HMOV SCON,#

54、50H;设置成串口1方式MOV PCON,#80H;波特率翻倍为2400x2=4800BPSMOV TH1,#0F4H;预置初值(按照波特率2400BPS预置初值)MOV TL1,#0F4H;预置初值(按照波特率2400BPS预置初值)SETB TR1;启动定时器T1 MOV TL0,#06HMOV TH0,#06H;SETB TR0XI2:MOV IE,#000HMOV R1,#06FH   XI1:CLR TCON.5clr tcon.7INC R1MOV A,R1;显示保存的数据MOV SBUF,AMOV R4,#20HD9:MOV R5,#48HDJNZ R5,$D

55、JNZ R4,D9CJNE R1,#07FH,XI1NOPNOPMOV 5FH,7FHMOV A,5FHCPL AMOV P1,ANOPNOPNOPMOV IE,#092HMOV R0,#92HMOV IE,R0MOV TMOD,#22HMOV SCON,#50H;设置成串口1方式MOV PCON,#80H;波特率翻倍为2400x2=4800BPSMOV TH1,#0F4H;预置初值(按照波特率2400BPS预置初值)MOV TL1,#0F4H;预置初值(按照波特率2400BPS预置初值)SETB TR1;启动定时器T1 MOV TL0,#06HMOV TH0,#06H;SETB TR0

56、60;      XIAN:NOPAJMP XIANTIME:CLR TCON.5clr tcon.7;SETB TR0INC 54H        MOV A,54H;MOV SBUF,A;将AF通过串口发送出去CJNE A,#0A1H,FANHUIMOV 54H,#000HINC 53HMOV A,53H;MOV SBUF,A;将AF通过串口发送出去CJNE A,#017H,FANHUIMOV 53H,#000HMOV A,50HMOV SBUF,A;将时通过串口发送出去noplc

57、all DELAY10nopMOV A,51HMOV SBUF,A;将分通过串口发送出去lcall DELAY10nopnop MOV A,52HMOV SBUF,A;将秒通过串口发送出去INC 52HCPL AMOV P1,A        CPL ACJNE A,#03BH,FANHUI;MOV 52H,#000HINC 51H;MOV P1,AACALL XIANGLINGMOV A,51HCJNE A,#03CH,FANHUIMOV 51H,#000HINC 50HACALL XIANGLINGMOV 52h,#01

58、1H;每小时慢17秒调整MOV A,50HCJNE A,#018H,FANHUIMOV 50H,#000H    FANHUI:RETI ;10毫秒延时子程序    DELAY10:MOV R4,#20HD8:MOV R5,#48HDJNZ R5,$DJNZ R4,D8RET fasong:MOV R1,#70HJBC TI,FAS;发送子程序，应该关中断   DENG:JBC RI,SHOU;接收子程序        ajmp deng

59、0;   FAS:NOPRETI   SHOU:MOV R0,#00HMOV IE,R0MOV R1,SBUF;MOV P1,#000hMOV A,R1;显示保存的数据MOV SBUF,AMOV R4,#02HDA:MOV R5,#10HDJNZ R5,$DJNZ R4,DAMOV A,R1INC R1INC R0MOV P1,#0ffhCJNE A,#077H,XIA;77只教师，不保存AJMP FD3XIA:CJNE A,#0FFH,DENG;没收到结束标志ff，继续接收MOV IE,#000H   FD3:;判断口令6839757，70h-76hmov R0,#070HCJNE R0,#006H,ZANTING1INC R0CJNE R0,#008H,ZANTING1INC R0CJNE R0,#003H,ZANTING1INC R0CJNE R0,#009H,ZANTING1INC R0CJNE