I've got my text files read into an array.Which was step 1 .My code so far is:
Note: textSKU is just a text box. No event handler associated.
Private Sub BtnSeacrch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSeacrch.Click
Dim objCA As New System.IO.StreamReader(ofdCA.FileName)
System.IO.StreamReader(ofdWarehouse.FileName)[code]....
The message box is mostly just to test to see if it's finding the line. And the problem is it's returning -136.Which I'm pretty sure can't be a value in the array ( actually very sure, as I tested it just to be sure, and it says it's out of bounds).I know it's in the array, as when I change returnvalueCA to a...7 for example, it outputs the correct line from the .csv file.
Edit: Index was outside the bounds of the array. is what the debugger says, as it's trying to output the value of SKUSheet(-136)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"}
error 1: Optional parameters must specify a default value - error location "lastEl As object) As Long" - closing bracket is highlighted
Error 2: expression expected - error location "Optional lastEl As Variant) As Long" - where optional is highlighted.
Error 3: comma, ')', or a valid continuation expected - error location "strCycleIDarray As Variant" - where "as" is highlighted
Error 4: comma, ')', or a valid continuation expected - error location "strSearchCycleIDvalueArray As Variant" - where "as" is highlighted
Error 5: Ismissing is not declared and may not be accessible due to its protection level - error location "If IsMissing(lastEl) Then lastEl = UBound(strCycleIDarray)" - where "IsMissing" is Highlighted.
I dont have an idea where to start solving these errors and i cant debug this search as the errors are there.If you dont understand the errors in the format i have put them in just copy and paste the code into a windows form using a button as an activiator.
I'm using a binary search to return the index of a value in an array but on this occasion it return -2 when I'm expecting a positive 2 to be returned.
If cBudgetID.Contains(AdditionalCostBudgetID) Then Pos1 = cBudgetID.BinarySearch(AdditionalCostBudgetID) cCost.Item(Pos1) += AdditionalCost ElseIf AdditionalCostBudgetID <> 0 Then cBudgetID.Add(AdditionalCostBudgetID) cCost.Add(AdditionalCost) End If
So I discovered the .net array class has a built-in binarysearch method. Do I want to use this all the time (that is, when I meet the prerequisite that the array is sorted) or are there times when I would want to just iterate through the elements starting at 0 and incrementing until I find what I'm looking for? Is there an optimal size that recommends using one way or the other?
I have a windows app and I'm trying to cache images in memory. I have:-
[code]...
I think I have to sort the array to be able to use binarysearch.So I need to sort the arraylist on TileDetails.TileURL(if possible) and then binarysearch on it.
Originally i wanted to ask if it's faster to sort Integers than Strings.But i have answered this question myself and i'm suprised of the big difference.Why is sorting and BinarySearch Integers as much faster compared to Strings?
The (VB.Net) Test with 1.000.000 Int32/Strings:
Private Function CheckIntBinarySearch() As TimeSpan Dim watch As New System.Diagnostics.Stopwatch() Dim rnd As New Random(Date.Now.Millisecond) Dim intCol1 As New List(Of Int32)
[code]....
Consider having large collections of "String-Integers"("1","2","3",...). Would it even be better to parse them to integers before sorting and searching them? What is the cost of parsing Strings to integers?
I need to sort an array containing a list of words and search the same using binarysearch. For certain reasons, the word-list must always be sorted using the sorting-rules of "en-US" i.e. American Regional Settings. The code will run under various international Operating Systems and of course this will mean that the word-list will be sorted differently according to the local Regional Settings in use. One problem could arise on a computer/device running with Lithuanian Regional Settings. Why? Because the letter "Y" in most languages is sorted like X-Y-Z while in Lithuanian, the sort order is I-Y-J. This behavior would create havoc to my program.
[Code]...
However, in means of flexibility I believe Guffa's answer is the best one. Why? Let's use another example:In German, the letter Ö is sorted Ö-X-Z while in Swedish and Finnish, the order is X-Z-Ö. In Estonian the sort order is Z-Ö-X. Complicated, isn't it? Guffa's solution will let me force Swedish sorting-oder (changing CultureInfo) on a device running under German Regional settings. Using Comparer.DefaultInvariant with its association to English wouldn't help in this case, probably the letter Ö would end up with O. Therefore my vote will go to Guffa.
I have some code which gets child items for a menu via the GetChildren function which takes a list of menuData: Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
For Each menuData As MenuData In builtMenu If menuData.Children IsNot Nothing Then menuData.Children.AddRange(GetChildren(menuData)) End If Next
If I check if menudata.children isnot nothing, it always is nothing because the GetChildren function is yet to run (providing the child items, which do exist). If I remove this check and just have this code:
Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
For Each menuData As MenuData In builtMenu menuData.Children.AddRange(GetChildren(menuData)) Next
Then I am presented with a Object reference not set to an instance of an object error on menuData.Children.AddRange(GetChildren(menuData))
i have a datatable with column "prices" and i displeay the column values in a listbox and i sum all the values in this column and i display the sum in a label.text but when i delete one row in de listbox the sum returns a zero value.[code]
I am using Sql Server 2005 and Vb Studios 2010 on a .net Framework of 4.0. I am trying to get the exact number of rows from a database and populate a datatable then have a label show the number of rows.
Dim comm2 = db.selectcommand(db.conn, "*", "Tablename", " columnname = '" & Session(sessionvariable) & "' AND columnname = 'Unread '") Dim sqlda2 As New SqlDataAdapter(comm2)
I have to cut down the amount of code in my blackjack program so im trying to use a function however the function always returns a value of 0 I have tried putting in "return cardvalue" but it still comes out as 0 I dont know where I went wrong or if the code im using can even be used as a function.
Function Values(ByVal deal() As Integer, ByVal counter As Integer, ByVal cardvalue As Integer) As Integer If deal(counter) = 1 Or deal(counter) = 2 Or deal(counter) = 3 Or deal(counter) = 4 Then
as a workaround for the Locale bug in Office Interop I wanted to use VSTO but if I call
app.ActiveWorkbook.GetVstoObject()
then it returns nothing. I'm working from a .NET 2.0 Visual Basic Application project. This is not an add in or a special VSTO project. I have added the required Imports and References.
Dim app As New Excel.Application app.Caption = "Rapport" app.Visible = True app.Workbooks.Add() Dim tmp As Object = app.ActiveWorkbook.VBProject Dim book As Workbook = app.ActiveWorkbook.GetVstoObject() 'Returns Nothing
This is a school project and it needs to be finished by the end of next week
have a look at this code Dim colors() As KnownColor = CType(System.Enum.GetValues(GetType(KnownColor)), KnownColor()) Since CType is a function that returns DataType ,But here as in the code it seems that CType() is returning array having values that is assigned to color() array. How this is happening?
I've been having a problem with Math.Log in a function I'm trying to write. When working with variables, it always returns 0. Here's the line I'm trying to run:
Recently (I have no idea when) App.Path in VB6 started to return a URI rather than an absolute path for the location. Instead of returning something like "C:program filesmyapplication it has begun returning "\sacoc$program filesmyapplication"Has anyone else noticed this?
It breaks a whole crap-load of my code.It seems like MS, in their infinite wisdom, have decided there is some security breach with the way it was returned before - just guessing.
I want to get the row count of my datagridview. I currently use this code below. But the RowCount value is &H7. I have 7 rows displayed in the datagridview. The code below seems to work, but I don't understand what &H7 means. Does it have something to do with Hexadecimals?
' tell user if no results are available to update If dgv.RowCount < 1 Then MsgBox("There are no results available to set Ready.", MsgBoxStyle.Information) Return "Failed"
This returns "ţ" when it should be "þ" However, Asc("ţ") returns 116. This: Asc(Chr(254)) returns 116.Why would Asc() and Chr() be different?I checked and the 'wide' functions do work correctly: ascw(chrw(254)) = 254
On the publish tab of My Project the correct current version is there, 1.1.0.0 and in Programs and Features under Control Panel it shows 1.1.0.0 but when I reference Application.ProductVersion I get 1.0.0.0.
Im trying to make a web service in VB.net is their a way that i can return the results that i get from LINQ. ie "return objreturnLINQResults" I have tryed to set my Public Function GetAlarmsByGUIS(ByVal DeptGUID As String, ByVal IdNumber As String) As Linq.DataContext . i just keep getting errors.
Public Function GetAlarmsByGUIS(ByVal DeptGUID As String, ByVal IdNumber As String) As Linq.DataContext Dim lqAlarms As New linqAlarmDumpDataContext
I have a WPF application that uses a third-party library to perform a specific task; this library, in one of its methods, executes the statement Assembly.GetEntryAssembly(). If I run the WPF application on debug (by running a .Net exe for testing) the library works properly and Assembly.GetEntryAssembly() returns a reference to the assembly of the executable, but in production I have a different situation that causes me some problems.
One of our technicians asked my to write a small library file in which he would pass a filename and an integer. The library would load the text file and find the integer in the text file referenced by the file name and return a string back to his program. He is working in a third party application that uses VB as its scripting language.So, not wanting to worry about the .net install on some of the older machines that he has his equipment installed on I decided to take a crack at C++ (VS 2010). I am doing applications development in C# and the last time I compiled any C++ code was in VS 6, but I though how hard can it be? Well I am typing here so things have taken a decidedly wrong turn. I started out with the C++ Side.
I wrote a vb program that would prompt the user to enter a number and then enter the exponent value they wanted the number raised to. When they clicked button 3 it did the calculation. everything worked perfectly.
Now I need to change the program. I must create a function in a module and then call that function from button3 click event. I have tried several different ways and even though it seems to "work", it keeps returning an incorrect value![code]...
I am trying to create an application for a wire company that sells spools of wire for $100 each. The normal delivery charge is $10 per spool. Rush delivery costs $15 per spool. The user should enter the number of spools ordered in a text box, and check Rush Delivery box if rush delivery is desired. When the Calculate Total button is clicked, an input box should appear asking the user to enter the number of spools currently in stock. If the user has ordered more spools than are in stock, a portion of the order is back-ordered. For example, if the user orders 200 spools and there are only 150 spools in stock, then 150 spools are ready to ship and 50 spools are back-ordered.
Attached is the code with comments on what each function is supposed to do. I dont know why but the form always returns zero.
'Declare variables
Public intNumberofSpools As Integer Public intBackOrder As Integer
In the following block of code always returns zero for the CPU usage. However, if I run it through Visual Studio in debugging mode, do a "Quick watch" on the variable "pcCPUCounter", add ".NextValue()" at the top, and tell it to reevaluate, that returns the varying percentage (eg, 5%, 71%, 16%, etc etc) as the processor utilization fluctuates.
Why would the code always print out zero, but the quick watch doesn't?
Private Sub UpdateCPUUsage(ByVal strSelectedServer As String) 'Performance items come Performance Monitor: perfmon.msc. 'The right-click on columns at bottom and select "add counter" to see list.
