|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
  AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


.

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

______________________________________________
- 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

 

__________________________________

 

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información