VB Typing Game, VB Typing Game

Weakly asked, how can I help you? Can I help you type? I don't think you said anything to help you.

Add 10 label1 control groups, a timer, operation: After running, press enter to play the game, **:p rivate declare function getasynckeystate lib"user32" (byval vkey as long) as integer

dim m as integer

private sub form_keypress(keyascii as integer)

if keyascii = 13 then

elsefor j = 0 to 9

if label1(j).caption = ucase(chr(keyascii)) then

m = m + 1

if m = 30 then = "Level 1"

if m = 60 then = "Level 2"

if m = 90 then = "Level 3"

label1(j).top = 0

exit for

end if

nextend if

end sub

private sub form_load()

for i = 0 to 9

label1(i).top = 0

next "Level 0"

end sub

private sub timer1_timer()

static n as integer

if n = 10 then

msgbox "Game over"

falseend if

for i = 0 to 9

if label1(i).top > then

label1(i).top = 0

randomize

label1(i).caption = chr(int(rnd * 26 + 65))

n = n + 1

elseif label1(i).top = 0 then

randomize

label1(i).caption = chr(int(rnd * 26 + 65))

label1(i).top = label1(i).top + 100

elselabel1(i).top = label1(i).top + 100

end if

nextend sub

The program interface, the design, the periphery are already ready, or send an email :

The program can be written in a maximum of 2 days, which is definitely better than 3L.

You can do it yourself, look for online routines, you can hi me.

Add 10 label1 control groups, a timer, and an operation:

Once it's running, press enter to play the game, **:

private declare function getasynckeystate lib "user32" (byval vkey as long) as integer

dim m as integer

private sub form_keypress(keyascii as integer)

if keyascii = 13 then

elsefor j = 0 to 9

if label1(j).caption = ucase(chr(keyascii)) then

m = m + 1

if m = 30 then = "Level 1"

if m = 60 then = "Level 2"

if m = 90 then = "Level 3"

label1(j).top = 0

exit for

end if

nextend if

end sub

private sub form_load()

for i = 0 to 9

label1(i).top = 0

Level 0"end sub

private sub timer1_timer()

static n as integer

if n = 10 then

msgbox "Game over"

falseend if

for i = 0 to 9

if label1(i).top > then

label1(i).top = 0

randomize

label1(i).caption = chr(int(rnd * 26 + 65))

n = n + 1

elseif label1(i).top = 0 then

randomize

label1(i).caption = chr(int(rnd * 26 + 65))

label1(i).top = label1(i).top + 100

elselabel1(i).top = label1(i).top + 100

end if

nextend sub

Can it solve your problem?

Typing games don't have to be that fancy, right? Just use my **.

I can write to you if needed!! Need r·· m··· b！！

There are VB1200 cases in Volume 1 of Tomorrow Technology, so you can take a good look at it.

It's a simple question, just add this ** to the form load(): = true

form load() is modified to read:

private sub form_load()= false

falsefalse

trueend sub

Remember to adopt it!!