Programacion RSVBinput

Dim As String RSVBinput Esta sección es para la definición de variables que pueden ser utilizados por todos los submarinos en el programa. RSVBinput se utiliza para leer la entrada de la placa RSVB1000.

Private Sub Form_Load ()

= False Timer1.Enabled

Timer1.Interval = 100

= False Timer2.Enabled

Timer2.Interval = 20 MSComm1.Settings = "38400, n, 8,1" MSComm1.CommPort = 1 MSComm1.PortOpen = True Dim i As Integer Para i = 0 a 9 Text1 (i). Text = "" Siguiente i End Sub

Este sub dice qué hacer cuando el software se acaba de lanzar (formulario cargado). Aquí las propiedades se establecen para los temporizadores y el puerto de comunicación RS232. En el ejemplo anterior, podemos establecer las propiedades a través del panel de propiedades. Usted puede utilizar uno u otro enfoque.

Aquí el CommPort se establece como 1. Esto varía con el número de puerto real en el PC. Usted puede usar el software RSVBtest para encontrar el número de puerto exacto.

Comando "Timer1.Enabled = False" desactivará el temporizador. Sin hacer esto, el reloj comenzará a funcionar cuando el programa se puso en marcha.

Estos cuatro comandos de la línea despejar los 10 cuadros de texto. Si el cuadro no se nombra en virtud de un arreglo, tendremos que utilizar 10 líneas de comando para borrar la caja por uno.

Form_Unload Private Sub (Cancel As Integer)

MSComm1.Output = "L20" + Chr (13)

MSComm1.PortOpen = False

End Sub Esta sección le indica qué hacer cuando usted completamente el programa. En primer lugar, se establece toda la producción a bajo. A continuación, se va a cerrar el puerto de comunicación

Private Sub Command1_Click () = True Timer1.Enabled MSComm1.Output = "P250" + Chr (13) MSComm1.Output = "M250" + Chr (13) End Sub

Command1 es el nombre del botón "Inicio". Cuando el botón se añadió a la forma, la palabra en ella es el mismo que su nombre. Más tarde lo cambió a "Inicio", modificando su propiedad Caption. Cuando este botón es presionado, timer1 comienza a generar eventos en varias ocasiones. Las otras dos líneas de comando sirven para ajustar el ciclo de trabajo de PWM1 y PWM2 salida. La junta de conducción RSVB1500 utilizar la salida PWM para regular la corriente de salida 1-8.

Private Sub Command2_Click ()

Timer1.Enabled = False

End Sub Cuando el botón "Stop" se hace clic, se detendrá el proceso mediante la desactivación de timer1.

Private Sub Command3_Click ()

= False Timer1.Enabled

MSComm1.Output = "L20" + Chr (13)

MSComm1.PortOpen = False

...