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 ......
Dim FirstFile As String
Dim SecondFile As String
Dim FinalFile As String
Dim first() As Byte
Dim second() As Byte
Dim file1size As Long, file2size As Long
Private Sub Command3_Click()
SecondFile = Text2.Text
FirstFile = Text1.Text
FinalFile = Text3.Text
Open FirstFile For Binary Access Rea ......
程序效果：
当点击左边的部件图时，会弹出对话框提示你点击了哪一个区域。
程序思路：
用一个图片区域码图作为点击区域的参照，根据XY取得的颜色识别出属于哪一个区域
程序界面如下：
相关代码如下：
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......
上午:
VB总结：
下图是用mindmanager制作的VB总结mdb：
常用控件的分类：
属性和过程：
方法和过程
事件过程、Function过程和过程：
VB总结大图：
分歧如下：
数据包括：数据类型、变量、常量、运算符、表达式等几部分，而流程控制语句应不应该加入其中。
我感觉不应该，用“冰块模子&rdquo ......
