I am calling the function below from an Excel spreadsheet and the conversion from hex to decimal using the VAL function in the "manufacturer" variable below is coming back with a negative value. The VBA edition is 6.5.
Public Function decMEID(ByVal sKey As String) As String
Dim manufacturer As String
Dim serial As String
[code].....
i want a button to perform a function of checking the last digit number in a field of a table in and add a digit to it and display it in a textbox.
View 1 RepliesI 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]....
I got most part correctly but the only part isnt working right is when the last 5th digit match the sum number at the last number.
Private Sub btnVerify_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnVerify.Click
Dim strCardNum As String
Dim strSumNum As String
[CODE]...
format number to hower many number on left of decimal and 1 decimal without rounding
View 2 RepliesI am wondering if this is a bug. Can't understand why would CType work this way...!
View 1 RepliesI'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 want to generate a serial number in this format: INDDMMYY000001, INDDMMYY000002, INDDMMYY000003, ... I can generate INDDMMYY using following code: lblNoSiri.Text = "IN" + Date.Now.ToString("ddMMyy") However, I don't know how to generate the last six digit number. I only can generate number without zero in front of it. How to create the number with fix number of digit?
View 4 RepliesI need a function which will Round a number UP to the specified decimal precision, exactly the same as how Excel's RoundUp function works:
Roundup(dblVal, intDecPlaces)
So I need the following:
Roundup(0.896523, 4)
would return
0.8966
However, everything i've tried/found simply rounds to the nearest whole integer, or returns a normal rounded value, hence the above would return
0.8965
I've tried the following:
Math.Round(dblval, intPrecision, midpointrounding.awayfromzero)
' and
Math.Round(dblval, intPrecision, midpointrounding.toeven)
And even custom functions, such as:
Public Function RoundUp(ByVal varValue As Object, _
ByVal iNum As Integer) As Double
'ignore the data types here, I was playing to see 'if changing any of the data types would swing 'the results (knowing full well they wouldnt make 'a difference, thats how fed up with this I am!)
Dim lNum As Long, xVal As Double, xVar As Object
xVar = Fix(varValue)
[CODE]...
I've even looked at converting this to a string, looking at the Xth decimal place, and incrementing it up by 1, then converting it back to a double, while this works (sort of) it seems to be a very roughshod way of doing it, and I'd rather do it mathematically than with lots of data conversion.
I want to convert numbers from 0 to 15 like that
[Code]...
Problem is that when we convert 2 to binary number it gives only 10 in binary, but i want to convert 2 to 4 bit binary number 0010.
What is the cleanest, most readable way to String.Format a decimal with the following criteria
start with a sign symbol (+ or -)
a fixed number of fraction digits
no decimal separator
right aligned
pre-padded with "0"'s
im having trouble understanding this question for a homework assignment. I need to write the PSEUDOCODE for the following scenario, but i got no idea about how to convert a hexadecimal number to a decimal number..You are required to input a two digit hexadecimal number eg. 3f (digits can be entered separately) and calculate the equivalent decimal number. (note the decimal number will be between 0 and 255) . output the decimal number
View 1 RepliesTo allow a textbox to contain "15" or 15.5" as numbers nothing else...I figured that ^\d+$ works for numbers but can't get decimals to work also?
View 1 RepliesI'm using Visual Studio and table adapters using an Access DB as the backend. I need the minimum 4 digit value. I want to get next available 4 or 5 digit number. And this will change depending upon the users request. Currently I use a table adabpter query. But how would I write a query. I suppose I could do a long iterative loop through all values until I see a 4 digit.But I'm trying to think of something more efficient.
Function GetNextAvailableNumber(NumofDigits) as Long
'SQL Code Here ----
'Query Number Table
[code]....
How I could retrieve the single digits of a 4 digit number to manipulate them in my own way to encrypt the 4 digit number to my liking. Here's what I have to do; take a 4 digit number, add 7 to each digittaking the result and dividing by 10 leaving only the remainder. Then swap the first digit with the third, and swap the second with the fourth digit.
View 9 RepliesI found a good method of getting the next 4 digit number. How to find next free unique 4-digit number..But in my case I want to get next available 4 or 5 digit number.And this will change depending upon the users request. Theses number are not a key ID columns, but they are essential to the tagging structure for the business purpose. Currently I use a table adabpter query. But how would I write a query. I suppose I could do a long iterative loop through all values until I see a 4 digit.[code]Numbers is the List of All available number from 0 to 99999, basically what's available to use. LineList is my final master table where I keep the long and all the relevant other business information.
View 2 RepliesI'd like to know how to get VB to display the individual digits of a three digit number when I click a button. Sorry if this seems simple, or if it's in the wrong place.
View 8 Repliesi have a negative number and i want to change it to its positive
eg -14 to 14
I need to round like this:
12 -> 10
152 -> 200
1538 -> 2000
25000 -> 30000
etc.
Twisting my head, but can't see how to make this. Must work for any n number of digits. Anyone got an elegant method for it?
I have to do one project like : 1.Complete the code to convert a 3 digit number to Text (Number > 19) 2.Adding suitable conditional statements modify to code to support the whole range of 3 digit numbers.
View 3 RepliesIn 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 would like to know how to detect a two digit number within a string.
For example: how can I pull the number 42 from that string?
Can i add, subtract, times, divide 40 digit number to 40 digit number ... example:
dim a as double = 1111111111111111111111111111111111111
dim b as double = 1111111111111111111111111111111111111
dim c as double
[code]....
I need to check a value and make sure that it is not a negative number using a try catch statement I keep getting an error saying that I have to use a method.
Try
TotalCurrentBalance < 0
Catch ex As Exception
End Try
I wouldn't put a if statement would I? I am thinking that would defeat the purpose.
Is there a built-in function in .NET (VB) to convert a negative number into a positive, and vice-versa?I usually end up just using:NegNum = PosNu - (PosNum * 2)PosNum = NegNum- (NegNum * 2)
View 6 RepliesI'm having problem in my datagridview.I'm using vb 2008 and an access database. When I create a new record for my item the No column (primary key and autonumber in access) always shows a negative number.How can I make that a positive number and it should follow the numbering in the datagridview.
View 3 RepliesI have written a code that when the click the calculation the button a inputbox pop up and you enter in the income and then you enter in the expense. [code]...
View 11 RepliesI asked a question earlier about comparing numbers using the "And" comparison operator in If Statements and now I have been toying around with getting my head wrapped around bitwise operators. So I have written a very basic code that will allow me to see the conversion of any decimal number in binary format.[code]Notice here that I am using SByte as the paramerter - which should only contain 8 bits right? However, the message box that appears has 16 bits assigned to negative numbers.
View 1 RepliesI want to make a program that generates a 6 digit number for me by clicking a button. I can make a simple counter, but the nunmber I generate can only be used one. So , I need to store that number somehwere (access, xls, whatever) and then start the next count from the last number.
View 12 RepliesI want to be able to enter (type in) data into a combobox as well as picking from the list. In earlier VB there was AfterUpdate event so that I could enter in the data I wanted. Now I have tried Keypress, Enter, and others and they all want just one character or number. If I try to enter a two-digit number it doesn't wait.
View 16 Replies