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
I am trying to format a Function Code so that it returns a 4 digit result no matter the entry by the user (i.e. they enter 540, stores 0540 in the database). While looking online, I've found the format function, but when I use it, it returns 540, regardless if I enter 540 or 0540. [Code]
My code looks very similar to this post Read bytes from NetworkStream (Hangs), which I copied below. ( I realize this is c# - I need a vb solution)
[Code]...
My issue lies in this:
I have a form that takes user input on which tif file(s) to find (which ends up being the getBytes(message) ). When one does this, it always returns one result - the first tif file that fits the criteria, However, I know in certain instances I should recieve more than one match.
Then I send the results to a picturebox and should be able to scroll through results (which this part works fine)I've tried a few ways to get multiple results, but maybe I'm missing the obvious? My best guess is using the asyncronous beginread/write.I've attempted using a for loop but I end up getting a bunch of the same tif files as a result..
I am working on a project that requires me to hop into to separate DB's. So I have figured that I need to have multiple functions inside of my VB page. The only problem I am having,is I am not to sure how to get this all accomplished. So far I have figured out the overall structure, just need to implement that structure.
Here is my idea: The main Function would call two other functions. We can Call them Sub Function 1 and Sub Function 2. So, the main Function takes the saved sessions information for the E-mail address and dumps in into Sub Function 1. It needs to open up a new connection to the db/stored procedure and RUN the following procedure and then return the result. Here is the stored procedure and what I think is correct.
CREATE PROCEDURE WEB_User (@EMAIL_ADDRESS varchar(80) = [EMAIL_ADDRESS]) AS SELECT MEMBER_NUMBER FROM WEB_LOGIN WHERE EMAIL_ADDRESS = @EMAIL_ADDRESS
So my question is, what is the function suppose to look like? how do I send the session information to the procedure? and finally, how do I return the stored procedure results and push back into the main function so it can be carried into sub function 2?
I've created a custom MessageBox (a Form), that has buttons Yes and No. There is a function popUp() to show the MessageBox. I would call the MsgBox in a parent as follows: CustomMessageBox.popUp()
Now I want the message box to return a value: Dim a as Intger = CustomMessageBox.popUp() But this should only return once the user clicks a button in the message box.
My popup sub: Dim thread As New Threading.Thread(AddressOf GetResult) Public Function PopUp(Optional ByVal ErrorMessage As String = "", Optional ByVal Title As String = "", Optional ByVal ButtonType As ButtonType = ButtonType.OK, Optional ByVal MessageType As MessageType = MessageType.None) [Code] ..... gotResult is a Boolean = false. It the user clicks a button gotResult is changed to true. result is a integer containing the number of the button clicked.
When I run this code, the result is returned, even if the user doesn't click a button. I understand why, because the main thread of the form is not "paused" while the user has not clicked a button. How can I pause the message box itself, until a button was clicked? I've tried this:
Public Function PopUp(Optional ByVal ErrorMessage As String = "", Optional ByVal Title As String = "", Optional ByVal ButtonType As ButtonType = ButtonType.OK, Optional ByVal MessageType As MessageType = MessageType.None) [Code] .....
But now the whole message box is captured in a loop and the message box is like disabled, because it waits for the loop to end, so the user can't click anything.
I have a simple vb.net application. When I go to bindebugprogram.exe and double click the program runs perfect. The same program will not execute using task scheduler. When I create a scheduled task and click 'run' it just pops up a console window for a second, closes. Additionally, this same program used to run with task scheduler. One day, it just stopped working.
ps: I have this program code managed in svn so I can safely say that the code has not changed.
UInt32 a; int k = 0; a = 0x9E3779B9; a += (UInt32)(url[k + 0] + (url[k + 1] << 8) + (url[k + 2] << 16) + (url[k + 3] << 24));
After above code is ran, "a" contains "228452386" But the following same code in VB.Net results in "Arithmetic operation resulted in an overflow". Basically the last statement is returning value "1868983913" so the runtime error is generated.
Dim a As UInt32 Dim k As Integer = 0 a = &H9E3779B9UI a += CUInt(AscW(url(k + 0)) + (AscW(url(k + 1)) << 8) + (AscW(url(k + 2)) << 16) + (AscW(url(k + 3)) << 24))
note the variable "url" in above code could be any string and it is same for both codes.
EDIT:When I run the following statements in both C# and VB.Net than they both return same value
Both statements return value "1868983913" for "url" "info:microsoft.com". But when I run complete statement with a += ..then VB.Net gives error while C# returns value "228452386".
As of right now I am getting no compile errors with my code, everything runs they way it is supposed to go except for one minor detail. I have a private function named MonthlyPayment() that does a calculation for a loan. The calculation runs as expected and I get the correct results by typing in Console.WriteLine(MonthlyPayment()) but it is not in currency format. To fix this I set FinPayment equal to MonthlyPayment [FinPayment = MonthlyPayment()] and typed in Console.WriteLine(FinPayment.ToString("C")), But this just gives me NaN as a result.
Here is my full code: ' The following code was created for McBride Financial Services to use to amoritize loans. ' This console code will calculate and display the monthly payment amount to fully amortize a loan. ' This console will prompt the user to input values for the loan amount, the term length, and the rate. Module Module1 'Declares strings used for user input values [Code] .....
this application for computing the gcd by using extended euclidean but it give me just the value for first iteration but i need the final values of x2 y2 a
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x1 As Integer Dim x2 As Integer Dim y1 As Integer
I have a stopwatch in my program. I start the stopwatch with the start button I created. When I stop it it gives the results of the time in a label that I have named labelTime. I have a Calculate button I have created. I also have a label I have named calcResult. I want to click the Calculate button and divide the stopwatch result (labelTime) by 60. I want the results of this calculation to be displayed in the label calcResult. I keep getting errors saying labelTime is a string value. I believe I will need my calcResult to be a Decimal.
I am using a background worker, it runs fine but it does not shows the result. i am using jmcilhinney source to work it out.. have a look.
VB Imports System.ComponentModelImports System.Text.RegularExpressionsImports System.NetImports System.IO Public Class WorkDialogue Private _result As Long = 0L Public ReadOnly Property Result() As Long Get Return Me._result End Get End Property Private Sub
[CODE]...
And the button codding in other form:
VB Using dialogue As New WorkDialogue dialogue.ShowDialog()TextBox2.Text = dialogue.Result.ToString() End Using
add a code to handle the TextChanged event of my Textboxes to clear the Result box.
Private Sub btnCalculate_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click txtResult.Text = txtRate.Text / 100 * txtAmount.Text * txtYears.Text End Sub
I am creating a application in VB.net. I've just managed to get a mssql connection going with the many people on this forum. I am now trying to establish a connection with Sybase server/db. Upon entering the username and password from my application front end, I get the following message:
I am creating a application in VB.net. I've just managed to get a mssql connection going with the rom many people on this forum. I am now trying to establish a connection with Sybase server/db. Upon entering the username and password from my application front end, I get the following message:
I am currently having a headache on how to solve this problem that i am facing. here is the situation: I have a combobox and a list box on the main form. The combobox will get the data from the ms access database. In the database, i have the details of a person's IC, Name and DOB say for eg on one entry I have D215311523C,SHAWN,13/04/1987 So now, my combobox on form load will show the list of dates in the database to allow the user to search base on the date itself by clicking on the selected date. So when the user clicks on the particular date say 13/04/1987, people in the database whose birthday is 13/04/1987 will be shown on the listbox.Meaning to say if i have 3 entries whose dates are the same 13/04/1987, 3 entries will appear. If there is only two entry, then two results will be shown. But now, when i do a single click on the date, one result will be shown. That is correct. But the problem is when i click on the same date again, three of the same results will be shown on the list box. that is it will display : 13/04/1987 13/04/1987 13/04/1987 which is not the case. Then it will show more duplicates of the same results if i click more times on the same date which should not be the case.
Dim n As Integer Dim numbers() As Integer Dim StartFrom As Integer Dim EndAt As Integer
I am using a datagrid in my where i am having four columns. In first column the parameter values are entered and in the second column measured value is entered and in third column the nominal value is entered.Inthe fourth column the result is displayed by subtracting the measured value and nominal values. I am doing this calculation in Datagrid cell validated event. What i want is,there will be many rows in the grid,when typing the value in the third column the corresponding result will be displayedin the rowof theresult column,save button will be displayed while the form loads,when the calculate part is completed that is there should not any cell of the resut column empty then i should enable the save butto.
I am encountering the following issue So i have a device that sends stuff at the serial port, i then parse it and put it into an array of bytes like that:
Dim HCI_Command_Rcvd_Byte() As Byte All good till here What i wanna do is make an array and put this result every time the serial port gives me a new result, for example:
[Code]...
Basically what i wanna do is let the port parse the messages, fill in the array with the result at an empty spot in this array and then i will have a separate thread that will look in into this array in each non empty space and after it looks into the non empty space it will use or discard the info and also mark this space as empty (after it checked)
Haveing troubles with an assignment. I am writting code that will allow user to enter a score and the program returns a grade based on the score entered. I can get it to work using "IF" statements but want to use code for ranges. My "IF" code is as follows.......
I just read about DataSet in VB.NET, it uses disconnected concept. My question is: if my apps has "List All" button that query data from 1 table in the database, and that table has "very very very" many rows, so my DataSet will be filled with those data and eat up memory. Can I limit the data that being put to the DataSet from that query? But I want to be able to retrieve the next data from the same query if the user want to see it?
For example: I have 1000 rows in my database, and i query all of them. But I just want 200 rows being inserted to my DataSet, but if the user want to see rows number 201 and so on, I want to be able to retrieve the next 200 rows, and so on. So it just like cutting those data into a group of 200 rows. Can I do this with the concept of "disconnected" of the DataSet?
I am working on a program using VB.Net 2010 which will enable me to setup groups of files & folders for back up with syncing capabilities etc. I have a concept program which is based on some sample code I found out in one of the VB.Net forums. I have modified it from a command line based program to a form based program. At the moment I consider this code to be a "concept" program which once I have the various copy/sync routines developed and debugged will be integrated in to another program I wrote for creating "Back Up" groups to automate the process. There are some 3rd party programs that do similar things that I want to do such as Microsofts Sync Toy, but none of them offer the grouping and exclusions options that I am going to program in to this backup/sync program.
So here is my problem, I have the included code taking two folders, a source and a destination, and copying everything from the source to the destination. It will skip over any unchanged files/folders and will delete anything found in the destination folder that is not found in the source folder and it will update all files in the destination folder that have a newer version in the source folder. In other words it will mirror image the source to the destination but will be smart enough not to copy unchanged items from the source to the destination thereby saving a lot of time. The sync part of the program is working fine, the displaying of the progress and results is not.
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 set up a method in vb.net and in xcode for encrypting a string using as far as i can tell the same parameters for an AES encryption.I've looked all over the place but cannot find information on whether they use the same encryption algorithm and settings.
this is the vb.net code:
Dim encryptAES As New AesCryptoServiceProvider() Dim encoding As New UTF8Encoding() Dim encryptor As ICryptoTransform encryptAES.Key = encoding.GetBytes("12345678901234567890123456789032") encryptAES.IV = encoding.GetBytes("1234567890123416") encryptAES.Mode = CipherMode.CBC
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]
