2016年12月_Fanstorm丶

12月 11月 10月

原创 C#小游戏，拼音打字练习

博主又做了一款C#小游戏，看界面会发激光的，截图截不到，而且加了很多音效。排行榜这里排行榜是放在博主的服务器数据库里的。这里输入对应的拼音，按回车，就会从你的坦克发射激光击毁目标，并且得分。很有趣的小游戏哦，先把安装包分享给大家，改天将设计思路写一写。快来跟小伙伴比一下看谁得分高吧！博主资源页可以0积分下载

2016-12-30 15:35:20 3732 9

原创 C#射击类小游戏简单思路及代码

博主想做一个小时候玩的FC坦克大战的游戏，然后先写点简单的来整理一下设计思路。然后今天就写了一个非常简单的游戏框架，300行左右代码，最简单的功能可以实现。设计界面如图游戏效果：因为做的很简略，所以自己跟敌人都是红的，坦克跟子弹都是一个类Ball。。。。但这不重要，重要的是思路，嗯嗯下面是代码，注释写的非常详细。若不足还得请大家不吝赐教了。Ball类public class Ball {

2016-12-27 13:29:34 4389 1

原创 C#.net picturebox动画效果，刷新图像的闪烁问题解决方法

在.net的控件上用timer控制刷新图像，可以形成动画效果，但是有个问题就是会闪烁。比如picturebox控件名字是picshow，我们要刷新picshow的图像，一般是怎么做呢？一般是用Graphics对象的clear来清除，然后将要画的东西一点点画上去。这样的方法中间存在一个clear过程，导致会有一瞬间的闪烁。一个简单的解决方法是不用clear：先创建位图，然后将要画的东西画到位图上，最后

2016-12-26 19:21:36 12650 1

原创 2016年圣诞节巨献：C#汉诺塔河内塔游戏（动画、圣诞节音效）源码及安装包

终于把VS的的打包搞定了，高兴啊！圣诞节巨献：C#汉诺塔河内塔游戏（动画效果、圣诞节音效）。在平庸而又乏味的生活中，来一把紧张而刺激的汉诺塔游戏，生活，就是这么美好。游戏可以在博主的资源页下载！（不支持WinXP）游戏分析：从图片可以看出，主要涉及到的类有：disk（绿色的圆盘），tower（蓝色的塔）。博主一共用到了4个类：disk ，tower，Game，Form1嗯，简单分析一下，这个柱子to

2016-12-25 14:06:41 1109

原创 ASP.net服务器发布后BC31007错误解决方法

博主在winServer2008 r2 发布 asp.net网站时遇到的错误，折腾了大半天终于搞好了。关键步骤是找到C:/Windows/temp文件夹，右键属性→安全，编辑权限那里添加一个 network service用户，然后将network service权限设置为完全控制，就ok了还有几点要注意的事项：1。确保服务器的.net版本与发开web用的.net版本相同，或者高于。2。确保安装了i

2016-12-22 20:00:11 2211

原创 win10 VS2015 OpenGL环境搭建

刚开始根据书上的方式来搞，结果出问题了，后来自己查了相关资料，总结了下面的方式，亲测可行1，下载工具包 https://www.opengl.org/resources/libraries/glut/glutdlls37beta.zip2.解压后，得到5个文件3。将两个lib文件(glut.lib, glut32.lib) 放到VS/VC/lib文件夹下4.将glut.h 放到VS/VC/incl

2016-12-22 15:30:58 767

原创 C# 多线程简单的同步售票系统代码

using System;using System.Threading;//进程同步//共50张票，3个窗口售卖namespace Chapter10_Practice{ class TicketRest { int ticket = 1; public void sell() { while (ticket

2016-12-21 20:34:53 3483

原创 win10 ASP.NET VS2015 iis 本地发布Web HelloWorld 方法及注意事项

哎，刚开始接触到ASP.NET, 弄个HelloWorld很简单，但是发布却搞了大半天。。。博主把自己的经验和教训写在这，可以可以帮到后来的小伙伴吧步骤一，启动iis服务控制面板→程序→启动或添加windows功能, 找到Internet Information Services, 然后将该项的所有子文件夹全点开打钩，注意这个地方一定要全点开打钩，博主刚开始没有这样做，结果白费了2个小时才意识到这

2016-12-17 20:22:13 3416

原创 VB.NET TextBox 打开txt后乱码问题

由于编码格式不对应导致在读入和写入时Dim sr As New IO.StreamReader(OpenFileDialog1.FileName, System.Text.Encoding.Default) '用系统默认编码格式读入Dim sw As New IO.StreamWriter(Me.Text, False, System.Text.Encoding.Default)'用系统默认编码格式

2016-12-15 19:47:50 2299

原创 VB.NET 贪吃蛇 (画圆)

VB.NET 贪吃蛇小游戏效果图如下所有代码一共300行多一点，非常简单，下面依次介绍一下1.设计思路这个游戏(1)呢，得有个地图(2)，有条蛇(3)，有个蛋(4)，所以一共设计了4个类，然后通过类之间的交互，在Form上的PictureBox上形成游戏效果。为什么还要弄个游戏类呢，因为这样新开一局游戏就非常简单了啊，直接new一个游戏类就可以了窗体设计图如下：中间的是picturebox控

2016-12-15 19:13:12 4446 7

原创 VB.NET picturebox画线最右方和最下方显示不出来

VB.NET picturebox画线最右方和最下方显示不出来强迫症都出来了，这怎么解决呢，方法也非常简单，就是将picturebox的width和height各加1就可以达到下面这种效果了

2016-12-14 14:48:03 1120

原创汇编基于PC机的8254日时钟中断的字符串动态显示——时：分：秒

汇编基于PC机的8254日时钟中断的字符串动态显示——时：分：秒效果图如下：如何实现这种效果呢？很简单，只需要把以下代码复制一遍运行就可以了.486DATA SEGMENT USE16 OLD1C DD ? ; SAVE THE OLD 1C INT ICOUNT DB 18 ;18*55MS = 990MS <==> 1S COUNT DB 1 ;C

2016-12-14 13:54:41 4096 3

原创页面调度算法 FIFO，LRU，OPT，及C++代码

页面调度算法 FIFO，LRU，OPT介绍了三种页面调度算法，给出了C++代码1.FIFO先来先去算法这个非常好理解，给出分析图可以看出，缺页次数为8次，缺页中断率为8/12=66.7%，依次置换的页面为：1,2,5,3,4C++代码在最后给出2.LRULRU，Least Recently Used 近期最少使用算法，先给出分析图这个也不难理解，我们只需要从之前的一个页面开始往左寻找就可

2016-12-08 14:01:50 18181 4

原创 VB ListBox 借助winAPI实现鼠标自由拖放改变顺序

在窗体Form1上放置一个一个ListBox控件List1，然后在Form1的窗体代码里面复制以下即可Option ExplicitPublic item_height As SinglePrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As

2016-12-07 21:27:54 1308

原创 VB RichTextbox Find之后的突出显示问题

博主之前用的时候一直没办法突出显示，今天偶尔发现RichTextbox的一个属性HideSelection，默认为True。。。。而只需要将HideSelection设置为False，Find之后就可以突出显示了，像下面这样子，Find “克鸟” 之后希望可以帮到后来的小伙伴

2016-12-07 20:03:54 974 2

原创 VB最小化到通知栏，托盘的方法 WinAPI实现

直接复制代码稍微修改一下就可以用了1模块代码Option ExplicitPublic Const DefaultIconIndex = 1 '图标缺省索引Public Const WM_LBUTTONDOWN = &H201 '按鼠标左键Public Const WM_RBUTTONDOWN = &H204 '按鼠标右键Public Const NIM_ADD = 0 '添加图标Public

2016-12-07 19:06:35 1336

原创 VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes

VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes1效果图2VB代码模块代码Option ExplicitPublic Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

2016-12-07 12:41:30 2836

原创 VB通过windows API实现窗口透明，部分透明，CreateRectRgn，CombineRgn

VB通过windows API实现窗口透明，部分透明1 效果图展示 2 相关API函数介绍Public Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long创建一个由点（x1，y1）到（x2,y2）的矩形

2016-12-06 19:22:03 2873

原创 SQL Server 启动后netstat -a 找不到1433端口在监听

SQL Server 启动后netstat -a 找不到1433端口在监听博主在配置好新的数据库后，就是连接不上，cmd敲netstat -a 后发现根本没有1433端口。。这个问题困扰了博主一下午。。最后的解决方法也很简单。。记在这里希望帮到后来的小伙伴解决方法：启动配置管理器(Configuration Manager)，选择SQL Server 网络配置→MSSQLSERVER的协议→TCP/

2016-12-06 10:42:48 10271 2

原创 SQL Server 数据库迁移方法——备份还原

SQL Server 数据库迁移方法——备份还原博主在将自己电脑的sql server数据库迁移到云服务器上时，一时摸不到头脑，但最后还是用备份还原的方式来完成了数据库的迁移。比如要把A主机的数据库qqq迁移到B主机。我们可以这样操作：①在A主机用Management Studio 连接数据库，在左边[对象资源管理器]找到qqq，然后右键→任务→备份，进行完整的备份，假设备份文件是qq...

2016-12-06 10:30:47 17894

原创 VB SQL Server 连接时出现运行时错误’-2147467259

VB SQL Server 连接时出现运行时错误’-2147467259博主最近要把数据库放到远程服务器上，然后进行数据库连接，但是写的程序怎么也连接不上数据库。。。最后发现是连接字符串中单词拼错了。。。connectionstring="driver=SQL Sever;sever=IP地址;uid=sa;pwd=数据库密码;database=数据库名"server 写成了sever。。。。哎糗

2016-12-05 18:45:03 11363 1

原创 VB聊天工具：借助服务器端实现P2P通信

VB聊天工具：借助服务器端实现O2O通信博主最近自己做了一款聊天工具，类似qq的样子，来简单分析一下如何借助服务器帮助建立O2O的连接进行在线通信假设A要与B通信，S是服务器端那么A、B与服务器要用tcp连接，这样A、B在连接S时会告诉S自己的ip；A与B之间用udp连接，需要互相知道对方的ip和port，这个需要S告诉它们。连接流程如下：1。首先A登录，以tcp连接S，S得知A的ip，写入数据库i

2016-12-02 21:47:37 1463

原创 VB 生成exe后，动态加载窗体的show事件会出现运行时错误5的解决方法

VB 生成exe后，动态加载窗体的show事件会出现运行时错误5的解决方法博主最近在做一款聊天工具，需要动态加载聊天的窗口，用到这样的代码Dim newchat As New FrmChatnewchat.show这样的代码在调试过程没有问题，但是在生成exe文件后，却在show事件这里报错[运行时错误5，无效的过程调用或参数]，这里明明没有什么问题啊，博主搞了很久，也没搞明白，不过最后找到解决

2016-12-02 21:29:18 1909

原创 VB SQLServer image数据存入和取出ADODB.Stream

VB SQLSever image数据存入和取出rs是已经打开的记录，有Picture字段，字段类型是Image，现在需要将本地图片存入数据库，或者将数据库内的该图片取出‘读取本地图片的路径path到数据库Public Sub ImageReadIntoDB(path As String)Dim istream As New ADODB.StreamWith istream .Type =

2016-12-02 21:20:16 1504 2

原创 VB查找sqlserver中是否存在某张表，不存在则创建

VB查找sqlsever中是否存在某张表cn是adodb.connection对象，已经打开了数据库，现在查找数据库内是否存在名字是lblu.caption的表，如果不存在，则创建 Dim rs As New ADODB.Recordset strsql = "select * from sys.tables where name = '" & lblu.Caption & "'"

2016-12-02 21:13:24 2261

原创 vb winsock udp循环绑定端口直到成功

#vb winsock udp循环绑定端口在使用udp协议时，需要绑定一个端口，但可能指定的端口被占用。所以需要进行循环，从指定端口往后开始，寻找一个未被占用的端口进行bind'从5100开始绑定端口直到成功为止Dim p As Integerp = 5100On Error Resume NextDo Err.Clear p = p + 1 wsk.Bind

2016-12-02 21:07:06 1255