vitalya, на VBA

Private Sub CommandButton1_Click()
Open "COM1:" For Output As #1
Print #1, "print2com"
Close #1
End Sub

а вот на счет внешнего вида программ в действии непонятно) могу диоды на ком порт повесить и зафотать как моргают))
вместо строки "print2com" необходимая последовательность, которая может так же задаваться набором функций chr().

Исправлено gard (04.01.13 21:02)