如何用VB语言设计一个抢答器

1、首先打开VB程序，新建一个工程。

2、这里我们选择“标准EXE”，单击“确定”按钮。

3、该软件的界面还是比较简洁的，左边是常用的工具箱，右边是相关的属性栏目。先把我们要制作的软件命名，如图，在“caption”后面输入“抢答器”。

4、选择“commandbutton”工具，在目标区域用鼠标拖动画出一个按钮，在属性面板输入按钮上显示的文字。

5、用“label”工具在图中2处画出区域，在3处输入要显示的文字。

6、租宽羡用“textbox”工具在合适位置画出文本框区域，弊拍用来显示你选号的结果。

7、用鼠标双击刚才插入的按钮，输入代码：Private Sub Command1_Click()，Dim a(5) As Integer，Dim b(2) As Integer，For i = 1 To 5        a(i) = Int(Rnd() * (1 + (35 - 1))) + 1 。

8、单击“启动”按钮调试程序。有错误就需要修改，没有错误的话就巧码可以保存了。

代码如下：

i=2break

if(key==0)break250

sbit rstkey=P2^2/

case 0x08:break

case 0x04200j++)

default/

#define uchar unsigned char

uchar table[]={0x3f,0x4fbreak,0x06/

P2=0xff:i=8,0x6d:i=6

}

switch(key)

{

case 0x01,0x7f}i<

case 0x80reg51:i=7:i=1:i=3

void delay()/,0x66

case 0x40,0x7d:i=4break

}

P1=table[i]break

case 0x10:i=5,0x07,j

P1=table[i]break

while(1)

{

i=0j<break

case 0x02,0x5b延时约400毫秒

{

uchar i

for(i=0break

while(1)

{

key=P3,key

case 0x20i++)

for(j=0/.h>break否则蜂鸣器报警

delay()显示按下键号的LED

while(1)

{

if(rstkey==0)break/乱链迹

sbit speaker=P2^0主持人按唤咐下复哗并位键则重新开始

speaker=~speaker#include<显示按下抢答器的号

P0=key

}

main()

{

uchar i

------------------------------------------

KAI BIT P3.7 开始

------------------------------------------

ORG 0000H

JMP START

START:

----------------------下面是清零(复位)

MOV P0, #0C0H显示0

MOV P2, #255 熄灯

MOV R4, #0

----------------------下面等待按下洞友"开始"键

KAISHI:

JBKAI, KAISHI 没有按"开始"，就循环

CALL DELAY延时

JBKAI, KAISHI 消抖

JNB KAI, $ 等待释放

----------------------

MOV P0, #0CH 显示P

WAIT: 等待抢答

MOV A, P1

CPL A

JZWAIT 继续等待

----------------------

XS:查找选谈做手按键的位置

CPL A

MOV P2, A

JNB ACC.0, J0

JNB ACC.1, J1

JNB ACC.2, J2

JNB ACC.3, J3

JNB ACC.4, J4

JNB ACC.5, J5

JNB ACC.6, J6

JMP J7

J7: INC R4

J6: INC R4

J5: INC R4

J4: INC R4

J3: INC R4

J2: INC R4

J1: INC R4

J0: INC R4

MOV A, R4

MOV DPTR, #D_TAB

MOVC A, @A + DPTR

MOV P0, A

----------------------下面等待按下复位键

W_FW:

JBKAI, W_FW没有按，则转

CALL DELAY延时

JBKAI, W_FW消抖

JNB KAI, $ 等待释放

JMP START

------------------------

D_TAB:

DB 0C0H,0F9H,0A4H,0B0H, 99H 共阳极0-9

DB92H, 82H,0F8H, 80H, 90H,0BFH -

------------------------------------------

DELAY: 延时约10ms

MOV R6, #20

DJNZ R7, $

DJNZ R6, $ - 2

RET

==========================================

END

以上纳侍槐程序已经调好。

---