首页 | 新闻资讯 | 软件应用 | 图形图像 | 网络应用 | 硬件学堂 | 程序开发 | 安全中心 | 素材下载 | 作者专区 | 学院论坛
精选专题 | 精美壁纸 | 专家答疑 | Flash剧场 | Photoshop | 名词解释 | 梦幻桌面 | PS高手进阶 | QQ区 | 图书 | 黑客教材
Flash教程| 卡通制作 | AutoCAD | 3DMax实例 | PS视频教程| 网页制作 | CorelDRAW| Firework | 滤镜与实例 | 全部视频教程
当前位置:eNet硅谷动力 > 学院频道 > 编程实例

VB.net2008编写计算器应用程序
2008-05-28 12:15 作者:许城 来源:eNet硅谷动力
【简 介】
VB.net2008编写计算器应用程序
    
加入收藏  设为首页

Visual Studio2008发布后,有大量的VB.net爱好者抛弃原来的Visual Studio2005平台转向现在流行的Visual Studio2008平台。但是Visual Studio2008有一个缺点就是需要比较高的硬件配置才能正常平稳的运行,所以到现在为止还有一部分人处于观望中,并没有转向这个平台。然而Visual Studio2008的一些新的功能以及优化性比先前版本有了很大的进步。本篇文章将主要介绍怎样利用VB.net去编写一个计算器程序,程序虽然不复杂,但是其中所运用的知识和代码非常具有代表性,在平时开发中也是经常需要用到的。希望对VB.net2008的初学者带来帮助。

 打开 Visual Studio 2008。在文件 (File) 菜单上,单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中,单击 Windows 应用程序(Windows Application)。单击确定 (OK)

      Form1窗体中添加一个TextBox1控件和19Button按钮,详细属性设置请查看以下的表格。

TextBox1

数据显示框

Button1

0

Button2

.

Button3

归零

Button4

Button5

Button6

1

Button7

2

Button8

3

Button9

+

Button10

-

Button11

4

Button12

5

Button13

6

Button14

*

Button15

/

Button16

7

Button17

8

Button18

9

Button19

ON

Button20

OFF

 

     

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

详细的界面请查看图1


图1

好了基本的界面已经设计好了,接下来我们来添加相应的代码了,首先进行必要的声明事件。

Public Class Form1

 

    Dim strdx() As String = {"0", "0", "0"} '声明一个字符串,用以存取数值

    Dim calcount1 As String = "0"

    Dim calcount2 As String = "0"

Dim strvalue As Boolean = False

 

 

 

然后需要进入Button1.Click事件中.代码如下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If strdx(0) = "0" Then

            TextBox1.Text = strdx(0) & "."

        ElseIf strvalue = False Then

            strdx(0) = strdx(0) & "0"

            TextBox1.Text = strdx(0) & "."

        Else

            strdx(0) = strdx(0) & "0"

            TextBox1.Text = strdx(0)

        End If

End Sub

进入Button2.Click事件中.代码如下

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        strvalue = True

        strdx(0) = strdx(0) & "."

        TextBox1.Text = strdx(0)

 

End Sub

[1] [2] [3] [4]下一页
关键字: vb  vb2008  编程 
您对这篇文章的看法是:    喜欢 反感 支持 反对 加油 鄙视 学习 打击 佩服 漂亮 路过 发表评论
视频教程】 【专题汇总】 【不懂就问我关闭窗口

安全:设置防御小流量DDOS攻击
Photoshop给艳丽美女照片简单润色
第一张Google Chrome OS泄漏(多图)
Fagarazzi女性人物CG插画设计欣赏
iOcean数字海洋 中国版Google Ocean
相关文章
 本栏目最新文章
·Flash编程 事件处理函数的编程方法
·VB.net2008实例 创建邮件发送程序
·VB.net2008实例创建注册表编辑器
·用VB.net2008编写幻灯片程序
·用VB.net2008编写屏幕抓捕程序
 精彩回放
·3DSMAX打造书本翻开效果
·共享上网技巧应用四则
·陪酒女浸泡在酒里的青春
·美女的性感靓丽婚纱设计
·妖冶身姿 死或生3壁纸
·剿灭Win XP下的29个烦恼
·黑客必备 NET命令大全
·用PS制作精致绝伦的红酒
 精彩推荐
 今日软件下载
杀毒软件免费随便用
瑞星全功能安全软件2009 基于“云安全”策略和“智能主动防御”技术开发.
www.rising.com.cn
 往日推荐
·推荐“美图秀秀”就能赚Q币
·五大搜索引擎横向评测
·防御计算机病毒十大步骤

论坛精华
·photoshop完美扣图教 
·PhotoShop实例精选电 
·Photoshop将美女照片 
·史上最强最多 photo 
·Photoshop给多斑的人 
·精灵女孩白夜 
热点推荐
绘制逼真金蛋
浪漫婚纱照片
Flash视频编程
Ulead GIF教程
热点关注
·Flash CS4 制作经典小游戏
·C语言程序设计视频教程
·PHP+MYSQL开发视频教程
·Flash CS4从入门到精通教程
·服装设计与效果图绘制教程
·21视频之Fireworks8网页制作
·Vray高级实例应用视频教程
·CorelDRAW14入门到高级教程
·Vray高级实例应用视频教程
全国计算机等级考试二级(VB语言)
往日推荐
网站重构设计
鹏哥C#教程
服装设计教程
PS唯美风景
焦点关注