主要是对SerialPort控件的编程和数据库的读取,
创新互联专注网站设计,以设计驱动企业价值的持续增长,网站，看似简单却每一个企业都需要——设计，看似简洁却是每一位设计师的心血 十年来，我们只专注做网站。认真对待每一个客户，我们不用口头的语言来吹擂我们的优秀，1000多家的成功案例见证着我们的成长。
在数据库读取方面可以用 DataSet ,BindingSource , TableAdapter 等数据绑定控件,
SerialPort控件的具体读写方法建议你看MSDN,大概是:
Private Sub 关闭和启动串口()
Try
If 串口.IsOpen Then
串口.Close()
End If
串口.Open()
Catch ex As Exception
''''
End Try
End Sub
Private Sub 串口的读与写()
......
Dim 发送字节() As Byte, 返回字节 As Byte
Try
'例如要发送字节: 6D
发送字节 = BitConverter.GetBytes(CByte("H6D"))
串口.Write(发送字节, 0, 1)
......
'例如读串口返回的字节
返回字节 = 串口.ReadByte
Catch ex As Exception
''''
End Try
......
End Sub
'等等
Vb不是人机对话窗口，而是编程工具，可以编写代码进行调试执行或者生成可执行文件。
用Visual Studio .Net开发"Hello World!"程序：
我们知道"Hello World"一般是命令行程序，而这种程序在Visual Studio .Net中被称为"控制台程序"。下面是Visual Studio .Net编写控制台"Hello World！"程序的具体步骤：
（1）、启动Visual Studio .Net。
（2）、选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。
（3）、将【项目类型】设置为【Visual Basic项目】。
（4）、将【模板】设置为【控制台应用程序】。
（5）、在【名称】文本框中输入【Hello World】。
（6）、在【位置】的文本框中输入【E:VS.NET项目】，然后单击【确定】按钮，则Visual Studio .Net会按照上面设定的参数创建一个控制台应用程序项目，具体如图01所示。
图01："Hello World"控制台程序的【新建项目】界面
（7）、在【解决方案资源管理器】窗口中，双击Module1.vb文件，进入Module1.vb文件的编辑界面。
（8）、Visual Studio .Net已经为产生Main()函数。在系统创建的Main()函数中加入下面一行代码就可以了：
Console.WriteLine ("Hello World!")
（9）、选择【文件】|【保存Module1.vb】菜单或者按快捷键Ctrl＋S，保存所做的修改。
（10）、此时单击快捷键Ctrl＋F5运行程序就可以得到图02所示运行界面：
你好，你使用这种方法只是在控制Form3的visible属性，Form3只是可见或隐藏，并不是真正的关闭了，而你使用Form3上的关闭按钮，他就是真的关闭了，是调用的Form3的Close方法，就是真的没有了，"我设置的S_form3就不起作用了”这句话你应该是想说按钮不起作用了吧，你的S_form3只是个变量，跟Form3没有什么关系，你只是用来当一个Form3可见性的标志，使用bool变量更能清楚表达你的意图。。。没必要用string啊。。。，
by the way,你在按钮事件里添加代码 Form3.Close()就会达到和在form3上按关闭按钮同样的效果。
应该定义为double或者single，string类好像不能进行运算。我简单说一下控制台的方法，你要一次性输入和差积商，首先声明两个变量用来储存两个数，然后用算法一次性输出结果就ok。
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("请输入第一个数") : FN = Console.ReadLine
Console.WriteLine("请输入第二个数") : SN = Console.ReadLine
ResultNum = FN + SN
Console.WriteLine("它们的和: " ResultNum)
ResultNum = FN - SN
Console.WriteLine("它们的差: " ResultNum)
ResultNum = FN * SN
Console.WriteLine("它们的积: " ResultNum)
ResultNum = FN / SN
Console.WriteLine("它们的商: " ResultNum)
Console.ReadLine()
End Sub
1.用Win32 API PlaySound
PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：
先声明：
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = H20000
Const SND_ALIAS As Integer = H10000
Const SND_SYNC As Integer = H0
具体还有很多常量，不一一列举，下面是播放一个wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。
当然我们也可以调用系统的声音：
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式调用系统启动时候的声音。
2． 调用媒体播放器控件
VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。
首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\爱不爱我.mp3"
.Play()
End With
End Sub
如果你读懂了转换就不难，比如第一个提取年信息的。
五分钟数据样本如下：
66 00 3F 02 66 66 26 41 66 66 26 41 B8 1E 25 41
85 EB 25 41 C0 05 56 49 4E 03 00 00 00 00 00 00
现已知每4个字节代表一段含义，分别是时间，开盘价，最高价，最低价，收盘价，成交额，成交量。
年——66 00 16进制转换为10进制是26112 26112/2048+2004=2016
