Visual Basic

'***********************************************************************************
'TYPE THESE BEFORE DOING ANYTHING?
'***********************************************************************************
Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.IO.Ports
'***********************************************************************************
'***********************************************************************************
Public Class TERMINAL
    Dim instance As SerialPort  'AS IN THE SAMPLE CODE
    Dim output As String
    'Dim OUTPUT As Byte
    Private mySerialPort As New SerialPort
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DONE.Click
        'BYE
        End     'CLOSE TEST PROGRAM
        'That's all folks!
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '***********************************************************************************
        'SET THIS UP WHEN PROGRAM RUNS (FORM1 LOAD)
        'DOING EVERYTHING ON COM1 - ONLY ONE PORT ON PC AND LAPTOP
        '***********************************************************************************
        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 'NO HANDSHAKE! I WANT TO TALK TO A CHIP (TX,RX AND GROUND WIRES ONLY)
        End With
        mySerialPort.Close()        'MAKE SURE IT IS CLOSED BEFORE START
        ''***********************************************************************************
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CONNECT.Click
        '***********************************************************************************
        'CONNECT BUTTON IS CLICKED
        '***********************************************************************************
        Try
            mySerialPort.Open()         'OPEN COM1 WHEN CONNECT BUTTON IS PRESSED
        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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SEND.Click
        output = OUTGOING.Text
        If output = "" Then     'COMPLAINED IT IS NULL SO THIS WAS ADDED
            MsgBox("this can't be empty to send")
            Exit Sub
        End If                  '***********************************************************************************
        instance.Write(output)  'SUPPOSED TO SEND STRING OUT - GIVES ERROR ABOVE
    End Sub                     '***********************************************************************************
    '***********************************************************************************
    Private Sub DISCONNECT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DISCONNECT.Click
        mySerialPort.Close()    'DISCONNECT BUTTON CLOSES PORT
    End Sub
    '***********************************************************************************
End Class

System.NullReferenceException was unhandled
  Message=Object reference not set to an instance of an object.
  Source=Serial text try
  StackTrace:
       at Serial_text_try.TERMINAL.Button1_Click(Object sender, EventArgs e) in D:\Visual Studio Personal 

Code\Serial text try\Serial text try\Form1.vb:line 53
       at System.Windows.Forms.Control.OnClick(EventArgs e)
       at System.Windows.Forms.Button.OnClick(EventArgs e)
       at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       at System.Windows.Forms.Control.WndProc(Message& m)
       at System.Windows.Forms.ButtonBase.WndProc(Message& m)
       at System.Windows.Forms.Button.WndProc(Message& m)
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr 

lparam)
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       at 

System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManag

er.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext 

context)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext 

context)
       at System.Windows.Forms.Application.Run(ApplicationContext context)
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       at Serial_text_try.My.MyApplication.Main(String[] Args) in 

17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
       at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
       at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, 

Object state, Boolean ignoreSyncCtx)
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, 

Object state)
       at System.Threading.ThreadHelper.ThreadStart()
  InnerException: 

JDBravo wrote:

Dim instance As SerialPort
Private mySerialPort As New SerialPort

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