Program to test WirelessInterface library.

Dependencies:   WirelessInterface mbed

Files at this revision

API Documentation at this revision

Comitter:
gboggs3
Date:
Thu Apr 28 22:09:57 2016 +0000
Parent:
0:6b892e818f10
Commit message:
Updated wifi communication;

Changed in this revision

WirelessInterface.lib Show annotated file Show diff for this revision Revisions of this file
main.cpp Show annotated file Show diff for this revision Revisions of this file
--- a/WirelessInterface.lib	Sun Apr 24 18:24:36 2016 +0000
+++ b/WirelessInterface.lib	Thu Apr 28 22:09:57 2016 +0000
@@ -1,1 +1,1 @@
-https://developer.mbed.org/users/gboggs3/code/WirelessInterface/#ee4d2deea4be
+https://developer.mbed.org/users/gboggs3/code/WirelessInterface/#67c95e75c998
--- a/main.cpp	Sun Apr 24 18:24:36 2016 +0000
+++ b/main.cpp	Thu Apr 28 22:09:57 2016 +0000
@@ -6,11 +6,33 @@
 //Debug serial port
 RawSerial pc(USBTX, USBRX);
 
-WirelessInterface cmd(p28,p27,p26,pc);  //Comment this out to manually configure each device individually
+WirelessInterface cmd(p28, p27, p26, pc, 9600);  //Comment this out to manually configure each device individually
 //Huzzah cmd(p28,p27,p26,pc);
 //BTFriend cmd(p28,p27,p26,pc);
 DigitalOut sel(p22);
 InterruptIn pb(p18);
+DigitalOut led1(LED1);
+DigitalOut led2(LED2);
+RawSerial dev = cmd.getLocalSerial();
+
+
+bool command(const char *cmd)
+{
+    char result[240];
+    strcpy(result,cmd);
+    strcat(result,"\r\n");
+    //pc.printf(result);
+    led2 = !led2;
+    wait(0.250);
+    for (int i = 0; i<strlen(result); i++) 
+    {
+        
+        dev.putc(result[i]);
+        //pc.putc(result[i]);
+    }
+    wait(0.250);
+    return true;
+}
 
 //Interrupt function to change the selected device to communicate with
 void changeDevice()
@@ -33,8 +55,23 @@
     
     /* An external interrupt can be setup to change the sel pin during runtime */
     pb.rise(&changeDevice);
-
-    while(1) {
+    
+    /*Setting up the server to allow serial passthrough */
+    command("sk = net.createConnection(net.TCP, 0)");
+    wait(1);
+    command("sk:on(\"receive\", function(sck, c) print(\"Received: \" .. c) end)");
+    wait(1);
+    command("sk:on(\"connection\", function(sck,c)");
+    wait(1);
+    command("end)");
+    wait(1);
+    command("sk:connect(5001,\"107.161.22.189\")");
+    wait(1);
+    //Send sk:send(STRING_HERE)
+    //Received messages start with Received: 
+    
+    while(1) 
+    {
         sleep();
     }
-}
+}
\ No newline at end of file