کنترل وسیله برقی توسط کامپیوتر (سریال و موازی)

[shahmahi]

آقا برنامت ایراد داره تو کد زیر BinToDec رو تعریف نکردی .

Private Sub Text1_Change()

Text2.Text = BinToDec(Text1.Text)

End Sub