俄罗斯方块。
本程序的难点在于如何表示出10*20的网格以及不同形状的方块。
判断blngird数组中是否有一行全部为true的情况，如果有就加分并将上面元素的值赋给下面的元素，实现消去一行的效果。
option explicit
注册表关键字安全选项。
const read_control = h20000
const key_query_value = h1
const key_set_value = h2
const key_create_sub_key = h4
const key_enumerate_sub_keys = h8
const key_notify = h10
const key_create_link = h20
const key_all_access = key_query_value + key_set_value +
key_create_sub_key + key_enumerate_sub_keys +
key_notify + key_create_link + read_control
注册表关键字 root 类型。
const hkey_local_machine = h80000002
const error_success = 0
const reg_sz = 1独立的空的终结字符串。
const reg_dword = 432位数字。
const gregkeysysinfoloc = software\microsoft\shared tools location"
const gre**alsysinfoloc = msinfo"
const gregkeysysinfo = software\microsoft\shared tools\msinfo"
const gre**alsysinfo = path"
private declare function regopenkeyex lib "advapi32" alias "regopenkeyexa" (byval hkey as long, byval lpsubkey as string, byval uloptions as long, byval samdesired as long, byref phkresult as long) as long
private declare function regqueryvalueex lib "advapi32" alias "regqueryvalueexa" (byval hkey as long, byval lpvaluename as string, byval lpreserved as long, byref lptype as long, byval lpdata as string, byref lpcbdata as long) as long
private declare function regclosekey lib "advapi32" (byval hkey as long) as long
private sub cmdsysinfo_click()
call startsysinfo
end sub
private sub cmdok_click()
unload me
end sub
private sub form_load()
= "关于 "
= "版本 "
end sub
public sub startsysinfo()
on error goto sysinfoerr
dim rc as long
dim sysinfopath as string
' 试图从注册表中获得系统信息程序的路径及名称。
if getkeyvalue(hkey_local_machine, gregkeysysinfo, gre**alsysinfo, sysinfopath) then
' 试图仅从注册表中获得系统信息程序的路径。
elseif getkeyvalue(hkey_local_machine, gregkeysysinfoloc, gre**alsysinfoloc, sysinfopath) then
已知32位文件版本的有效位置。
if (dir(sysinfopath & then
sysinfopath = sysinfopath &
错误 - 文件不能被找到。
elsegoto sysinfoerr
end if
' 错误 - 注册表相应条目不能被找到。
elsegoto sysinfoerr
end if
call shell(sysinfopath, vbnormalfocus)
exit sub
sysinfoerr:
msgbox "此时系统信息不可用", vbokonly
end sub
public function getkeyvalue(keyroot as long, keyname as string, subkeyref as string, byref keyval as string) as boolean
dim i as long循环计数器。
dim rc as long返回**。
dim hkey as long打开的注册表关键字句柄。
dim hdepth as long
dim keyvaltype as long注册表关键字数据类型。
dim tmpval as string注册表关键字值的临时存储器。
dim keyvalsize as long注册表关键自变量的尺寸。
' 打开 下的 regkey
rc = regopenkeyex(keyroot, keyname, 0, key_all_access, hkey) '打开注册表关键字。
if (rc <>error_success) then goto getkeyerror处理错误。
tmpval = string$(1024, 0分配变量空间。
keyvalsize = 1024标记变量尺寸。
' 检索注册表关键字的值。
rc = regqueryvalueex(hkey, subkeyref, 0, _
keyvaltype, tmpval, keyvalsize) '获得/创建关键字值。
if (rc <>error_success) then goto getkeyerror处理错误。
if (asc(mid(tmpval, keyvalsize, 1)) 0) thenwin95 外接程序空终结字符串。
tmpval = left(tmpval, keyvalsize - 1null 被找到，从字符串中分离出来。
课程设计报告格式 课程设计
洛阳理工学院。课程设计说明书。课程名称。设计课题。专业。班级。学号。姓名。完成日期2014年12月26日。问题描述 小四宋体，行间距单倍行距，每段缩进两个字符。叙述一下设计的内容要求。基本要求 小四宋体，行间距单倍行距，每段缩进两个字符。叙述一下设计的基本要求。测试数据 小四宋体，行间距单倍行距，每...
课程设计总结,课程设计报告
课程设计总结，课程设计报告。3.尝试应用项目管理软件进行项目进程的规划管理 绘制甘特图，不作硬性要求 二 选题说明。人事管理是企业信息管理的重要部分，面对大量的人事工资信息，财务部门采用人力处理将浪费大量的时间 人力和物力，且数据的准确性低。因此，开发一个界面友好，易于操作的人事工资管理软件进行自动...
课程设计 课程设计报告格式
学校名。课程设计报告。课程名称 c语言程序设计 系别 专业班级 学号。姓名。课程题目 企业人事管理系统 完成日期 指导老师 年月日。附件。课程设计的内容。企业人事管理系统 本项目的目标是开发一个功能实用，操作简便，简单明了的人事管理系统。能够录入人事的基本资料，在操作上能够完成诸如添加 修改 删除 ...