5-digit Credit Card Number With Fifth Digit As Check Digit
Apr 6, 2010
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
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.
I'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
i'm trying to calculate the check digit for a scan line. my problem is it needs to be weighted 2121, right to left. so what i have to do is take each character in the string and convert it to it's ASCII equivalent then multiply that by either a 2 or 1 depending on the position of the character. how can i alternate the 2 to a 1 after each character?
Dim Product As Integer Dim SumOfProducts As Integer
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.
I 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.
I'm trying to calculate the ISBN check digit of a number. First I have to remove all dashes from the ISBN; the rult is a 10-digit interger. For example 0-619-15934-0 becomes 0619159340. Then apply a weight factor to each of the first nine digits and sum the weighted numbers. AThe weight factor is the digit's position in the ISBN. THat is, the first digit is multiplied by 1, the second by 2, etc. Finnally I have to compute the check digit as the mod 11 modulus of this number for example. 209 mod 11 = 0 (i.e., 209/11 = 19, remainder 0_ This is the check digit. If the remainder is 10 ten the check digit is 0. Once the check digit has been calculated, it can be compared to the check digit given with an ISBN to determine if the ISBN is correct, or appended to a new ISBN as its check digit.[code]THe first problem arises when it tells me to make sure I enter all numbers when I should be deleting the dashes and then making sure that the contents are numeric. But even without it and without entering dashes the program still blows up.
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.
I 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.
I 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.
Ok, now I have another problem that I cant seem to figure out I now have the "Labour charge section" just incase the service requires one. which in alot of cases it does. So, I have a test box called text box 1, which I want to be able to insert "hours worked" which is a "digit" and then Have a fixed value, of five. Which the user can later change. The number from the box, and the user specified Hourly charge, must then be multiplied to create the total labour charge which will be inserted into a label view. So, my question first, is, how would the user be able to set the hourly charge and then not be able to change it by accident. I was thinking of having a tool strip with an options tab and then setting, and then you use that to fill the info, and have that hourly charge, hidden of the actuall form so that it cant be changed by mistake. Then, on to of that, how would you multiply these two numbers?
I'm looking for a way to take seven 2 digit numbers & combine them into one number to store in a database.The numbers represent hours for each day of the week & I only have one field to store them in. Then I need to be able to take the stored number & decode it back into the original seven numbers. Anyone have any clever ideas how I can do this?
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
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?
I am currently working on a flatfile based database, meaning: all database records are saved in single files in a data folder of my main application. So far everything works fine except for one thing:
Each record gets currently saved as file under its item name. This sometimes causes problems because some item names contain special characters which can't be used as a file name. What I would like is the following: Whenever I 'add a record' to my database it should be saved in a file with a 4 to 6 digit number as file name - to keep things simple I just ignore the file extension for now.
For example, I add a new record with the ITEM NAME Flower "Blue River" #1 - I won't be able to create the file because of the special characters in there! I would like that the program creates automatically a file in a 4 or 6 digit format (I haven't decided yet how many digits because I am not sure how many data records I will need one day, so, 4 digits will be enougth for now!), starting at 1000, so, the file I am creating is called 1000 + whatever extension I will give it later.
In addition, I would like that it checks for missing numbers in between when creating a 'new database record', meaning: I have already the folloing file names: 1000, 1001, 1002 and one day I delete the second record, so, 1001 would be available for the next new file / data record which I add to my database.
So far I've experimented with the GUID but the filenames I get out of it are just not in an 'eye pleasing' format. Would there be a way to give this GUID a special format or is there any other good way to accomplish that?
How can I get the datetimepicker value to have a 2 digit day EX. If it was November 6, 2009 the value is showing as 11/6/2009 but I need it to be 11/06/2009
I have a search that searches by date and Im using the datetimepicker. the date format in from my sql database is in MM/DD/YYYY not MM/D/YYYY So my results come up ok if the day is a 2 digit day normally (ex. 11/20/2009)but if its a single date (11/6/2009) I don't get any results because it is looking for 11/06/2009 I don't see how I can get the value of datetimepicker to be MM/DD/YYYY Even if i set the custom format to MM/dd/yyyy the value is showing up as MM/d/yyyy
I'm populating a checkedlistbox with this loop. Dim week As Integer For week = 1 To 51 Step 2 CheckedListBox1.Items.Add(week) Next And get this result 1 3 5 7 9 11 13 etc. This is how I want it 01 03 05 07 09 11 13 etc.