利用VBA制作一个转盘游戏之五:最终的游戏过程

时间:2023-07-29 02:18:38 来源:电竞网

【分享成果,随喜正能量】真正厉害的人,从来不说难听的话,因为人心不需要听真话,只需要听好听的话,所以学着做一个有温度且睿智的人。不相为谋,但我照样能心平气和,冷眼相待,我依旧可以风生水起,你所见皆是我,好与坏,我都不反驳。。

《VBA高级应用30例》(10178985),是我推出的第十套教程,教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开,这套教程案例与理论结合,紧贴“实战”,并做“战术总结”,以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序,写好的程序可以升级。本套教程共三册三十个专题,今日内容是第5个专题“利用VBA制作一个转盘游戏”。今日讲解:利用VBA制作一个转盘游戏之五:最终的游戏过程

应用5利用VBA制作一个转盘游戏

在实际工作中,我们发现Excel是一个非常严肃和强大的应用程序,但这并不意味着我们不能从中得到乐趣。在本文中,我将给大家讲解如何构建一个Excel文件,使您能够玩幸运轮,同时我们会辅助声音和一些必要游戏基础设施构建!

6最终的游戏过程

我先给出程序的所有代码:

Private Sub Worksheet_Activate()

Application.DisplayFullScreen = True

End Sub

略,见教程

Sub WAVPlay(File As String)

Dim SoundName As String

Dim wFlags As Long

Dim x As Long

SoundName = File

wFlags = SND_ASYNC Or SND_NODEFAULT

x = sndPlaySound(SoundName, wFlags)

If x = 0 Then MsgBox "Can't play the audio file. ", vbCritical, "Error"

End Sub

最后我们看一下游戏的操作过程:

1)在开始游戏前需要操作人员设置总人数

2)在人员序号处录入人员的序号

当然以上的两个步骤也可以先进行第二步再进行第一步。其目的是要保证所有人员全员参与。

3)到PLAY页点击开始:

4)此时转盘转动,霓虹灯闪烁:

5)最终结果显示:当转盘停止转动时,指针处就是这次的结果,此时会有语音播报,同时这个结果会保存在“已提取结果”的记录中,如下面的两个截图:

结论:在这个应用中,给大家详细讲解了如何利用VBA制作一个EXCEL游戏的过程,可以说Office功能强大,只要我们肯于开发,总会有收获。这节的内容中涉及到动画效果的展现,随机数的利用,乱序的排序,语言效果,声音的播放等等。可以说这个专题应用让大家在学习的同时收获更多的乐趣。

今日内容回向:

1如何实现转盘的转动?

2如何利用API函数实现声音的播放?

3如何在Excel中实现结果的播报?

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

1/1页