Comments by F. Xaver (Top 82 by date)

use the debuger to watch what is getting set..
what have you used to fill the listbox? (listbox1 is allways a terrible name btw)
System.IO.Ports.SerialPort.GetPortNames to get the actual present devices?

from a fast look it should work fine.. but if you not block the listbox after that, or close and freeing the comport befor a new selection you will pretty sure get errors.
(and as your comments say.. some of those settings are kinda uncommon. I've never seen a device with .Parity = Space so far

Why so much possibility's anyway.. there are only 22 Country's with more than 1 time zone
most apps only add some of the bigger city's or only the capital-city to the country name
like 'Afghanistan (Kabul),.., France (Paris),.., Germany (Berlin),.. Zimbabwe (Harare)

and for that 22 country's ... like USA
USA /HAST (Honolulu), USA /AKST (Anchorange), USA /PST (Los Angeles), USA /MST (Salt Lake City), USA /CST (Chicago), USA /EST (New York)

why go more into detail ;)

yeha true, didn't think of that possibility, Added s sample ;)

.First will throw an Exception if there is no Fruit with that Name, so -1 is never returned

I'm not familiar with EntityFramework :(
maybee change postatus from Structure to Class with an empty Sub New() might help.. but as said, I don't use Entity

but I see 2 options for you
- Change GetPOStatusByLinQ to only return one postatus object
- Or change wherever you use GetPOStatusByLinQ that it support a List(Of postatus) (only if Class idea works)

debbuging means that you have to do the work yourself ;)

5fed, coz I see no reason why this has 2 1Star votes..

but but .. words ... hurt .. soo muuuuch

;)

.Replace("Mom","Dad").Replace("Dad","Mom") incoming ^^

5ed

5ed

yeah. Some nice written LINQ one liner, slow as hell compared to a 10 liner For-loop iterating through the same collection.
If performance is necessary, better not use LINQ to much (or any)!
Anyway I rely like to use it when there is no need for performance/speed

I'd +5 that ^^

I like such tutorials ... its vulnerable for sql-injection

I updated my Solution

but not initialised ...
Set oSheet = oBook.Worksheets(1)
for example

IsNot is comparing object references, not the Object it self.
I'm pretty sure you better go with '<>' operator

5ed!

5ed

5ed

well, we can't help you with that.
how should we know where to place the commas. you provided no reasonable infos for that.

I don't get your method call thing, maybe get us a example?
but speaking of short code: If a <= 20 Then c+= 1

haha, 5ed, because I laughed ;)

a mix of both may bee a good idea, 75 copy & paste like lines aren't that good lookin ;)

without ByRef for Param2 VB.Net won't copy the data back to Param2

Public Overridable Function TestFunc(ByRef Param1 As Integer, ByRef Param2 As Object, Param3 As Integer) As Integer

what is your VB.Net definition of TestFunc call? maybee just need to set Param2 as ByRef

Thank you

yup, I saw..
Thank you

Sorry I meant Muhammad Saddam Noor with that ;)

at first.. you change your array at index 0 and 1 .. and then tell BitConverter to start in the array at index 2. but again.. there is no decimal or hexadecimal value. The program saves all values in binary. its just displayed for you as decimal as this is the system we all tend to use. There is simply no Type witch displays its Data as HEX.. for that.. System.Byte.MaxValue returns 255 and not FF as its the same, just different representations as its still saved as 1111 1111 for the computer.

hm maybee check BitConverter.IsLittleEndian, mine is false. and BitConverter.ToInt16(new Byte[] { 0x0, 0x79 }, 0)) returns 30976 for me.

where is the problem? Just change the validating of that Textbox to check that the input is an valid Integer for example.
Or better, don't let the user even enter invalid characters, using KeyPress Event to not handling unwanted character inputs

I loled at the 2nd sentence, so +5 ;)

yeha.. knowing WHAT exception is thrown would be usefull ;)

virtual +5 :D

I'm working on a class that does all the sends and reads I need. but it still got some problems with it
won't give out that code.

If you have Problems I will try to answer them ;)

then use ACTETHERLib.ActFXENETTCP

and _FX_Ethernet.ActHostAddress

RTFM ;)

not that related, but
timer1.Enabled = true;
timer1.Start();

is exactly the same. ;)
you can use either one

you may have noticed that

* this Question is already over 3 years old
* is answered (accepted)
* python is the wrong language
* uses Sort

Your question isn't clear...
what do you want..
copy a file form your solution to another place? -> why not simply using File-Explorer!?
copy a file from your RUNNING App current directory -> System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetEntryAssembly().Location) or Application.StartupPath
if you want that file to be in your build directory -> look at Properties->Advanced->Copy to Output Directory

thx SA ;)

puh, just some ideas and suggestions from me

why declaring all the rx variables as String?
you do a lot of math like actions on it, using VB6 compatibility commands (val/str/mid/len/right/left/ascw) -> get rid of them, better use the new VB.Net functions

and give that vars better Names. why 'yy' call it something like '_Target_Year'
Using something like
Dim _target_year As Integer = mydict.Where(Function(o) o.Value = mRegNo1).SingleOrDefault.Key
instead of
Dim yy As Integer = 0
For Each entry In myDict
If mRegNo1 = entry.Value Then
yy = entry.Key
End If
Next

makes debugging way easier


or
checkno1 = Trim(Str(r6))
r6 is already a String.
just use
checkno1 = r6.Trim()


Right(Trim(Str(r1)), 2)
r1.Trim.Substring(r1.Length - 2)

are all that Trims really necessary?

when you would use a integer var for all you calculations instead of a string
CStr(r1 Mod 100)
would also to the job


hm, use
Option Strict On
Option Explicit On
Option Infer Off

and get rid of the Microsoft.VisualBasic Namespace and its functions ;)

Depends on the values used in CalculateRegNo Method, maybe a HardwareID's witch are HEX values (like "123" on your system and "3B5" on clients) or some Input-fields not correctly validated before use

Neither String or Object own a 'Append' method.
Looks like rows[something] is returning a different object, like a Stringbuilder.

OP should specify 'rows' definition

looks like .Net .. but.. Set 'Option Strict ON'
and get rid of 'On Error Resume Next' .. thats VB6 Error handling. there are nicer things in .net ^^

.TakeWhile(item => !tocken.IsCancellationRequested)
also works fine.. but i don't know how thats written in Query form

you don't need that index anymore!
sender contains the Textbox itself, where the KeyPress Event occured.

Dim MyTextBox as TextBox = DirecCast(sender, TextBox)
and you have easy access..


Also.. dont use Control array anymore.. i used them alot in VB6 but nowerdays ;) why not adding a Panel to your Form where thoose 10 Textboxes are in..
you could iterate throug it with Panel1.Controls and also do nice things like disable all Textboxes with just Panel1.enabled = false

still, like Richard MacCutchan sayed.. you can't use < or > operators on Strings in this way..
you need your current % value and your 89% as some numeric Type.... than

dim yourListviewValue as integer = 73
if yourListviewValue < 89 then 'this will work.

++;

y not using the newer and comfortable MessageBox.Show()
Msgbox is vb6 compatibility

yeha.. guess some Code of that part that Throws the Exception won't be a bad Idea..

Dim t As String = "test"
Debug.Print("Message1: {0}", Mid(t, 5))
Debug.Print("Message2: {0}", t.Substring(5))

that's because Mid will return "" here.. and Substring Throws an ArgumentOutOfRangeException, because you try to access parts of the String, which aren't there.

You need to check if the full message of the hardware is allready received. There could only be a "2" from "22.7" in the buffer when sp.DataReceived fires.

just because you Post it again, you won't get a different answer..

we can't help you from this.

puh.. i deleted that file.. but it was something like this ... if you are going to use that 'GetStatus' often.. it will lag your UI....

Dim timeout As Integer = 500
Dim endTime As Date = Now.AddMilliseconds(timeout)
Do
If yourserialport.BytesToRead >= 45 Then Exit Do
If Now > endTime Then Throw New TimeoutException("Hardware didn't respond intime")
Threading.Thread.Sleep(10)
Loop While True
'do stuff..

you don't check if you really received >= 45 Bytes.. if your For goes the 100k.. without getting any Data.. you still try to access byteRead(38) and maybee there is only 0 or 10 or whatever
I guess that courses your error

is events_label somewhere added to Me.Controls?

i testet it like this
.Visible = True
End With
Me.Controls.Add(Me.events_label)

and it worked fine, displaying the Text with Arial, 10.
without "Me.Controls.Add(Me.events_label)" the lable isn't displayed at all.

That works fine for me.

you may try to add an Eventhandler for FontChanged on your linklabel, to see how often it changes..
or post some of your Code, can't say much without it

what have you tried so far? ..

there is no Visual Basic 2006 .. there was a 2005 and 2008 Version both .NET

are you sure, you don't mean Visual Basic 6.0 aka VB6 aka Visual Basic Classic

So, whats your error, and where do you get it?

but basicaly .. why dont you use the SerialPort.DataReceived Event? its suitable for most cases!

when you want to wait for a response of your hardware.. that 0 to 100k for loop may be a to short time for your Hardware to respond to your command.
I had Projects where i needed to use Serialport in a simmilar way.. but i wouldn't recommend doing it that way

Its still possible :/

they force you to write typesafe and less error-prone code..

see
http://support.microsoft.com/kb/311329
http://msdn.microsoft.com/library/bb384665.aspx

for more details

as from that deleted Comment.. i would realy recommend that you use
Option Explicit On
Option Strict On
Option Infer Off

I still don't get.. how your senders change Type... post that code?

hm, as you can't change the timer Interval.. hm
why not set the TextBox.Tag Property to the DateTime the countdown ends.
So you can just do a simple check on that.. like DirectCast(textbox.Tag, Date) > Now then change backgound and stop the timer

you can't run your SQL qry there..
AddRange want's a IEnumerable like String() or List(Of String) witch contains your Data.

You need to run that qry separately

Dim acList As New AutoCompleteStringCollection
acList.AddRange([Your values from database here])
TextBox1.AutoCompleteCustomSource = acList
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

IIF() is old... just use IF()

I wonder what "none" is?

yeha well.. it's your Homework, do it yourself ^^
we won't do it for you.

ask for Problems in your code! not that anybody codes for you

ImageLists image resulution is small (255x255 max as I Remember)

once I maded an image selector like on the webs.
I used a FlowlayoutPanel, where I added my thumbnails as Pictureboxes with my size wishes.
You can easely scroll in it or only add 10 pagewise (that need to be done in code).. and you can easely trigger your click event on a random image

You give something to readValue, so it wouldn't display a error, even with 'strict on'
just use
readValue = CStr(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\ARSS", "EPV", ""))
instead ^^
so even 'If readValue <> "" Then' would work

CPallini is right!

just redim it once, particularly when you know the dimensions
calling it repeatedly with Preserve is really really extremly slow, especially for large Arrays.

as I understand you, all you need is to set te SpliterPanel.AutoScroll to True
so you can scroll the left and the right side seperated, while the other one 'freezes' is this what you mean?
(Docking a Panel in the SplitterPanels gives you eaven more options)

Why are you using Forms inside the Splitcontainer?
If you don't realy need this to be Forms, you could just use the normal Events of the Textbox within Form1.

If you need this to change the SplitContainers content, I would suggest using an UserControl, where you add those Events you need.

Dim s As String = "This is a sample"
Dim words() As String = s.Split(" "c)
For Each Word As String in words
response.Writeline(" " & Word & " ") 'or response.Write(" " & Word & " " & vbCrLf) If your 'response' doesn't have Writeline
Next

You could eaven save up that 'words()' var if you don't need it later,
just by using: For Each Word As String in s.Split(" "c)

please use the code tag!

DirectCast (Me.Controls.Find("Label" & No,True).GetValue(0),Label).Text = DirectCast (sender,TextBox).Text

that Control.Find is awsome. haven't seen in before.
but there is no need to search the source Textbox ;)

why you need KeyDown event?
KeyUp or KeyPress event should also work fine for your problem.
you can cancel inputs, and check if the entered value is ok.
(KeyPress don't fire on delete or backspace)