博文

VB.NET 入门教程5(2005-09-24 07:29:00)

摘要: 作者:未知    文章来源:microsoft    点击数: 33056    更新时间:2004-9-27   步骤 7. 创建函数 最后一步就是创建一个函数来在字符串数组中运行 QuickSort。我们将此函数放到应用程序类 QuickSortApp 之中。 修改源代码 更改 Visual Basic 源文件 (module1.vb),如下面以斜体突出显示的 代码所示。其他的差异(如类名)可忽略不计。' Import namespaces Imports System Imports System.Collections Imports System.IO Module Module1 Sub Main() ... ... ... ' Pass to QuickSort function QuickSort(szContents, 0, szContents.Count - 1) ... ... ... End Sub ' QuickSort implementation Sub QuickSort(ByRef szArray As ArrayList, ByVal nLower As Integer, _ ByVal nUpper As Integer) ' Check for non-base case If nLower < nUpper Then ' Split and sort partitions Dim nSplit As Integer nSplit = Partition(szArray, nLower, nUpper) QuickSort(szArray, nLower, nSplit - 1) QuickSort(szArray, nSplit + ......

阅读全文(1629) | 评论:0

VB.NET 入门教程4(2005-09-24 07:28:00)

摘要: 作者:未知    文章来源:microsoft    点击数: 33055    更新时间:2004-9-27   步骤 6. 文件输入/输出 现在,让我们来实现读取输入文件和写入输出文件。我们将每一行读取到一个字符串数组中,然后输出该字符串数组。在下一步中,我们将使用 QuickSort 算法来对该数组进行排序。 修改源代码 更改 Visual Basic 源文件 (module1.vb),如下面以斜体突出显示的代码所示。其他的差异(如类名)可忽略不计。 ' Import namespaces Imports System Imports System.Collections Imports System.IO Module Module1 Sub Main() ... ... ... ' Read contents of source file Dim szSrcLine As String Dim szContents As ArrayList Dim fsInput As FileStream Dim srInput As StreamReader szContents = New ArrayList() fsInput = New FileStream(szSrcFile, FileMode.Open, FileAccess.Read) srInput = New StreamReader(fsInput) szSrcLine = srInput.ReadLine() While Not IsNothing(szSrcLine) ' Append to array szContents.Add(szSrcLine) szSrcLine = srInput.ReadLine() ......

阅读全文(1476) | 评论:0

VB.NET 入门教程3(2005-09-24 07:28:00)

摘要: 作者:未知    文章来源:microsoft    点击数: 33054    更新时间:2004-9-27 步骤 4. 控制台输入 现在,我们将继续编写 QuickSort 应用程序。我们需要做的第一件事就是提示用户提供输入和输出文件。 修改源代码 更改 Visual Basic 源文件 (module1.vb),如下面以斜体突出显示的代码所示。其他的差异(如类名)可忽略不计。' Import namespaces Imports System Module Module1 Sub Main() ' Describe program function Console.WriteLine ("QuickSort VISUAL BASIC .NET Sample Application") Console.WriteLine () ' Prompt user for filenames Dim szSrcFile, szDestFile As String Console.Write("Source: ") szSrcFile = Console.ReadLine() Console.Write("Output: ") szDestFile = Console.ReadLine() End Sub End Module 从控制台进行读取 Console 类的 ReadLine() 方法提示用户输入,并返回输入的字符串。它会自动地为字符串处理内存分配,由于使用了 .NET 垃圾回收器,您不需要做任何释放内存的工作。 程序输出 从菜单中选择 Debug | Start Without Debugging 来运行程序。这是到此为止来自 QuickSort 应用程序的输出的屏幕截图。  
步骤 5. 使用数组 在对从输入读取的行进行排序之前,程序需要将其存储......

阅读全文(1517) | 评论:0

VB.NET 入门教程2(2005-09-24 07:26:00)

摘要:步骤 2. Hello, World! 很遗憾,但我们仍然无法抵御这种诱惑……我们还是不得不完成一个经典的"Hello, World!"应用程序,这个应用程序最初是用 C 语言编写的。 修改源代码 1. 在 Solution Explorer 中双击文件"module1.vb"。可以通过 View 菜单来显示 Solution Explorer。 2. 更改预生成的模板 (module1.vb),如下面以斜体突出显示的 代码所示。 ' Import namespaces Imports System Module Module1 Sub Main() Console.WriteLine ("Hello, VISUAL BASIC .NET World!") End Sub End Module 3. 注意,当您键入代码时,Visual Studio 将为您提示类和函数的名称(因为 .NET 框架发布了这种类型信息)。

编译应用程序 1. 既然您已经完成了修改,就可以通过在 Build 菜单中简单地选择 Build 来编译 Visual Basic 项目。
2. 来自 Visual Basic 编译器的错误和消息将显示在 Output 窗口中。如果没有错误,则可以通过单击 Debug 菜单下的 Start without Debugging 来运行 Hello World 应用程序。
程序输出 在 Visual Studio 环境中运行 Hello World 示例应用程序时,输出的屏幕截图如下。  
  理解更改 System.Console 类的 WriteLine() 函数打印传递给它的字符串,其后紧跟一行新的字符。此函数可以接受许多其他数据类型(包括整型和浮点型)的参数。 在程序加载完成后,控制就传递给 Main() 函数。这就是我们在该过程中插入对 WriteLine() 的调用的原因。 步骤 3. 程序结构 既然我们已经构建了一个简单的 Hello Wor......

阅读全文(1716) | 评论:0

VB.NET 入门教程(2005-09-24 07:24:00)

摘要: VB.NET 入门教程 作者:未知    文章来源:microsoft    点击数: 33052    更新时间:2004-9-27 Microsoft Corporation 适用于: Microsoft Visual Basic.NET 摘要:《Visual Basic .NET 入门指南》介绍了 Visual Basic 语言的几种新功能,从而能充分利用 .NET 平台。下面的示例应用程序示范了如何构建一个实现 QuickSort 算法的简单 Visual Basic .NET 项目来。 下载 Quicksort_Visual_Basic_.NET.exe。 简介 Visual Basic .NET 将许多新的功能引入 Visual Basic 语言,使之能够充分利用 .NET 平台。以前版本的程序员将需要稍作调整才能转到 .NET 版本上。 下面的示例应用程序示范了如何构建一个实现 QuickSort 算法的简单 Visual Basic .NET 项目来。它包括了 Visual Basic .NET 程序的基本组成部分:读/写控制台和文件、创建函数和使用基本数组。 这些入门指南并不打算涵盖该编程语言的所有方面。它们只是您探索这种语言的一个起点。我们鼓励您按照本教程的说明执行,因为它包括了 QuickSort 应用程序的各个不同部分。您还可以获得完整的源代码和项目文件。 建议的要求 编译此示例应用程序需要 Visual Studio.NET(测试版 2 或更高版本)。关于 Visual Basic 的知识是有帮助的但不是必需的。 步骤 1. 开始项目 Visual Studio 中的开发工作以解决方案的形式进行组织,每个解决方案包含一个或多个项目。在本教程中,我们创建的解决方案包含一个 Visual Basic 项目。 创建一个新项目 1. 在 Visual Studio .NET 环境中,从菜单中选择 File | New | Project。
2. 在左侧选择 Visual......

阅读全文(1941) | 评论:0

VB中资源文件的具体使用方法(2005-09-23 20:47:00)

摘要: VB中资源文件的具体使用方法 作者:unknown 更新时间: 2005-05-02        下面就和大家具体谈谈如何在VB中建立和使用资源文件。

   首先,我们先了解一下windows应用程序中一般经常使用的资源:

   位图:位图是用于创建应用程序用户界面的图像。例如,用户可以为工具栏按钮创建一套位图,也可以创建在其它窗口上显示的位图。一般来说,都是在图像编辑器中创建位图,然后再将该位图添加到资源文件中。

   图标:图标是类似于位图的小图像,然而,虽然位图可以具有任意大小的尺寸,但是图标却小得多,通常为16*16像素或32*32像素。图标使用的很多方法与位图一样。然而,图标通常被用作代表最小化应用程序的图象、代表应用程序文档类型的图像和其它类型的应用系统。

   字符串表:就是指文本串的一个表格,通常来说字符串用来显示菜单命令的提示、对话框中和消息框中显示的信息。要访问串表格中的文本串,需引用串的ID,它与定义表格的源文件中的串相联系。

   光标:光标是代表鼠标在屏幕上的位置的图像。尽管windows 系统定义和许多类型的光标,但用户也可以创建自己需要的光标。

   定制资源:定制资源是用户想存储在其应用程序资源文件中的任何类型的数据。这些数据可以是文本文件或二进制文件,用户可以用任何喜欢的方式定制资源。资源文件只是作为存储区域。创建了定制资源,可以避免必须从磁盘文件中加载数据,因为数据随资源文件一起加载。

   对话框:对话框的资源定义包括样式标志(控制对话框外观及行为的值)以及对话框中含控件的大小和位置。

   菜单栏:用户应用程序的菜单栏也可以在资源文件中定义。可以在资源文件中指定命令和命令的ID,以用命令在菜单中的位置。

   加速器:加速器也称为热键。它们是用户快速选取命令时所按下的键,使用热键时,不必在应用程序的菜单中寻找命令。加速器在一个表格中定义,这个表将按键与命令资源的ID联系起来。

   那么在VB开发环境中如何使用这些资源呢?

   1、添加资源文件编辑器,

   启动......

阅读全文(1510) | 评论:0

VB 中资源文件的多种使用技巧(2005-09-23 20:45:00)

摘要: VB 中资源文件的多种使用技巧 出处:vb社区 [ 2005-07-01 10:27:12 ] 作者:szyicol 责任编辑:moningfeng   一、开发中英(简、繁)双版本

  现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本,并可以根据系统的语言自动显示相适应的版本,那么这个功能在 VB 是如何实现得呢的:

1、 首先通过 API 函数GetSystemDefaultLCID 判断系统的语言
Option Explicit
Dim lang As String
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Sub Form_Load()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404
MsgBox "当前系统为:中文繁体", , "语言"
Case &H804
MsgBox "当前系统为:中文简体", , "语言"
lang = "1"
Case &H409
MsgBox "当前系统为:英文", , "语言"
lang = "2"
End Select
End Sub
2、然后程序就可以加载保存在资源文件(这里我们就是使用的这种方法)、注册表、INI 文件、文本文件或其他文件中的各类字符串,以达到达到实现多种语言的目的。
  ⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

  ⑵在 VB 资源编辑器窗口中,点击“编辑字符串表格”输入如下资料:
  标识号 中文(中国)
  101 例子
  102 中文
  103 英文
  201 Ensample
  202 Chinese
  203 English

  ⑶保存资源文件,写如下代码:(自定义装载字符的......

阅读全文(1593) | 评论:0

2台单片机互相通讯的功能(2005-09-23 17:58:00)

摘要: 小弟初学vb,要实现一个2台单片机互相通讯的功能,现在已经实现了可以发送的功能,但是接受功能不能实现,希望大家看看我的程序错在哪里?谢谢各位大侠

Option Explicit

Private Sub Command1_Click()
MSComm1.OutBufferCount = 0
MSComm1.Output = Text1.Text
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub

Private Sub Mscomm1_Oncomm()
Select Case MSComm1.CommEvent
Case comEvReceive
Text2.Text = MSComm1.Input
MSComm1.InBufferCount = 0
End Select
End Sub 作者:jily
专家分:1520
 会员信息
 发短消息  
 所属BLOG 发表时间:2005-9-23 9:31:00     第 1 楼   Private Sub Mscomm1_Oncomm()
Select Case MSComm1.CommEvent
Case comEvReceive
Text2.Text =Text2.Text + MSComm1.Input'这里要这么写,不然看不到接收内容
MSComm1.InBufferCount = 0
End Select
End Sub ......

阅读全文(2442) | 评论:0

串口通讯及其在VB平台下的实现(2005-09-23 12:29:00)

摘要:串口通讯及其在VB平台下的实现
冯杰   摘要:本文首先介绍串行通讯的基础知识,然后结合示例剖析在VB平台下的串口通讯的编程技巧。

  随着计算机系统的普及与外围设备技术的发展,计算机与外围设备之间的通讯就显得越来越重要了。由于串行通信是在一根传输线上一位一位的传送信息,所用的传输线少,并且可以借助现成的电话网进行信息传送,因此,特别适合于远距离传输。对于那些与计算机相距不远的人-机交换设备和串行存储的外部设备如终端、打印机、逻辑分析仪、磁盘等,采用串行方式交换数据也很普遍。在实时控制和管理方面,采用多台微机处理机组成分级分布控制系统中,各CPU之间的通信一般都是串行方式。所以串行接口是微机应用系统常用的接口,而相应的应用程序也成为今年来研究的热点。本文旨在阐述一般的穿口通讯的原理及其程序设计,希望借此能够抛砖引玉,为更深入的研究打下一定的基础。

  一、串行通讯的基本原理

  所谓"串行通信"是指外设和计算机间使用一根数据信号线,数据在一根数据信号线上按位进行传输,每一位数据都占据一个固定的时间长度。这种通信方式使用的数据线少,在远距离通信中可以节约通信成本,当然,其传输速度比并行传输慢。相比之下,由于高速率的要求,处于计算机内部的CPU与串口之间的通讯仍然采用并行的通讯方式,所以串行口的本质就是实现CPU与外围数据设备的数据格式转换(或者称为串并转换器),即当数据从外围设备输入计算机时,数据格式由位(bit)转化为字节数据;反之,当计算机发送下行数据到外围设备时,串口又将字节数据转化为位数据。

  二、串口通讯的程序设计原理

  前面介绍了串行通讯的基本原理,那么如何在程序设计中实现它呢?事实上,这个过程并不复杂,一般有两种实现途径:其一就是使用MSCOMM控件,此控件提供很多方便操作的属性和方法,利用它们可以很方便地实现你的目的;另外一种途径就是使用Windows API,微软为开发者提供了很多相关的串行操作的编程接口,使用这些接口,可以很完成更为强大的功能。限于篇幅以及本文的宗旨,这里着重介绍第一种方法,第二种方法实际思路与第一种方法一样,不同的是它利用API函数代替了控件。

  无论使用哪一种途径,其基本的操作步骤大致一样的:首先初始化串口,比如端口号,波特率等属性......

阅读全文(3300) | 评论:0

一个简单的VB串口发送程序(源码)!(2005-09-23 12:26:00)

摘要: 一个简单的VB串口发送程序(源码)!
  '-----发送按钮Click事件子程序-----------
Private Sub Fasong_Click()
Dim JIHAO(0)    As Byte             ’机号
Dim head_data(4) As Byte           ’5 Byte控制字
Dim end_data(0) As Byte            '1 Byte 结束字
    JIHAO(0) = Val(Text3.Text)
    head_data(0) = Val(Text4.Text)
    head_data(2) = &HEE                 'TIMH
    head_data(3) = &HEE                 'TIML
 &......

阅读全文(5840) | 评论:0