|
Does VB.NET have any hidden understanding of units of measure? Meaning, if I had a value 12 oz and wanted to quickly decide if it is greater than or less than 500 mL, is there something out there that already can do that in VB?
I know that I can give a weight to each UOM and do the comparisons but am hoping there might already be something in the vast framework of code. I couldnt find anything by searching the net for VB but did find stuff for F#. I dont believe I can program with F# though, or at least it isnt available as a project template.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
Nothing inherant, but it is easy write conversion programs.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
I have conversion code already, I was just hoping to find a more complete codebase to use rather than re-inventing the wheel.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
|
Do not crosspost.
"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
Hi All,
I want to create telnet session in my vb application.
how should i connect it?
Help me please
Thanking You,
Sunil G.
|
|
|
|
|
I need to convert this to VB I have tried the converters and not been successful.
static void StartComputation()
{
Task.Factory.StartNew(() =>
{
textBox1.Invoke(new Action(() => { textBox1.Text = "Starting..."; }));
});
}
Thank you.
Humble Programmer
|
|
|
|
|
It's easy in VB10 (VS 2010):
<pre>Shared Sub StartComputation()
Task.Factory.StartNew(Sub()
textBox1.Invoke(New Action(Sub() textBox1.Text = "Starting..."))
End Sub)
End Sub</pre>
Prior to VB10, it's a little awkward:
<pre>Shared Sub StartComputation()
Task.Factory.StartNew(Function() AnonymousMethod1())
End Sub
Private Shared Function AnonymousMethod1() As Object
textBox1.Invoke(New Action(Function() AnonymousMethod2()))
Return Nothing
End Function
Private Shared Function AnonymousMethod2() As Object
textBox1.Text = "Starting..."
Return Nothing
End Function</pre>
David Anton
Convert between VB, C#, C++, & Java
www.tangiblesoftwaresolutions.com
|
|
|
|
|
For anyone else that comes across this the first snippet of code does work as long as the scope is not shared set it to private and you will be good.
Humble Programmer
|
|
|
|
|
The original C# method was static, so if that works then the VB method should work if using "Shared".
David Anton
Convert between VB, C#, C++, & Java
www.tangiblesoftwaresolutions.com
|
|
|
|
|
It wont compile with shared for some reason...
Humble Programmer
|
|
|
|
|
You canot use shared (static) methods in a Module. Anywhere else is OK.
|
|
|
|
|
Thank you VERY much David you have been a huge help... I think I can get the rest of my code to work now.
Thanks again.
Humble Programmer
|
|
|
|
|
This is a working for loop that runs on a task an updates the UI with the accumulator when the for loop completes.
You could update the textbox in the for loop but that makes the code execute MUCH slower I think that the invoke must be a little costly.
Also it gives a warning if you try to update the text box with the i variable so you need to use an accumulator instead.
Imports System.Threading.Tasks
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Task.Factory.StartNew(Sub() sDoWork())
End Sub
Private Sub sDoWork()
Dim iJJ As Integer = 0
For i As Integer = 0 To 10000000
iJJ += 1
Next
TextBox1.Invoke(New Action(Sub() TextBox1.Text = iJJ))
End Sub
End Class
Humble Programmer
|
|
|
|
|
Hello all..
using VB.net 2008
Im working on an application that collects data from the database and populates a list(of t) where t is the structure below.
Public Structure Contact
Dim Ref As Integer
Dim Name As String
Dim Tel As String
Dim fax As String
Dim email As String
Dim position As String
Dim comment As String
Dim printYN As Integer
Dim title As String
Dim firstname As String
Dim surname As String
Dim ext As String
Dim salutation As String
Public Overrides Function ToString() As String
Return Name
End Function
End Structure
This is then displayed in a combobox (Well just the Name) but i need also to search the list from a given ref number. Not sure how to do it most of the examples are based on list(of string). Can anyone give me a pointer or a nice example
Many thanks
Simon
|
|
|
|
|
Hi Simon
You can use LinQ to query lists. In your case you could have something like this
Dim contacts = From mycontact In lstContacts Select mycontact Where mycontact.Ref = intSelectedRef
This will return a new list containing your required contact, although I just made it up and haven't tested this, but you should get the idea.
modified on Friday, March 26, 2010 10:01 AM
|
|
|
|
|
What's with the two identical Select clauses?? You only need one.
|
|
|
|
|
Mental aberration. It was early this morning for me. Will edit it.
|
|
|
|
|
Mate,
thats fantastic and helped me achieve what i needed 
|
|
|
|
|
|
Hi,
what I typically do is:
- use a class (say "Contact") rather than a struct, so what gets passed around is a reference, not a copy of the data; hence better performance;
- a Dictionary(of Ref, of Contact) so one can enumerate all values, or search fast by key
But then I'm not sure you need the Ref field, maybe the reference to the Contact instance is enough, so you never need to search, hence no need for a Dictionary, a simple List(of Contact) could suffice. You would need a Ref field to persist the data to a file or database (pointers/references would be meaningless there).
|
|
|
|
|
Hi there,
Here's what I am trying to do.
Open a TCP/IP Connection (This works fine)
Close connection (this works fine)
Upon trying to then re-open the connection with the same or New IP Address it fails.
My Connect code:
Dim Lostconnection As MsgBoxResult
Try
client.Connect(TextBox1.Text, 7655)
Button21.BackColor = Color.Green
Catch
Button22.BackColor = Color.Red
client.Close()
Lostconnection = MsgBox("Program Not Connected... Retry?", MsgBoxStyle.YesNo)
If Lostconnection = MsgBoxResult.No Then
Me.Close()
End If
End Try
Button22.BackColor = System.Windows.Forms.Button.DefaultBackColor
My Disconnect Code:
Dim client As New Net.Sockets.TcpClient()
client.Close()
Button22.BackColor = Color.Red
Button21.BackColor = System.Windows.Forms.Button.DefaultBackColor
|
|
|
|
|
First, if you do this:
Dim client As New Net.Sockets.TcpClient()
client.Close()
You aren't going to achieve much as you have just closed a client that was never opened. the client in your connect code is difference to the client in your disconnect code unless they are in the same function.
Something to keep in mind, you cannot do this:
Dim client as New Net.Sockets.TcpClient()
client.Connect("www.google.com", 50)
client.Close()
client.Connect("www.google.com", 50) ' This will cause an error.
Close disposes the TcpClient, so it can no longer be used. You will have to create a new TcpClient to reconnect.
If this isn't your problem, try providing more detail.
And now some more basic tips:
Make sure the code you give us is the code you are actually using.
Wrap your code in <pre> tags to make them easier to read.
Make sure you provide full details of your problem, including what exceptions you get.
This might help you get more answers.
|
|
|
|
|
Hi Tony,
First off thanks for replying.
Yep, your first point was me just really copying and pasting stuff everywhere. I have removed it! Sorry for posting that.
You said: "Wrap your code in pre tags to make them easier to read"
how do I do that???
And your explination actually helped me. I don't actually want to close the connection do I!! Just catch the error, then as my message box states try again! - and when i do try again the connection is open so i can type the correct IP Address and off i go! - Cheers!
modified on Thursday, March 25, 2010 8:52 AM
|
|
|
|
|
The easiest way to achieve that is to press the code block item on the toolbar above the edit box, which gives you this:
<pre></pre>
Make sure you have 'Use HTML in this post' enabled, otherwise the < and > will be escaped.
(You may wish to edit your last post and unselect that option to remove the silly formatting that has happened )
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
