infoheader - 年华似水浪淘沙: 2009

2009年5月12日星期二

祭

　　一年前的这一天。

　　大约14点28分。我不确认，但不到30分，因为还没有上课。

　　我在教室里看语文书。一阵头晕。然后意识到了大地的晃动。

　　随后应急开始，学生到操场集合。

　　然后等待……直到确切的消息传来。

　　没有预料竟然是汶川。传了这么远。

　　512这一天，是民族的灾难。

　　然而没有灾难的民族是不幸的。

　　人们在灾难中学会坚强。

　　愿逝者安息。

　　生者前行。

2009年5月4日星期一

随想

　　开学已经三个月了。似乎没有什么特别的。无外乎早起上课，自习，偶尔无聊一下，然后睡觉，日复一日。明天是五月四日，青年节。觉得自己应该有点儿激情，才符合青年的特征。然而也许并没有。因为我喜欢平静地看待这个世界。已经开始渐渐习惯这样的生活。

　　用硬纸盒给自己做了一个书架，摆了几本书，放在床头。把小桌板和能充电的小灯找了出来。望自己能习惯看书。既然无法避免浅薄与无知，我希望书能改变自己。

　　偶尔有些思念。想着七月的见面。不知道那时又会怎样。我希望见到我要的结局。人可以不聪明，但是一定要有思想。我希望他们得到智慧。

　　五一那天帮同学选了一台笔记本电脑，同学很满意。但是感到自己距离计算机越来越远了。或许这不是一件坏事。毕竟学的专业不是计算机科学。路是自己走出来的。我还没有真正看到电子专业是怎样的，所以我不知道在这个岔口自己会怎样选择。

　　外面有蟋蟀，有远方的火车，还有一个凉夜，一切是如此的熟悉，就像在家，也像在高中租的房子。真的很像。我想起我经常透过窗子，看到自己的眼睛。现在我似乎也可以看到了，穿越黑暗，它依然在望着什么，和以前一样明亮。

2009年5月1日星期五

昨天的行程

　　于清晨游岳麓山，游则尽兴，尽兴而归。有雨。怀古。

愿汝为我指引方向

悼黄兴

立碑一十有二，独感于此：呜呼，此黄克强先生之墓，后之来着尚师其志事！

你仰望它，它却耸立云间

云麓宫的树

右一行：第六十三师阵亡士兵姓名

满满的刻了一墙，有的已经发绿，有的已经消磨

试着辨认那字迹，还勉强可以看出

2009年4月28日星期二

J2ME

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;

public class HelloWorld extends MIDlet implements CommandListener
{
 private Display ds;
 private Command exitCom;
 private TextBox tb;
 
 public HelloWorld()
 {
  ds=Display.getDisplay(this);
  exitCom=new Command("Exit",Command.EXIT,1);
  tb=new TextBox("Hello MIDlet","Hello,World!",15,0);
  tb.addCommand(exitCom);
  tb.setCommandListener(this);
 }
 
 protected void startApp(){
  ds.setCurrent(tb);
 }
 
 protected void pauseApp(){
 }
 
 protected void destroyApp(boolean u){
 }
 
 public void commandAction(Command c,Displayable d){
  if(c==exitCom){
   destroyApp(false);
   notifyDestroyed();
  }
 }
}

2009年4月27日星期一

无题

　　忙碌了这么长时间，终于可以静下心来写一篇日志了。

　　回到寝室的反应就是累，困。屋里也没有人，不知不觉就睡着了。直到外面隐隐约约的笛子声响起，不知道师大音乐系的宿舍里又有谁在练习了。一时见有种莫名的感动。那旋律好熟悉，竟然想不起名字。可能是我淡忘了，我如此喜欢的班得瑞的《童年》。

　　有六天的休息时间，然后是金工实习，又要忙碌了。

2009年4月14日星期二

2009年3月31日星期二

VB俄罗斯方块

Const WidthCount As Integer = 10

Const HeightCount As Integer = 20

'"ttttffffffffffff"

'"ttffttffffffffff"

'"tttfftffffffffff"

'"ttfffttfffffffff"

'"tttftftfffffffff"

'Dim BlockS(1 To 10) As String

Const BlockSCount As Integer = 8

Dim Block(1 To 10, 1 To 4, 1 To 4, 1 To 4) As Boolean

Dim P As PictureBox

Dim B() As Integer

Dim PosX As Integer

Dim PosY As Integer

Dim CurrentBlock As Integer

Dim CurrentTurn As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

ReStart

Exit Sub

End If

If Timer1.Enabled Then

If KeyCode = vbKeyLeft And PosX > 0 Then

If Not CheckSet(PosX - 1, PosY) Then

PosX = PosX - 1

End If

ElseIf KeyCode = vbKeyRight And PosX < WidthCount - GetBlockWidth(CurrentBlock) Then

If Not CheckSet(PosX + 1, PosY) Then

PosX = PosX + 1

End If

ElseIf KeyCode = vbKeyUp Then

TurnBlock

ElseIf KeyCode = vbKeyDown Then

' Do

' If CheckSet(PosX, PosY + 1) Then

' SetBlock

' CheckDecrease

' NextBlock

' Exit Do

' Else

' PosY = PosY + 1

' Draw

' End If

' Loop

Timer1_Timer

Timer1.Interval = 20

End If

Draw

End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

Timer1.Interval = 200

End Sub

Private Sub Form_Load()

Set P = Picture1

P.AutoRedraw = True

Inti

Me.Show

Draw

End Sub

Private Sub TurnBlock()

CurrentTurn = CurrentTurn + 1

If CurrentTurn = 5 Then CurrentTurn = 1

If PosX + GetBlockWidth(CurrentBlock) > WidthCount Then

CurrentTurn = CurrentTurn - 1

If CurrentTurn = 0 Then CurrentTurn = 4

ElseIf CheckSet(PosX, PosY) Then

CurrentTurn = CurrentTurn - 1

If CurrentTurn = 0 Then CurrentTurn = 4

End If

End Sub

Private Sub CheckDecrease()

Dim I As Integer, J As Integer, M As Integer

For J = 1 To HeightCount

For I = 1 To WidthCount

If B(I, J) = 0 Then GoTo Lab1

For M = J To 2 Step -1

For I = 1 To WidthCount

B(I, M) = B(I, M - 1)

For I = 1 To WidthCount

B(I, 1) = 0

Lab1:

End Sub

Private Function GetBlockWidth(BlockID As Integer) As Integer

Dim I As Integer, J As Integer

Dim Temp As Integer

Temp = 0

For J = 1 To 4

For I = 1 To 4

If Block(BlockID, I, J, CurrentTurn) Then

If I > Temp Then Temp = I

End If

GetBlockWidth = Temp

End Function

Private Function CheckSet(pX As Integer, pY As Integer) As Boolean

Dim I As Integer, J As Integer

For J = 1 To 4

For I = 1 To 4

If Block(CurrentBlock, I, J, CurrentTurn) Then

If pY + J > HeightCount Then

CheckSet = True

Exit Function

ElseIf B(pX + I, pY + J) <> 0 Then

CheckSet = True

Exit Function

End If

End If

CheckSet = False

End Function

Private Sub SetBlock()

On Error Resume Next

Dim I As Integer, J As Integer

For J = 1 To 4

For I = 1 To 4

If Block(CurrentBlock, I, J, CurrentTurn) Then

B(PosX + I, PosY + J) = 2

End If

End Sub

Private Sub NextBlock()

Randomize

CurrentBlock = Int(Rnd() * BlockSCount + 1)

CurrentTurn = Int(Rnd() * 4 + 1)

PosX = Int((WidthCount - GetBlockWidth(CurrentBlock)) / 2)

PosY = 0

If CheckSet(PosX, PosY) Then

'Game Over

Timer1.Enabled = False

Draw

Else

Draw

End If

End Sub

Private Sub Inti()

Dim BlockS()

ReDim BlockS(1 To BlockSCount)

BlockS(1) = "tttt............t...t...t...t...tttt............t...t...t...t..."

BlockS(2) = "tt...tt..........t..tt..t.......tt...tt..........t..tt..t......."

BlockS(3) = "ttt..t..........t...tt..t........t..ttt..........t..tt...t......"

BlockS(4) = "tt..tt..........tt..tt..........tt..tt..........tt..tt.........."

BlockS(5) = "t...tt...t.......tt.tt..........t...tt...t.......tt.tt.........."

BlockS(6) = "ttt.t.t.........tt..t...tt......t.t.ttt.........tt...t..tt......"

BlockS(7) = "t...ttt...t......tt..t..tt......t...ttt...t......tt..t..tt......"

BlockS(8) = "t.t.....t.t.....t.t..t..t.t..........t..t.t......t..ttt..t......"

ReDim B(1 To WidthCount, 1 To HeightCount)

P.ScaleWidth = WidthCount

P.ScaleHeight = HeightCount

Dim I As Integer, J As Integer, H As Integer, G As Integer

For G = 1 To BlockSCount

For H = 1 To 4

For I = 1 To 4

For J = 1 To 4

Debug.Print (H - 1) * 16 + (J - 1) * 4 + I

If Mid(BlockS(G), (H - 1) * 16 + (J - 1) * 4 + I, 1) = "t" Then

Block(G, I, J, H) = True

Else

Block(G, I, J, H) = False

End If

ReStart

End Sub

Private Sub ReStart()

Dim I As Integer, J As Integer

For J = 1 To HeightCount

For I = 1 To WidthCount

B(I, J) = 0

Draw

Timer1.Enabled = True

NextBlock

End Sub

Private Sub Draw()

On Error Resume Next

Dim I As Integer, J As Integer

For J = 1 To HeightCount

For I = 1 To WidthCount

Select Case B(I, J)

Case 0:

P.Line (I - 1, J - 1)-(I, J), vbBlack, BF

Case 1:

P.Line (I - 1, J - 1)-(I, J), vbGreen, BF

Case 2:

P.Line (I - 1, J - 1)-(I, J), vbRed, BF

End Select

For J = 1 To 4

For I = 1 To 4

If Block(CurrentBlock, I, J, CurrentTurn) Then

P.Line (PosX + I - 1, PosY + J - 1)-(PosX + I, PosY + J), vbGreen, BF

End If

End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)

Form_KeyDown KeyCode, Shift

End Sub

Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)

Form_KeyUp KeyCode, Shift

End Sub

Private Sub Timer1_Timer()

If CheckSet(PosX, PosY + 1) Then

SetBlock

CheckDecrease

NextBlock

Else

PosY = PosY + 1

Draw

End If

End Sub

2009年3月18日星期三

山高路远

　　前两天买了一本《汪国真作品集》，其实主要是想看他的一首诗，《山高路远》。记得最初看到这首诗是高三的一本《名师一号》的插页上。当心情烦乱的时候就慢慢地读一遍，再读一遍。

　　呼喊是爆发的沉默

　　沉默是无声的召唤

　　不论激越

　　还是宁静

　　我祈求

　　只要不是平淡

　　如果远方呼喊我

　　我就走向远方

　　如果大山召唤我

　　我就走向大山

　　双脚磨破

　　干脆再让夕阳涂抹小路

　　双手划烂

　　索性就让荆棘变成杜鹃

　　没有比脚更长的路

　　没有比人更高的山

2009年2月28日星期六

开始学习Java

　　选了Java选修课，有2个学分。

　　前两天在同学的电脑上安了Java的开发环境和虚拟机，编译了HelloWorld，看了看入门用的JCreator。前些时候看过一点J2ME的东西，或许有助于学习J2SE。总之感觉Java还是在网络上的应用比较多。不过确实用的十分广泛。

2009年2月14日星期六

无题

　　到学校一天了。忙碌了一天了。

　　见到了现在的同学，又想了起以前的同学。为什么世界是这样的矛盾呢，什么事情都不能十全十美，什么事情都难以善始善终。

　　只有一个人，被一曲《时间之城》感动得一塌糊涂。一塌糊涂。

　　只有一个人，慢慢走。慢慢走。走过一个又一个世界，走到时间的尽头。

2009年2月11日星期三

明天回学校

　　明晚10点的火车，后天上午到。

　　话说上星期排队2小时买到了快车的票。

　　据说这学期课表安排的很紧密……提前准备准备。

2009年2月9日星期一

年华似水

　　时间真快。真的。

　　记忆中仿佛是一个小孩子，每天就知道玩，可以不考虑任何事情。阳光就是生活。观察这个新鲜的世界。

　　渐渐地，到了中学，生活开始变化。学会了思考复杂的事物，学会了固执。学会了抱怨不公，学会了用错误的方法抵抗世俗。

　　渐渐地，无法解决思想的矛盾。渐渐地，走向极端。付出却没有收获的日子是痛苦的。不理解生活的意义，却生活着。自以为脱俗，却被自己困扰着。与此同时，伤害了一个人。一个脱离世俗的人。其实，我了解这个人，却装作不知。只因我那时固执地认为这世界与我无关。恰巧就是高一这一年。之后文理分班，各奔路途。弥补的机会渺茫，后悔至今。

　　庆幸的是失落没有持续。中庸挽救了极端的思想。认识到矛盾可以共存。思想压力化为乌有。交到一个好朋友。了解了很多不错的人。很快乐。学会了认真思考。学会了探求本质。

　　更加喜欢Beyond。“多少次，面对冷眼与嘲笑，从没有放弃心中的理想。”理想的追求，能推开一切。一本《狼图腾》支撑起思想。一首《最初的梦想》鼓起勇气。

　　感到了中庸孤独。“道之不行也，我知之矣：知者过之；愚者不及也。”被一个人伤害。我知道是无意的。然而我痛苦，因为我孤独。试图用一首《忘忧草》忘却忧伤。更体会到了“只有时间不会说谎，只有时间能带走一切”。我理解不理解我的人，我接受这个世界。我永远不会放弃。就像《尘埃落定》的结尾所写的那样：“如果灵魂真有轮回，叫我下一生再回到这个地方，我爱这个美丽的地方！”

　　忘却一切，记忆一切。开始明白矛盾并不矛盾。开始诚坦地对待这个世界。开始走向新的生活。愿望是能弥补以前的过错。

　　时间永远不等待谁。年华就像水一样流逝，时间的浪花会淘洗一切沙砾。

2009年2月5日星期四

2009寒假回顾

　　感觉没啥可写的……

　　这个假期看了一个假期的高等数学（数学这玩意真是博大精深啊）……

　　过一个年。现在过年越来越没氛围了……不过也好，没氛围了也就省事了，不用那么忙了。

　　还有一个星期开学。新的一个学期就要开始了。

2009年1月28日星期三

摸鱼儿

　　问世间、情是何物，直教生死相许？

　　天南地北双飞客，老翅几回寒暑。

　　欢乐趣，离别苦，就中更有痴儿女。

　　君应有语，渺万里层云，千山暮雪，只影向谁去？

2009年1月15日星期四

2009年1月4日星期日

（左图：从岳麓山上看岳麓书院）

　　这两天一直有精神分裂的趋向……
　　怎么就一直感觉精神恍惚呢。

　　上个星期以为校园卡里没钱了，今天发现还有30多；昨天把车子丢了；今天也不顾明天就要考试，下午4点多去爬山，在山上游荡，一直到几乎没有什么人影，一直到觉得风有点冷，一直到没有心情……

　　因为没有单车了，来回都是走路，一个来回要一个小时，路上几乎是什么也不想，头脑都是空的，走到头了忽然问自己我到底想什么了，自己也不知道……

（右图：爱晚亭，停车坐爱枫林晚即此）

　　从山脚开始游荡，进了南大门右拐，看了爱晚亭，然后随即上山，漫无目的，看到岔路随便选一个走，于是上了一半又绕到了南大门的正上方那个岳麓山派出所，往上走了几步觉得没意思，找个石头坐了一会儿，注意到几棵百年古树。

　　觉得这树的生命也真够长的，孤零零地在那里伫立着，也不知道孤单不孤单。到了现在那些树被保护起来，长歪了还要用支架撑着防止倒塌砸到游客。

（左图：上山的路，苍白的天空，还有一些枯树）

　　倒是好多树还是绿色的，确实是南方的特点，然而毕竟是冬天，有些地方还是难免萧条。

　　南方的冬天难以见到雪，现在气温还没有零下。可是为什么我总是告诉自己和别人我喜欢冬天？不知道。可能没有理由。可能有，但是已经淡忘了。我不喜欢用不知道回答自己，但是我找不到理由。

　　有些问题是解释不清楚的。人本身就是不可以解释的。生命是复杂的，复杂到永远都无法精确地解释它。

　　今天大概没有什么收获。如果有，那么可能就是去穿石坡湖看了看，看到一个老师带着孩子爬山，两个都人很用力，都把大衣脱下拿在手里，满脸通红。还看到一个老教授跑步上山，那样子似乎比我还年轻，还有活力。

　　如果还有，那么就是右边这张爱晚亭的照片。虽然位置不好，右边有人所以往左移了一些，但是总算是拍摄到大体上没人（其实有，被我有意挡在树后了）的风景图了。一个景点，如果人多了，就不再是风景了。

2009年1月3日星期六

V8 JavaScript引擎

什么是 V8?

V8 是 Google 的开源 JavaScript 引擎。

V8 采用 C++ 编写，可在 Google Chrome（来自 Google 的开源浏览器）中使用。

V8 根据 ECMA-262 第三版中的说明使用 ECMAScript，并在使用 IA-32 或 ARM 处理器的 Windows XP 和 Vista、Mac OS X 10.5 (Leopard) 以及 Linux 系统中运行。

V8 可以独立运行，也可以嵌入任何 C++ 应用程序中。

http://code.google.com/intl/zh-CN/apis/v8/

订阅：博文 (Atom)