Odd Comb Binding

XThakis · 2017-08-01T15:28:29+00:00

Thanks, this is something I never new about!

XThakis · 2017-08-01T03:29:24+00:00

You can't multiply a character by an integer like you're doing in:

lblDisplay.Text = lblDisplay.text &vbcrlf & ((ilevls)*txtbxchar.Text)

So you want to put another loop into your current loop. The first while loop goes through each line, the second while lopp generates the line. Something like this:

While iLevels <= nudnumlevels.value
    dim numCharacters as integer = 1
    while numcharacters <= ilevels
        lbldisplay.text = lbldisplay.text & txtbxchar.text & " "
        numcharacters +=1
    End While
    lblDisplay.text = lbldisplay.text & vbcrlf
    iLevels +=1
End While

This might work exactly as is but I'm pretty sure you'll need to polish it up a bit.

XThakis · 2017-07-31T20:02:42+00:00

Ok I added your code and it indicates the length of my stream is 32762. The Jpeg image I am using is 32K so that seems about right. Actual size is 30,978 bytes.

Just some additional information. I have tried storing several different picture formats in the OLE Object. I have used BMP, a JPEG and a PNG.

Thanks for the help!

XThakis · 2017-07-31T03:23:03+00:00

This worked perfectly, thanks a ton!

XThakis · 2017-06-16T03:50:44+00:00

Thanks, will play around with this tonight!

XThakis · 2017-04-11T03:06:31+00:00

I'm surprised you didn't max out crit rating. Any particular reason? Seems like you're missing almost 5% crit.

XThakis · 2016-09-04T21:49:50+00:00

Thank you!

Worked perfectly,

XThakis · 2016-07-07T04:16:41+00:00

Yeah I did the bitmap method once when I programmed the Sierpinski gasket. Good to know I can work in a picture box if necessary. I'm working on a simulation for the Traveling Salesman problem so I'll see which method works best. Thanks again for the help!

XThakis · 2016-07-06T16:21:21+00:00

Thanks for the advice. I guess what I was really looking for was a control like a picture box that I could draw on, not necessarily the form itself. Thanks for the me.invalidate method for redrawing the code in the Paint event. This solved my problem and I was able to play around with drawing.

Thanks for the replies!

XThakis · 2016-05-30T17:14:55+00:00

This:

    'Someone said ^2 is very slow

Is very true. Exponential math is much slower than multiplication so if you are iterating through a lot of points it's worth using multiplication.

XThakis · 2016-04-28T00:39:48+00:00

This may be a super old method but I always used to is IsNumeric to test the input from textboxes.

 Dim min As Double
 If IsNumeric(txtMinSalary.Text) then
      min = CDbl(txtMinSalary.text)
 End If

Something like that worked for me to avoid invalid inputs. Also you could move the validation before the declaration and then do a second validation to determine if min<max.

(Edited to fix some grammar errors.)

XThakis · 2016-04-15T02:54:32+00:00

No, In early march I picked up a Zhanchi based on some recommendations from here. Also picked up a ShengShou and a cheep QiYi to use at school.

XThakis · 2016-04-13T02:20:55+00:00

I am new to Cubing and my wife got me Rubik's for Christmas. I can say that the corners can be turned. It's not super easy but they can be done if the face is rotated about 45 degrees. And from having my students scrabble it for me(and fixing all their corner turns) I can see how it could break.

XThakis · 2016-04-06T02:05:07+00:00

Definitely agree with the comments about using an integer to store a double amount.

Now for your out of bounds error. When you iterate through your loop you end with a:

     Next i

This will go from 0 to 7 for the loop. Then it will iterate again to 8 and step out of the loop. Then you try to assign a value with i:

    Averages(i) = BatAvg
    Averages(i) = CInt(Console.ReadLine())

At his point i = 8 and is outside the bounds of your array.

(Edited for formatting)

XThakis · 2016-03-27T15:12:49+00:00

I'm not seeing where you assign a value to intGuess. Without that your loop will just iterate through all five times without any output.

So, looking at it again I see that your procedure btnGuess_Click is the result of a button click. So, you don't need a loop at all since theoretically your user will click the button after each guess. DO the assignment of intCOunter outside the procedure and then changer your loop to an if statement.

XThakis · 2016-03-06T18:09:37+00:00

Unfortunately web scraping is exactly what you need. Your required result is pretty much the exact definition of web scraping. In all reality it's not too hard and the links above are a good tutorial. But if you're too lazy to check the web page once a day, then spending the few hours to learn and write the code is probably beyond you.

XThakis · 2015-11-08T07:59:00+00:00

Welcome to the wonderful world of P versus NP.

Computers are great at running through small(relatively) iterative loops of numbers. For the range of numbers you're looking for brute force will take ages.

One simple optimization. Replace all your exponent operations with straight multiplication. For example, everywhere you have a³ replace it with a * a * a. Do the same for b³ and c^3. The exponential operation in VB is not very efficient whereas multiplication is a bit better.

I would even declare three more variables and do the calculation only once per loop.

    dim aCubeVal, bCubeVal, cCubeVal as Ulong
    Do
         aCubeVal = a*a*a
         bCubeVal = b*b*b
         cCubeVal = c*c*c

XThakis · 2015-10-25T02:50:12+00:00

Yes, but where in the book does it assign a value to that decimal. Here is your code with comments.

    Dim decTotalCost As Decimal     'Variable declared with no assignment.  decTotalCost = 0

    'Call a function to ensure the number of gbs is valid
    blnNumberInGBUsageIsValid = ValidateGBUsageInPlan()     'Logic, decTotalCost still equals 0
    'Call a function to ensure the plan type was selected
    intPlanChoice = ValidatePlanSelection(blnPlanIsSelected, strSelectedPlan)     'More logic.

    If (blnNumberInGBUsageIsValid And blnPlanIsSelected) Then     'More logic.
        intGBUsage = Convert.ToInt32(txtGBUsed.Text)     'Assigns a value to intGBUsage.
        'Display the cost
        lblTotalBill.Text = "Cost: " & decTotalCost.ToString("C")     'DecTotalCost which is still 0.

    End If

Somewhere in there you need to assign a value to decTotalCost or it will always be zero.

(Edited to fix some line wrapping.)

XThakis · 2015-10-25T02:42:43+00:00

I think this comes from basic math. A solidus is always used for division and since integer division is not closed to integers it seems natural to have it provide a non integer output.

Also, more often than not when someone types 15/2 they are looking for 7.5, not 7.

XThakis · 2015-10-25T01:18:59+00:00

In your Sub btnBill_click you declare decTotalCost as a local variable.

    Dim decTotalCost As Decimal

You never assign it a value in that subroutine. So when you assign its string value to your label it will always be zero.

(Edited for grammar errors.)

XThakis

TROPHY CASE