Programación del puerto serie VB ¿Cómo utilizar matrices y temporizadores para enviar datos en la matriz a tiempo?

Ciclo de atenuación (1 a 4) como cadena

Atenuar i como entero

Subcomando privado1_Click()

Temporizador1.Enabled = Verdadero

End Sub

Sub privado Form_Load()

Timer1.Enabled = False

Timer1.Interval = 1000

MSComm1.Settings = "9600,n,8,1"

MSComm1.RTreshold = 1

MSComm1.PortOpen = Verdadero

ciclo(1 ) = "#4p1900"

ciclo(2) = "#4p1600"

ciclo(3) = "#4p1800"

ciclo(4) = "#4p1400"

End Sub

Sub Timer1_Timer()

i = i + 1

MSComm1.Output = ciclo( i)

Si i >= 4 Entonces

i = i - 4

Fin si

Fin Sub