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]
View 2 RepliesI 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 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
[CODE]....
I'm creating a VB app that uses the Infragistics UltraGrid to display data from 2 JD Edwards files. Before the data is displayed, first I need to convert 2 date fields that are in JD Edwards Julian date format (i.e., 111158 for 6/07/11....the 158th day of this year) to mmddyy format.
MCTS: Web Apps, MCTS: Windows Apps, MCTS: SQL Server 2005, MCP: Windows XP Professional, A+, Network+, Linux+, Security+, Master CIW Designer, SCJP
I just finished this application where you enter a five-digit credit card number, with the fifth digit being the check digit. everything seems to work except, I can't seem to get it to determine that any number is "valid". Every 5-digit combination that I enter returns "The credit card number is not valid". Im using visual basic 2008 express
[Code]....
In the function it returns the no in one digit .I want it to always return 2 digit number.Like if it is 0, it should return 00.
Public Function GetHexColor(colorObj As System.Drawing.Color) As String
Return Hex(colorObj.R) & Hex(colorObj.G) & Hex(colorObj.B)
End Function
I have a strange issue here. I am working with an access DB that has a field called CompleteDate. Here is my problem; There is a leading 1 in the dates. For instance, today's date format should be 110308 however, in the database the format is 1110308. How can I strip off that leading 1? Can I do this in access or, must I deal with this in my VB program?
View 7 RepliesHow to I convert/format a textbox entry 0215 to either 02/15 or 02/15/2012
View 3 RepliesMy 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'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.
I'm currently working with a client's VB.Net code, which was developed for them by a small development shop a few years ago and which they purchased and have been maintaining and uprgrading since. This client's primary developer is out on indefinite (likely permanent) medical leave and I'm now filling in until they bring in a full timer (as I'm a contractor here). My current task is to add some functionality to a the VB.Net code they purchased. I'm finding practices and techniques in the code that absolutely baffle me and can't make the code do what I want. I'm starting to wonder if it's me and was hoping to get some thoughts on the code I've encountered.
For example: Setting a variable to accept the result of a function by calling the function with many parameters, clearing the parameters in the function, setting them to some value, calling another function with those new values, then never using the values returned by the functions. I'll add a code snippet in the first comment since this is already getting long.
I'm supposed to write a program that validates an inputted ten digit ISBN number using the check-digit at the end to ensure that the sum is a multiple of eleven. Before calculating this and detecting if the entered number is indeed a valid ISBN, we're required to check the first nine digits and see if they are indeed integers. After this the tenth digit is checked to see if it is "X" (for ten) or 0-9.
With the code I've written it keeps returning false for whether or not the ISBN is valid, even with valid numbers. I feel like its something to do with the hyphens; have I misused the replace function?I'm a little lost on how to make my code work, but I'm fairly certain my logic is okay so far.
[Code]...
I am working on a check digit program and I am having some trouble finding the best path to take. The program requires 5 digits (numbers). I am calling them
num1
num2
num3
num4
num5
My ultimate goal is to use this equation:
num5 = num1 + (num2 *2) + num3 + (num4*2) - but I use the second digit of the resulting number.
Example: number 12346 - would be "correct!"
12345 - would be "wrong!"
1 + (2*2=4) + 3 + (4*2=8) = 16 so the correct would be 12346 When the user puts in the numbers on the UI I will be returning a comment in a text box on the UI.Which direction should I start?
I would like to covert a 4 digit hexadecimal code point to UTF8.
For example:
4e00 to δΈ€
Dim s1 As String = Char.ConvertFromUtf32(&H28E02)
I don't think they are built for my 4 digit code though.
I'm making a project that randomly picks a number from an array, but if it picks a number less than 10 then the number is a single instead of a double.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim N(2) As Integer
N(0) = "0" & 1
N(1) = "0" & 2
N(2) = "0" & 3
[Code]...
Ok, I have like this:
Public basic_numbers(10) As Integer
basic_numbers(0) = 0
basic_numbers(1) = 1
[code].....
When retrieving rows from an SQL Server table I use the following code select mydate, Customer, Details from sales where mydatetime >= '" & format (somedate, "MMM d, yyyy h:mm:ss tt") & "'"This works fine unless the clients computers windows Region setting is 'English (New Zealand)'The default time format in windows Region and Language for New Zealand is [code]On computers with this region setting I get an SQL Error 'Conversion failed when converting date and/or time from character string'..If I manually select the other option for AM symbol, PM symbol in Region and Language i.e AM PM the all works fine again..What format string can I use so that above code always works, even if the Region time format is a.m. / p.m.
View 1 RepliesThis is my code:
Private Sub cmdHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHitung.Click
Dim tempBASIC As String
If strChrDec = "." Then
strFormatDec = "#,##0.00;(#,##0.00)"
formatSAVE = "############0.#0"
[Code] .....
Example: I input 150000, But result 60.69364. Not I want. I want to 60.693,64.
I'm trying to create a function that would return a PDF document. Something like this:
Function GetPDF(ByVal DirectoryPath as String) as PDF
Return DirectoryPath
End Function
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
[Code]....
I'm new to coding and i need to make a program that takes 3 percentages(numbers) and returns an average of the grades in letter format(A,B,C). This is what I have so far:[code]......
View 2 RepliesI'm strugling the whole day with the next JSON string
{
"0":{"link":"afbeeldingenplaatje1.jpg"},
"1":{"link":"afbeeldingenplaatje2.jpg"},
"2":{"link":"afbeeldingenplaatje3.jpg"}
}
How can i deserialize this? What's wrong with the next code (vb.net)
Public Class DataString
Private m_link As String
Public Property link() As String
Get
[CODE]...
It returns always an empty result.
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 have to create dinamcly a Table ( not a DataTable) and I need to write the Functions in other class... so I need to create a function that Returns a Table to make possible I just atribuite the Table to my <asp:Table> control.
[Code]...
How can i format a decimal result to a string without the .00 suffix?
View 7 RepliesI have the following code:
FormatNumber(.Item("Class_RAmt").ToString(), 2)
It able to convert the string to number, but the result is 1,200.00. How can I remove the comma within the number for example, 1200.00 instead of 1,200.00.
I need top create a function that gets the next integer in the sequence of 1 to 60. Each time the function is called, I need it to increment from what the last value was and return the next number as the result. It also cannot return the same integer in 2 consecutive calls. When the count gets to 60, the sequence needs to reset back to 1. I would like to function to have no parameters.
I have created a function that does this using the cache to store the last value that was returned, but I am worried that with concurrent calls to the function that it might not work as I expect and 2 calls could get the same integer.
Is cache blocking the correct method to use in this instance or is there something other method I am not thinking about?
Also, stuck using .Net 3.5 and this is a web application.
I just wrote this function based on using SyncLock. Any obvious problems with it that I don't see? I am using the Cache to save the last value that was returned.
Private Shared Function GetNextNumber() As Integer
Dim o As Integer
Dim r As Integer
[Code].....
I have a function that returns a bitmap meant to be used as background in a panel, and occasionally I'd have to call it to create a new background based on parameters
View 2 RepliesHow can I call individual parts of this function? I would like to call return Gallons and decPaintCostperRoom as individual entities with a single function.
[Code]...