使用电脑控制家电.docVIP

使用电脑控制家电 VB源程序如下： Dim k As IntegerDim l(8) As Integer Private Sub Command2_Click()m.PortOpen = FalseForm1.ShowForm2.Visible = FalseUnload Form2End Sub Private Sub Ch1_Click()If Ch1.Value = 1 Then Ch1.Caption = 开If Ch1.Value = 0 Then Ch1.Caption = 关l(1) = 0k = 0ClsEnd Sub Private 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 = HFFIf Check1.Value = 0 Then Shape1.BackColor = HC0C0C077H不保存标志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$(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 = aIf s = 11 Then s = bIf s = 12 Then s = cIf s = 13 Then s = dIf s = 14 Then s = eIf s = 15 Then s = ff = a - s1 * 16If f = 10 Then f = aIf f = 11 Then f = bIf f = 12 Then f = cIf f = 13 Then f = dIf f = 14 Then f = eIf f = 15 Then f = fLabel2.Caption = Chr$(Val(H s f))Label1.Caption = H s fm.Output = Chr$(Val(H s f)) 控制缓冲单元m.Output = Chr$(Val(HFF)) ff是传输结束标志End Sub Private Sub Check2_Click()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 = HFFIf Check2.Value = 0 Then Shape2.BackColor = HC0C0C077H不保存标志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$(Val(H3))m.Output = Chr$(Val(H9))m.Out