Visual Basic

mySerialPort.Write(output)

JDBravo wrote:

try byte send

'**********************************************************************************
'Stuff that must preceed all code !!!
'**********************************************************************************
Imports System.Byte 'or Text if receiving/sending text instead
Imports System
Imports System.IO.Ports
Imports System.IO
Imports Microsoft.VisualBasic
Imports System.ComponentModel
Imports System.Threading
Imports Microsoft.Win32
Imports System.Runtime.Remoting.Messaging
'**********************************************************************************
'**********************************************************************************
'**********************************************************************************

Public Class Form1  'SERIAL PORT SET AT 9600BPS,8BIT,NO PARITY, NO STOP BIT, NO HW HANDSHAKE.

    Dim LEDOUT1, LEDOUT2 As Byte    'INTERNAL PROCESSING
    Dim LEDIN1, LEDIN2 As Byte
    Dim ADIN As Integer
    Dim LEDMSGOUT As Byte   'OUTPUT VARIABLES
    Dim PWMOUT As Byte
    Dim LEDMSGIN As Byte            'INPUT VARIABLES
    Dim AD1, AD2 As Byte            'INPUT VARIABLES

    Private mySerialPort As New SerialPort  'NAME THE PORT WHATEVER (MYSERIALPORT HERE)
    Private comBuffer As Byte()    'INPUT ARRAY VARIABLE
    Private Delegate Sub UpdateFormDelegate()   'THESE 2 LINES TO RECEIVE AUTOMATICALLY OR IT WON'T WORK
    Private UpdateFormDelegate1 As UpdateFormDelegate
    '**********************************************************************************
    '**********************************************************************************
    'THESE PROCEDURES RUN IN THE BACKGROUND IN ANOTHER THREAD
    'AUTOMATIC RECEPTION HAPPENS HERE
    Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
        'Handles serial port data received events
        UpdateFormDelegate1 = New UpdateFormDelegate(AddressOf UpdateDisplay)
        Dim n As Integer = mySerialPort.BytesToRead 'find number of bytes in buf
        comBuffer = New Byte(n - 1) {} 're dimension storage buffer
        mySerialPort.Read(comBuffer, 0, n) 'read data from the buffer
        Me.Invoke(UpdateFormDelegate1) 'call the delegate
    End Sub

    Private Sub UpdateDisplay()
        INCOMING.Text = CStr(comBuffer(0))
        'ProgressBar1.Value = comBuffer(1)-> doesn't work - a/d value from chip
        If INCOMING.Text = "50" Then
            If OvalShape1.BackColor = Color.Gray Then
                OvalShape1.BackColor = Color.Red
            Else
                OvalShape1.BackColor = Color.Gray
            End If
        End If
        If INCOMING.Text = "32" Then
            If OvalShape2.BackColor = Color.Gray Then
                OvalShape2.BackColor = Color.Red
            Else
                OvalShape2.BackColor = Color.Gray
            End If
        End If
        'PUT COMBUFFER RECEIVED DATA IN PROGRAM VARIABLES HERE for auto updating
    End Sub
    '**********************************************************************************
    '**********************************************************************************
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'BYE
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'DETERMINE WHAT COMMAND TO SEND TO CIRCUIT TO TURN LEDS OR NOT - CHECK LED1 BUTTON
        Dim OUTPUT(3) As Byte
        If LEDOUT1 = 0 Then     'TOGGLE LEDS
            LEDOUT1 = 1
        Else
            LEDOUT1 = 0
        End If
        LEDMSGOUT = 40 + LEDOUT1 + LEDOUT2 'THIS IS A BYTE VARIABLE TO OUTPUT -added 40 to see it in laptop
        'OUTPUT FORMAT: LEDS,PWM
        OUTPUT(0) = LEDMSGOUT
        OUTPUT(1) = PWMOUT
        mySerialPort.Write(OUTPUT, 0, 2) 'USE MYSERIALPORT AND SEND OUT COMBUFFER ARRAY, START AT BYTE 0, SEND 2 BYTES

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'DETERMINE WHAT COMMAND TO SEND TO CIRCUIT TO TURN LEDS OR NOT - CHECK LED2 BUTTON
        Dim OUTPUT(3) As Byte
        If LEDOUT2 = 0 Then     'TOGGLE LEDS
            LEDOUT2 = 1
        Else
            LEDOUT2 = 0
        End If
        LEDMSGOUT = 40 + LEDOUT1 + LEDOUT2   'THIS IS A BYTE VARIABLE TO OUTPUT
        'OUTPUT FORMAT: LEDS,PWM
        OUTPUT(0) = LEDMSGOUT
        OUTPUT(1) = PWMOUT
        mySerialPort.Write(OUTPUT, 0, 2) 'USE MYSERIALPORT AND SEND OUT COMBUFFER ARRAY, START AT BYTE 0, SEND 2 BYTES
    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'TO DO TIMED STUFF - SERIAL PORT: CAN SEND/RECEIVE EVERY TICK (NO LESS THAN 1 SECOND INTERVALS FOR TEST PROGRAM)THIS WORKS FROM ANOTHER TEST BUT NOT USED IN THIS CODE
    
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler mySerialPort.DataReceived, AddressOf mySerialPort_DataReceived
        'AT START OF PROGRAM ->SETUP COM1
        With mySerialPort           'I NEED IT TO RUN AT 9600 OR BETTER - SETTING 9600
            .PortName = "COM1"
            .BaudRate = 9600
            .DataBits = 8
            .Parity = Parity.None
            .StopBits = StopBits.One
            .Handshake = Handshake.None
        End With
        'AND OPEN PORT IF POSSIBLE
        Try
            mySerialPort.Open()         'OPEN COM1
        Catch ex As Exception
            MessageBox.Show(ex.Message) 'SEE IF ANY OTHER PROGRAM TOOK OVER COM1 AND GIVE WARNING
        End Try
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        'TO ADD PWM SETTING TO SEND OUT TO CIRCUIT - BYTE SENT WORKS! UPDATES FAST
        Dim OUTPUT(3) As Byte
        PWMOUT = TrackBar1.Value
        OUTPUT(0) = LEDMSGOUT
        OUTPUT(1) = PWMOUT
        mySerialPort.Write(OUTPUT, 0, 2) 'USE MYSERIALPORT AND SEND OUT COMBUFFER ARRAY, START AT BYTE 0, SEND 2 BYTES
    End Sub


    
End Class

DirectCast(Me.Controls("Label" & i) , Label).ForeColor=Red

alejx wrote:

Me.Controls.Item("Label" & i)

For Each Control In Me.Controls
  If TypeOf Control Is Label Then
    Control.forecolor = Color.Red
  End If
Next

Dim l As Label = DirectCast(Controls.Item("Label1"), Label)

l.ForeColor = Color.Red