VB 5·1第三天
1、大道至简
米老师先呈现了一个函数的图像，然后问问大家想到了什么。
看到这张图，我先发现这是一个周期函数，再往深了就感觉自己应该不会了，寄希望于书信的几个同学，感觉应该是高数里的东西。但事实证明是初中的知识：
他是以下三个函数的复合函数：
y=sin(x)+sin(2x)+sin(3x)
这是囫囵吐枣的态度的另一极，看问题时被表面的复杂所迷惑，自己没信心而不去尝试，以后不管遇到什么困难，都应该静下心来好好的分析一下，充分调动自己已有的知识，试试能不能与之发生碰撞，求学数十载，相信任何一样知识都不是全新的。充分发挥自己的潜能。相信学习可以是由复杂到简单再到复杂的良性发展的过程
2、BIOS设置：
总结前天的教训，BIOS设置一个枣一个枣地来：
1、小勇示范的设置铭记于心
2、不懂的地方把名词缩写记下
3、回机房把记下的查一遍
4、中午回对门机房实际操作一次。
以前一看到BIOS设置界面，就有种恐惧一是陌生二是怕给机器整坏了，这次不会了。自己亲手进行了一下基础BIOS设置和高级BIOS设置，也不过如此，其实就和刚买的家用电器一样。刚买回来的电视机，得自己手动搜台，然后设置每个频道是几台，然后是亮度、声音、色彩效果等的设置是一个道理。以后别人再求帮忙，可以手不打颤得给他摆弄了
3、安全教育：
机房最近的“冒烟儿门”给大家敲了警钟，任何时候我们都应该把生命安全放在第一位，这不是胆怯，而是谨慎，他是我们快乐生活和学习的根本保障，写到这想到了前两天看的一篇博客：
IT人请爱惜自己的身体：
http://blog.csdn.net/zhoufoxcn/archive/2010/04/26/5528574.aspx
行动是最有力的语言，不多说了，让行动来证明
现在go downstairs··
相关文档：
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) 前两个字节为FFFE
Log.Message("fi ......
这几天一直在做一个小的工程,做一个文本阅读器,现在做的已经有三分之二了,从中学习到了很多,对我们以前学习的成果有了更深刻的理解.
VB是一门面向对象的程序设计,我就从面性对象的角度对他做一次总结
把VB中所有的数据,变量,控件都看做一个对象
我们所有的操作都是对对象的操作,让对象去执行某一个功能
大家先看一个例� ......
Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 1
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e ......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory ......
程序效果：
当点击左边的部件图时，会弹出对话框提示你点击了哪一个区域。
程序思路：
用一个图片区域码图作为点击区域的参照，根据XY取得的颜色识别出属于哪一个区域
程序界面如下：
相关代码如下：
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......
