俄罗斯方块JAVA实现 求思路，求带注释方便阅读的代码
[问题点数：100分，结帖人javaeclipsemysql]
俄罗斯方块JAVA实现 求思路，求带注释方便阅读的代码
[问题点数：100分，结帖人javaeclipsemysql]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2010年8月 Java大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。&&&&C#俄罗斯方块完整项目包（含注释）
&C#俄罗斯方块完整项目包（含注释）
VS2012，完整项目，包含注释，彩色版，可加速，可使用金币购买下次的下落方块，可预览下次下落方块。开发博客介绍地址：http://blog.csdn.net/q/article/details/
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
Q.为什么我点的下载下不了，但积分却被扣了
A. 由于下载人数众多，下载服务器做了并发的限制。若发现下载不了，请稍后再试，多次下载是不会重复扣分的。
Q.我的积分不多了，如何获取积分？
A. 获得积分，详细见。
完成任务获取积分。
论坛可用分兑换下载积分。
第一次绑定手机，将获得5个C币，C币可。
关注并绑定CSDNID，送10个下载分
下载资源意味着您已经同意遵守以下协议
资源的所有权益归上传用户所有
未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途
CSDN下载频道仅提供交流平台，并不能对任何下载资源负责
下载资源中如有侵权或不适当内容，
本站不保证本站提供的资源的准确性，安全性和完整性，同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
开发技术下载排行
您当前C币：0&&&可兑换 0 下载积分
兑换下载分:&
消耗C币:0&
立即兑换&&
兑换成功你当前的下载分为 。前去下载资源
你下载资源过于频繁，请输入验证码
如何快速获得积分？
你已经下载过该资源，再次下载不需要扣除积分
C#俄罗斯方块完整项目包（含注释）
所需积分：1
剩余积分：0
扫描微信二维码精彩活动、课程更新抢先知
VIP会员，免积分下载
会员到期时间：日
剩余下载次数：1000
C#俄罗斯方块完整项目包（含注释）
剩余次数：&&&&有效期截止到：
你还不是VIP会员VIP会员享免积分 . 专属通道极速下载
VIP下载次数已满VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员
你的VIP会员已过期VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员【求助】 哪位大神能帮忙把这个程序写个注释啊？俄罗斯方块_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：95,359贴子：
【求助】 哪位大神能帮忙把这个程序写个注释啊？俄罗斯方块收藏
Dim gn(3) As IntegerDim pn(3) As IntegerDim ps As IntegerDim gs As IntegerDim ln As IntegerDim t As IntegerPrivate Sub lf()Select Case Int(Rnd * 6)
'产生小于等于6的随机数Case 0Select Case Int(Rnd * 2)Case 0pn(0) = 3pn(1) = 4pn(2) = 5pn(3) = 6ps = 0Case 1pn(0) = 5pn(1) = 15pn(2) = 25pn(3) = 35ps = 1End SelectCase 1pn(0) = 4pn(1) = 14pn(2) = 15pn(3) = 5ps = 2Case 2Select Case Int(Rnd * 2)Case 0pn(0) = 6pn(1) = 5pn(2) = 15pn(3) = 14ps = 3Case 1pn(0) = 4pn(1) = 14pn(2) = 15pn(3) = 25ps = 4End SelectCase 3Select Case Int(Rnd * 2)Case 0pn(0) = 4pn(1) = 5pn(2) = 15pn(3) = 16ps = 5Case 1pn(0) = 5pn(1) = 15pn(2) = 14pn(3) = 24ps = 6End SelectCase 4Select Case Int(Rnd * 4)Case 0pn(0) = 4pn(1) = 5pn(2) = 6pn(3) = 15ps = 7Case 1pn(0) = 5pn(1) = 15pn(2) = 25pn(3) = 14ps = 8Case 2pn(0) = 16pn(1) = 15pn(2) = 14pn(3) = 5ps = 9Case 3pn(0) = 24pn(1) = 4pn(2) = 15pn(3) = 14ps = 10End SelectCase 5Select Case Int(Rnd * 4)Case 0pn(0) = 4pn(1) = 5pn(2) = 15pn(3) = 25ps = 11Case 1pn(0) = 5pn(1) = 15pn(2) = 14pn(3) = 13ps = 12Case 2pn(0) = 25pn(1) = 24pn(2) = 14pn(3) = 4ps = 13Case 3pn(0) = 14pn(1) = 4pn(2) = 5pn(3) = 6ps = 14End SelectCase 6Select Case Int(Rnd * 3)Case 0pn(0) = 5pn(1) = 4pn(2) = 14pn(3) = 24ps = 15Case 1pn(0) = 15pn(1) = 5pn(2) = 4pn(3) = 3ps = 16Case 2pn(0) = 24pn(1) = 25pn(2) = 15pn(3) = 5ps = 17Case 3pn(0) = 4pn(1) = 14pn(2) = 15pn(3) = 16ps = 18End SelectEnd SelectEnd SubPrivate Sub hf(hn As Integer)Select Case hnCase 0Cd1(gn(0)).Visible = FalseCd1(gn(1)).Visible = FalseCd1(gn(2)).Visible = FalseCd1(gn(3)).Visible = FalseCase 1Cd2(pn(0)).Visible = FalseCd2(pn(1)).Visible = FalseCd2(pn(2)).Visible = FalseCd2(pn(3)).Visible = FalseEnd SelectEnd SubPrivate Sub sf(sn As Integer)Select Case snCase 0Cd1(gn(0)).Visible = TrueCd1(gn(1)).Visible = TrueCd1(gn(2)).Visible = TrueCd1(gn(3)).Visible = TrueCase 1Cd2(pn(0)).Visible = TrueCd2(pn(1)).Visible = TrueCd2(pn(2)).Visible = TrueCd2(pn(3)).Visible = TrueEnd SelectEnd SubPrivate Sub begin_Click()Picture1.SetFocusTimer2.Interval = 1000 / Val(Text2.Text)For i = 0 To 3
gn(i) = pn(i)Nextsf (0)gs = psTimer2.Enabled = Truehf (1)lfsf (1)End SubPrivate Sub continue_Click()Timer2.Enabled = TrueEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If t = 0 Thenhf (0)Select Case KeyCodeCase vbKeyLeft
If la = True Then
For j = 0 To 3
Cd1(gn(j) - 1).Visible = True
gn(j) = gn(j) - 1
sf (0)Case vbKeyDown
If da = True Then
For j = 0 To 3
Cd1(gn(j) + 10).Visible = True
gn(j) = gn(j) + 10
sf (0)Case vbKeyRight
If ra = True Then
For j = 0 To 3
Cd1(gn(j) + 1).Visible = True
gn(j) = gn(j) + 1
sf (0)Case vbKeyUp
xzCase Else
sf (0)End SelectEnd IfEnd SubPrivate Sub Form_Load()sp(1).Checked = TrueDim i As IntegerFor i = 1 To 199Load Cd1(i)Next iFor i = 0 To 199Cd1(i).Left = (i Mod 10) * 495Cd1(i).Top = (i \ 10) * 495Cd1(i).Visible = FalseCd1(i).BackColor = vbBlueNextFor i = 1 To 39Load Cd2(i)NextFor i = 0 To 39Cd2(i).Left = (i Mod 10 - 2) * 495Cd2(i).Top = (i \ 10 + 1) * 495Cd2(i).Visible = FalseCd2(i).BackColor = vbGreenNextRandomizelfsf (1)a = FalseEnd SubPrivate Sub over_Click()EndEnd SubPrivate Sub pause_Click()Timer2.Enabled = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If t = 0 Thenhf (0)Select Case ButtonCase 1
If la = True Then
For j = 0 To 3
Cd1(gn(j) - 1).Visible = True
gn(j) = gn(j) - 1
sf (0)Case 2
If ra = True Then
For j = 0 To 3
Cd1(gn(j) + 1).Visible = True
gn(j) = gn(j) + 1
sf (0)Case 4
xzCase Else
sf (0)End SelectEnd IfEnd SubPrivate Sub sp_Click(Index As Integer)Dim j As IntegerFor j = 1 To 5sp(j).Checked = FalseNextsp(Index).Checked = TrueText2.Text = IndexEnd SubPrivate Sub Timer2_Timer()hf (0)If da() = True Then
For j = 0 To 3
gn(j) = gn(j) + 10
Nextsf (0)Else
clFor i = 0 To 9
If Cd1(i).Visible = True Then Exit ForNextDim mymsg As StringDim myref As IntegerIf i & 10 Thenmymsg = "输了不要灰心" & vbCrLf & "是否重新开始玩游戏"myref = MsgBox(mymsg, vbYesNo + vbQuestion, "俄罗斯方块游戏")If myref = vbYes ThenFor i = 0 To 199
Cd1(i).Visible = FalseNextText3.Text = 0ln = 0For j = i * 10 To i * 10 + 9
If Rnd &= 0.5 Then Cd1(j).Visible = TrueNextElseEndEnd IfEnd IfFor i = 0 To 3
gn(i) = pn(i)Nextsf (0)gs = psText3.Text = Str(Val(Text3.Text) + 10 * (2 ^ ln - 1))If Val(Text3.Text) &= 300 ^ Val(Text2.Text) Then
Text2.Text = Str(Val(Text2.Text) + 1)
Timer2.Interval = 1000 / Val(Text2.Text)End Ifln = 0hf (1)lfsf (1)End IfEnd SubPrivate Sub cl()For i = 190 To 10 Step -10
For m = 0 To 9
If Cd1(i + m).Visible = True Then n = n + 1
NextIf n = 10 Then
For j = i + 4 To i Step -1
Cd1(j).Visible = False
Cd1(2 * i + 9 - j).Visible = False
For k = 1 To 4000
ln = ln + 1
For j = i - 1 To 0 Step -1
If Cd1(j).Visible = True Then
Cd1(j).Visible = False
Cd1(j + 10).Visible = True
clEnd IfNextEnd SubFunction da() As Boolean
If gn(0) & 190 And gn(1) & 190 And gn(2) & 190 And gn(3) & 190 Then
If Cd1(gn(0) + 10).Visible = False And Cd1(gn(1) + 10).Visible = False And Cd1(gn(2) + 10).Visible = False And Cd1(gn(3) + 10).Visible = False Then
da = False
da = False
End IfEnd FunctionFunction ra() As Boolean
If gn(0) Mod 10 && 9 And gn(1) Mod 10 && 9 And gn(2) Mod 10 && 9 And gn(3) Mod 10 && 9 Then
If Cd1(gn(0) + 1).Visible = False And Cd1(gn(1) + 1).Visible = False And Cd1(gn(2) + 1).Visible = False And Cd1(gn(3) + 1).Visible = False Then
ra = False
ra = False
End IfEnd FunctionFunction la() As Boolean
If gn(0) Mod 10 && 0 And gn(1) Mod 10 && 0 And gn(2) Mod 10 && 0 And gn(3) Mod 10 && 0 Then
If Cd1(gn(0) - 1).Visible = False And Cd1(gn(1) - 1).Visible = False And Cd1(gn(2) - 1).Visible = False And Cd1(gn(3) - 1).Visible = False Then
la = False
la = False
End IfEnd FunctionPrivate Sub xz()Select Case gsCase 0If gn(0) - 18 &= 2 And gn(3) + 9 &= 198 Then
If Cd1(gn(0) - 18).Visible = False And Cd1(gn(1) - 9).Visible = False And _
Cd1(gn(3) + 9).Visible = False Then
gn(0) = gn(0) - 18
gn(1) = gn(1) - 9
gn(3) = gn(3) + 9
End IfEnd IfCase 1If (gn(0) + 18) Mod 10 & 8 And (gn(3) - 9) Mod 10 & 0 Then
If Cd1(gn(0) + 18).Visible = False And Cd1(gn(1) + 9).Visible = False And _
Cd1(gn(3) - 9).Visible = False Then
gn(0) = gn(0) + 18
gn(1) = gn(1) + 9
gn(3) = gn(3) - 9
End IfEnd IfCase 2Case 3If gn(0) - 11 & 1 Then
If Cd1(gn(0) - 11).Visible = False And _
Cd1(gn(3) + 2).Visible = False Then
gn(0) = gn(0) - 11
gn(2) = gn(2) - 9
gn(3) = gn(3) + 2
End IfEnd IfCase 4If (gn(3) - 2) Mod 10 & 9 Then
If Cd1(gn(2) + 9).Visible = False And _
Cd1(gn(3) - 2).Visible = False Then
gn(0) = gn(0) + 11
gn(2) = gn(2) + 9
gn(3) = gn(3) - 2
End IfEnd IfCase 5If gn(0) - 9 & 1 Then
If Cd1(gn(0) - 9).Visible = False And _
Cd1(gn(3) - 2).Visible = False Then
gn(0) = gn(0) - 9
gn(2) = gn(2) - 11
gn(3) = gn(3) - 2
End IfEnd IfCase 6If (gn(3) + 2) Mod 10 & 0 Then
If Cd1(gn(2) + 11).Visible = False And _
Cd1(gn(3) + 2).Visible = False Then
gn(0) = gn(0) + 9
gn(2) = gn(2) + 11
gn(3) = gn(3) + 2
End IfEnd IfCase 7If gn(0) - 9 & 0 Then
If Cd1(gn(0) - 9).Visible = False Then
gn(0) = gn(0) - 9
gn(2) = gn(2) + 9
gn(3) = gn(3) - 11
End IfEnd IfCase 8If (gn(0) + 11) Mod 10 & 0 Then
If Cd1(gn(0) + 11).Visible = False Then
gn(0) = gn(0) + 11
gn(2) = gn(2) - 11
gn(3) = gn(3) - 9
End IfEnd IfCase 9If gn(0) + 9 & 199 Then
If Cd1(gn(0) + 9).Visible = False Then
gn(0) = gn(0) + 9
gn(2) = gn(2) - 9
gn(3) = gn(3) + 11
End IfEnd IfCase 10If (gn(0) - 11) Mod 10 & 9 Then
If Cd1(gn(0) - 11).Visible = False Then
gn(0) = gn(0) - 11
gn(2) = gn(2) + 11
gn(3) = gn(3) + 9
End IfEnd IfCase 11If gn(0) - 9 & 1 And (gn(3) - 22) Mod 10 & 9 Then
If Cd1(gn(0) - 9).Visible = False And _
Cd1(gn(3) - 22).Visible = False Then
gn(0) = gn(0) - 9
gn(2) = gn(2) - 11
gn(3) = gn(3) - 22
End IfEnd IfCase 12If (gn(0) + 11) Mod 10 & 0 And (gn(3) - 18) & 1 Then
If Cd1(gn(0) + 11).Visible = False And _
Cd1(gn(3) - 18).Visible = False Then
gn(0) = gn(0) + 11
gn(2) = gn(2) - 9
gn(3) = gn(3) - 18
End IfEnd IfCase 13If gn(0) + 9 & 198 And (gn(3) + 22) Mod 10 & 0 Then
If Cd1(gn(0) + 9).Visible = False And _
Cd1(gn(3) + 22).Visible = False Then
gn(0) = gn(0) + 9
gn(2) = gn(2) + 11
gn(3) = gn(3) + 22
End IfEnd IfCase 14If (gn(0) - 11) Mod 10 & 9 And (gn(3) + 18) & 198 Then
If Cd1(gn(0) - 11).Visible = False And _
Cd1(gn(3) + 18).Visible = False Then
gn(0) = gn(0) - 11
gn(2) = gn(2) + 9
gn(3) = gn(3) + 18
End IfEnd IfCase 15If (gn(3) - 22) Mod 10 & 8 Then
If Cd1(gn(2) - 11).Visible = False And _
Cd1(gn(3) - 22).Visible = False Then
gn(0) = gn(0) + 9
gn(2) = gn(2) - 11
gn(3) = gn(3) - 22
End IfEnd IfCase 16If gn(3) - 18 & 1 Then
If Cd1(gn(2) - 9).Visible = False And _
Cd1(gn(3) - 18).Visible = False Then
gn(0) = gn(0) - 11
gn(2) = gn(2) - 9
gn(3) = gn(3) - 18
End IfEnd IfCase 17If (gn(3) + 22) Mod 10 & 1 Then
If Cd1(gn(1) + 11).Visible = False And _
Cd1(gn(3) + 22).Visible = False Then
gn(0) = gn(0) - 9
gn(2) = gn(2) + 11
gn(3) = gn(3) + 22
End IfEnd IfCase 18If gn(3) + 18 Mod 10 & 198 Then
If Cd1(gn(2) + 9).Visible = False And _
Cd1(gn(3) + 18).Visible = False Then
gn(0) = gn(0) + 11
gn(2) = gn(2) + 9
gn(3) = gn(3) + 18
End IfEnd IfEnd SelectEnd Sub
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或int trsScene() {
&&& int x, y = 0;
&&& gt.s = random(7) + 1, gt.st = gt.t = 0;
&&& gt.x = 3, gt.y = 0;
&&& for (--gt.t; ; delay(10), --gt.t) {
&&&&&&& int k = 0;
&&&&&&& while (kbhit()) {
&&&&&&&&&&& k = getch();
&&&&&&&&&&& if (k == 27) return 0;
&&&&&&&&&&& if (k == 'A' || k == 'a') {
&&&&&&&&&&&&&&& if (trsCopy(gt.tmap[gt.s][gt.st], gt.x-1, gt.y, 0)) --gt.x;
&&&&&&&&&&& } else if (k == 'D' || k == 'd') {
&&&&&&&&&&&&&&& if (trsCopy(gt.tmap[gt.s][gt.st], gt.x+1, gt.y, 0)) ++gt.x;
&&&&&&&&&&& } else if (k == 'W' || k == 'w') {
&&&&&&&&&&&&&&& if (trsCopy(gt.tmap[gt.s][(gt.st+1) % 4], gt.x, gt.y, 0))
&&&&&&&&&&&&&&&&&&& gt.st = (gt.st+1) % 4;
&&&&&&&&&&& }
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：49833次
积分：1861
积分：1861
排名：第16022名
原创：148篇
(6)(1)(21)(54)(28)(2)(1)(7)(10)(1)(4)(1)(16)(2)