|
A Shared (static) method does not interact with the class it's defined in. Anything in your class that doesn't touch instance-members can be made shared.
Sometimes a procedural programmer will have trouble thinking in OO, generating lots of static methods that take lot's of parameters.
The OO-way makes it's handy to have all the parameters and other variables embedded in an object, and interact with those, each "group" of procedures becoming objects;
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)
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()
public Sub MyTester()
public Sub MyCloser(Title As String)
public property Verbose as Boolean
public readonly property TestCount
get
return _testCount
end get
end property
End Class
This has the advantage that you can populate a list with these things, something that's a bit harder to do if all methods are static.
Bastard Programmer from Hell 
|
|
|
|
|
thanks Eddy
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
You're welcome 
|
|
|
|
|
I have dymanuc drop down generated controls ( in some cases I can have as many as 5,3.... or none).
If I have 3 drop downs then first needs to be enable and after they select 1 second and so on. How would I do this witout post back?
Currently I am adding
AddHandler ddlGroupStudentTypes.SelectedIndexChanged, AddressOf ddlGroupStudentTypesValueChanged
|
|
|
|
|
If your dropdowns are truly dynamic, then you are going to have to make a request from the server to get the next dropdown's values. In the most technical sense, that is a post to the server. I assume that you mean that you don't want to do a page refreshing style of a postback. In other words, you want an ajax call to load the data for the next dropdown.
You have two general schools of thought you can go with:
1. UpdatePanel. This lets you run things through your server side events, and it disguises the postbacks so they don't make the page refresh. Pros are that it is simpler to implement. You basically can implement it as you would if you wanted the dropdowns to do a postback to load the next one. Then you wrap the dropdowns in an update panel, and set a few things and you are done. The update panel makes all those postbacks become ajax calls that don't refresh the page.
Cons are that it is far less efficient in terms of bandwidth and server resources, and it can lead to some difficult debugging if you aren't familiar with the .net life cycle. Update panels result in a massive amount of auto generated javascript and additional markup being rendered to the browser which is not really ideal. Also, update panels only work for web forms applications, and are not available for MVC. I assume from what I saw in your question that you are doing web forms.
2. Ajax calls to web methods. Pros are that this is clean and efficient. You save tons on bandwidth consumption which can be a big deal for slow connection users. You also take a much lighter load on the server resources, which is a big deal for higher traffic solutions. You also are in much better control of what is rendered to the browser. Cons are that you have to know javascript a lot better than you would with update panels, and you have to take care of a few specifics that update panels abstract or take care of for you.
I vastly prefer the 2nd option. If you go with the ajax option, then I can give you some additional pointers and things to look out for. I would suggest you use jquery and set up something like:
in javascript:
$("#myDropDown1Id").change(function(){
$.ajax({...//look at jquery.com for your specifics. You set your address, and send your parameters
success:function(data){
//receive the data from your server and populate dropdown2
},
error:function(data){
//notify the user in some way
});//end of .ajax
});//end of change function
Then you need to have a function exposed to be called as a web service. In web forms, you can have a method on your code behind and annotate the method as a WebMethod, or you can add a web service to the project and have methods exposed there. The json parameters you pass in javascript must match the case of your parameters on the server side exactly, which can be a gotcha. Order of the parameters is also important I believe.
If you do it via an ajax call then your web forms code behind won't have wired up change events for your dropdown. Rather you have web methods exposed that take a value and return data to the client.
The other thing to look out for on web forms is that if you are building dropdowns client side, the web forms security will get mad at you when you do finally submit. You will get an error that your values weren't registered for postback. It is webforms effort to prevent malicious javascript from injecting invalid options into the values a dropdown can send back.
To fix that you need to call a registerforpostback method associating every value you send back in your web service with that dropdown. That one can be a pain to work the nuances out.
So there is a lot involved, and I obviously didn't give you a full explanation on every aspect. I hope I gave enough that you can google for details and get it working. Good luck.
|
|
|
|
|
I am inheriting my own datagridview (say MyDataGridView) from the standard datagridview control. What I want is that certain properties of MyDataGridView should have a different default value than what its base have. For example,
AllowUserToAddRows, AllowUserToDeleteRows, AllowUserToResizeRows properties should have the default values of False; so that when I drag MyDataGridView into a form in the IDE, the default values shown in the properties grid should be False.
Later on, if I want to change them to True from the grid, they will be set accordingly. Is it possible somehow? Please note that I don't want to set the default value of any custom property in MyDataGridView but the properties mentioned
above that are derived from the base.
Thanks.
VS.Net, Framework 4.0, VB.Net, C#.Net, WinForms
|
|
|
|
|
Have a try of this
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
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
modified 12-Jan-12 10:58am.
|
|
|
|
|
I tried the following way as well as yours on the Visible property of an inherited label but yet it stays True in the properties grid when compiled and dragged in the IDE. I need to change it manually to take effect.
Imports System.ComponentModel
Public Class MyLabel
Inherits Label
Public Sub New()
MyBase.New()
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
Another point is, I tried both ways on the AutoSize property too, with the default value of False. In that case though, in the properties grid, it was showing False but actually the property remains True, as that's what I can see while executing. In order to set the value to False, I need to set it to True and then back to False again. 
|
|
|
|
|
You just need to set the relevant properties in the constructor of you custom control like this:-
Public Class MyDataGridView
Inherits DataGridView
Public Sub New()
InitializeComponent()
AllowUserToAddRows = False
AllowUserToDeleteRows = False
End Sub
End Class
When I was a coder, we worked on algorithms. Today, we memorize APIs for countless libraries — those libraries have the algorithms - Eric Allman
|
|
|
|
|
Hello,
- I am using DirectShowLib to acquire video from laptop camera and it can work well.
- I am trying to adjust the brightness by using the software but it does not work.
- As I move the track bar (tbBrightness), I want to change the brightness but it does not change.
The codes are as below :
Imports DirectShowLib
Imports System.Runtime.InteropServices.ComTypes
Private Sub GetSettings()
Try
Dim capDevices As DsDevice() = Nothing
Dim CamDevice As DsDevice = Nothing
Dim CamFilter As IBaseFilter = Nothing
Dim CamControl As IAMCameraControl = Nothing
Dim graphBuilder As IFilterGraph2 = CType(New FilterGraph, IFilterGraph2)
Dim nMin As Long = 0
Dim nMax As Long = 0
Dim nStep As Long = 0
Dim nDefault As Long = 0
Dim nFlags As Long = 0
Dim hr As Int64 = 0
capDevices = DsDevice.GetDevicesOfCat(FilterCategory.VideoInputDevice)
CamDevice = capDevices(0)
If (CamDevice.Name = String.Empty) Then
MsgBox("No video capture devices found!", MsgBoxStyle.OkOnly)
Exit Sub
End If
hr = graphBuilder.AddSourceFilterForMoniker(CamDevice.Mon, Nothing, CamDevice.Name, CamFilter)
CamControl = CType(CamFilter, IAMCameraControl)
hr = CamControl.GetRange(VideoProcAmpProperty.Brightness, nMin, nMax, nStep, nDefault, nFlags)
Me.tbBrightness.Minimum = nMin
Me.tbBrightness.Maximum = nMax
Me.tbBrightness.SmallChange = nStep
Me.tbBrightness.Value = nDefault
Catch ex As Exception
End Try
End Sub
Private Sub tbBrightness_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbBrightness.Scroll
Try
Dim capDevices As DsDevice() = Nothing
Dim CamDevice As DsDevice = Nothing
Dim CamFilter As IBaseFilter = Nothing
Dim CamControl As IAMCameraControl = Nothing
Dim graphBuilder As IFilterGraph2 = CType(New FilterGraph, IFilterGraph2)
Dim hr As Int64 = 0
Dim nVal As Int64 = tbBrightness.Value
capDevices = DsDevice.GetDevicesOfCat(FilterCategory.VideoInputDevice)
CamDevice = capDevices(0)
hr = GraphBuilder.AddSourceFilterForMoniker(CamDevice.Mon, Nothing, CamDevice.Name, CamFilter)
CamControl = CType(CamFilter, IAMCameraControl)
hr = CamControl.Set(VideoProcAmpProperty.Brightness, nVal, CameraControlFlags.Auto)
Catch ex As Exception
End Try
End Sub
I appreciate your guidance on fixing this problem.
cheers,
Goutam
|
|
|
|
|
Hello,
I'm new to posting in the forum and I've been learning a lot by lurking here. I can write VB programs fine, but have not attempted using the IO ports until now. I come from the embedded field and I am an electrical engineer.
That said, I have read and tried several examples I found on the net regarding the serial ports, with no luck. I am posting the message bacause I'm stuck in something I believe shouldn't be this difficult (but this is Microsoft, so it may well be  ) I have a circuit I built and programmed that sends 3 bytes (no text) to the PC and the PC needs to send 3 bytes back to the circuit.
Any good serial port tutorials out there written for VB2010? I don't want to ask anyone to write the code for me as I want to learn so I can do it myself. Many I found are general .NET with examples in C++ which I don't understand (I don't program in that language)sending text but not bytes. Others are older VB versions and don't work in 2010 (or again, more text strings.)
I'll appreciate any help or guidance in the subject. Thanks!
|
|
|
|
|
|
Thank you. I'll check it out.
|
|
|
|
|
Hi,
I've done maybe a hundred serial port applications over the years, and I can tell you all kinds of things can go wrong:
1. using wrong port
2. bad cable
3. null modem needed/not needed
4. voltage levels not appropriate
5. control lines not set properly
6. settings (baud, databits, polarity, stopbits) not matched
7. and then all kinds of software mistakes.
Trust me, you will make some of the above mistakes before everything eventually gets right. Therefore, I strongly suggest you work step-by-step and start with the easiest set-up:
1. start with ASCII text, no handshaking, and a modest setup (9600Bd, 8 databits, no parity, 2 stopbits)
2. let the most trustworthy party initially be the receiver (reason: sending is much easier than receiving)
3. observability: have the receiver show what it receives (e.g. use lowest N bits of the incoming char to set N LEDs)
4. use as much pre-existing stuff as possible on one side (e.g. use HyperTerminal on a PC to get started)
5. once the sender is programmable, make it repeat almost the same transmission regularly (send "ABCxyz" every second,
where xyz is a number between 000 and 999)
If this works, you most likely have avoided/solved most of the above problems already. Then slowly move towards your final setup. The tricky parts will show when you need high bandwidth AND good latency all at the same time, forcing you to use asynchronous operations, overlapping operations, etc. If you must debug protocols, make sure to provide good logging: log all incoming and outgoing messages into a single file.
You may think all this is a waste of time, and aim for the final setup right away. You will probably learn soon a step-by-step approach will reach the finish line much sooner, even if it means you have to modify or even scrap some code in the process.
|
|
|
|
|
Thanks for the reply Luc. I have years of experience doing stuff with serial protocols (RS232, I2C and SPI) in embedded but I am a total noob when it comes to VB programming. I figured from looking at the examples I've seen so far that it is not as "simple" as doing it in a controller chip with a UART.
I'm sure my code attempts so far have had one (or most likely more than one!) of the mistakes listed in your post. I think I'm going to setup a null modem cable between my PC and my old laptop (it has a serial port)and set the laptop with a terminal program and make sure my code is sending something out of the PC in text as you suggest before I try with my chip project. I know the chip is doing what it is supposed to do. I can see the bytes in my terminal program and another chip coded as a receiver can read and reply properly. I wish I had the same level of expertise with VB.
The final objective I have (once I can manage to get my VB code to work) is to have telemetry going from any circuit I build to my PC (yup, wireless serial.) I guess I have to learn how to walk before I can run 
|
|
|
|
|
for a simple comm job the SerialPort class isn't hard to use.
Once the port is opened and configured, all it takes is a call to Write(string) or WriteLine(string) to send some text; or Write(byte[]) for binary data.
Some warnings:
- while the doc says ASCII is default, I am not convinced and always set it explicitly.
- receiving data is always harder, as one needs to synchronize; e.g. the DataReceived event occurs some time after a first char is received; when you expect N bytes/chars, there might be fewer in the input buffer when you read it!
- the NewLine property may interfere with both receive and transmit if you're using text methods (i.e. anything but byte[] operations).
If you must solve the receiver first, then teach your microcontroller to send a (almost constant) message repeatedly, say 3 bytes every 5 seconds (and I still recommend printable ASCII here, for starters).
I would go for synchronous receive first; i.e. a loop containing:
- wait 1 second
- read 1 char
- display it in hex (always debug in hex, not in decimal; you'll notice baud rate errors and the like much easier).
Which really means: keep it simple, and add observability where ever you can.
If you need specific help, show us your code (initialization, and read/write functions) and describe the symptoms.
|
|
|
|
|
Thanks Luc. Will do. I'm off to get this thing working and if I hit something specific I'll be back to ask again and post code.
|
|
|
|
|
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.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
