网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,157贴子：1,166,018
  • 19回复贴，共1页

求挑战，写出比我简洁的代码

喂，那些高手，出来过招。比我简洁的，来一段
这是上回写给别人的，检测A按下，B按下，AB同时按下的代码改的
这里只是记录按键A的状态
对，只需要达到记录A键的状态即可。
不要觉得简单，你写一个就知道了
或者你能说出我代码中每一句的意思，我也真心佩服你
Dim A As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
A = A Or (KeyCode = vbKeyA)
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
A = (A = (Not (KeyCode = vbKeyA)))
End Sub


凭什么我们要和你完这些弱智的玩意？


A = (A = (Not (KeyCode = vbKeyA)))
改
A = (A <> (KeyCode = vbKeyA))


Dim A As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
A = A Or (KeyCode = vbKeyA)
按下A键时，表达式‘KeyCode=vbKeyA’的值为True，用这个值与原来的A值进行位或运算，就保证了，即使按下A键后再按下了其他键，A的值仍为True
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
A = (A = (Not (KeyCode = vbKeyA)))
抬起A键时，表达式‘Not (KeyCode=vbKeyA)’的值为False，这时A的值必为True，就使表达式‘(A = (Not (KeyCode = vbKeyA)))’的值为False，最终A为False；
如果抬起的不是A键，表达式‘Not (KeyCode=vbKeyA)’的值为True，在进行A=(A=True)的操作后，就保存了原来A的值。
End Sub
不知道这样分析对不对，这段代码相当精炼嘛~


风带着尘埃
告诉我你已走远
雨带着悲哀
淋湿心中的阴霾


LZ不知用Xor？用Xor可以更直观：
A = (A = (Not (KeyCode = vbKeyA)))
可替换为：
A = A Xor (KeyCode = vbKeyA)
LZ，代码简练是件好事，但是如果在软件开发中，还需要考虑到阅读难度。太难懂的代码反而增加维护难度。就代码简练来说，C/C++代码可以更简练，在单纯追求代码简练没太大意义。
就上面2句代码对比，LZ的代码需要1次数值比较，1次逻辑非运算，1次逻辑比较，1次赋值；而用Xor只需要1次数值比较，1次逻辑异或运算，1次赋值。而且要知道VB中所谓基本运算其实是运行库函数，从运行效率上，LZ的代码多了一次函数调用。不过以现在的电脑速度上可以忽略，在这点细究也没太大意义。


我也觉得这在实现编程中没多大意义，顶多让新手认识一下位运算和算法。
想简短的话GetKeyState不就行了。
这VB提供的窗体，不也就是通过消息机制来触发KeyDownUp事件？


好吧，我输了，压根看不懂。


A = A Or (KeyCode = vbKeyA) (65=65) = ture A or ture =ture 把 ture 赋值给A 即 键盘按下时 A为ture
A = (A = (Not (KeyCode = vbKeyA))) NOT (65=65) NOT ture =False A= False 是为了根据A的情况发生变化毫无难度 且多余 不适用大规模 规范化代码 鉴定完毕


其实这么简练有意思吗？
写完过段时间，看回去还要想一下，如果代码量一大的话，编译运行有可能出问题


你只是炫耀你懂这些逻辑运算符而已= =
你把这些搬到学过汇编的人的面前就一文不值,你最多是面对那些没有系统的学习过的或者是上课没听讲的菜鸟说的罢了
更简练?
你把private去掉就好了= =


或者你能说出我代码中每一句的意思，我也真心佩服你
这个应该很多人都可以。。。
不管楼上怎么说LZ。。。至少LZ分享了。。还是值得鼓励的。


当窗体Active里按下A键然后。在Active其它窗体放开A键，你会发现A=True这段代码废了。。


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 19回复贴，共1页
分享到: