先看下面的文字

《先看下面的文字》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、先看下面的文字：VB很简单，比C语言简单很多，文科生学习的都是VB。以下是我的想法：1.理解并熟悉基本的ActiveX控件（包括属性、调用方法）；2.理解并掌握变量、函数（方法）的定义与调用；以上两点都是很基本的要求，但是都要进行编程实验，从最简单的开始，一步步开始，一步步熟悉，不然即使有现成的代码完成了设计也很难有实质性进步。下面开始实质性要求了：1.熟悉下图基本控件，熟悉其基本属性、基本方法，并掌握变量、函数（方法）的定义与调用；这部分可能会要求写十几个（以上的）程序，很是很难坚持的，但是请你一定注意，没有这部分的训练，VB对你来说就真的没什么价值了。这一个

2、过程最好持续一周！最少三天！！！注意：保留你做的每一个程序，哪怕很简单，但这却是你进步的足迹。【要求】最终完成一定复杂度的计算器程序。如下图：如果太难，那你自己完成一个自己认为可以胜任的（代码>100行）2.现在开始进阶了，在这部分，结合本次课程设计，你重点了解数据库和串口方面的知识。放心，我现在已经在进行这样的工作，即把相关的资料整理在下面的网站上http://hushi.sinaapp.com/?p=482（现在可能还没有更新，但是可能会很快的！！！）这样，你会节约大量的时间，进步很快!给你一个模板：下面开始一下具体的图文讲解了：串口操作：1.打开串口控件工

3、程——部件，然后选择：确认后会发现有如下控件1.设置参数MSComm1.Settings="9600,n,8,1"MSComm1.RThreshold=1MSComm1.CommPort=4MSComm1.InputMode=comInputModeText'二进制接收打开IfMSComm1.PortOpen=FalseThenask=MsgBox("打开串口失败,请连接好串口！",vbExclamation,"警告")EndIfMSComm1.PortOpen=True关闭MSComm1.PortOpen=False接收数据DimintInputLenAsIn

4、tegerSelectCaseMSComm1.CommEventCasecomEvReceive‘时间触发'此处添加处理接收的代码intInputLen=MSComm1.InBufferCount‘读取数据发送数据MSComm1.OutBufferCount=0‘缓冲区清零MSComm1.Output=Outbyte‘发数据,Outbyte为想发的数据数据库操作1.添加Adodc和DataGrid控件工程——部件选择如下图确认后会有如下控件1.添加ADO控件在窗体上加一个ADO控件选中后右键选择ADODC属性打开属性页如下图点击生成然后选择下一步后选择数据库（在

5、这之前你应该建好数据库，并写有数据）关于数据库的创建，在本文档的最后会有介绍。选择好数据库测试连接成功确定后回到属性页点击记录源填写如下SQL语句（其中，命令文本中的time，tem，temcode，id应为你自己的数据库中的字段。）在窗体上再添加一个文本框把其属性设置为：运行你可以看到text中显示的就是数据库中的数据了。再在窗体上添加一个DataGrid控件：设置属性：运行可以看到：关于具体数据库具体操作（这里指代码级）还有很多内容，这个一时下面我作一些简单介绍（这些只能支持简单的数据库操作）：浏览记录集：1.AbsoloutPostion属性Absolou

6、tPostion返回当前的记录集值，第n条记录的AbsoloutPostion属性值为n。2.BOF和EOF的属性BOF判定记录指针是否在首记录之前，若BOF为True，则当前位置位于记录集的第1条记录之前；与此类似，EOF判定记录指针是否在末记录之后。（这很重要，自己去体会！）3.RecordCount属性略！（自己看看）4.Find方法略！（不是不重要，知识内容有点多，打字很浪费时间，另本次任务基本可不用）5.Move方法使用Move方法可以使用代码控制指针的位置：1.MoveFirst：移动至第一条记录；2.MoveLast：移动至最后一条记录；3.Mov

7、eNext：移动至下一条记录；1.MovePrevious：移动至前一条记录；2.Move[n]：移动n条记录，当n大于零，则向前（记录集尾部）移动n条记录，当n小于零，则向后（记录集头部）移动n条记录。Example：（注意体会！！！）‘上一条Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst‘下一条Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

8、‘第一条Adodc1.R