Leask

Sixia "Leask" Huang

break the wall or bring the war

华师增院绩点助手(在线版) 2.0 beta1 发布！

经过n天加n-1夜的努力工作终于完成了这个软件版本，希望为同学们查询成绩和绩点带来方便！ 本版本为测试版，希望同学们使用后反馈改进意见，这将帮助我改进软件。 谢谢支持！ 以下为下载地址： http://cid-015bac1a170471db.skydrive.live.com/embedrowdetail.aspx/ApplicationsforPC/%e5%8d%8e%e5%b8%88%e5%a2%9e%e9%99%a2%e7%bb%a9%e7%82%b9%e5%8a%a9%e6%89%8b|5%e5%9c%a8%e7%ba%bf%e7%89%88|62.0-beta1_by_Leask.zip 软件说明： 欢迎使用华师增院绩点助手. Leask祝愿同学们学习进步! ———————————– Copyright (C) 2005-2008 黄思夏(Leask Huang) 软件版本:2.0-beta1 特别鸣谢”增院非官方”和”校外网”提供媒体支持. 作者博客(http://honeonet.spaces.live.com) 增院非官方(http://hi.baidu.com/hoyo_z) 校外网(http://www.zaixiaowai.com) ———————————– 温馨合作伙伴:饱饱花房 花房博客(http://syxnx.blogbus.com) 相册(http://picasaweb.google.com/syxnix) 淘宝店(http://shop35149305.taobao.com) ———————————– 说明: 本程序由黄思夏(LeaskHuang)编写,目的为同学们查询成绩和计算绩点提供方便.程序返回的数据仅供参考,最终结果以院方公布为准.由于各种因素造成的计算误差本人不承担责任.如有任何疑问或改进建议欢迎与我联系:leaskh@gmail.com(E-mail/GTalk/AIM/WLM/QQ).谢谢支持!

咖啡情怀

咖啡情怀

今晚和好友共进晚餐，我点了个不太地道的西式套餐。套餐的配饮我选了咖啡。的确，我是喜欢咖啡的。和不同的朋友知己边喝咖啡边聊个天南地北是一件很愉快的事。可能是喝出了兴致，回家后我写了好一会程序，又忍不住泡了一杯即容咖啡解馋。喝完才发觉桌面上留下了一个半圆的咖啡印。褐灰的颜色，干凝后独特的质感，半残缺而不失情调的轮廓。突然有种美得一塌糊涂的感觉!! 透过咖啡的提神我完成过很多让我满意的作品，了解过很多我从不认识的人和事。时光消逝，我感慨万千。多少杯的美味或糟糕的咖啡带来多少个完整或缺失的咖啡印。正如多少人和事带给我的磨砾。 也许这就是所谓的感慨红尘，无非也只是我的无病伸吟。随风吧，也只能靠这流于形式的记载宣示着我的存在。然而我的存在，也无奈只是一个容易被忽略的，残缺的咖啡印。 Leask Huang

毕业设计 DEMO_2 地图显示模块 源码分享

以下程序使用 MS VB6 SP6 English Edition 完成，最新版本加入地图切片显示的功能。 注意地图切片矩阵尚未实现拖动时的再组合，这也是今晚工作的重点了。 ‘============================================================= ‘地图显示模块 DEMO 2 ‘ ‘设计/编程: 黄思夏 ‘Design/Program: Leask Huang ‘Copyfree (C) 2008 Leask Huang ‘ ‘============================================================== Option Explicit ‘强制声明变量 Dim Map_Left As Integer ‘地图切片左界限 Dim Map_Right As Integer ‘地图切片右界限 Dim Map_Up As Integer ‘地图切片上界限 Dim Map_Down As Integer ‘地图切片下界限 Dim Cur_City_Name As String ‘当前城市 Dim Map_Cou_Width As Long Dim Map_Cou_Height As Long Dim Map_Bas_X As Long Dim Map_Bas_Y As Long Dim Map_Cur_X As Long Dim Map_Cur_Y As Long Dim Map_Max_W As Long Dim Map_Max_H As Long Dim Map_Move_X As Integer Dim Map_Move_Y As Integer Private Sub Map_Exp(X As Long, Y As Long) Dim Show_X As Long Dim Show_Y As Long Dim Cell_X As Long Dim Cell_Y As Long Dim ix As Integer Dim iy As Integer Dim iDx As Integer Dim iDy As Integer Dim i As Integer If X < 0 Or X > Map_Max_W Or Y < 0 Or Y > Map_Max_H Then Exit Sub Map_Image(0).Top = 0 Map_Image(0).Left = 0 Map_Image(1).Top = 0 Map_Image(1).Left = 300 Map_Image(2).Top = 0 Map_Image(2).Left = 600 Map_Image(3).Top = 0 Map_Image(3).Left = 900 Map_Image(4).Top = 300 Map_Image(4).Left = 0 Map_Image(5).Top = 300 Map_Image(5).Left = 300 Map_Image(6).Top = 300 Map_Image(6).Left = 600 Map_Image(7).Top = 300 Map_Image(7).Left = 900 Map_Image(8).Top = 600 Map_Image(8).Left = 0 Map_Image(9).Top = 600 Map_Image(9).Left = 300 Map_Image(10).Top = 600 Map_Image(10).Left = 600 Map_Image(11).Top = 600 Map_Image(11).Left = 900 Show_X = X Show_Y = Y Cell_X = Show_X 300 Cell_Y = Show_Y 300 If Show_X - Cell_X * 300 < 150 Then iDx = -2 Else iDx = -1 End If If Show_Y - Cell_Y * 300 < 150 Then iDy = -1 Else iDy = 0 End If For iy = 0 To 2 For ix = 0 To 3 Load_Map_Image Cell_X + ix - iDx, Cell_Y + iy - iDy, i i = i + 1 Next Next ix = (Map_Frm.Width - 1200) / 2 - (Show_X - Cell_X * 300) iy = (Map_Frm.Height - 900) / 2 - (Show_Y - Cell_Y * 300) For i = 0 To 11 Map_Image(i).Left = Map_Image(i).Left + ix Map_Image(i).Top = Map_Image(i).Top + iy Next End Sub Private Sub Map_Init() Dim i As Integer For i = 0 To 11 Map_Image(i).Stretch = False Map_Image(i).Width = 300 Map_Image(i).Height = 300 Next Map_Bas_X = 22753 Map_Bas_Y = 39284 Map_Cou_Width = 171 - 1 Map_Cou_Height = 106 - 1 Map_Max_W = Map_Cou_Width * 300 Map_Max_H = Map_Cou_Height * 300 Cur_City_Name = “Shenzhen” End Sub Private Function Get_Map_Path() ‘获得当前城市的地图数据路径 Get_Map_Path = App.Path & “LibraryMaps” & Cur_City_Name & “” End Function Private Function Get_Map_Image(X As Integer, Y As Integer) ‘获得地图切片路径 Dim temp_Path As String temp_Path = Get_Map_Path & (Y + Map_Bas_Y) & “” & (Y + Map_Bas_Y) & “_” & (X + Map_Bas_X) & “.bmp” Dim FSO As New FileSystemObject If FSO.FileExists(temp_Path) = False Then temp_Path = App.Path & “LibraryImagesspace.bmp” Get_Map_Image = temp_Path End Function Private Sub Load_Map_Image(X As Integer, Y As Integer, Map_Image_ID As Integer) ‘加载地图切片 Map_Image(Map_Image_ID).Picture = LoadPicture(Get_Map_Image(X, Y)) End Sub Private Sub Form_Load() Map_Init Map_Exp 9800, 8000 End Sub Private Sub Map_Image_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Map_Move_X = X Map_Move_Y = Y End If End Sub Private Sub Map_Image_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Caption = X & “ “ & Y Dim i As Integer If Button = 1 Then For i = 0 To 11 Map_Image(i).Left = Map_Image(i).Left + (X - Map_Move_X) / 15 Map_Image(i).Top = Map_Image(i).Top + (Y - Map_Move_Y) / 15 Next End If End Sub

毕业设计 DEMO_1 地图显示模块 源码分享

’============================================================= ‘地图显示模块 DEMO 1 ‘ ‘设计/编程: 黄思夏 ‘Design/Program: Leask Huang ‘Copyfree (C) 2008 Leask Huang ‘ ‘============================================================== Option Explicit Dim Move_X As Long Dim Move_Y As Long Private Sub Map_Init() Map_CT_X.Top = Map_FM.Top + Map_FM.Height + 10 Map_CT_Y.Left = Map_FM.Left + Map_FM.Width + 10 Map_CT_X.Height = 280 Map_CT_Y.Width = 280 Map_CT_X.Width = Map_FM.Width Map_CT_Y.Height = Map_FM.Height Map_CT_X.Left = Map_FM.Left Map_CT_Y.Top = Map_FM.Top Map_CT_X.Min = 0 Map_CT_X.Max = Map_FM.Width - Map_CT.Width Map_CT_Y.Min = 0 Map_CT_Y.Max = Map_FM.Height - Map_CT.Height Map_CT.Left = 0 Map_CT.Top = 0 End Sub Private Sub Form_Load() Map_Init End Sub Private Sub Map_CT_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Move_X = X Move_Y = Y End If End Sub Private Sub Map_CT_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Dim Move_X_Do As Long Dim Move_Y_Do As Long Move_X_Do = Map_CT.Left + X - Move_X Move_Y_Do = Map_CT.Top + Y - Move_Y If Move_X_Do > 0 Then Move_X_Do = 0 If Move_X_Do + Map_CT.Width - Map_FM.Width < 0 Then Move_X_Do = Map_FM.Width - Map_CT.Width If Move_Y_Do + Map_CT.Height - Map_FM.Height < 0 Then Move_Y_Do = Map_FM.Height - Map_CT.Height If Move_Y_Do > 0 Then Move_Y_Do = 0 Map_CT.Left = Move_X_Do Map_CT.Top = Move_Y_Do Map_CT_X.Value = Map_CT.Left Map_CT_Y.Value = Map_CT.Top End If Label1(0).Caption = “X: “ & X Label1(1).Caption = “Y: “ & Y End Sub Private Sub Map_CT_x_Scroll() Map_CT.Left = Map_CT_X.Value End Sub Private Sub Map_CT_Y_Scroll() Map_CT.Top = Map_CT_Y.Value End Sub

毕业设计ing

终于迎来了艰巨的毕业设计，今晚已经完成了第二个demo。这个版本引入了地图的切片加载，大大降低了资源消耗，提高了运行速度。 一直没更新这里，原本是想等我自己的文章系统开发好再自己做个blog的。但后来又想入手.mac的服务。因为在mac下用微软的软件和服务都是很痛苦的。不过都是等毕业设计完了再换blog吧，忙不过来。 喜欢写程序的日子。 Leask Huang