Hello I just need some help with some coding
The netduino code is as followed
Imports System.NetImports System.Net.SocketsImports System.ThreadingImports Microsoft.SPOTImports Microsoft.SPOT.HardwareImports SecretLabs.NETMF.HardwareImports SecretLabs.NETMF.Hardware.NetduinoImports System.TextNamespace NetPlusEthernet Public Class Program Public Shared Sub Main() ' write your code here Dim led As New OutputPort(Pins.ONBOARD_LED, False) Dim rawData As String = "" Dim rawData2 As String = "" Dim rawData3 As String = "" Dim i As Integer = 50 Dim stopp As Boolean = False While True Using socket As System.Net.Sockets.Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) socket.Bind(New IPEndPoint(IPAddress.Any, 8080)) socket.Listen(1) Using commSocket As Socket = socket.Accept() If commSocket.Poll(-1, SelectMode.SelectRead) Then Dim bytes As Byte() = New Byte(commSocket.Available - 1) {} Dim count As Integer = commSocket.Receive(bytes) rawData = (New String(Encoding.UTF8.GetChars(bytes))) rawData2 = (New String(Encoding.UTF8.GetChars(bytes))) rawData3 = (New String(Encoding.UTF8.GetChars(bytes))) End If End Using Debug.Print("Input: " & rawData) If rawData = "Go" Then led.Write(True) Debug.Print("Good news, everyone!") ElseIf rawData2 = "pulse" Then While True led.Write(False) Thread.Sleep(i) led.Write(True) Thread.Sleep(i) Debug.Print("Good news, everyone it's alive!") End While ElseIf rawData3 = "sleep" Then i = 200 Debug.Print("Good news, everyone it has stopped!") Else Debug.Print("Bad news, everyone...") End If Debug.Print("Ready") End Using End While End Sub End ClassEnd Namespaceand my windows form app
Imports System.Collections.GenericImports System.ComponentModelImports System.DataImports System.DrawingImports System.LinqImports System.TextImports System.Windows.FormsImports System.Net.SocketsPublic Class Form1 Private Client As Socket Private data As Byte() = Encoding.ASCII.GetBytes("Go") Private data2 As Byte() = Encoding.ASCII.GetBytes("pulse") Private data3 As Byte() = Encoding.ASCII.GetBytes("sleep") Private Sub togLedBtn_Click(sender As Object, e As EventArgs) Handles togLedBtn.Click Try Client = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Dim ipSelect As String = ipBox.Text Dim portSelect As Integer = Convert.ToInt16(portBox.Text) Dim remoteIPAddress As System.Net.IPAddress = System.Net.IPAddress.Parse(ipSelect) Dim remoteEndPoint As New System.Net.IPEndPoint(remoteIPAddress, portSelect) Client.Connect(remoteEndPoint) Client.Send(data) Client.Close() Catch [error] As SocketException MessageBox.Show([error].Message) End Try End Sub Private Sub Pulsebtn_Click(sender As Object, e As EventArgs) Handles Pulsebtn.Click Try Client = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Dim ipSelect As String = ipBox.Text Dim portSelect As Integer = Convert.ToInt16(portBox.Text) Dim remoteIPAddress As System.Net.IPAddress = System.Net.IPAddress.Parse(ipSelect) Dim remoteEndPoint As New System.Net.IPEndPoint(remoteIPAddress, portSelect) Client.Connect(remoteEndPoint) Client.Send(data2) Client.Close() Catch [error] As SocketException MessageBox.Show([error].Message) End Try End Sub Private Sub sleepbtn_Click(sender As Object, e As EventArgs) Handles sleepbtn.Click Try Client = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Dim ipSelect As String = ipBox.Text Dim portSelect As Integer = Convert.ToInt16(portBox.Text) Dim remoteIPAddress As System.Net.IPAddress = System.Net.IPAddress.Parse(ipSelect) Dim remoteEndPoint As New System.Net.IPEndPoint(remoteIPAddress, portSelect) Client.Connect(remoteEndPoint) Client.Send(data3) Client.Close() Catch [error] As SocketException MessageBox.Show([error].Message) End Try End SubEnd ClassWhat I want to do is enter a value in the sleep box and change the Thread.Sleep(XX) time using the entered value form the windows form .
