使用电脑控制家电.doc

使用电脑控制家电
VB源程序如下:
Dim k As Integer
Dim l(8) As Integer
Private mand2_Click()
' = False
'
' = False
'Unload Form2
End Sub
Private Sub Ch1_Click()
If = 1 Then = "开"
If = 0 Then = "关"
l(1) = 0
k = 0
Cls
End Sub
Private Sub Check1_Click()
= + * 2 + * 4 + * 8 + * 16 + * 32 + * 64
If = 1 Then = &HFF&
If = 0 Then = &HC0C0C0
'77H不保存标志
'FFH结束标志,7E判断结束标志
= Chr$(Val(&H6))
= Chr$(Val(&H8))
= Chr$(Val(&H3))
= Chr$(Val(&H9))
= Chr$(Val(&H7))
= Chr$(Val(&H5))
= Chr$(Val(&H7))
= Chr$(Val(&H6)) '5ah
= Chr$(Val(&H8))
= Chr$(Val(&H3))
= Chr$(Val(&H9))
= Chr$(Val(&H7))
= Chr$(Val(&H5)) '5fh
= Chr$(Val(&H7)) '50h
= Chr$(Val(&H0))
a = Val()
s = Int(a / 16)
s1 = s
If 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 * 16
If 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"
= Chr$(Val("&H" & s & f))
= "&H" & s & f
= Chr$(Val("&H" & s & f)) '控制缓冲单元
= Chr$(Val(&HFF)) 'ff是传输结束标志'''''''
End Sub
Private Sub Check2_Click()
= + * 2 + * 4 + * 8 + * 16 + * 32 + * 64
If = 1 Then = &HFF&
I
f = 0 Then = &HC0C0C0
'77H不保存标志
'FFH结束标志,7E判断结束标志
= Chr$(Val(&H6))
= Chr$(Val(&H8))
= Chr$(Val(&H3))
= Chr$(Val(&H9))
= Chr$(Val(&H7))