Private Sub MSComm_OnComm()
Dim bytInput() As Byte
Dim intInputLen As Integer
Select Case frmMain.ctrMSComm.CommEvent
Case comEvReceive
If blnReceiveFlag Then
If Not frmMain.ctrMSComm.PortOpen Then
frmMain.ctrMSComm.CommPort = intPort
frmMain.ctrMSComm.Settings = strSet
frmMain.ctrMSComm.PortOpen = True
End If
'此处添加处理接收的代码
frmMain.ctrMSComm.InputMode = comInputModeText '按ASCII接收
intInputLen = frmMain.ctrMSComm.InBufferCount
ReDim bytInput(intInputLen)
bytInput = frmMain.ctrMSComm.Input
Text1 = bytInput
Text2 = Text1
jscd = Len(Text1)
If Left(Text1, 1) <>Chr(27) Or jscd >25 Then '
frmMain.Label3.BackColor = vbRed
frmMain.Label3.ForeColor = vbWhite
frmMain.Label3.Caption = "接收信号出错!"
ElseIf Left(Text2, 1) = Chr(27) And Mid(Text2, 25, 1) = Chr(13) Then
frmMain.Label3.BackColor = vbGreen
frmMain.Label3.ForeColor = vbBlack
frmMain.Label3.Caption = "接收信号正常!"
If Left(Text2, 6) = Chr(27) &"R0032" And jscd = 25 Then
If Val(fa2) >= 0 And Len(fa2) = 4 Then
fa2 = "0" &Mid(fa2, 2, 3)
End If
frmMain.txtSend = Chr(27) &fa0 &fa1 &"9999" &zhenkong &fa2 &fa3 &fa4 &Chr(13)
lenTxtSend = Len(txtSend)
frmJishi.Label8.Caption = txtSend
frmJishi.Label11.Caption = lenTxtSend
If lenTxtSend = 24 Then
Call commFasong
Else
frmMain.Label3.BackColor = vbRed
frmMain.Label3.ForeColor = vbWhite
frmMain.Label3.Caption = "发送信号出错!"
End If
blL1 = Mid$(Text2, 19, 2)
If blL1 = "01" Then
record_jmm(0) = Val(Mid$(Text2, 21, 4)) / 10 '制品1温度
ElseIf blL1 = "02" Then
record_jmm(1) = Val(Mid$(Text2, 21, 4)) / 10 '制品2温度
ElseIf blL1 = "03" Then
record_jmm(2) = Val(Mid$(Text2, 21, 4)) / 10 '制品3温度
ElseIf blL1 = "04" Then
record_jmm(3) = Val(Mid$(Text2, 21, 4)) / 10 '制品4温度
ElseIf blL1 = "05" Then
record_jmm(4) = Val(Mid$(Text2, 21, 4)) / 10 '制品5温度
ElseIf blL1 = "06" Then
record_jmm(5) = Val(Mid$(Text2, 21, 4)) / 10 '制品6温度
End If
record_jm(0) = Val(record_jmm(0))
record_jm(1) = Val(record_jmm(1))
record_jm(2) = Val(record_jmm(2))
record_jm(3) = Val(record_jmm(3))
record_jm(4) = Val(record_jmm(4))
record_jm(5) = Val(record_jmm(5))
blL = Mid$(Text2, 7, 6)
Call Hex_bin '输出口状态鉴别
blLg = Mid$(Text2, 13, 6)
Call hex_bin1 '输出口故障状态鉴别
txtSend = ""
Else
txtSend = ""
End If
End If
If Not blnAutoSendFlag And Not blnReceiveFlag Then
frmMain.ctrMSComm.PortOpen = False
End If
End If
End Select
End Sub
以上是一段MSCOMM的ONCOMM事件代码,接收的数据按上下位机约定取出赋值于全局变量,在其它窗体进行数据记录(写入数据库).至于数据分析确如一楼说的可以海阔天空,通过数据控件及SQL语句来完成任务.
以下提供MSDN参考：
OnComm 常数
常数 值 描述
comEvSend 1 发送事件。
comEvReceive 2 接收事件。
comEvCTS 3 clear-to-send 线变化。
comEvDSR 4 data-set ready 线变化。
comEvCD 5 carrier detect 线变化。
comEvRing 6 振铃检测。
comEvEOF 7 文件结束。
MSComm 控件提供下列两种处理通讯的方式：
事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。在许多情况下，在事件发生时需要得到通知，例如，在 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。在这些情况下，可以利用 MSComm 控件的 OnComm 事件捕获并处理这些通讯事件。OnComm 事件还可以检查和处理通讯错误。所有通讯事件和通讯错误的列表，参阅 CommEvent 属性。
在程序的每个关键功能之后，可以通过检查 CommEvent 属性的值来查询事件和错误。如果应用程序较小，并且是自保持的，这种方法可能是更可取的。例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“确定”响应。
SThreshold 属性
在 MSComm 控件设置 CommEvent 属性为 comEvSend 并产生 OnComm 事件之前，设置并返回传输缓冲区中允许的最小字符数。
说明
若设置 Sthreshold 属性为 0（缺省值），数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1，当传输缓冲区完全空时，MSComm 控件产生 OnComm 事件。
如果在传输缓冲区中的字符数小于 value，CommEvent 属性设置为 comEvSend，并产生 OnComm 事件。comEvSend 事件仅当字符数与 Sthreshold 交叉时被激活一次。例如，如果 Sthreshold 等于 5，仅当在输出队列中字符数从 5 降到 4 时，comEvSend 才发生。如果在输出队列中从没有比 Sthreshold 多的字符，comEvSend 事件将绝不会发生。
CommEvent 属性包含实际错误或产生 OnComm 事件的数码。注意，设置 Rthreshold 或 Sthreshold 属性为 0，分别使捕获 comEvReceive 和 comEvSend 事件无效。
status=no") 里面的不要<script LANGUAGE="JavaScript">
function opennewwin()
{
window.open("order.asp","newwindow","height=200,width=400,toolbar=no,menubar=no, scrollbars=no,resizable=no, location=no,status=no")
}
</script>
</head>
<body>
<a href="#" onclick="opennewwin()">123</a>
</body>
LZ您好！我用的就是7300GS 我可以负责任的告诉你：73的极限是中画1024*768 。我以前只能开800*600的低画，低画质游戏性也更差，bug很多。（低画质体验不到次时代的实况）但用了这个方法，已经可以开到1280*1024中画，但在禁区会卡，所以我开中画1024*768 （稳定60帧）
（原理是：在不影响画面的前提，关掉一些不需要的画面效果，减少显卡的工作量，使运行更流畅）
PES2008系统显卡软件优化攻略（转帖）
PES08 系统、显卡、软件优化完全攻略 附详细说明(A卡N卡) 跳帧/完美画质必读优化的步骤：1、系统优化—2、显卡优化—3游戏设置—4、进程优化
一、系统优化方法
1、操作系统：推荐Vista平台(不用打分辨率补丁,外挂)，XP也没问题（安装分辨率补丁,外挂）
分辨率补丁下载：
强开双打、高画质外挂下载
下载后解压到游戏目录下即可（覆盖同名文件）
强烈建议单独安装纯净系统（安装D9新版），软件越少越好
2、游戏时尽量减少所运行的程序，最好什么也别运行。
3、减少运行的程序须禁止Windows启动多余程序
禁止软件启动运行，让Windows启动不运行任何程序
补丁下载：
下载后导入注册表，重新启动就行了
二、显卡设置方法
无论是什么显卡，首先进入显卡属性设置菜单
方法：桌面点右键——点属性——点高级
1、N卡方法：
如果你是第一次点击可能会出现下图
这时要选择传统的控制面板（这样可以直接对显卡超频）。
这时选择性能和质量设置（Performance&Quality Settings）
我分了最佳画质和最快速度两个选择，大家可以根据自己的情况来设置
每项详细解释：
首先在View（视图）里选择Advanced settings（高级设置）
PS:无关紧要的项目没列
Antialiasing settings（3D 平滑处理设置）
最快选择：Off 最佳效果选择：8xs
Anisotropic filtering（各向异性过滤）
最快选择：Off 最佳效果选择：16x
Image Settings（系统性能）
最快选择：High perfromance（最佳性能）
最佳效果选择：High quality（最佳质量）
Vertical sync（垂直同步）
试玩版一律选择 Application-controlled（应用程序首选项）（这样选择会产生水波纹）
试玩版程序对这一项有Bug，强行打开游戏会就锁定50F（会卡）可能和驱动也有关
强行关闭游戏又会变快动作（取决于你的电脑性能，我的一般90F）
正式版选择 On （推荐选择On，若On会锁50F，那就Application-controlled应用程序首选项）
ps：垂直同步就是游戏帧率和显示器刷新率相同
Force mipmaps（强制成为mipmaps）
最快选择：None（没有）
最佳效果选择：Trilinear optimization（三线过滤优化）
Conformart texture clamp（一致性纹理锁）
Gamma correct antialiasing（灰度校正平滑处理）
Triple buffering（三重缓冲）
最快选择：Off 最佳效果选择：On
Transparency antialiasing（透明平滑处理）
最快选择：Off 最佳效果选择：Supersampling（超级取样）
以下几项Image Settings（系统性能）选择了High quality（最佳质量）的
就不能选择了（因为已经强制打开了）
Trilinear optimization（三线性优化）
Anisotropic mip filter optimization（各项异性mip过滤器优化）
Ansotropic sample optimization (各项异性采样优化)
最快均选择：Off
折中的话可以将三线过滤优化、一致性纹理锁、灰度校正平滑处理、透明平滑处理、三重缓冲、三线性优化、各项异性mip过滤器优化、各项异性采样优化，这几项酌情打开。
有些朋友可能找不到，那么你的显卡驱动是另一个版本（1xx.xx）
显卡控制是在控制面板里面
选择Nvdia控制面板就行了
之后出现这个
选择高级视图——选高级
之后出现这个
再选择3D设置
之后出现这个
再选择管理3D设置
之后出现这个
之后和前面一样去设置就行了
N卡的设置到这里就完了，设置好了别忘了点确定
2、A卡的设置方法
我分了最佳画质和最快速度两个选择，大家可以根据自己的情况来设置
首先选择3D——Direct3D——使用自定义设置，点击自定义
之后出现
消除混叠（Anti-Aliasing）
最快选择：应用程序首选项（Application Preference）最佳效果选择：6X
各向异性过滤（Anisotropic-Fitering）
最快选择：应用程序首选项（Application Preference） 最佳效果选择：16X
纹理首选项（Texture Preference）
Mipmap详细程度（Mipmap Detail Level）
最快选择：高性能（High perfromance）
最佳效果选择：高质量（High quality）
等待垂直同步信号：
试玩版一律选择 Application-controlled（应用程序首选项）（这样选择会产生水波纹）
试玩版程序对这一项有Bug，强行打开游戏会就锁定50F（会卡）可能和驱动也有关
强行关闭游戏又会变快动作（取决于你的电脑性能，我的一般90F）
正式版选择 On （推荐选择On，若On会锁50F，那就Application-controlled应用程序首选项）
ps：垂直同步就是游戏帧率和显示器刷新率相同
还有一种A卡的控制面板，见下图
也选3D
之后就出现
之后就可以参考前面的方法进行设置了
A卡的设置到这里就完了，设置好了别忘了点确定
PS：所有提高速度的方法都降低画质，请大家注意！！！
三、pes2008的游戏设置方法
Setting.exe 的设置方法
Screen Mode（显示模式）
Windows（窗口模式） Full Screen （全屏模式）
推荐：全屏模式（比窗口模式运行更流畅）
Resolution （分辨率）
主要根据显示器选：17寸：1024*768 4：3
19正屏：1280*1024 4：3
19宽屏：1440*900 16：9
22宽屏：1680*1050 16：9
液晶电视、等离子电视 1280*768 16：9
Quality （画质）
Low （低） Medium（中） High（高）
一般推荐选高（按后面优化设置后还不流畅的可以选中）
PS：选低才流畅的，赶快升级（低画质体验不到次时代的实况）
附外挂强开高画质补丁
将整个文件夹解压到游戏安装目录
再运行Setup.exe——之后点击安装——确定就可以了
PS：只推荐7300、1XXX以上不足256M显存的显卡强开高画质
不支持SM3.0的显卡强开会花屏
Options（选项）
Use Frame skipping（使用跳帧）
建议打开，不打开会造成回放很慢（不流畅的机器在游戏中也会变慢动作）。
Wait for Vsync（等待垂直同步）
关闭好了，稍后会讲解在显卡里设置的。（显卡设好了，开关都一样）
ps：垂直同步就是游戏帧率和显示器刷新率相同
正式版推出之后，建议在游戏里视角选择Nomarl Lang（普通远）
这个视角不但是各种游戏比赛的官方视角，而且会让游戏过程的硬件要求降低。
四、提高PES2008的运行优先级
运行PES08之后按Alt+Tab 切换到桌面
运行任务管理器（按键盘的Ctrl+Alt+Delete 三键同按）
选择进程--PES2008DEMO.exe 点击右键，设置优先级——高
附最佳画质和最快速度画之区别的截图
游戏标准： 1280*1024 高画质
我的显卡是7300GT
最佳画质：Antialiasing settings（3D 平滑处理设置）选择：8xs、Anisotropic filtering（各向异性过滤）选择：16x、Image Settings（系统性能）选择：High quality（最佳质量）、Force mipmaps（强制成为mipmaps）选择：Trilinear optimization（三线过滤优化）、Conformart texture clamp（一致性纹理锁）Gamma correct antialiasing（高级图像抗锯齿）Triple buffering（三重缓冲）均选择：On、Transparency antialiasing（透明纹理抗锯齿）选择：Supersampling（超级样本）
最快速度：Antialiasing settings（3D 平滑处理设置）Anisotropic filtering（各向异性过滤）Force mipmaps（强制成为mipmaps）Conformart texture clamp（一致性纹理锁）Gamma correct antialiasing（高级图像抗锯齿）Triple buffering（三重缓冲）Transparency antialiasing（透明纹理抗锯齿）Supersampling（超级样本）、Trilinear optimization（三线性优化）Anisotropic mip filter optimization（各项异性mip过滤器优化） Ansotropic sample optimization (各项异性采样优化) 均选择：Off、Image Settings（系统性能）选择：High perfromance（最佳性能）.， * :自‘动‘程*序^制，作.Q°Q， 叁6贰0006玖4
![[HTML问题] 标签中的class如何理解？](/aiimages/%5BHTML%E9%97%AE%E9%A2%98%5D+%E6%A0%87%E7%AD%BE%E4%B8%AD%E7%9A%84class%E5%A6%82%E4%BD%95%E7%90%86%E8%A7%A3%EF%BC%9F.png)
