App inventor 2 en español
Cómo programar los teléfonos móviles con Android.
Bluetooth, Arduino y App inventor 2 - Juan Antonio Villalpando
-- Tutorial de iniciación de App Inventor 2 en español --
Volver al índice del tutorial
___________________________
9R.- Bluetooh y ordenador. Visual Basic. Enviar/recibir datos desde Android al ordenador. App Inventor.
- Desde una aplicación de App Inventor vamos a enviar datos al ordenador mediante Bluetooth.
- En el ordenador construiremos un programa con Visual Basic que recibirá esos datos.
- Además ese programa de Visual Basic podrá enviar datos a App Inventor.
- Es decir, trabaja en los dos sentidos de App Inventor al ordenador con Visual Basic y viceversa.
____________________________________________________
- Bluetooth. Dongle Bluetooth.
- Necesitamos que el ordenador tenga Bluetooth, muchos portátiles suelen tenerlo.
- En caso que el ordenador no tenga Bluetooth, podemos comprar un "Dongle Bluetooth USB", es un dispositivo que lo conectamos a un USB del ordenador para que funcione con Bluetooth. En Aliexpress están baratos, puede costar unos 3 €. Busca en Aliexpress Dongle Bluetooth.
____________________________________________________
- Visual Basic 10 Express.
- Visual Basic viene en el paquete de Visual Studio de Microsoft. He utilizado Visual Basic 2010 Express, pero si tienes otra versión posterior creo que funcionará sin problemas.
- https://visualstudio.microsoft.com/es/vs/older-downloads
- https://www.microsoft.com/en-us/download/details.aspx?id=23507
https://www.microsoft.com/es-es/download/details.aspx?id=23691
- https://www.youtube.com/watch?v=o0jqKssaoW8
Visual Basic 2010 Express (edición gratuita de Visual Basic)
______________________________________________
- Conexión del dongle Bluetooth al ordenador.
Ahora conectamos mediante USB el dongle Bluetooth al ordenador, se instalarán los drivers, etc,... luego en el área de notificación de la barra de tareas, cerca del reloj, aparecerá el icono de configuracion Bluetooth.
__________________
- Puertos COM.
- Para ver que puerto está utilizando el dongle Bluetooth vamos a... Botón derecho en Equipo / Administrar / Administrador de dispositivos
- Podemos probar hasta obtener el correcto. En mi caso el COM23.
______________________________________________________
- EMPEZAMOS CON LAS APLICACIONES.
______________________________________________________
1.- Visual Basic.
- Vamos al Visual Basic 2010 Express
- Nuevo proyecto...
- Aplicación de Windows Forms
- Del cuadro de herramientas arrastramos al Formulario cinco Botones, un Label, un Timer y un SerialPort.
- La parte de configuración del SerialPort se puede realizar en tiempo de Diseño o en tiempo de Ejecución. Si ponemos ciertos datos en tiempo de Diseño y luego otros en tiempo de Ejecución, valdrán estos últimos.
Visual Basic 2010 |
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
' Programa realizado por Juan Antonio Villalpando
' juana1991@yahoo.com
' Pulsamos botones en Visual Basic y enviamos información a AppInventor.
' Pulsamos botones en App Inventor y enviamos un mensaje al Visual Basic y se ejecuta un programa.
Public Class Form1
Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs)
SerialPort1.Close()
End Sub
Shared _continue As Boolean
Shared _serialPort As SerialPort
Dim cambio1, cambio2 As Boolean
Dim recibido As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
SerialPort1.Close()
SerialPort1.PortName = "com23" 'CAMBIA EL PUERTO COM
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default
cambio1 = True
cambio2 = True
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open() ' Abrir puerto
Button1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Close() ' Cerrar puerto
Button1.Enabled = True
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' SALIDA DE DATOS
' Envia información a App Inventor.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If cambio1 Then
SerialPort1.Write("Hola" & vbCrLf)
Else
SerialPort1.Write("Adios" & vbCrLf)
End If
cambio1 = Not cambio1
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If cambio2 Then
SerialPort1.Write("Hello" & vbCrLf)
Else
SerialPort1.Write("Goodbye" & vbCrLf)
End If
cambio2 = Not cambio2
End Sub
' ENTRADA DE DATOS
' Activa el Temporizador y lee datos desde el App Inventor.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Try
recibido = SerialPort1.ReadExisting()
If recibido <> "" Then
Label1.Text = recibido & vbCrLf
If recibido = "Bloc de notas" Then System.Diagnostics.Process.Start("notepad.exe")
If recibido = "Calculadora" Then System.Diagnostics.Process.Start("calc.exe")
End If
Finally
'
End Try
End Sub
End Class
|
______________________________________________________
2.- App Inventor.
p9R_Bluetooth_VB.aia
AppInventor_Bluetooth.zip
- Conectaremos sabiendo la Mac del dongle Bluetooth.
- El Reloj lo ponemos a un Intervalo de 100.
___________________
- Diseño.
___________________
- Bloques.
- Para conocer la dirección Mac del Bluetooth, primero ponemos el bloque de DireccionesYNombres y cuando obtengamos su dirección la pondremos en el bloque correspondiente como indica la imagen:
___________________
- Proceso de funcionamiento.
- Primero pulsamos el Botón de "Abrir puerto" en la aplicación de Visual Basic.
- Luego pulsamos el Botón de "Conecta con Bluetooth Mac" en la aplicación de App Inventor.
- Pulsamos los Botones "Enviar ... " en la aplicación de Visual Basic.
- En la Etiqueta1 deberá aparecer Hola/Adios, Hello/Goodbye
- Pulsamos el Botón "Activar Reloj para recibir" en la aplicación de Visual Basic.
- Vamos pulsando los diversos Botones de "Enviar ... " en la aplicación de App Inventor.
- Obtendremos esos mensajes en Visual Basic.
- Cuando pulsemos "Bloc de notas" o "Calculadora" se ejecutarán esos programas en el ordenador.
________________________
- En inglés.
p9Ri_Bluetooth_VB.aia
AppInventor_Bluetooth.zip
__________________________________
|