博文
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. 使用数组
在对从输入读取的行进行排序之前，程序需要将其存储......
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......
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......
VB中资源文件的具体使用方法(2005-09-23 20:47:00)
摘要：
VB中资源文件的具体使用方法
作者：unknown 更新时间： 2005-05-02
下面就和大家具体谈谈如何在VB中建立和使用资源文件。
首先，我们先了解一下windows应用程序中一般经常使用的资源：
位图：位图是用于创建应用程序用户界面的图像。例如，用户可以为工具栏按钮创建一套位图，也可以创建在其它窗口上显示的位图。一般来说，都是在图像编辑器中创建位图，然后再将该位图添加到资源文件中。
图标：图标是类似于位图的小图像，然而，虽然位图可以具有任意大小的尺寸，但是图标却小得多，通常为16＊16像素或32＊32像素。图标使用的很多方法与位图一样。然而，图标通常被用作代表最小化应用程序的图象、代表应用程序文档类型的图像和其它类型的应用系统。
字符串表：就是指文本串的一个表格，通常来说字符串用来显示菜单命令的提示、对话框中和消息框中显示的信息。要访问串表格中的文本串，需引用串的ID，它与定义表格的源文件中的串相联系。
光标：光标是代表鼠标在屏幕上的位置的图像。尽管windows 系统定义和许多类型的光标，但用户也可以创建自己需要的光标。
定制资源：定制资源是用户想存储在其应用程序资源文件中的任何类型的数据。这些数据可以是文本文件或二进制文件，用户可以用任何喜欢的方式定制资源。资源文件只是作为存储区域。创建了定制资源，可以避免必须从磁盘文件中加载数据，因为数据随资源文件一起加载。
对话框：对话框的资源定义包括样式标志（控制对话框外观及行为的值）以及对话框中含控件的大小和位置。
菜单栏：用户应用程序的菜单栏也可以在资源文件中定义。可以在资源文件中指定命令和命令的ID，以用命令在菜单中的位置。
加速器：加速器也称为热键。它们是用户快速选取命令时所按下的键，使用热键时，不必在应用程序的菜单中寻找命令。加速器在一个表格中定义，这个表将按键与命令资源的ID联系起来。
那么在VB开发环境中如何使用这些资源呢？
1、添加资源文件编辑器，
启动......
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
⑶保存资源文件，写如下代码：（自定义装载字符的......
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
......
Delphi中利用MSCOMM控件进行GPS数据采集 (2005-09-23 12:38:00)
摘要：
Delphi中利用MSCOMM控件进行GPS数据采集
日期：2005年1月3日 作者：杨辉 薛向锋 人气：
430 人 [ 大 中 小 ]
1、准备
GPS（Global Positioning System），即全球定位系统，利用24颗GPS卫星的测距和测时功能进行全球定位，在许多系统中，如机场导航系统，出租车辆管理和调度系统、江河流域的灾害信息管理和预测系统中，GPS得到了广泛的应用。本文利用MSCOMM控件实现了GPS数据的采集，可为信息管理和指挥调度等提供定位数据。
本文采用GPS的异步串行传送方式，将GARMIN 12C按NMEA-0183协议输出的数据采集到了微机，并将接收到的地理坐标转换成为直角坐标。
在DELPHI 5.0 IDE中新建一工程，名为GPSReceiver，在主界面上放置四个TEDIT控件，用于显示接收到的地理坐标和转换后的直角坐标，其“name”属性分别为：Editlatitude、Editlongitude、Editxcoord和Editycoord；在四个TEDIT控件下方放置三个按钮，用于数据接收的控制和退出程序，其“Caption”属性分别为“接收”、“断开”和“返回”；在界面上任意位置放置一个Ttimer控件、其属性interval值为“1000”，主要用于每隔一秒接收一次GPS数据；一个TMSCOMM控件。程序运行后的界面如图1所示：
图1
2、编写代码
1） 在FORM的implementation部分添加以下声明
var
nn,x,y,sm,n,weidud,jinchad,firstpxl,secondpxl,a,b,longitude,longitudemargin,latitude:double;
weidustr,weidustrcpy,longitudestr1cpy,longitudestrccpy,
weidustr1,weidustr2,jinchastr,jinchastr1,jinchastr2,longitudestr1,
longitud......
GPS/GPRS车辆监控系统中移动终端的开发(2005-09-23 12:37:00)
摘要：
GPS/GPRS车辆监控系统中移动终端的开发
上网时间 : 2004年04月03日
打 印 版 推 荐 给 同 仁 发 送 查 询
越来越多的民用车辆开始使用GPS定位技术实现定位、监控和导航等功能。本文介绍了一种采用SA1110 CPU和Q2400 GPRS/GSM模块的车辆定位监控系统，提出了在嵌入式平台上实现车载信息处理终端的开发方案，详细介绍了各个硬件和软件模块的功能和实现方法。
近年来，对地域广泛、机动性强、数量众多的移动目标有效监控、紧急救援和各种信息服务的需求，在客运、公安、银行、物流管理等行业表现得尤为突出。全球定位系统技术的发展使得移动目标的实时定位成为可能，同时无线通信技术的技术也得到了长足进展，对移动目标进行远程监控调度成为可能。特别是GPRS业务的出现，使得人们能够对移动目标进行全国范围、实时、全天候监控调度。
监控系统介绍
车辆调度系统的建设首先要考虑监控覆盖范围、实时性、调度业务、车辆容量和刷新速率等的要求，选择合适的无线数据链路和电子地图，以及开发相应业务软件满足用户的要求。就目前的GPS车辆监控系统而言，无线数据链路应用较多的为GSM通信方式，这主要由于其覆盖范围广、无需架设基站、可实现语音/短信等功能优点所决定的，但是采用短消息传送车载信息不但容量有限，而且实时性不能得到保证，并且还存在着费用过高的问题。幸运的是新兴的GPRS数据业务解决了这些问题。GPRS/IP/TCP/UDP协议栈可以满足数据的实时交换，在现有的公用无线通信系统中拥有最大的带宽，与目前流行的短消息相比，在相同数据长度、相同时间间隔下通讯费用是短消息方式的1/6，甚至更少。监控系统主要由以下部分组成：
1. 车载信息处理终端：包括中央处理单元、显示单元(可选)、GPS接收机、GPS天线、GPRS手机模块(或CDMA等其它通信模块)、报警器(防盗、超速、抢劫、特殊功能报警等)。终端能够提供定位、导航、通话、报警和远程控制等功能。
2. 无线通信数据链路：无线数据传输设备作为基站与各移动目标进行信息交换的枢纽，是整个车辆调度系统中的重要组成部分，......
串口通讯及其在VB平台下的实现(2005-09-23 12:29:00)
摘要：串口通讯及其在VB平台下的实现
冯杰
摘要：本文首先介绍串行通讯的基础知识，然后结合示例剖析在VB平台下的串口通讯的编程技巧。
随着计算机系统的普及与外围设备技术的发展，计算机与外围设备之间的通讯就显得越来越重要了。由于串行通信是在一根传输线上一位一位的传送信息，所用的传输线少，并且可以借助现成的电话网进行信息传送，因此，特别适合于远距离传输。对于那些与计算机相距不远的人－机交换设备和串行存储的外部设备如终端、打印机、逻辑分析仪、磁盘等，采用串行方式交换数据也很普遍。在实时控制和管理方面，采用多台微机处理机组成分级分布控制系统中，各CPU之间的通信一般都是串行方式。所以串行接口是微机应用系统常用的接口，而相应的应用程序也成为今年来研究的热点。本文旨在阐述一般的穿口通讯的原理及其程序设计，希望借此能够抛砖引玉，为更深入的研究打下一定的基础。
一、串行通讯的基本原理
所谓"串行通信"是指外设和计算机间使用一根数据信号线,数据在一根数据信号线上按位进行传输，每一位数据都占据一个固定的时间长度。这种通信方式使用的数据线少，在远距离通信中可以节约通信成本，当然，其传输速度比并行传输慢。相比之下，由于高速率的要求，处于计算机内部的CPU与串口之间的通讯仍然采用并行的通讯方式，所以串行口的本质就是实现CPU与外围数据设备的数据格式转换（或者称为串并转换器），即当数据从外围设备输入计算机时，数据格式由位(bit)转化为字节数据；反之，当计算机发送下行数据到外围设备时，串口又将字节数据转化为位数据。
二、串口通讯的程序设计原理
前面介绍了串行通讯的基本原理，那么如何在程序设计中实现它呢？事实上，这个过程并不复杂，一般有两种实现途径：其一就是使用MSCOMM控件，此控件提供很多方便操作的属性和方法，利用它们可以很方便地实现你的目的；另外一种途径就是使用Windows API，微软为开发者提供了很多相关的串行操作的编程接口，使用这些接口，可以很完成更为强大的功能。限于篇幅以及本文的宗旨，这里着重介绍第一种方法，第二种方法实际思路与第一种方法一样，不同的是它利用API函数代替了控件。
无论使用哪一种途径，其基本的操作步骤大致一样的：首先初始化串口，比如端口号，波特率等属性......
一个简单的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
&......