精华内容
下载资源
问答
  • 2020-12-14 16:01:04
    VB开发的象棋

    VB编程易学实用、功能强大,非常有趣!

    今天,我们就共同来领略用VB开发的象棋游戏如何实现。

    小贴士:游戏实现的代码比较复杂,只看文字可能不易理解,感兴趣的朋友可以直接添加文末小编微信号,免费获取象棋的源代码及程序,直接运行学习,效果更佳!

    4d3030b88d1161ce6c9736cb7a05101a.png

    VB界面设计

    象棋游戏实现第一步,首先是想办法用VB代码来实现上面的图形界面。

    我们可以看到,棋盘界面上有方框、有图线、有文字。

    这个如何来实现呢?

    我们通过下面的代码来实现界面。

    Option Explicit

    Dim C As Byte       '当前玩家

    Dim cSel As Byte, osel As Byte       '当前选中哪个棋子,目标哪个棋子

    Dim DoCchess As Boolean              '是否允许玩家选中棋子

    Public a As Byte, b As Byte

    Dim PubBestLocate As CHESSER           '最后运算分数最高的结果

    Const INITVALUE = -10000             '初始分数

    Const KING = 5000

    Dim ChessBoard(9, 10) As Chess            '棋盘(横9列,竖10行)

    Dim ChessBoardCopy(9, 10) As Chess         '棋盘的复本

    'Rem 根据ChessBoard数组显示棋子

    Public Function DisplayImageCchess()

        Dim i As Byte, j As Byte, k As Byte

        k = 0

        For j = 1 To 10

            For i = 1 To 9

                Cchess1(k).Value = ChessBoard(i, j).Value     ''得知屏幕位置为何棋

                If ChessBoard(i, j).Value = 0 Then

                    Cchess1(k).NoneCchess = True

                Else

                    Cchess1(k).Visible = True

                    Cchess1(k).NoneCchess = False

                    Cchess1(k).Text = CchessWord(ChessBoard(i, j).Value)

                    If Int(ChessBoard(i, j).Value / 100) = 1 Then Cchess1(k).FillColor = vbBlue Else Cchess1(k).FillColor = vbRed ''颜色

                End If

                k = k + 1

            Next i

        Next j

    End Function

    单击新局按钮时,重置棋盘

    Rem 重置棋盘

    Private Sub SetCchess()

        Call ClearChessBoard       ''棋盘无子

        ChessBoard(5, 1).Value = 107     ''黑帅

        ChessBoard(4, 1).Value = 106     ''黑士

        ChessBoard(6, 1).Value = 106     ''黑士

        ChessBoard(3, 1).Value = 105     ''黑象

        ChessBoard(7, 1).Value = 105     ''黑象

        ChessBoard(2, 1).Value = 103     ''黑马

        ChessBoard(8, 1).Value = 103     ''黑马

        ChessBoard(1, 1).Value = 104     ''黑车

        ChessBoard(9, 1).Value = 104     ''黑车

        ChessBoard(2, 3).Value = 102     ''黑炮

        ChessBoard(8, 3).Value = 102     ''黑炮

        ChessBoard(1, 4).Value = 101     ''黑卒

        ChessBoard(3, 4).Value = 101     ''黑卒

        ChessBoard(5, 4).Value = 101     ''黑卒

        ChessBoard(7, 4).Value = 101     ''黑卒

        ChessBoard(9, 4).Value = 101     ''黑卒

        ChessBoard(5, 10).Value = 207     ''红帅

        ChessBoard(4, 10).Value = 206     ''红士

        ChessBoard(6, 10).Value = 206     ''红士

        ChessBoard(3, 10).Value = 205     ''红象

        ChessBoard(7, 10).Value = 205     ''红象

        ChessBoard(2, 10).Value = 203     ''红马

        ChessBoard(8, 10).Value = 203     ''红马

        ChessBoard(1, 10).Value = 204     ''红车

        ChessBoard(9, 10).Value = 204     ''红车

        ChessBoard(2, 8).Value = 202     ''红炮

        ChessBoard(8, 8).Value = 202     ''红炮

        ChessBoard(1, 7).Value = 201     ''红卒

        ChessBoard(3, 7).Value = 201     ''红卒

        ChessBoard(5, 7).Value = 201     ''红卒

        ChessBoard(7, 7).Value = 201     ''红卒

        ChessBoard(9, 7).Value = 201     ''红卒

    End Sub

    adda0ec88dad869bda57aa2c58e206f7.gif

    '开始下棋

    Private Sub Command1_Click()

        Dim CV As Integer

        Command1.Enabled = False

        PubBestLocate.Value = INITVALUE

        'If C = 2 Then Call MsgBox("现在轮到红方(玩家)下棋!", vbOKOnly + 32, "提示:"): Exit Sub

        C = 1

        If C = 1 Or C = 2 Then

            CV = Search(C, Val(Text1.Text) * 2, True, 10000) ''运算C方

            ''下棋

            With PubBestLocate

                Call MsgBox(Str(.Initx) & "," & Str(.Inity) & " 到 " & Str(.ObjX) & "," & Str(.ObjY), vbOKOnly)

                Call MoveCchess(.Initx, .Inity, .ObjX, .ObjY)

            End With

            Text2.Text = Str(CV)

        End If

        Call DisplayImageCchess ''显示

        Command1.Enabled = True

    End Sub

    往期回顾

    ●用VB也能实现字母滚动效果!

    ●VB从入门到精通视频教程!

    ●用VB获取网站登陆的用户名和密码!

    ●VB编程语言基础知识点总结

    159f887bef7065722a263e7a11972179.png    答疑解惑

    学习VB中有问题或者需要VB视频教程可以长按识别下图添加老师微信号,学习问题在线答疑。

    3cae84a160f3e0b294ec9b8848b52ddd.png

    更多相关内容
  • VB从入门到精通》书的实例源代码 源代码
  • VB从入门到精通

    2012-04-05 22:25:51
    VB程序设计 从入门到精通 编程冲入门到实践
  • VB入门到精通第四版PPT,比较简单明了,适合上课,自学等
  • VB从入门到精通官方API帮助文档,相信不用我多说大家都知道是干什么的,开发者都知道,辛苦整理的这个资源,希望大家喜欢,希望对大家有帮助,谢谢大家,请给个五星好评,谢谢啦!
  • 09年我就是靠VB从入门到精通 第一版学会的编程,卖电脑vb为职业。很基础很全面的书籍,虽然写的是入门到精通,但是你不要指望通过它就可以达到精通的地步,要学习编程就扎扎实实去学习,当年我为了学会vb开发...
  • VB6.0从入门到精通【pdf 】

    热门讨论 2012-05-26 14:40:00
    VB6.0入门图文教程,非常详细,一共291页
  • eNet网络学院Visual Basic从入门到精通视频教程
  • VB6.0从入门到精通

    2019-07-22 11:29:35
    资源名称:VB6.0从入门到精通(带书签)资源截图: 资源太大,传百度网盘了,链接在附件中,有需要的同学自取。
  • ASP.NET与VB.NET从入门到精通电子教程,,选一本好书,认认真真的看,多看几遍,一定会有好的收获.
  • 很不错的vb入门教程,也是我的入门教程,很不错。还带大量的源代码,物超所值。
  • VB6.0教程--从入门到精通
  • 很简单的。不要分了。
  • VB.NET入门到精通

    2015-06-17 21:57:18
    VB.NET学习教程 讲述VB.NET从入门到精通
  • http://images.enet.com.cn/eschool/21_vb/001.wmv http://images.enet.com.cn/eschool/21_vb/002.wmv http://images.enet.com.cn/eschool/21_vb/003.wmv http://images.enet.com.cn/eschool/21_vb/004.wmv ...
  • VisualBasic2010VB.NET从入门到精通
  • ArcGIS Engine从入门到精通视频试看 ArcGIS Engine是ArcGIS的一套软件开发引擎,可以让程序员创建自定义的GIS桌面程序。ArcGIS Engine支持多种开发语言,包括COM、.NET框架、Java和C++,能够运行在Windows、Linux和...

    4595200acbace483e949e98ad65afb76.png

       ArcGIS Engine从入门到精通视频试看     

    ArcGIS Engine是ArcGIS的一套软件开发引擎,可以让程序员创建自定义的GIS桌面程序。

    ArcGIS Engine支持多种开发语言,包括COM、.NET框架、Java和C++,能够运行在Windows、Linux和Solaris等平台上。这套API提供了一系列比较高级的可视化控件,大大方便了程序员构建基于ArcGIS的应用程序。是ESRI在ArcGIS9版本才开始推出的新产品,它是一套完备的嵌入式GIS 组件库和工具库,使用ArcGIS Engine开发的GIS应用程序可以脱离ArcGIS Desktop而运行。

    ArcGIS Engine的特点

    第一、可根据用户需求,定制开发特定的功能的GIS程序。

    第二、开发的程序可以独立运行,完全脱离ArcGISDesktop

    第三、极其丰富的类库

    2133fc7cd1e7012b1266eca3ef0bc34f.png

     ArcGIS Engine从入门到精通  课程介绍

    本课程为ArcGISEngine二次开发入门视频,共44个课时,以C#为开发语言,VisualStudio为开发工具,以丰富的案例及生动的语言讲述了ArcGISEngine的二次开发技术,课程主要适合ArcGISEngine及C#零基础者,旨在帮助ArcGIS二次开发爱好者快速入门。

    金牌讲师——Giser小天

    擅长ArcGIS Engine二次开发、ArcGIS Python脚本开发、ArcGIS Desktop应用及插件开发、WebGIS开发、SQL Server数据库开发等多种技术。精通C#、VB.Net、Python、ActionScript、JavaScript、Html等编程语言,精通多种GIS核心算法,拥有近十年ArcGIS开发经验, 致力于教授ArcGIS二次开发技术,已录制多达十套关于ArcGIS方面的教程,所录教程秉持“授人以鱼不如授人以渔”的授课理念,深入浅出,案例丰富,深入广大GIS学习者的喜爱,欢迎广大ArcGIS爱好者交流学习。

    课程大纲

      第一章、ArcGISEngine的概念、特点及与ArcGISDesktop的关系

      第二章、学好ArcGISEngine的重要性及如何快速掌握ArcGISEngine二次开发

      第三章、C#面向对象编程的学习

      第四章、教你如何看懂ArcGISEngine中的对象模型图和ArcGISEngine的开发帮助

       第五章、通过代码实例深入浅出讲解ArcGISEngine接口查询技术(QI)

      第六章、ArcGISEngine的核心UI控件介绍及如何在VisualStudio下快速搭建简单的ArcGISEngine程序

      第七章、ArcGIS中矢量数据的结构及如何在ArcGISEngine中实现对矢量数据的基本操作

      第八章、通过代码实例实现基本的添加数据、地图放大、缩小、漫游、全景视图和鹰眼

      第九章、通过代码实例对矢量图层进行SimpleRenderer渲染

      第十章、通过代码实例设置图层的透明度、亮度和对比度

      第十一章、对矢量数据进行属性查询

      第十二章、如何用ISpatialFilter接口对矢量数据进行空间位置查询

      第十三章、通过代码实例实现缓冲区分析

      第十四章、如何在地图上画点、线、面数据

      第十五章、如何对矢量数据的字段值进行最大值、最小值、求和、平均值、方差统计

      第十六章、如何快速发现程序运行时的错误

      第十七章、详解栅格数据结构及IRasterLayer、IRaster、IRasterBandCollection、IRasterCursor接口

      第十八章、如何统计栅格图层的波段值、行数和列数

      第十九章、如何读取栅格像元的值

      第二十章、如何更改指定像元的值

      第二十一章、如何对栅格图层进行RGB渲染

      第二十一章、如何对栅格图层进行RGB渲染

      第二十二章、ArcGISEngine三维开发

    839f891859e788e9eb8410de142904a2.gif

    22个视频就能将ArcGIS Engine从入门到精通学习透彻。需要的的同学,可以点击阅读原文,系统的学习呦!!!

    47892d882bcde04490c9f4e7c21b6f77.gif

    eaf2cadad157c99563b6dec05db77a8b.gif一起来充电吧!
    展开全文
  • VB2008从入门到精通

    2018-12-03 14:32:05
    VB2008与VB2010及其他的版本,没有太大的区别,大家一样的学习,都是一样的内容,只是在部分内容上有改进,对使用没有影响。
  • VB.NET从入门到精通学习教程(PDF),基础到精通,细讲了构造函数,封装特性,自由线程,继承,初始化函数,基于对象,重载等等,有很好的参考价值。(PDF格式) 勾月科技www.gouyue.net QQ17878387
  • VB从入门到精通教程

    2011-07-07 22:10:46
    VB从入门到精通基础教程 Visual Basic是基于Basic的可视化的程序设计语言。 Visual Basic 6.0中文版是Microsoft公司最新推出的可视化开发工具,是一种基于Windows操作系统的新型的现代程序设计语言,是一种易于学习...
  • VB6.0从入门到精通.pdf

    2012-09-21 17:02:45
    VB6.0从入门到精通.pdf
  • ASP.NET与VB.NET从入门到精通 的 随书光盘
  • VB脚本从入门到精通.docx
  • vb入门入门到精通

    2014-08-12 10:54:22
    vb开发技术从入门到精通文件打包下载短短数天精通vb
  • VB 从入门到精通PPT.rar

    2011-03-29 20:13:08
    VB6.0从入门到精通PPT讲义。零基础开始。 入门级。。
  • 软件介绍 主要讲述VB.NET与ASP.NET的关系和Web编程的方法,重点介绍用VB.NET以及以特殊的方式使用ASP.NET框架,即使用后代码模块构建Web应用,并介绍使用和开发Web Form的方法
  • 在网上找的. VB2010入门到精通教程pdf版 邱仲潘,宋智军编,北京电子工业出版社,2011年1月。主要讲关于VB2010的编程方法 全本扫描版本很对全面.
  • VB脚本从入门到精通

    2014-02-22 08:48:17
    VB初学者绝对的好资料。内容清晰、明了、易学。
  • ASP.NET 与 VB.NET 从入门到精通

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,702
精华内容 1,880
关键字:

vb从入门到精通

友情链接: hanleng_v53.zip