I have run into a snag in my loop program. I was able to figure out the maxium sum and average of the sum. But am not able to figure out how to:
1) List the minimum value
2) List the sum of the numers divisible by 5.
These are the numbers.text displayed:
5
15
6
[Code].....
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
[code]....
I'm trying to check if when x is divisible by 5 then it makes y true.
basically: if x / 5 = "positive integer" then y = true.....
how do you check if a number is divisible by 5?
i need to count and add all numbers that are divisible by 2,3 and 5 inclusively ( the answer is 30, 60, 90 sum is 180). I tried running a loop and a true false isnumber. what am i doing wrong? all i have is two textboxes and a button Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[Code]...
For example, how would I get the # "220" from the number "229". Or the number "300" from "309"? The only way I've found to do this is using string stuff, but I'm afraid of the overhead for strings?
View 15 RepliesI was wondering what the fastest way is to check for divisibility in VB.NET.I tried the following two functions, but I feel as if there are more efficient techniques.
Function isDivisible(x As Integer, d As Integer) As Boolean
Return Math.floor(x / d) = x / d
End Function
Another one I came up with:
Function isDivisible(x As Integer, d As Integer) As Boolean
Dim v = x / d
Dim w As Integer = v
Return v = w
End Function
In my order program, I need to determine if the quantity ordered is full boxes.For example - all of our parts/products have different box quantities, and when a customer orders a certain quantity, I want it to do nothing when I type in the quantity IF the order quantity is even boxes, If it is not even boxes, I want a pop up form with three radio buttons to come up. The three radio buttons will have the next higher even box quantity, the next lower box quantity, and to keep the current quantity and apply a broken box charge. I have this pop-up form done except for determining if the order quantity is an even number of boxes, and then determining the next higher and next lower.
Just to clarify - let's say a customer orders a part that has 60 pieces per box. If he orders 180 pieces, nothing happens and you can continue to put the order on. If he orders 200 pieces, a pop-up form with 3 selections - "keep current quantity and apply broken box charge", or "Change Quantity to 240", or "Change Quantity to 180" comes up.
I was wondering what the fastest way is to check for divisibility in VB.NET.I tried the following two functions, but I feel as if there are more efficient techniques.Function isDivisible(x As Integer, d As Integer) As Boolean Return Math.floor(x / d) = x / d End Function
Another one I came up with:
[code]...
Is this a more practical way?
i just started to learn mod and i was having trouble with this. heres my code:
[Code]...
I'm converting some php code that tries to get a string to a length that is divisible by a certain number, say 10. To do so it appends "�" to the string to make up for the difference. In other words, it does something like:
dim difference as integer = 10 - (str.Length Mod 10)
for i as integer = 1 to difference
str += "�"
next
But the problem for me is that "�", which is the ascii code for the null character, is two strings and I don't believe that when VB loops over resultant string it will view that as one character. what could I append the string with to retain the expected behavior?
Makes the following statement about the code below:
**"The computer evaluates the loop condition in the Do...Loop statment to determine whether the loop instructions should be processed. In this case, the inputsales <> String.Empty condition compares the contenst of the input sales variable to the String.Empty value. As you know the String.Empty value represents a zero length, or empty, string if the inputsales variable is empty, the loop condition evaluates to True and the computer process the loop instructions. *If on the other hand the inputsales variable is not empty, the loop condition evaluates to false and the computer skips over the loop instructions.
Based on the code I think it is the opposite: ...that while the inputsales value is not empty it should evaluate to true and process the loop and if it is empty it should evaluate to false and skip the loop?
See below.
Option Explicit On
Option Strict On
Imports System.Globalization
[CODE]...
I'm attempting to invoke with parameters:[code]Value of '415' is not valid for 'Value'. 'Value' should be between 'minimum' and 'maximum'.Parameter name: Value..What does this mean? Is there a way around it?
View 2 RepliesHow would i set a minimum number of characters in textbox1 for a button to work. and if the person does not enter the minimum number of characters, a messagebox pops up sayin something like "need at least 5 characters!"
View 4 RepliesI need to use a trackbar as a scrollbar, but the problem is that the min value is at the bottom i need it to be 0 at the top and maxvalue at the bottom..
View 11 RepliesSqlServer Table1 has data as follows
Sno-------date
1------01/01/2010
8------01/01/2010
1------02/01/2010
[Code]....
1) I want to display the SMALLEST Date into textbox1 which is 01/01/2010
2) I want to display the BIGGEST Date into textbox2 which is 18/01/2010
3) I want to display the BIGGEST SNO against date 18/01/2010 into textbox3 which is 9
4) I want to display total records against date 18/01/2010 into textbox4 which is 3
I'm using a NumericUpDown control with a Minimum set to 10 (using for font size setting). When it is changed, it is bound to an Application setting and saved. On Form Load, I am attempting to set the value of the NumericUpDown control to the value stored in that setting (14 for example). No matter what though, it doesn't use the setting's value, it uses the value of the "Minimum" property of the NumericUpDown control.
View 10 RepliesI created a new User Control. I want to set a minimum Font for it. I put the code in the Font_Changed Event. Here it is.
Private Sub LoginControl_FontChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.FontChanged
Dim myFont As Font
[Code].....
It keeps telling me that myFont.Size is ReadOnly. How do I get around that?
I got a progressbar in my game (Hpbar) and a lots of time the value go under the Minimum Value and it crash... Any way to make it go back to minimum value 0
View 6 RepliesI was unable to get these instructions to work:When pasting in the code below, I get an message that says "Statement is not valid in a namespace".I am using .NET 3.5 for my program, and the code came from:aspx
Protected Overrides Function OnInitialize( _
ByVal commandLineArgs _
[code].....
I want to utilize the maximum paper area (A4 size sheet). Therefore I must get the minimum margins that specific printer can handle. I have more printers attached to th pc, so I can not hardcode these values. I have tried to set margins to zero, but that results in printing outside the page at right side and bottom:
PrintDocument1.DefaultPageSettings.Margins.Left = 0
PrintDocument1.DefaultPageSettings.Margins.Top = 0
PrintDocument1.DefaultPageSettings.Margins.Right = 0
PrintDocument1.DefaultPageSettings.Margins.Bottom = 0
So my question is: is it possible to read the selected printers minimum margins without have to open a PageSetupDialog, and therefore make it possible to utilize maximum printing area with code only?
SqlServer Table1 has data as follows
Sno-------date
1------01/01/2010
8------01/01/2010
1------02/01/2010
5------02/01/2010
2------18/01/2010
9------18/01/2010
3------18/01/2010
1------03/01/2010
6------03/01/2010
My questions are:
1) I want to display the SMALLEST Date into textbox1 which is 01/01/2010
2) I want to display the BIGGEST Date into textbox2 which is 18/01/2010
3) I want to display the BIGGEST SNO against date 18/01/2010 into textbox3 which is 9
4) I want to display total records against date 18/01/2010 into textbox4 which is 3
I'm using a vertical trackbar. I got it all set: minimum and maximum values, tickfrequency etc... and so on... everything works great. The only problem is that I would like to have the minimum value of the trackbar on the top. In horizontal trackabar you can choose the RightToLeft property to put the minimum value to the left or to the right, but how do I make it to put the minimum value on the top if I have it in vertical orientation? There has to be a way to somehow "flip" it... but how?
Here is a link to video on youtube, which show my problem. I want it to be the other way round - from top to bottom: [URL]
I've had a look around, once again and can't find how to set the minimum and maximum dates allowed to be selected on a calendar in ASP.net with VB.
I'm using Visual Studio 2010 and it's just a regular Calendar control at the moment...
At the moment I've seen things like:
Calendar1.DateMin = DateTime.Now
But Visual Basic doesn't seem to like that (maybe it's a C# thing?).
I am working on Visual Basic Express and I am supposed to calculate the change from a transaction.
View 1 Repliesi am having a problem in building up a VBcode for getting the minimum distance between a set of coordinate points. what actually i an trying is to find the minimum distance between one set of coordinate points(A(x1,y1),Bx2,y2),C(x3,y3),D(x4,y4),E(x5,y5)) with respect to another set of CO-ord points (i(x1,y1),j(x2,y2),k(x3,y3),l(x4,y4),m(x5,y5))..
ublic Function DoSearch(ByVal SearchCritera As Bracket, ByVal ListToSearchFrom As System.Collections.Generic.List(Of TRacksDefinitions.Racks.Bracket)) As System.Collections.Generic.List(Of TRacksDefinitions.Search.SearchBracket) Implements TRacksDefinitions.Search.ISearch.DoSearch
[code]....
the above is code which i have created till now and the next step is calculating the mindistance criteria..search criteria . rear points is the one we get frm solidworks and b.rearpoints is the one present in database we compare both of them find the one which is very similar to the one in database..
I'm trying to check whether values ar between a maximum and a minimum limit. I do that 21 times, and it works 20 times. In case of the 21. time VB tells me that 15 is less than 8. Here the relevant lines of
[Code]...
I have a list box on my form with 2 value - "2010" & "2011". When I change the value in the listbox it should set the minimum and maximum value of 2 datetimepickers. Each time I try to change the value I get an error - for example if I change the listbox from 2011 to 2010 I get the error:
"Value of '31/03/2011 00:00:00' is not valid for 'MaxDate'. 'MaxDate' must be greater than or equal to MinDate. Parameter name: MaxDate"
If ListBox1.SelectedIndex = "0" Then
DateTimePicker1.MaxDate = #3/31/2011#
DateTimePicker1.MinDate = #4/1/2010#
DateTimePicker2.MaxDate = #3/31/2011#
DateTimePicker2.MinDate = #4/1/2010#
End If
If ListBox1.SelectedIndex = "1" Then
DateTimePicker1.MaxDate = #3/31/2012#
DateTimePicker1.MinDate = #4/1/2011#
DateTimePicker2.MaxDate = #3/31/2012#
DateTimePicker2.MinDate = #4/1/2011#
End If
I would like to know how you make the minimum value of a vertical trackbar, be on the top?
[ATTACH]This is how it should look[/ATTACH]
I'm returning a list of database records;
Dim rsPublicChilds As System.Data.Linq.ISingleResult(Of spGetPublicObjectsResult) = Nothing
rsPublicChilds = dc.spGetPublicObject(slintLoginID, lintLanguageID, lintObjectID, lintObjectTypeID, lstrSEOURL, lstrValid)
I get an enumerable list of rsPublicChildObjects that I then convert to an array;
Dim larr_PublicChild As IEnumerable(Of spGetPublicObjectsResult) = rsPublicChilds.toArray()
That then gives me easy access to an array of the objects, so I can then do;
larr_publicchild(0).colMyValue
etc.etc
I'd like to get the minimum value of colMyValue (or any other property of the object that's been created for me) but I can't quite see how to get there.
I'm developing a custom control for numeric input that does some basic value range checking and have run into an issue when I set my property ValueMin equal to Long.MinValue. The IDE generates the following line in form1.designer.vb file that subsequently is flagged as generating an overflow.
Me.NumericInputBox1.ValueMin = CType(-9223372036854775808,Long)
I've done some checking using the Immediate Window with the following results.
?Long.MinValue
-9223372036854775808
?ctype(Long.MinValue, Long)
[Code].....
It appears that the CType function does not recognize the minimum Long value when the value is typed into the function, but works fine if it is passed Long.MinValue or a string with the value. It works fine for a typed in value equal to (Long.MinValue + 1). This problem only occurs with the Long (Int64) type.
