操盘手bs指标源码(求用vbs编写的贪吃蛇源代码？)
1. 求用vbs编写的贪吃蛇源代码？
'定义蛇的运动速度枚举值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum
'定义蛇的运动方向枚举值
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum
'定义运动区域4个禁区的枚举值
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum
'定义蛇头及身体初始化数枚举值
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum
'定义蛇宽度的常量
Private Const SNAKEWIDTH As Integer = 100
'该过程用于显示游戏信息
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS贪食蛇 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub
'该过程用于使窗体恢复原始大小
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Me.Caption = ""
Me.Height = 6405 '窗体高度为 6405 缇
Me.Width = 8535 '窗体宽度为 8535 缇
Me.Left = (Screen.Width - Width) 2
Me.Top = (Screen.Height - Height) 2
End If
End Sub
'该过程用于重新开始开始游戏
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")
If msg = 6 Then Call m_subGameInitialize
End Sub
'该过程用于暂停/运行游戏
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "暂停游戏(&P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "继续游戏(&R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "暂停游戏(&P)"
End If
End Sub
'该过程用于显示游戏规则
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" & Chr(13) & _
"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _
"不能后退，蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _
"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" & Chr(13) & _
"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"
End Sub
'该过程用于显示游戏开发信息
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS贪食蛇" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr(13) & Chr(13) & _
"" & Chr(13) & Chr(13) & _
"由PigheadPrince设计制作" & Chr(13) & _
"CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub
'该过程用于退出游戏
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub
'该过程用于拖动窗体_(点击图标)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
2. 国诚分时t+0指标公式？
1、分时T+0（通达信专用分时主图）
2、分时引用（非公式，导入别删即可）
一、撑压线（一旦画出不会飘移）：
1、本指标能够在盘中及时显示动态的支撑压力线（最多2紫2绿），能够提前发出BS（红绿箭头）超卖超买提示，通过撑压线的生成作为你的实盘买卖时机，真正做到指标与实战同步结合的终极目标。
本指标根据一系列优秀的算法，结合股价历史走势，给出令人满意的不同参数，有效地解决了有些股死寂沉沉有些股活跃异常的情况，同样，这也为本指标适用于不同市场做了有力的铺垫。
2、指标有个黄色的四方框和两条黄色的虚线，这是我们看好的早盘黄金半小时高低箱体区间，10点之后这两条黄色线就会固定住，这样全天的走势，就一目了然，突破上线就是强势，下穿下线就是弱势，否则就是震荡市，再配合自动生成的紫红绿线显示个股精确的支撑压力点（不会漂移）进行合适的买卖操作，可以说，全天的个股势能判断立竿见影！！
3、本指标适用于股票、大盘、期指、期货市场，可以实时辅助你分析判断日内趋势助你一臂之力。
二、关于T+0:
A股只能当天买明天卖就叫T+1，而这指标就可以当天买当天卖T+0。比如昨天买了1000股，今天低位买回1000股，当天冲高就可以卖出1000股，这就是T+0的道理。
要点：结合指标，盯紧一只股票，不要贪心，每天盘中3%以下做差价，积小成多，祝您发财，，
市面上很多T+0指标都有未来，提示会漂移。本指标使用特别技术计算的压力支撑精准可靠不漂移，只要盘中价格接近压力支撑位，出来提示一天不会变，特别适合震荡市里股票期货的日内T+0操作。
【适用对象】
追涨杀跌能力不足而经常卖飞或买套的初级散户，以及对高抛低吸有一定认知但实盘难以把握无法精确控制仓位的中级散户，以及对指标研究有浓厚兴趣的指标爱好者。
【做T+0的建议】
在A股市场中T+0操作是非常重要的盈利手段，在做波段的同时做T+0，可以不断降低成本，从而获得更大的收益。在下降通道中套牢时做T+0，可以不断降低成本，从而减少损失，甚至盈利。
【用法说明】
1.根据股票所处的通道，上升通道或下降通道，结合支撑压力做不同类型的T+0。若上升通道做正T+0即低买高卖，若下降通道做反T+0即在相对高位卖出，在低位时买回。
2.通道向上、趋势线红色向上看多；
3.通道向下、趋势线绿色向下看空；
4.价格上穿下降通道（有箭头提示）看多；
5.价格下破上升通道（有箭头提示）看空；
6.请下载2个月以上的日线数据，计算压力支撑用到，否侧不准。
主图右键设置分时主图坐标为满占坐标。
最新版价格突破趋势通道改用黄点提示（旧版本为箭头），趋势通道只是代替人工自动画线，没用未来函数，但是会实时智能调节重画线（线和黄点都会移动！）如图。
所有撑压线在价格下为支撑，在价格上为压力！黄色箱体和底顶线在开盘30分钟后画出一天不变，紫色（最多0-2条）和绿色（最多0-2条）撑压线在价格碰到此撑压时画出，1分收线就固定，全天位置不会变，通道趋势线盘中动态智能画线，黄点跟随通道，位置会变。
3. 求用vbs编写的贪吃蛇源代码？
'定义蛇的运动速度枚举值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum
'定义蛇的运动方向枚举值
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum
'定义运动区域4个禁区的枚举值
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum
'定义蛇头及身体初始化数枚举值
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum
'定义蛇宽度的常量
Private Const SNAKEWIDTH As Integer = 100
'该过程用于显示游戏信息
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS贪食蛇 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub
'该过程用于使窗体恢复原始大小
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Me.Caption = ""
Me.Height = 6405 '窗体高度为 6405 缇
Me.Width = 8535 '窗体宽度为 8535 缇
Me.Left = (Screen.Width - Width) 2
Me.Top = (Screen.Height - Height) 2
End If
End Sub
'该过程用于重新开始开始游戏
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")
If msg = 6 Then Call m_subGameInitialize
End Sub
'该过程用于暂停/运行游戏
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "暂停游戏(&P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "继续游戏(&R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "暂停游戏(&P)"
End If
End Sub
'该过程用于显示游戏规则
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" & Chr(13) & _
"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _
"不能后退，蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _
"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" & Chr(13) & _
"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"
End Sub
'该过程用于显示游戏开发信息
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS贪食蛇" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr(13) & Chr(13) & _
"" & Chr(13) & Chr(13) & _
"由PigheadPrince设计制作" & Chr(13) & _
"CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub
'该过程用于退出游戏
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub
'该过程用于拖动窗体_(点击图标)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
4. 求用vbs编写的贪吃蛇源代码？
'定义蛇的运动速度枚举值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum
'定义蛇的运动方向枚举值
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum
'定义运动区域4个禁区的枚举值
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum
'定义蛇头及身体初始化数枚举值
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum
'定义蛇宽度的常量
Private Const SNAKEWIDTH As Integer = 100
'该过程用于显示游戏信息
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS贪食蛇 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub
'该过程用于使窗体恢复原始大小
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Me.Caption = ""
Me.Height = 6405 '窗体高度为 6405 缇
Me.Width = 8535 '窗体宽度为 8535 缇
Me.Left = (Screen.Width - Width) 2
Me.Top = (Screen.Height - Height) 2
End If
End Sub
'该过程用于重新开始开始游戏
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")
If msg = 6 Then Call m_subGameInitialize
End Sub
'该过程用于暂停/运行游戏
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "暂停游戏(&P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "继续游戏(&R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "暂停游戏(&P)"
End If
End Sub
'该过程用于显示游戏规则
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" & Chr(13) & _
"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _
"不能后退，蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _
"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" & Chr(13) & _
"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"
End Sub
'该过程用于显示游戏开发信息
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS贪食蛇" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr(13) & Chr(13) & _
"" & Chr(13) & Chr(13) & _
"由PigheadPrince设计制作" & Chr(13) & _
"CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub
'该过程用于退出游戏
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub
'该过程用于拖动窗体_(点击图标)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
5. 国诚分时t+0指标公式？
1、分时T+0（通达信专用分时主图）
2、分时引用（非公式，导入别删即可）
一、撑压线（一旦画出不会飘移）：
1、本指标能够在盘中及时显示动态的支撑压力线（最多2紫2绿），能够提前发出BS（红绿箭头）超卖超买提示，通过撑压线的生成作为你的实盘买卖时机，真正做到指标与实战同步结合的终极目标。
本指标根据一系列优秀的算法，结合股价历史走势，给出令人满意的不同参数，有效地解决了有些股死寂沉沉有些股活跃异常的情况，同样，这也为本指标适用于不同市场做了有力的铺垫。
2、指标有个黄色的四方框和两条黄色的虚线，这是我们看好的早盘黄金半小时高低箱体区间，10点之后这两条黄色线就会固定住，这样全天的走势，就一目了然，突破上线就是强势，下穿下线就是弱势，否则就是震荡市，再配合自动生成的紫红绿线显示个股精确的支撑压力点（不会漂移）进行合适的买卖操作，可以说，全天的个股势能判断立竿见影！！
3、本指标适用于股票、大盘、期指、期货市场，可以实时辅助你分析判断日内趋势助你一臂之力。
二、关于T+0:
A股只能当天买明天卖就叫T+1，而这指标就可以当天买当天卖T+0。比如昨天买了1000股，今天低位买回1000股，当天冲高就可以卖出1000股，这就是T+0的道理。
要点：结合指标，盯紧一只股票，不要贪心，每天盘中3%以下做差价，积小成多，祝您发财，，
市面上很多T+0指标都有未来，提示会漂移。本指标使用特别技术计算的压力支撑精准可靠不漂移，只要盘中价格接近压力支撑位，出来提示一天不会变，特别适合震荡市里股票期货的日内T+0操作。
【适用对象】
追涨杀跌能力不足而经常卖飞或买套的初级散户，以及对高抛低吸有一定认知但实盘难以把握无法精确控制仓位的中级散户，以及对指标研究有浓厚兴趣的指标爱好者。
【做T+0的建议】
在A股市场中T+0操作是非常重要的盈利手段，在做波段的同时做T+0，可以不断降低成本，从而获得更大的收益。在下降通道中套牢时做T+0，可以不断降低成本，从而减少损失，甚至盈利。
【用法说明】
1.根据股票所处的通道，上升通道或下降通道，结合支撑压力做不同类型的T+0。若上升通道做正T+0即低买高卖，若下降通道做反T+0即在相对高位卖出，在低位时买回。
2.通道向上、趋势线红色向上看多；
3.通道向下、趋势线绿色向下看空；
4.价格上穿下降通道（有箭头提示）看多；
5.价格下破上升通道（有箭头提示）看空；
6.请下载2个月以上的日线数据，计算压力支撑用到，否侧不准。
主图右键设置分时主图坐标为满占坐标。
最新版价格突破趋势通道改用黄点提示（旧版本为箭头），趋势通道只是代替人工自动画线，没用未来函数，但是会实时智能调节重画线（线和黄点都会移动！）如图。
所有撑压线在价格下为支撑，在价格上为压力！黄色箱体和底顶线在开盘30分钟后画出一天不变，紫色（最多0-2条）和绿色（最多0-2条）撑压线在价格碰到此撑压时画出，1分收线就固定，全天位置不会变，通道趋势线盘中动态智能画线，黄点跟随通道，位置会变。
6. 国诚分时t+0指标公式？
1、分时T+0（通达信专用分时主图）
2、分时引用（非公式，导入别删即可）
一、撑压线（一旦画出不会飘移）：
1、本指标能够在盘中及时显示动态的支撑压力线（最多2紫2绿），能够提前发出BS（红绿箭头）超卖超买提示，通过撑压线的生成作为你的实盘买卖时机，真正做到指标与实战同步结合的终极目标。
本指标根据一系列优秀的算法，结合股价历史走势，给出令人满意的不同参数，有效地解决了有些股死寂沉沉有些股活跃异常的情况，同样，这也为本指标适用于不同市场做了有力的铺垫。
2、指标有个黄色的四方框和两条黄色的虚线，这是我们看好的早盘黄金半小时高低箱体区间，10点之后这两条黄色线就会固定住，这样全天的走势，就一目了然，突破上线就是强势，下穿下线就是弱势，否则就是震荡市，再配合自动生成的紫红绿线显示个股精确的支撑压力点（不会漂移）进行合适的买卖操作，可以说，全天的个股势能判断立竿见影！！
3、本指标适用于股票、大盘、期指、期货市场，可以实时辅助你分析判断日内趋势助你一臂之力。
二、关于T+0:
A股只能当天买明天卖就叫T+1，而这指标就可以当天买当天卖T+0。比如昨天买了1000股，今天低位买回1000股，当天冲高就可以卖出1000股，这就是T+0的道理。
要点：结合指标，盯紧一只股票，不要贪心，每天盘中3%以下做差价，积小成多，祝您发财，，
市面上很多T+0指标都有未来，提示会漂移。本指标使用特别技术计算的压力支撑精准可靠不漂移，只要盘中价格接近压力支撑位，出来提示一天不会变，特别适合震荡市里股票期货的日内T+0操作。
【适用对象】
追涨杀跌能力不足而经常卖飞或买套的初级散户，以及对高抛低吸有一定认知但实盘难以把握无法精确控制仓位的中级散户，以及对指标研究有浓厚兴趣的指标爱好者。
【做T+0的建议】
在A股市场中T+0操作是非常重要的盈利手段，在做波段的同时做T+0，可以不断降低成本，从而获得更大的收益。在下降通道中套牢时做T+0，可以不断降低成本，从而减少损失，甚至盈利。
【用法说明】
1.根据股票所处的通道，上升通道或下降通道，结合支撑压力做不同类型的T+0。若上升通道做正T+0即低买高卖，若下降通道做反T+0即在相对高位卖出，在低位时买回。
2.通道向上、趋势线红色向上看多；
3.通道向下、趋势线绿色向下看空；
4.价格上穿下降通道（有箭头提示）看多；
5.价格下破上升通道（有箭头提示）看空；
6.请下载2个月以上的日线数据，计算压力支撑用到，否侧不准。
主图右键设置分时主图坐标为满占坐标。
最新版价格突破趋势通道改用黄点提示（旧版本为箭头），趋势通道只是代替人工自动画线，没用未来函数，但是会实时智能调节重画线（线和黄点都会移动！）如图。
所有撑压线在价格下为支撑，在价格上为压力！黄色箱体和底顶线在开盘30分钟后画出一天不变，紫色（最多0-2条）和绿色（最多0-2条）撑压线在价格碰到此撑压时画出，1分收线就固定，全天位置不会变，通道趋势线盘中动态智能画线，黄点跟随通道，位置会变。
7. 求用vbs编写的贪吃蛇源代码？
'定义蛇的运动速度枚举值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum
'定义蛇的运动方向枚举值
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum
'定义运动区域4个禁区的枚举值
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum
'定义蛇头及身体初始化数枚举值
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum
'定义蛇宽度的常量
Private Const SNAKEWIDTH As Integer = 100
'该过程用于显示游戏信息
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS贪食蛇 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub
'该过程用于使窗体恢复原始大小
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Me.Caption = ""
Me.Height = 6405 '窗体高度为 6405 缇
Me.Width = 8535 '窗体宽度为 8535 缇
Me.Left = (Screen.Width - Width) 2
Me.Top = (Screen.Height - Height) 2
End If
End Sub
'该过程用于重新开始开始游戏
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")
If msg = 6 Then Call m_subGameInitialize
End Sub
'该过程用于暂停/运行游戏
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "暂停游戏(&P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "继续游戏(&R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "暂停游戏(&P)"
End If
End Sub
'该过程用于显示游戏规则
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" & Chr(13) & _
"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _
"不能后退，蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _
"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" & Chr(13) & _
"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"
End Sub
'该过程用于显示游戏开发信息
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS贪食蛇" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr(13) & Chr(13) & _
"" & Chr(13) & Chr(13) & _
"由PigheadPrince设计制作" & Chr(13) & _
"CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub
'该过程用于退出游戏
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub
'该过程用于拖动窗体_(点击图标)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
8. 国诚分时t+0指标公式？
1、分时T+0（通达信专用分时主图）
2、分时引用（非公式，导入别删即可）
一、撑压线（一旦画出不会飘移）：
1、本指标能够在盘中及时显示动态的支撑压力线（最多2紫2绿），能够提前发出BS（红绿箭头）超卖超买提示，通过撑压线的生成作为你的实盘买卖时机，真正做到指标与实战同步结合的终极目标。
本指标根据一系列优秀的算法，结合股价历史走势，给出令人满意的不同参数，有效地解决了有些股死寂沉沉有些股活跃异常的情况，同样，这也为本指标适用于不同市场做了有力的铺垫。
2、指标有个黄色的四方框和两条黄色的虚线，这是我们看好的早盘黄金半小时高低箱体区间，10点之后这两条黄色线就会固定住，这样全天的走势，就一目了然，突破上线就是强势，下穿下线就是弱势，否则就是震荡市，再配合自动生成的紫红绿线显示个股精确的支撑压力点（不会漂移）进行合适的买卖操作，可以说，全天的个股势能判断立竿见影！！
3、本指标适用于股票、大盘、期指、期货市场，可以实时辅助你分析判断日内趋势助你一臂之力。
二、关于T+0:
A股只能当天买明天卖就叫T+1，而这指标就可以当天买当天卖T+0。比如昨天买了1000股，今天低位买回1000股，当天冲高就可以卖出1000股，这就是T+0的道理。
要点：结合指标，盯紧一只股票，不要贪心，每天盘中3%以下做差价，积小成多，祝您发财，，
市面上很多T+0指标都有未来，提示会漂移。本指标使用特别技术计算的压力支撑精准可靠不漂移，只要盘中价格接近压力支撑位，出来提示一天不会变，特别适合震荡市里股票期货的日内T+0操作。
【适用对象】
追涨杀跌能力不足而经常卖飞或买套的初级散户，以及对高抛低吸有一定认知但实盘难以把握无法精确控制仓位的中级散户，以及对指标研究有浓厚兴趣的指标爱好者。
【做T+0的建议】
在A股市场中T+0操作是非常重要的盈利手段，在做波段的同时做T+0，可以不断降低成本，从而获得更大的收益。在下降通道中套牢时做T+0，可以不断降低成本，从而减少损失，甚至盈利。
【用法说明】
1.根据股票所处的通道，上升通道或下降通道，结合支撑压力做不同类型的T+0。若上升通道做正T+0即低买高卖，若下降通道做反T+0即在相对高位卖出，在低位时买回。
2.通道向上、趋势线红色向上看多；
3.通道向下、趋势线绿色向下看空；
4.价格上穿下降通道（有箭头提示）看多；
5.价格下破上升通道（有箭头提示）看空；
6.请下载2个月以上的日线数据，计算压力支撑用到，否侧不准。
主图右键设置分时主图坐标为满占坐标。
最新版价格突破趋势通道改用黄点提示（旧版本为箭头），趋势通道只是代替人工自动画线，没用未来函数，但是会实时智能调节重画线（线和黄点都会移动！）如图。
所有撑压线在价格下为支撑，在价格上为压力！黄色箱体和底顶线在开盘30分钟后画出一天不变，紫色（最多0-2条）和绿色（最多0-2条）撑压线在价格碰到此撑压时画出，1分收线就固定，全天位置不会变，通道趋势线盘中动态智能画线，黄点跟随通道，位置会变。
