Visual Basic

nlarson11 wrote:

not a good candidate

nlarson11 wrote:

Is there a limit to how many current calls can be made to a shared routine?

' If you got groups like these
shared Sub MySBSOpener(sbs as Object, HowMany as integer, ByRef TestCount as Integer)
shared Sub MySBSTester(sbs As Object, HowOften as integer, Verbose as Boolean)
shared Sub MySBSCloser(sbs as Object, Title as String, ByRef TestCount as Integer, Verbose as Boolean)

' consider these
Class SBS
  private _howMany as int
  private _howOften as int

  Public Sub New(HowMany as Integer, HowOften as Integer)
    _howMany = HowMany
    _howOften = HowOften 
  End Sub

  public Sub MyOpener() ' this sub now uses "Me" as the Object,
                        ' _howMany as a field
                        ' and puts the result in the TestCount property
  public Sub MyTester() ' other example sub use their parameters in their body
  public Sub MyCloser(Title As String) ' except title, which is still passed

  public property Verbose as Boolean
  public readonly property TestCount
    get
      return _testCount
    end get
  end property

End Class

Bastard Programmer from Hell

Public Class Class1
    Inherits DataGridView

    Private _AllowUserToAddRows As Boolean = False

    Public Shadows Property allowUserToAddRows() As Boolean
        Get
            Return _AllowUserToAddRows
        End Get
        Set(ByVal value As Boolean)
            If _AllowUserToAddRows <> value Then
                _AllowUserToAddRows = value
                MyBase.AllowUserToAddRows = value
            End If
        End Set
    End Property
End Class

Imports System.ComponentModel

Public Class MyLabel
    Inherits Label

    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()
    End Sub

    <DefaultValue(False)> _
    Public Shadows Property Visible As Boolean
        Get
            Return MyBase.Visible
        End Get
        Set(ByVal value As Boolean)
            MyBase.Visible = value
        End Set
    End Property
End Class

Public Class MyDataGridView
    Inherits DataGridView

    Public Sub New()
        InitializeComponent()
        AllowUserToAddRows = False
        AllowUserToDeleteRows = False
    End Sub

End Class

'***********************************************************************************
'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: