Puntero de telescopio lo-Fi (4 / 6 paso)

Paso 4: Añadir la comunicación serial de VB.NET

Básicamente es una interfaz simple, no es difícil darse cuenta y hay un montón de tutoriales acerca de esto. Sin embargo quiero compartir mi propia versión con algunas explicaciones.

Esta función te muestra todos los puertos COM disponibles y los muestra en un ComboBox. Se puede usar ButtonConnect hasta hay no hay puertos COM disponibles.

 Sub refreshCOM() ComboBox_COM.Items.Clear() For Each sp As String In My.Computer.Ports.SerialPortNames ComboBox_COM.Items.Add(sp) Next If ComboBox_COM.Items.Count = 0 Then Else ComboBox_COM.Text = ComboBox_COM.Items.Item(0).ToString End If If ComboBox_COM.Text = "" Then ButtonConnect.Enabled = False Else ButtonConnect.Enabled = True End If End Sub 

Configuración de puerto serie con DTR deshabilitar para Arduino espera hasta PC correctamente abre el puerto.

 Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load refreshCOM() SerialPort1.Close() SerialPort1.DataBits = 8 SerialPort1.Parity = Parity.None SerialPort1.StopBits = StopBits.One SerialPort1.Handshake = Handshake.None SerialPort1.Encoding = System.Text.Encoding.Default SerialPort1.DtrEnable = False End Sub 

Por último podemos intentar conectar con el puerto serie y, si nada sale mal, podemos habilitar el DTR. Tengo algunos problemas en la comunicación de Bluetooth: parece que Arduino no espera para el DTR que permite... Creo que es debido a una falta conexión entre mi tablero de BT y Linvor transceptor.

 Private Sub ButtonConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonConnect.Click SerialPort1.Close() SerialPort1.PortName = ComboBox_COM.Text.ToString SerialPort1.BaudRate = ComboBox_BAUD.Text Try SerialPort1.Open() Catch ex As Exception MsgBox("Error during shield connection.") End Try If SerialPort1.IsOpen Then TextBox1.Clear() Label2.Enabled = True MaskedTextBox1.Enabled = True ButtonSetSpeed.Enabled = True SerialPort1.DiscardInBuffer() SerialPort1.DtrEnable = True Else Label2.Enabled = False MaskedTextBox1.Enabled = False ButtonSetSpeed.Enabled = False End If End Sub 

Se trata de método, de lectura de puerto serial el programa también refrescará valores GUI en el StatusStrip y le da las cadenas raws en un cuadro de texto dedicado (para depuración rápida al aire libre).

 Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Try Dim line As String = SerialPort1.ReadLine TextBox1.Invoke(New ReadSerialDelegate(AddressOf ReadSerial), line.ToString) Catch ex As Exception SerialPort1.Close() End Try End Sub Delegate Sub ReadSerialDelegate(ByVal s As String) Public Sub ReadSerial(ByVal s As String) TextBox1.Text += s + vbNewLine TextBox1.SelectionStart = TextBox1.Text.Length - 1 TextBox1.ScrollToCaret() If s.Contains("charge") Then Label_Battery.Text = s.Substring(s.Length - 4, 3) ElseIf s.Contains("speed") Then Label_Speed.Text = s.Substring(s.Length - 4, 3) End If End Sub 

Método es muy simple de la escritura, no dedico palabras con él.

 Private Sub ButtonSetSpeed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSetSpeed.Click Try SerialPort1.Write(MaskedTextBox1.Text) Label_Speed.Text = MaskedTextBox1.Text Catch ex As Exception MsgBox(vbInformation, "Unable to write at " + SerialPort1.PortName) End Try End Sub 

Así que ahora tenemos un código de huesos desnudo para manejar todo de la comunicación serial.

Artículos Relacionados

Puntero láser del telescopio

Puntero láser del telescopio

Esta es la 3 de una línea de pequeñas mejoras y ajustes a mi pequeño telescopio.Este es mi soporte de puntero láser. Originalmente yo me va a hacer un poco más compacto y montaje lado a lado con mi buscador, pero una vez más estar despierto toda la n
Green Laser puntero Monte para su telescopio

Green Laser puntero Monte para su telescopio

saludos!Este es mi primer instructable. Espero que salga bien.Como un ávido astrnomer con un presupuesto muy ajustado, tengo que hacer con lo que tengo. Tengo estrellas salto a mis objetivos y sin motorización en mi alcance. Pero he encontrado una ma
Telescopio madera parte 2: Tubo y montura

Telescopio madera parte 2: Tubo y montura

Muchos de ustedes disfrutaron leyendo la historia de cómo construí el espejo primario de mi telescopio. Este Instructable le mostrará cómo había diseñado y construido el tubo y la montura.El aspecto general del telescopio es una combinación de ideas
Círculo de ajuste manual para el telescopio de Dobsonian

Círculo de ajuste manual para el telescopio de Dobsonian

Como espectador tiempo de me complace presentar mi primer instructable. Esto demuestra cómo hice círculo de ajuste manual para mi telescopio de dobsonian. Un círculo de ajuste se utiliza para establecer las coordenadas de Azimut para ayudar a localiz
Reparación de telescopio buscador rápido

Reparación de telescopio buscador rápido

después de semanas de cepillado por usted y algunos de tus amigos. El día ha llegado, y en pocas horas la lluvia de meteoros cuadrántidas estará en su apogeo. Ahora, está todo listo, telescopio lleno junto con objetivos, filtros y paño de microfibra.
Espacio Laser Manual Go-To para su telescopio

Espacio Laser Manual Go-To para su telescopio

Un láser verde es muy útil para señalar objetos en el cielo nocturno. ¿Pero cómo sabe usted lo que usted está señalando? Si Si quieres encontrar algo específico en el cielo, ¿cómo lo encuentras?Muchas personas tienen telescopios sin sistemas computar
SIMPLE pero profesional telescopio para principiante los ASTRÓNOMOS

SIMPLE pero profesional telescopio para principiante los ASTRÓNOMOS

SIMPLE PERO PROFESIONAL TELESCOPIO LOS ASTRÓNOMOS PRINCIPIANTESAquí es un telescopio DIY realmente bueno y muy barato para los astrónomos principiantes.El presupuesto es de menos de 15 euros (o 16 $), sólo tienes que pasar un poco dinero para las len
WhereYouWant montado en Laser puntero

WhereYouWant montado en Laser puntero

Hace unos meses tuve la oportunidad de saber quadriplegic niña con dificultad en la articulación del discurso. Para comunicarse, su papá hackeado un puntero láser de llavero y pegado a él en un par de anteojos; de esta manera chica, moviendo la cabez
Guía de alineación láser de puntero láser baratos

Guía de alineación láser de puntero láser baratos

Estuvimos trabajando en unir dos tela como material para un proyecto, sin embargo lo que dificultaba el proceso era que teníamos que colocar tanto materialbordes perfectamente centrados en una barra calentada neumáticamente controlada que se adhiere
3D impreso Ethernet telescopio

3D impreso Ethernet telescopio

He visto PiKon. es muy bueno. quiero hacerlo. no original pero añadir función!!!!así que hice telescopio de Ethernet. Proyecto nombre es Telescopio de WIZKon !! : )Paso 1: Preparar materialNecesitan estos...Archivo cad 3D : publiqué debajo de sitio -
Pantalla táctil y batería recargable para el telescopio de PiKon / frambuesa Pi

Pantalla táctil y batería recargable para el telescopio de PiKon / frambuesa Pi

En 2014, Mark Wrigley de Alternativa fotónica junto con Andy King, física y astronomía investigación asociado en la Universidad de Sheffield, creó el PiKon telescopio impreso 3d. Basado en diseño de telescopio reflector de Newton utiliza un Raspberry
Estación espacial internacional Tracker/puntero

Estación espacial internacional Tracker/puntero

Hay un movimiento creciente de personas que creen que nuestras agencias espaciales son infradotados y que humanidad no está prestando suficiente atención a nuestros logros actuales y planes futuros en la exploración espacial. Bueno, yo conozco una ma
Telescopio de cartón

Telescopio de cartón

cómo hacer su propio telescopio de cartón.se necesita> cartón> cinta aislante> 2 espejos 1 grande y 1 pequeña> 2 lentes 1 grande y 1 pequeña
Telescopio de madera parte 1: El espejo

Telescopio de madera parte 1: El espejo

Esta es la primera de un Instructable 2 parte explica cómo construí un telescopio de madera desde cero. En esta parte mostraré cómo se puede construir el elemento clave de un telescopio: el espejo principal.Un buen espejo le mostrará información sobr