If Cells(29, 5) >= 1900 And Cells(29, 5) < 1950 Then
   Cells(4, 7) = Cells(4, 7) + 1
End If

If Cells(29, 5) >= 1960 And Cells(29, 5) < 2010 Then
    Cells(5, 7) = Cells(5, 7) + 1
End If

can be changed to:

If Cells(29, 5) >= 1840 And Cells(29, 5) < 1890 Then
    Cells(3, 7) = Cells(3, 7) + 1
ElseIf Cells(29, 5) >= 1900 And Cells(29, 5) < 1950 Then
    Cells(4, 7) = Cells(4, 7) + 1
ElseIf Cells(29, 5) >= 1960 And Cells(29, 5) < 2010 Then
    Cells(5, 7) = Cells(5, 7) + 1
End If

This would result in less work being done on each iteration, and it might allow for the simulation to run slightly faster. In general, it is ideal to minimize the amount of work being performed within a loop when possible.

Finally, I see that the student is writing a constant value to a cell to induce the worksheet to recalculate, thus allowing RANDBETWEEN to generate new values:

Cells(2, 3) = 10

The more explicit way to recalculate the worksheet through code is to fire the worksheet's Calculate() event:

Call Worksheets("Sheet1").Calculate

Certainly, this causes the same result to occur in the end, but it is easier to interpret what the code is doing -- the method is named to allow the code to be self-documenting in nature.

Thanks, and let me know if you have any other questions.

http://paintedblue.panicnow.net/Code/BUS_TEST_SIMULATOR.xls

Since it uses VBA, you will need to set Excel's security to allow macros to run (in Tools | Options | Security | Macro Security -- setting this value to Medium will prompt you regarding the execution of macros, however you should reset it back to High security if you are concerned about the potential for computer virii executing within Excel's context).

Basically, I have provided a set of cells to configure the test. These cells are currently located in Range J1:N2. You can specify the number of tests to run in addition to the value of the constants.

To the left of the configuration cells is a command button. Clicking the button will run the test. The data will populate in Columns A through F, although this is configurable in the code.

To view the VBA code, select Tools | Macro | Visual Basic Editor. The majority of the code resides on the Sheet1 object.

Finally, it is worth mentioning that I am currently populating the random number of passengers value using a simple VBA random number generator algorithm. However, if you want to use the RANDBETWEEN function, you can uncomment line 55 and comment line 56. I chose not to use RANDBETWEEN because it appears to recalculate all cells each time that it is executed, which results in very slow performance. The VBA approach will generate 1000 rows of data in less than one second on my workstation.

Please let me know if you have any questions!

W3bbo wrote:

Behold:


The referenced ECMAScript file:

	
	btnHeightInc.onclick = HeightIncrease();
	btnHeightDec.onclick = HeightDescrease();
	btnWidthInc.onclick  = WidthIncrease();
	btnWidthDec.onclick  = WidthDecrease();
	

W3bbo wrote:

candseeme wrote: Remove those two and belive me Try it

That wouldn't work.

The ECMAScipt (colloquially known as "Javascript") specification requires all method calls to have parenthesis (like C#, this is to make it easy to differentiate between object Properties and Methods)

Also the script interpreter error is specifically calling the line with the error.

Accordingly, this might not be very helpful for you, but you might want to take a look at the product and see if the developer is willing to give you some suggestions:

http://www.soti.net/default.asp?Cmd=Products&SubCmd=PCPro

Manip wrote:

You have misunderstood. I do not want a sequencer. I want a software backend for the audio keyboard.

Robert Hess wrote:

We are approaching our 50th episode (we've been at this for over 5 years now!). We will probably be filming it sometime in mid-March, and we're working on a few little surprises for this episode :->