|
I made sure the null modem cable works by setting up my pc and laptop to have hyperterminal on and both can send and receive without problem, so I know the computers and the settings are OK. The program listing is below:
Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.IO.Ports
Public Class TERMINAL
Dim instance As SerialPort
Dim output As String
Private mySerialPort As New SerialPort
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DONE.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With mySerialPort
.PortName = "COM1"
.BaudRate = 9600
.DataBits = 8
.Parity = Parity.None
.StopBits = StopBits.One
.Handshake = Handshake.None
End With
mySerialPort.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CONNECT.Click
Try
mySerialPort.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
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
MsgBox("this can't be empty to send")
Exit Sub
End If
instance.Write(output)
End Sub
Private Sub DISCONNECT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DISCONNECT.Click
mySerialPort.Close()
End Sub
End Class
Obviously I missed something or I'm doing something incorrectly as the program runs and it won't complain until I hit send (after opening the port OK) It gives me this error: "NullReferenceException was unhandled.
Object reference not set to an instance of an object." pointing to the instance.Write(output) line.
The "verbose" version of the error shows:
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:
What did I do wrong? (this is frustrating) 
I'm trying to get this going for over 3 weeks already.
Thanks for looking at it.
|
|
|
|
|
JDBravo wrote:
Dim instance As SerialPort
Private mySerialPort As New SerialPort
Only thing that sticks out for me is that mySerialPort you declare with the new keyword and instance you dont
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
(slaps face hard) 
That was it! I can see the output in hyperterminal in the laptop.
|
|
|
|
|
Code looks rather fine, except for:
1. how many serial ports do you want? I see "instance" and "mySerialPort", I guess one of them is a mistake.
2. some of the comments are a bit strange:
- mySerialPort.Close() 'MAKE SURE IT IS CLOSED BEFORE START
to your app, all ports are closed at start; they may be open by some other process, but then your app can't close them.
- .Handshake = Handshake.None 'NO HANDSHAKE! I WANT TO TALK TO A CHIP (TX,RX AND GROUND WIRES ONLY)
yes, you talk to some chip; that does not influence what kind of handshake you could use.
- output = OUTGOING.Text
If output = "" Then 'COMPLAINED IT IS NULL SO THIS WAS ADDED
did you mean Nothing? you are testing for empty, not for nothing. And a TextBox.Text never results in Nothing!
|
|
|
|
|
Luc,
1. One serial port. I see that copying the example without understanding something gives no results. Now I understand what the guy who wrote it meant (he was showing 2 examples, not defining 1 port with both)
2.Gotcha. I thought it would close any open ports from other applications for me. It was there "just in case". Deleting now.
3.Copy that.
4.Copy that too.
I got the program sending to the laptop and seeing my messages in hyperterminal there. It was the "double port" deal and not calling the right one to write. Deleted the "instance" one and using "myserialport" to write did it.
This works:
mySerialPort.Write(output)
Now on to try byte send and move on to receive 
Thanks for all the help. I hope I can bother you again if I hit any snags on the receive part.
|
|
|
|
|
No problem.
You can't steal a port from another app, as you wouldn't really want other apps to steal yours, would you?
The snag is another app could open a port that you were intending to use, so one typically would open all necessary ports early on.
JDBravo wrote: try byte send
Remember, the first char is the hardest, and you got that working. It will be downhill now, until you may need some tricky receive stuff.
Warning: DataReceived (and most other) events run on a different thread (see here[^] for a test) and you can't touch GUI Controls from there (see here[^] for a solution).
|
|
|
|
|
I will keep that in mind. I'm bookmarking your site. Lots of interesting articles 
|
|
|
|
|
I'm happy to report I have this thing working both ways with the PCs. I'm sending and receiving bytes and they are changing controls on the application as I wanted. I do have a question, as I copied that part of the code and only understood it well enough to make it work, but I do need more pointers as explanations are not that clear (at least for me) on the tutorials I found (I intend to learn C later--don't like the syntax). The code below works as is. It does what I want and I can have it send/receive data (if required I can modify the chip software as it is easier for me  )
I want to make this program able to receive 2 data bytes (or more) instead of just one, using the delegation method (which I copied here and works fine here with one byte at a time). Those comments on the serial declarations and routines are what I understood from the explanations (please correct me if I'm wrong!)
Imports System.Byte
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
Dim LEDOUT1, LEDOUT2 As Byte
Dim LEDIN1, LEDIN2 As Byte
Dim ADIN As Integer
Dim LEDMSGOUT As Byte
Dim PWMOUT As Byte
Dim LEDMSGIN As Byte
Dim AD1, AD2 As Byte
Private mySerialPort As New SerialPort
Private comBuffer As Byte()
Private Delegate Sub UpdateFormDelegate()
Private UpdateFormDelegate1 As UpdateFormDelegate
Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
UpdateFormDelegate1 = New UpdateFormDelegate(AddressOf UpdateDisplay)
Dim n As Integer = mySerialPort.BytesToRead
comBuffer = New Byte(n - 1) {}
mySerialPort.Read(comBuffer, 0, n)
Me.Invoke(UpdateFormDelegate1)
End Sub
Private Sub UpdateDisplay()
INCOMING.Text = CStr(comBuffer(0))
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
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OUTPUT(3) As Byte
If LEDOUT1 = 0 Then
LEDOUT1 = 1
Else
LEDOUT1 = 0
End If
LEDMSGOUT = 40 + LEDOUT1 + LEDOUT2
OUTPUT(0) = LEDMSGOUT
OUTPUT(1) = PWMOUT
mySerialPort.Write(OUTPUT, 0, 2)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim OUTPUT(3) As Byte
If LEDOUT2 = 0 Then
LEDOUT2 = 1
Else
LEDOUT2 = 0
End If
LEDMSGOUT = 40 + LEDOUT1 + LEDOUT2
OUTPUT(0) = LEDMSGOUT
OUTPUT(1) = PWMOUT
mySerialPort.Write(OUTPUT, 0, 2)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
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
With mySerialPort
.PortName = "COM1"
.BaudRate = 9600
.DataBits = 8
.Parity = Parity.None
.StopBits = StopBits.One
.Handshake = Handshake.None
End With
Try
mySerialPort.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Dim OUTPUT(3) As Byte
PWMOUT = TrackBar1.Value
OUTPUT(0) = LEDMSGOUT
OUTPUT(1) = PWMOUT
mySerialPort.Write(OUTPUT, 0, 2)
End Sub
End Class
As I said, it works fine with the laptop but I'd like the ability to receive (at any time, as it is happening here) 2 bytes or more at a time.
|
|
|
|
|
Hi,
that looks pretty good.
Here are some comments on your design and coding style:
1.
if you have independent functions in the peripheral, it would be better to have a "command language" so you can send individual commands, and don't have to repeat values that already are in effect. An example, using ASCII for simplicity could be:
L0 = led off
L1 = led on
M0 = motor off
M1 = motor on
etc.
2.
if you need combinations of data values (your current LEDMSGOUT), you should really isolate that functionality and put it in a separate method, maybe even a separate class. So every time you repeat yourself (as in LEDMSGOUT = 40 + LEDOUT1 + LEDOUT2) your reflex should be: this ought to be a method. Reason: less code, better readability, easier to change when the interface is modified, etc.
3.
there is a nice XOR operator, ideal to toggle LED states for instance. (LED = LED Xor 1)
4.
when combining bits logically (rather than really adding numbers), it is better/cleaner/safer to use the OR operator, hence LEDMSGOUT = 40 Or LEDOUT1 Or LEDOUT2
5.
Why do you use uppercase for comments? IMO it makes them harder to read...
And then some pointers on multi-byte receive:
1. your code is somewhat ready for it, but it probably doesn't work well.
2. you may think of messages, the serial port doesn't care at all, all it knows are individual bytes. For instance, if you send several 10-byte messages and then read the input buffer at arbitrary points in time, you might get 4, then 12, then 3, then ... bytes. That is what makes receiving much harder.
3. the main problem is timing: DataReceived will (or may) fire as soon as one byte is coming in; it does not care about the number of bytes received, and is unaware of message lengths. It may however also be a bit late. Also, your sender in general may insert transmission delays right in the middle of a message when more important things need to be handled first (stepper motor probably has higher priority interrupts).
4. There are a couple of approaches one can take:
4a. by far the easiest is: use textual, not binary data, and define the language as having a message terminator (a special char that won't appear inside any message), then set NewLine to that char, and just do ReadLine (probably in a separate thread or backgroundworker, in a loop; i.e. don't use DataReceived event at all). The obvious special character is \n itself (careful, the default value of SerialPort.NewLine is system dependent, and may well be "\n\r" i.e. CRLF.
4b. a hack, works fine if there is a guaranteed gap in between messages: insert a delay (Thread.Sleep) that is sufficient to receive all bytes of a message, and only then actually read the incoming data. This enforces message alignment, provided you do it right (which includes: don't read more than one message at a time). However it is a hack, once it goes wrong, it may stay out of sync forever.
4c. read whatever is available (as you do now), however inside the event handler, copy it to a message buffer, and only signal the app when a full message is present (That basically is what ReadLine does for text).
4d. what would NOT be good is always handling one character at a time; that would work at low baud rates, it would be too much processor load at high comm rates.
5. you should design and code defensively, i.e. also consider comm problems may occur, such as a character getting lost or damaged. The general approach is to define a "protocol", probably message oriented, probably with message validation (some kind of checksum), and most likely with a mandatory acknowledge/come-again reply.
|
|
|
|
|
Wow! Luc, thanks again. Lots of great advice. I'm in for some modifications to this code. As I said I'm new to VB (about 6 months) and it is a whole different animal than embedded controllers. The comments in caps are a bad habit I picked up in the 8 bit era of computing. Hard to get rid of...
I think the quick solution before polishing the code as you point out is to do 4c. My circuit uses a PIC with internal hardware UART and PWM so it doesn't take much time to push bytes to the internal buffer (200 bytes) or set the duty cycle, so my software will be free to do the actual work (mostly delaying byte output.) I'll keep it at 9600 baud for now. I'll up the speed once the code is polished and convert everything to text values as you recommend. My bytes insistance was just because I'm used to do it that way when I have chips talking to each other and their peripherals (translation: I don't know better!)
I will keep learning more about VB. It is fun despite being huge compared to what I knew about the BASIC language (used to know all instructions of the top of my head.) Lots more going on with .NET and Windows. Thanks for all the help in getting my application going.
Best,
Juan
|
|
|
|
|
Hi Juan,
you're welcome. And good luck with the project.
FWIW: I once did a 9600Bd serial port plus a separate 9600Bd CAN-like protocol on some PICs (16F84 = 64 bytes of RAM, no UART), all four comm channels in software, and without interrupts (too slow!); together with two Macs, they were controlling my digital railroad setup. So, yes I know there is a huge difference between PCs and small embedded systems...
|
|
|
|
|
Hello !
I'm working on vb.net 2010 .I have a form with some labels : Label1,Label2,Label3.....and i want to access a label using name as string.i'm using the code :
For i=1 to 31
DirectCast(Me.Controls.Item("Label" & i) , Label).ForeColor=Red
Next
But this code produce an error : Object reference not set to an instance of an object.
What can i do ?
Thank you.
|
|
|
|
|
Not sure, however I would suggest you try
DirectCast(Me.Controls("Label" & i) , Label).ForeColor=Red
|
|
|
|
|
This error occurs when you are accessing an attribute of an object when the object itself does not exist.
alejx wrote: Me.Controls.Item("Label" & i)
Ensure that the values you are trying to access here exist.
|
|
|
|
|
I would loop through the controls from the forms collection and check each controls type to see if it is a label and then change it color as shown in the code snippet below
For Each Control In Me.Controls
If TypeOf Control Is Label Then
Control.forecolor = Color.Red
End If
Next
or you could do it like this
Dim l As Label = DirectCast(Controls.Item("Label1"), Label)
l.ForeColor = Color.Red
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
Hi I want to scan from ADF (Feeder) in my scanner. How to make this?
modified 9-Jan-12 13:20pm.
|
|
|
|
|
Have you checked to see if the scanner has any SDK's? that would be my first place to check
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
I want to scan with all scanners not only in my scanner.
|
|
|
|
|
Take a look at the response to this question[^].
Unrequited desire is character building. OriginalGriff
I'm sitting here giving you a standing ovation - Len Goodman
|
|
|
|
|
I'm using vb2008
Is there is any suggestion to create guitar tuner using Vb.net
|
|
|
|
|
Here's a C# article on the subject but I don't think it would be to hard to convert.
FFT Guitar Tuner[^]
C# Conversion Article[^]
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
I'm working on vb.net and I don't know how to use C#.
thank you for your help!
|
|
|
|
|
The second link is about converting C# to VB.NET
Also have a look at this Code Converter[^]
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
Thank you. but I'm confusing, I don't knwo how to use it. any sugggestion ?
|
|
|
|
|
Seriously?? It was spelled out to you step-by-step. All you had to do was come up with the full path to the solution file (.SLN) and type that into the last command line!
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
