GOVARDHANA CHARY
New Member
Sub sendButton_Click
tempLabel.Text = ""
humidLabel.Text = ""
If tempLabel.Text =39 Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Red
else If tempLabel.Text =40 Then
Label3.Text = "FIELD"
Labe3.TextColor = Colors.Green
else If tempLabel.Text = Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Blue
End If
Dim Buffer() As Byte
Buffer = "Arun".GetBytes("UTF8")
TcpStreams.Write(Buffer)
End Sub
tempLabel.Text = ""
humidLabel.Text = ""
If tempLabel.Text =39 Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Red
else If tempLabel.Text =40 Then
Label3.Text = "FIELD"
Labe3.TextColor = Colors.Green
else If tempLabel.Text = Then
Label3.Text = "FIELD"
Label3.TextColor = Colors.Blue
End If
Dim Buffer() As Byte
Buffer = "Arun".GetBytes("UTF8")
TcpStreams.Write(Buffer)
End Sub