Automatizar los experimentos de ciencia (6 / 9 paso)

Paso 6: Escribir el código

Cambiar de "Diseñador de vistas" a "Ver código", que son justo los dos botones más en "Explorador de soluciones" en la parte superior derecha de la pantalla. Tenga en cuenta la ubicación de estos dos botones ya que son muy útiles.

Copie y pegue el código siguiente. El formato como el color del texto volverá a aparecer como en el pantallazo anterior.

Las importaciones de System.IO
Las importaciones de cadenas = Microsoft.VisualBasic ' por lo que puede usar cosas como izquierda (y derecha (para cuerdas
Public Class Form1
Público Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) ' para los Estados de sueño
Dim WithEvents serialPort como nuevo IO. Ports.SerialPort ' declarar puerto serie
Dim PicaxeRegisters(0 To 13) como Byte ' registros de b0 a b13
Dim ModifyFlag como Boolean
Privada Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) maneja Me.Load
Timer1.Enabled = True ' poner esto en el código como valores por defecto en false cuando se crea
Timer1.Interval = 5000' cada 10 segundos
PictureBox1.BackColor = Color.Gray ' empezar con el gris de la cajas de comunicaciones
ModifyFlag = False ' si modificar un valor manualmente y luego saltar descargar
RichTextBox1.Multiline = True ' por lo que puede mostrar más de una línea
Label1.Text = "Picaxe comunicaciones; rojo = no funciona, verde = ok "
Label2.Text = "Ubicación del archivo de datos"
Label3.Text = "Fecha y hora"
Label4.Text = "Registros de Picaxe"
TextBox3.Text = "c:\Datafile.csv" ' nombre y ubicación del archivo de datos
Llamar DisplayPicaxeRegisters() ' Mostrar los 14 registros
End Sub
Sub SerialTxRx()
Dim DataPacket(0 To 17) como Byte ' paquete de datos completo "Datos" + 14 bytes
Dim i As Integer ' siempre es útil para los bucles etc.
Para i = 0 a 3
DataPacket(i) = Asc (Mid ("datos", i + 1, 1)) ' agrega la palabra "Datos" en el paquete
Siguiente
Para i = 0 a 13
DataPacket(i + 4) = PicaxeRegisters(i) ' agregar todos los bytes en el paquete
Siguiente
Si serialPort.IsOpen entonces
serialPort.Close() ' en caso de que ya abrió
End If
Tratar de
Con serialPort
. PortName = "COM1" ' más nuevos equipos por defecto com1 pero cualquier computadora pre 1999 con un mouse serial com2 mostrará probablemente
. Velocidad en baudios = 2400 ' 2400 es la velocidad máxima de picaxes pequeño
. Paridad = IO. Ports.Parity.None ' sin paridad
. DataBits = 8 ' 8 bits
. StopBits = IO. Ports.StopBits.One ' bits de parada
. ReadTimeout = 1000' milisegundos tan tiempo en 1 segundo si no hay respuesta
. Open() ' abrir el puerto serie
. DiscardInBuffer() ' borrar el búfer de entrada
. Escribir (DataPacket, 0, 18) ' enviar la matriz datapacket
Llamar Sleep(300) ' mínimos esperar datos volver y más si la secuencia de datos es mayor a 100 milisegundos
. Leer (DataPacket, 0, 18) ' leer en el conjunto de paquetes de datos
. Close() ' cerrar el puerto serie
Terminar con
Para i = 4 a 17
PicaxeRegisters (i - 4) = DataPacket(i) ' mover el nuevo paquete de datos en la matriz de registro
Siguiente
PictureBox1.BackColor = Color.GreenYellow ' trabajo
Captura como excepción
PictureBox1.BackColor = Color.Red ' no funciona
Prueba final
End Sub
Privada Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja Timer1.Tick
Llamar SerialTxRx() ' enviar a lo picaxe y leer hacia atrás
System.Windows.Forms.Application.DoEvents() ' para que no cuelgue windows
Llamar DisplayPicaxeRegisters() ' actualizar registros en la pantalla
Llamar SaveRegistersToLocalFile() ' guardar los números en archivo
Label3.Text = ahora ' Actualizar fecha y hora en pantalla
End Sub
Sub DisplayPicaxeRegisters()
Dim te como entero
Dim registernumber As String
RichTextBox1.Multiline = True ' por lo que puede mostrar más de una línea en el cuadro de texto
RichTextBox1.Clear() ' limpiar el cuadro de texto
Para i = 0 a 13
registernumber = Trim(Str(i)) ' ajuste off lleva espacios
Si yo < 10 entonces
registernumber = "0" + registernumber ' Añadir 0 para números menores de 10
End If
RichTextBox1.AppendText (registernumber + "=" + Str(PicaxeRegisters(i)) + Chr(13))
Siguiente ' Chr (13) es tan nuevo retorno de carro de línea
End Sub
Sub SaveRegistersToLocalFile() ' guardar array de registro en un archivo de texto local
' usar un archivo con extensión .csv para excel (separados por comas)
Dim te como entero
Dim DateTime como cadena
Dim LineOfText como cadena
FileOpen (1, TextBox3.Text, OpenMode.Append) ' abrir el archivo de texto en el cuadro de texto
Para i = 0 a 13
LineOfText = LineOfText + Str(PicaxeRegisters(i)) + ","
Siguiente
Fecha y hora = ahora
LineOfText = LineOfText + DateTime ' Añadir la fecha
PrintLine (1, LineOfText)
FileClose(1) ' cerrar el archivo
End Sub

Clase final

Artículos Relacionados

Experimento de ciencia

Experimento de ciencia

se trata de un experimento de ciencia simple a hydroxycorbonatecosas necesarias:vidrio clarodos, cables de cobre de 9 pulgadasbicarbonato de sodiocuchara debatería de 9 voltioscinta aislante.llenar el vaso con 3/4 de agua del grifo.Añadir una cuchara
Cómo hacer pelotas saltarinas - un experimento de ciencia divertido

Cómo hacer pelotas saltarinas - un experimento de ciencia divertido

Collin de CollinTV utiliza algunos ingredientes domésticos para hacer pelotas saltarinas. Es un divertido experimento de ciencia que pueden hacer los niños en el hogar y en la escuela con sus maestros. El video proporciona los suministros que son nec
Experimentos de ciencia DIY

Experimentos de ciencia DIY

Aprende a hacer experimentos de ciencia emocionante 3 con Raquel, Julia & Annelise. Vamos a crear una explosión de espuma, leche Tie-Dyed y Oobleck. Elaboración de feliz!La explosión de espuma, usted necesitará:Peróxido de hidrógenoPlato de jabónColo
Registradores de datos para su uso por los participantes de ciencia ciudadana

Registradores de datos para su uso por los participantes de ciencia ciudadana

hay registradores de datos para los alimentos industria naval que registrar temperatura y humedad y son relativamente baratas y muy fácil de usar. Una descripción de los productos es aquí: http://bit.ly/UdVImh.  Que son del tamaño de una pequeña pila
BRICOLAJE cámara de vacío para los experimentos de

BRICOLAJE cámara de vacío para los experimentos de

Aloha! En este instructable quiero contarte cómo hacer una cámara de vacío y una bomba de vacío para esta cámara llevar en algunos experimentos locos!También hice el video, en la primera mitad de la voy a mostrar algunos experimentos locos en vacíoy
A experimento de ciencia de escuela

A experimento de ciencia de escuela

Aprendí este truco en el Happy Hour hace unos años y lo han utilizado en mi clase de ciencia como un laboratorio de investigación desde entonces. Simplemente no digo a mis alumnos donde lo aprendí!Este laboratorio requiere partidos e implica fuego as
Experimento de ciencia para niños: magia de la caja de luz

Experimento de ciencia para niños: magia de la caja de luz

Crear una divertida clara con sus hijos y enseñarles acerca de los atributos de la luz al mismo tiempo.Objetivo de aprendizaje: Presentar los niños al método científico y la refracción de la luz.Edad: preescolar - primariapor cierto objetivoPaso 1: m
Hacer una vela de mantequilla - experimento de ciencia

Hacer una vela de mantequilla - experimento de ciencia

Este es uno de mis favoritos ciencia experimentos porque es muy divertido pero también muy fácil y barato! ¿No sólo esto, pero quién piensa de mantequilla como una vela? Por lo que es un truco de la gran fiesta!Antes de comenzar, revisa mi sitio Web
Experimentos de ciencia con huevos!

Experimentos de ciencia con huevos!

Esta instructable le mostrar algunos experimentos que puedes hacer con huevos de la diversión!Tabla de contenidos:Pasos 1 y 2) Cómo a exprimir un huevo sin romperloPasos 3 y 4) Cómo saber si un huevo está crudo o cocidoPaso 5) el huevo flotante!Paso
Granizo de los experimentos de la almohadilla

Granizo de los experimentos de la almohadilla

el método actual que el proyecto de CoCoRaHS utiliza para monitorear la actividad del granizo, el Granizo Pad es una forma sencilla pero eficaz para registrar el tamaño, número y direccionalidad de las piedras de granizo. Al parecer los materiales qu
¿Experimentos de ciencia de microondas - soplará para arriba?  ¿Lo podemos meter en? Por la noche en ingletes de microondas

¿Experimentos de ciencia de microondas - soplará para arriba? ¿Lo podemos meter en? Por la noche en ingletes de microondas

ingletes es un cielo creativo para tipos de inventor MIT y físicos prácticos. Tenemos partes de construir todos los viernes en 7 en N52-115, y cualquiera es Bienvenido a venir echa un vistazo y construir algo.Este partido de la construcción, consigui
Tornado de ciclón en un experimento de ciencia de botella-Cool

Tornado de ciclón en un experimento de ciencia de botella-Cool

Únete a Hacker americano:http://www.youtube.com/subscription_center?add_user=macobtFacebook:https://www.facebook.com/pages/Maco-projects/460101797400258
Experimentos de ciencia | Hidrógeno casero | Globos volando

Experimentos de ciencia | Hidrógeno casero | Globos volando

más VIDEOS aquí: https://www.youtube.com/user/HawkGuruHacker/videosMÁS vídeos aquí: https://www.youtube.com/user/HawkGuruHacker/videosMÁS vídeos aquí: https://www.youtube.com/user/HawkGuruHacker/videosMÁS vídeos aquí: https://www.youtube.com/user/Haw
Más fácil 5 minutos cámara de vacío

Más fácil 5 minutos cámara de vacío

quería una pequeña cámara de vacío para los experimentos de ciencia pero eran caros para comprar. Así que hice esto.Paso 1: materiales usé una cinta aislante muy barata ya que tendrá todo el rollo. He usado un tarro de cristal porque no sé cuanto plá