如何用VB制作一个简单地打怪升级的文字游戏

金木ls |浏览770次
收藏|2022/01/19 13:03

满意回答

2022/01/19 13:17

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Command1.Left = X - Command1.Width / 2Command1.Top = Y - Command1.Height / 2End Sub在此之前要使用窗口load代码:private sub form_load()dim a,b'这里a变量是角色血量显示,b是怪物血量,如果要更多怪物就继续添加a=1000b=1000end sub新建timer1,触发间隔设为10编写timer1的事件代码为:private sub timer1_timer()if a=0 thenmsgbox"您已死亡!"elsecommand1.caption="角色,血量:"&aif b=0 thencommand2.caption="装备"elsecommand2.caption="怪物,血量:"&bend if更多私信吧

王杏君

其他回答(1)
  • 正规游戏的基本框架思路,需要你有3年以上的程序开发经验,再学。 你说的那种游戏,如果是初中生电脑兴趣班那种设计,那么其实多多留意各种讨论并且亲自上机实践(最好还能自己认证回复两句)即可获得体验。那并不是真正的“游戏”,只是一般的编程体验。
    回答于 2022/01/19 13:29
0人关注该问题
+1

 加载中...