RSS Feeds :: DEVPPL - Forums > Visual Basic Forum : Topics : URGENT Help. VB6 -> 2005 code Change TOGETHER WE ARE THE BEST http://www.devppl.com/forum en-gb Tue, 17 Aug 2004 14:07:13 +0100 Sat, 21 Nov 2009 11:22:07 +0000 http://blogs.law.harvard.edu/tech/rss MSSTI v0.0.1 - (C) 2008 leviatan21 - http://www.mssti.com/ Copyright : (c) RSS Feeds :: DEVPPL - Tue, 17 Aug 2004 14:07:13 +0100 webmaster@devppl.com (DEVPPL) RSS Feeds :: DEVPPL - Forums > Visual Basic Forum : Topics : URGENT Help. VB6 -> 2005 code Change http://www.devppl.com/forum/styles/DEVPPL/imageset/site_logo.gif http://www.devppl.com/forum 60 URGENT Help. VB6 -> 2005 code Change http://www.devppl.com/forum/./viewtopic.php?p=51830#p51830
i have code of a reaction time test in VB6 that works fine however i need it in VB 2005... im assuming its the same as 2008?

The code isnt that big its fairly understandable however i just cant get it to work as some things in vb6 are different to 2005.

What the program does is. You click the green GO and it changes to a yellow. Then random time intervals a box will turn red and you click it as fast as you can.. then a msgbox pops up. you do this 5 times and get an average.

Things i cant work out how to fix when i convert:
Timer
Wait
DoEvents
Checkbox = 1 or 0 .. always underlined under the 1 and 0

What are the equivalent of those in the newer versions?

Thats it,image:
Image
Code:

Public fin As Integer


Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If (Not UserForm1.CommandButton1.BackColor = &HFFFF&) Then

Dim score(1 To 5) As D
...

Statistics : Posted by cgorny80 • on Sat May 16, 2009 9:56 am • Replies 0 • Views 107

]]>
i have code of a reaction time test in VB6 that works fine however i need it in VB 2005... im assuming its the same as 2008?

The code isnt that big its fairly understandable however i just cant get it to work as some things in vb6 are different to 2005.

What the program does is. You click the green GO and it changes to a yellow. Then random time intervals a box will turn red and you click it as fast as you can.. then a msgbox pops up. you do this 5 times and get an average.

Things i cant work out how to fix when i convert:
Timer
Wait
DoEvents
Checkbox = 1 or 0 .. always underlined under the 1 and 0

What are the equivalent of those in the newer versions?

Thats it,image:
Image
Code:

Public fin As Integer


Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If (Not UserForm1.CommandButton1.BackColor = &HFFFF&) Then

Dim score(1 To 5) As D
...]]> 2009-05-16T09:56:16+01:00 http://www.devppl.com/forum/./viewtopic.php?p=51830#p51830