Enviar desde el esp8266 a un PC con Arduino

PROYECTO, Cliente tcp con esp8266 y Arduino

Enviar desde el esp8266 a un PC con Arduino

Podemos monitorear un pc y comunicarnos con el desde arduino. este proyecto es la base para transmitir informacion desde un arduino a un pc para que este grabe la informacion en una base de datos. asi podremos Enviar desde el esp8266 a un PC con Arduino

materiales-esp8266-300x250 Enviar desde el esp8266 a un PC con Arduino
Materiales para Enviar desde el esp8266 a un PC con Arduino

Cuando el arduino hace la conexion tcp/ip al pc este presenta en el formulario la fecha y hora de la conexion, pudiedo tambien en vez de eso mostrar valores enviados por el arduino.

El codigo del cliente esta hecho en visual basic y puede ser descargado más abajo. El fuente tambien esta disponible.

Codigo en arduino:

#include <SoftwareSerial.h>
SoftwareSerial BT1(3, 2); // RX | TX

String W =" "; 
char w ;

void setup()
   { 
     Serial.begin(9600);
     BT1.begin(9600); 
     delay(1000);
     
     pinMode(13, OUTPUT);
     BT1.println("AT+CIOBAUD=9600");
     delay(1000);
     printResponse();
     
     BT1.println("AT+CWMODE=3");
     delay(1000);
     printResponse();
     
     BT1.println("AT+CIPMUX=1");
     delay(1000);
     printResponse();
     
     BT1.println("AT+CWJAP=\"RedKasa\",\"1238175277\"");
     delay(1000);
     printResponse();
   }

   void printResponse()
   {
      while (BT1.available()) 
      {
         Serial.println(BT1.readStringUntil('\n')); 
      }    
   }

   void envia()
   {
        BT1.println("AT+CIPSTART=4,\"TCP\",\"192.168.1.115\",4444"); //puerto a escanear
        delay(1000);
        printResponse();

        String cmd = "hola";
        BT1.println("AT+CIPSEND=4," + String(cmd.length() + 4));
        delay(1000);
        printResponse();

        BT1.println(cmd);
        delay(1000);
        printResponse();
   }

void loop()
{ 
   envia();
   Serial.println("----------------Esperando 8seg ----------------");
   delay(8000);
}

Descargar programa servidor:

https://www.dropbox.com/s/r7fn1kdwa8da4qg/servidor.exe?dl=0

Descargar ocx para servidor:

https://www.dropbox.com/s/mgkz9nrg2mk3jmd/MSWINSCK.OCX?dl=0

Enviar datos desde el esp8266 a un PC con Arduino

Codigo en Visual Basic del servidor:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Private Sub Form_Load()
On Error Resume Next 'si hay un error continua
Me.Caption = Winsock1.LocalIP & " Puerto: " & 4444
Winsock1.LocalPort = 4444 'puerto al que va a escuchar
Winsock1.Listen 'comando que abre y coloca a la escucha el puerto
'Me.Visible = False ' oculta el servidor "lo hace invisible"
App.TaskVisible = False ' lo oculta de aplicaciones del admin de tareas
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Winsock1.Close 'cerramos la conexion
End 'cerramos el programa
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String 'etablecemos a datos como variable tipo cadena
Winsock1.GetData datos 'todos los comandos que recibim
If datos <> "" Then 'si el comando "datos" es igual a abrir entonces etc...
chequeo.Caption = Now
Else
chequeo.Caption = "Error"
End If 'fin
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close 'reseteamos el winsock
Winsock1.Accept requestID 'aceptamos la peticion de coneccion
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
On Error Resume Next 'si hay un error continua
Me.Caption = Winsock1.LocalIP & " Puerto: " & 4444 & " " & Err.Description
Winsock1.LocalPort = 4444 'puerto al que va a escuchar
Winsock1.Listen 'comando que abre y coloca a la escucha el puerto
End Sub

 

Solo se debe agrgar una etiqueta y el control winsock ocx de visual basic.

materiales-esp8266-300x250 Enviar desde el esp8266 a un PC con Arduino

Cualquier duda escribeme aca abajo dejando un comentario.

Enviar datos desde el esp8266 a un PC con Arduino

Comparte en...materiales-esp8266-300x250 Enviar desde el esp8266 a un PC con Arduinomateriales-esp8266-300x250 Enviar desde el esp8266 a un PC con Arduinomateriales-esp8266-300x250 Enviar desde el esp8266 a un PC con Arduinomateriales-esp8266-300x250 Enviar desde el esp8266 a un PC con Arduinomateriales-esp8266-300x250 Enviar desde el esp8266 a un PC con Arduino

Add a Comment

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *