|
Im just amazed that someone can understand programming enought to obtain a timespan, but the process of getting an average has eluded them.
for future reference, an average is obtained by summing all values and dividing the result by the number of values.
ie, with 2 values
20
40
20+40 = 60
60/2 = 30
30 is the average of 20 & 40
So to get the average of your 2 timespan's add them together and divide by 2.
|
|
|
|
|
Its not like that dear we cannot divide a time span directly. I have written a function for getting timespan average now. You just need to pass a timespan value which will be the sum of two values.
Friend Function AverageTimeSpan(ByVal time_span As TimeSpan) As TimeSpan
Dim temp_op As Int32
Dim seconds As Int32
Dim milli_seconds As Int32
'1 Day = 86400 Seconds
'1 Hour = 3600 Seconds
'1 Minute = 60 Seconds
seconds = 0
If time_span.Days > 0 Then
temp_op = time_span.Days
seconds += temp_op * 86400
End If
If time_span.Hours > 0 Then
temp_op = time_span.Hours
seconds += temp_op * 3600
End If
If time_span.Minutes > 0 Then
temp_op = time_span.Minutes
seconds += temp_op * 60
End If
If time_span.Seconds > 0 Then
temp_op = time_span.Seconds
seconds += temp_op
End If
milli_seconds = 0
If seconds > 0 Then
If seconds Mod 2 = 0 Then
seconds = CInt(seconds / 2)
Else
milli_seconds = 500
seconds -= 1
seconds = CInt(seconds / 2)
End If
End If
If time_span.Milliseconds > 0 Then
temp_op = time_span.Milliseconds
temp_op = CInt(temp_op / 2)
milli_seconds += temp_op
End If
AverageTimeSpan = CalculateTimeSpan(seconds, milli_seconds)
End Function
Friend Function CalculateTimeSpan(ByVal seconds As Integer, ByVal milliseconds As Int32) As TimeSpan
Dim days As Int32
Dim hours As Int32
Dim minutes As Int32
Dim temp_time_span As TimeSpan
'1 Day = 86400 Seconds
'1 Hour = 3600 Seconds
'1 Minute = 60 Seconds
days = CInt(Math.Floor(seconds / 86400))
seconds = seconds Mod 86400
If seconds > 0 Then
hours = CInt(Math.Floor(seconds / 3600))
seconds = seconds Mod 3600
Else
hours = 0
End If
If seconds > 0 Then
minutes = CInt(Math.Floor(seconds / 60))
seconds = seconds Mod 60
Else
minutes = 0
seconds = 0
End If
temp_time_span = New TimeSpan(days, hours, minutes, seconds, milliseconds)
CalculateTimeSpan = temp_time_span
End Function
Thanks
Sumit Domyan
|
|
|
|
|
You are right that the operators are not overloaded. But instead of making such a huge calculation yourself you could just make use of the Ticks property:
<br />
Dim average As TimeSpan = TimeSpan.FromTicks((tt.Ticks + tt1.Ticks) / 2)<br />
|
|
|
|
|
Thanks a lot for your kind help.
Sumit Domyan
|
|
|
|
|
Did that method actually work?
|
|
|
|
|
 Can anyone help?
I am new to programming and have created a userform containing a mix of text boxes and several option boxes which are contained within frames. I have searched textbooks and the net but cannot find anything on how to show a users progress through the form when they use the tab key. At the moment, everything works fine while the user tabs through the textbox but there is nothing to indicate where the cursor is inside the frames.
Any help would be greatly appreciated.
Sorscha
|
|
|
|
|
Folks
Hope someone out there is able to shed light on something for me. . .
In a nutshell, I have a local server that has all the main info stored on it and once a day an extract is done from one of the tables to an XML file and it is FTP'd to an ISP. The data is then uploaded into SQL Server for querying over the internet. Thats the theroy. . .
Problem is that the XML file is now 75Mb and getting bigger (slowly but surely!). When the file is FTP'd to the ISP, a web service is kicked off to read the file and update the ISP SQL Server, but the connection times out and the data is never updated. The message returned is "connection forcibly closed by remote host"
First question - is this the ISP's timeout or on my own server? The ISP were happy enough to change their setting to be 30 minutes, but even still this isnt helping, probably due to the size of the file.
Second question - would it be better to have a stand alone app that updates the ISP SQL Server due to the time it takes to process this file?
and to my thrid question - being relativly new to all this, does anyone know of any good methods for updating data to SQL server using VB.NET? I've searched the web and can only find info on how to retrieve and create XML files, not upload them into SQLS erver. Tell a lie, I have found one site, but applying the code used in it, maxes out the asp worker process and it dosnt really get anywhere. Previously to get this working I was using a combination of SQL commands and ODBC connections (on the web service), and looping through the dataset updating fields.
I'm sure theres a better way and if anyone could point me in the direction I'd gladly go looksee. . .
Cheers!
|
|
|
|
|
This question really belongs in the ASP.NET and/or SQL Forums. It had nothing to do with VB.NET.
But, IMHO, I'd be looking at ways to break this massive file down into smaller chunks and process those.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
My VB.net code sends an email to three people. It seems the client doesn't receive the email but the other two people of my company who are CC'ed on the email receive it. The 'FROM' attribute in the email address is in the format "xyz.ab@qwe.com".
Is it possible that the client email security system is not accepting the xyz.ab@qwe.com type emails. Any clues??
Please let me know.
Thanks.
|
|
|
|
|
Since the other people are receiving the email, it would appear that the problem is with the sending server, not with your code. But, then again, you haven't shown us any of your code and only you could possibly know if the email address is even valid.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have 2 applications written in VB.NET for pocket pc 2003. Neither is complicated and each one runs perfectly. Problem is, I can't run them at the same time without getting a 'TypeLoadException' when starting the second one, regardless of which it is. I have set every reference in each project to "Local Copy" and it still happens - what's going on?
Thanks.
|
|
|
|
|
You might want to post this question in the Embedded/Mobile Forum. Unless they using a common assembly you've written, there's no reason for this unless there is something platform specific that's causing it.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
We have created a windows application using Visual Studio.Net 2002.
1. How can we force it to use .Net 1.1 ?
2. We modified the <requiredruntime> element in the app.config file but doesn't seem to help.
|
|
|
|
|
You can't. An app compiled on .NET 1.0 will only target the 1.0 Framework. A .NET 1.1 app can target either, so long as it doesn't use any functionality specific to .NET 1.1.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I think he's saying he wants to hack his VS2002 IDE to use the 1.1 framework when it compiles.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
Hello,
Can anyone give me a sample code on how I could use the @@Error or any OUTPUT @param I have defined to fire off a msgbox based on its value?
Basically, when an insert or update happens, I'd like the user to know whether it was successful or it failed.
thx a lot
|
|
|
|
|
Have a look at MSDN.
Here[^]
and
Here[^]
Hey don't worry, I can handle it. I took something. I can see things no one else can see. Why are you dressed like that?
- Jack Burton
|
|
|
|
|
Hi, I'm working in VB.Net (2003) and have two Web Browser controls on a form. WebBrowser1 I point to a page with a list of links via
WebBrowser1.Navigate(urloflinks)
While WebBrowser1.Busy
Application.DoEvents()
End While
Then, using the DOM I pick out the links of interest, and navigate to them in the second browser like so:
For each lnk in WebBrowser1.Links
WebBrowser2.Navigate(lnk.href)
While WebBrowser2.Busy
Application.DoEvents()
End While
...Grab elements of interest here...
Next
This ALMOST works. The lnk.href contains the expected links, it cycles through the 30 or so that are on the page. But the Navigate only works to the first URL I point it to. The "Grab elements" grabs the elements from the first href each time. So I get 30 copies of the content of the first link's target.
How do I convince WebBrowser2 to move on to the new URL?
Carey Parks
(It isn't the danger that I worry about. It growing old and someday saying I wish I had done this thing or that.)
|
|
|
|
|
Hello all,
I am really struggling to create a drawing tool that is semi-transparent in visual basic 6. I want to create a sort of highlighting effect on top of another image.
So imagine a picture with text and graphics. I want to be able to select a yellow pen and draw over the image, but i need to be able to see through the pen. I want to create a sort of highlighter effect?
can anyone help? 
|
|
|
|
|
Hello,
[EDIT]Sorry about this, I thought it was in VB .Net and not VB6  . My answer is for VB .Net[/EDIT]
You will need to use Color.FromArgb.
Here's an example:
Dim pen As Drawing.Pen = New Drawing.Pen(Color.FromArgb(128, Color.Yellow))
I hope this helps,
Programmer2k4
My sig:
"The so-called 'Bugs' do not exist, they are merely features hidden by developers with message boxes that say 'An unhandled exception has occurred'." - Programmer2k4
"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright
I now use my CodeProject Blog!
|
|
|
|
|
For some reason, the CurrencyManager will not let me remove the last item in the collection. For example, if I have a CurrencyManager bound to a collection with a Form and Control bound to the CurrencyManager. I can remove any item from the CurrencyManager just fine with RemoveAt. However, if it is the last item , it simply ignores the call. It doesn't throw and error, it simply doesn't do anything. Count remains Same, Position remains 0. Even if I try calling CurrencyManagerVar.List.Clear(),
it ignores the call. Again, no error, just doesn't do anything.
But in my Another form it has worked fine with CurrencyManager.RemoveAt(CurrencyManger.Position)
Any Problem in my code?
My code is :
CurrencyManager.RemoveAt(CurrencyManager.Position)
I have also tried with
Dataview.Delete(CurrencyManager.Position)
And
Dataview.Delete(CurrencyManager.Count-1)
And also with
DatarowView = CurrencyManager.Current
DataTable.Remove(DatarowView.row)
above all are not working
rugfy
|
|
|
|
|
Hello,
I attach a textbox on the form. How can i check a text box for a valid email address. Means if user enters invalid address in a text box e.g (aaaa.com), then it will alert a message.
plz reply.
EsHbAn BaHaDuR
|
|
|
|
|
u can force user to enter valid email
u can force him to enter username(just username) in one textbox and domain(e.g. rediff, yahoo) in another
username (textbox here) @ domain(textbox here)
then u can cancatenate string as
dim str as string=textbox1.text+"@"+textbox2.text
i think this logic will work
all the best
|
|
|
|
|
That's a horrible solution considering it allows for all kinds of invalid characters in the address...
A better solution is to use a Regular Expression to do the validation. There are many examples of this all over the web.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Use a Regular Expression (RegEx class) to evaluate if the address is sytactically correct:
Public Function IsEmail(ByVal emailAddress As String) As Boolean
Dim strRegex As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}" & _
@"\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\" & _
@".)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
Dim re As New Regex(strRegex)
If re.IsMatch(emailAddress)
Return True;
Else
Return False
End Function
* Code snippet taken from this[^] Code Project article by Vasudevan Deepak Kumar.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
