- 博客(14)
- 收藏
- 关注
RSS订阅原创 MP3播放器完结
<br /><br />砖砖Mp3 1.0版测试图<br />功能：播放.mp3 .wma格式音乐，具有暂停，播放列表等功能。<br />下一步：<br />1. 播放列表还不具备存储功能，应加入数据库系统<br />2.增加多样播放模式<br />3.增加进度条<br />4.增加添加文件夹功能<br />
2010-08-03 05:45:00
300
原创 播放器问题
<br />1. caption="" controlbox=false 可去除标题栏<br /> <br />2.打开commondialog时，如果想确定用户是否点了取消键，则使用CommonDialog1.CancelError = True<br />On Error GoTo err1,如果点击取消键，则跳转至err1<br /> <br />3.windowsmediaplay 控件的基本属性<br /> <br />URL:String; 指定媒体位置，本机或网络地址 <br />u
2010-08-03 04:35:00
392
原创 继续vb
1.SendKeys "{Home}+{End}" 模拟键盘的输入，很不错，如果能应用到matlab更好。2.数据库还有很多问题，晚上解决
2010-07-30 20:09:00
389
原创 MyQQ 2.0
<br />新版本计划：<br />客户端： 1.登陆窗口 2.好友窗口 3.对话窗口 <br />流程图： 登录窗口---输入用户名和密码，在登陆窗口上含winsock，内置服务器地址，自动建立连接，并发送用户名和密码到服务器端，服务器端验证，如果正常，则返回登陆成功，如果错误则要求重新输入。 如果登陆成功，则登陆窗口自动隐藏，打开好友窗口，自动读取好友列表。用户选择好友聊天，对话窗口被打开，用户的谈话内容和谈话对象均发送给服务器，例如：砖砖@你好吗 ，@前代表聊天对象，之后代表内容。服务器端收到后，在
2010-07-29 06:45:00
436
1
原创 排行榜问题 vb
1.Open strpath For Input As #1Do While Not EOF(1)Input #1, nameR, scoreR '分别读取这一行中上次写入时用逗号隔开的信息Debug.Print nameR, scoreRLooploopdebug.print 对调试很有用 相当于printinput模式，表示读取output为写入模式可以整行读取 也可以按分隔符读入，第二种很适合排行榜问题，但需要注意写入的时候加入规定的分隔符
2010-07-26 06:39:00
324
原创 MyQQ 第一阶段完成
1.实现了简易的服务器端和客户端通信的功能2.实现了系统托盘的功能，但对于鼠标点击是否是在托盘的响应还有问题3.界面还十分简陋，需要加强4.下一步应该加入数据库，引入登录系统5.需要将客户端和服务器端分开开发
2010-07-25 04:30:00
338
原创 7月24日 vb
winsock 流程： 客户端,首先connect，可以对connect的方法重写，加入自己想要实现的部分，比如提示成功。 connect之后可以使用senddata发送信息和getdata得到信息。当数据到达时会触发dataArrival时间，此时调用getdata即可实现信息的收取。服务器端，首先将监听端口bind到winsock上，然后执行listen命令监听请求trim: 去除字符串两头的空格
2010-07-24 21:37:00
266
原创 继续vb
<br />1.vb多行注释的方法：在菜单栏空白地方右键,勾选"编辑"新出来的菜单面板有个图标(在一个手的旁边),是注释代码块选择多行代码,点一下这个"注释代码块"就行了,右边紧挨的是取消注释代码块<br /> <br />2.form1.winstate=1 表示该窗口是最小化状态<br /> <br />3.Private Sub RichTextBox1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single
2010-07-24 07:37:00
272
原创 大家来找茬辅助工具超级简易版
<br /><br /> <br />如上图所示，打开QQ游戏，等待游戏开始，按alt+print对当前窗口截屏，然后按start对图像分析，并按图中白色区域较多的提示点点击。<br />纯粹山寨，仅供娱乐哈。
2010-07-23 22:57:00
1394
原创 继续VB问题
1.producer.Caption = "纯山寨版本，仅娱乐使用" & Chr(13) & " 如有雷同，不是巧合"其中Chr(13)可以实现换行 因为ascii 中13 对应为 carriage return 回车按钮2.MMControl1.FileName = strpath & "/" & "sound/" & "shot.mp3"设置路径时一定要注意字符串和变量之间的区别，strpath是字符串变量，所以不需要加""，否则会出现错误3.击中时候的声音还有问题，不能连续发声如果击中速度很快的话
2010-07-23 03:30:00
305
原创 打字游戏(2)
VB打字游戏1.0版已开发完毕，具备了基本的打字功能，并且可以设置速度和难度。根据游戏得分情况，会有奖励图片出现。还需解决的问题：1.排行榜功能还未实现2.主窗口如何能设置为半透明背景，提高软件的视觉效果3.程序中需要调用的image如何实现加密存储，使得图像不能在文件夹中被直接查看4.加入声音的效果
2010-07-22 21:14:00
380
原创 pulse counter
#include unsigned int delay ( unsigned int x){unsigned int i,j;for (i = 0; i{ for(j=0;j ;}return 0;}int main( void ){// Stop watchdog timer to prevent time out resetWDTCTL = WDTPW + WDTHOLD;P5DIR |= BIT0;P1DIR&=~BIT0; //
2010-07-21 21:02:00
729
原创 VB,打字游戏
1.Option Explicit 强制声明变量，避免隐式声明的混乱。2.Dim strpath As String strpath = App.Path If Right(strpath, 1) "/" Then strpath = strpath & "/" End If 调用当前程序路径 ，并检查最后一位是否是/， 不是的话用 &合并字符串3.菜单 ---》 工程 ---》 工程属性，改变启动窗口4.设置默认按钮或者控件： 将value改为ture5.Rnd 函数返回小
2010-07-21 19:15:00
793
原创 2010年7月20日，第一篇。
csdn上的第一篇博客，只是为了记录每天学习的点点滴滴，希望若干天后还能继续坚持。每天长进一点点。VB今天开始，学习VB。以下是今天学到的内容：On Error GoTo errorline...exit suberrorline: statement...end sub可以解决错误发生时的抛出问题，需要注意的是在errorline:之前必须有exit sub,否则程序即使正确，也会执行errorline的部分。function add(Byval x as integer, Byval y as inte
2010-07-21 06:06:00
292
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人