- 博客(48)
- 资源 (6)
- 收藏
- 关注
RSS订阅
原创 算法代码说明
1、代码理解不了可以看看博客下方的其它推荐的文章，同类文章很多，可以看他们的讲解（一般不是vb.net代码），理解方法后再结合vb.net代码学习（不同语言代码还是有很多不同的）。2、结合已编译程序的计算结果来学习，效果会更好些，代码中提供了下载链接（传到CSDN上设置免费，管理员也可能改成会要积分的资源）3、这里重点要说的是，我写的代码可能会比其它语言的代码多，这并不是vb.net代码不简洁，而是多出来的代码是检测用户的输入信息的合理性，这是写程序时必须要考虑的；而其它代码的初始条件多是自己设定好的，
2020-10-24 17:04:24
227
原创 朗读者转换后出现异常
《小说朗读器》主要功能基本全了，最近一直在处理朗读者转换后出现异常的问题：转换成非微软的朗读者时，有时会不停的下一句跳动却不发音。非微软的朗读者采用的《朗读女》中的VW Hui、VW Lily，有时正常朗读，有时不正常，找不出原因，很是郁闷！...
2021-09-05 17:38:30
100
原创 vb.net实时调整系统主音量
Imports System.Runtime.InteropServicesPublic Class Form1Private mute As Integer = &H80000Private up As Integer = &HA0000Private down As Integer = &H90000Private WM_APPCOMMAND As Integer = &H319<DllImport("user32.dll")> _Public
2021-08-19 21:13:57
524
转载 vb.net控制系统音量
Imports System.Runtime.InteropServicesPublic Class Form1 Private mute As Integer = &H80000 Private up As Integer = &HA0000 Private down As Integer = &H90000 Private WM_APPCOMMAND As Integer = &H319 <DllImport("user
2021-07-17 11:35:44
532
原创 小说朗读器又增加新功能
2012.7.31、增加打开word、rtf格式文件功能2、增加拖放word、rtf格式文件功能3、增加“关于”功能2021.7.11、增加文本文件拖放功能拖放在朗读的文本文件，更方便、快捷2、增加富文本框右键菜单——粘贴、复制、剪切、取消功能右键粘贴新内容，快捷；右键取消，可以恢复到上一操作内容...
2021-07-03 11:45:52
76
原创 小说朗读器更新内容
1、设置的保存和加载设置包括语速、音量、字体、提示色、移速以及朗读人，保存后在下次启动时会加载设置。2、朗读的自动切换优化解决了朗读到下一句时提示和朗读不同步的问题。3、朗读人的提取和选择加载操作系统中安装的所有朗读人，用户可以自由选择切换，限时生效。...
2021-06-12 09:55:13
147
1
原创 字体的保存和提取
本人在编写《小说朗读器》时设计了设置保存和提取功能，其中RichTextBox字体设置的保存和提取比较复杂，查了一些资料，终于找到了解决方法，与大家共享：1、字体保存成字符串Dim fc As New FontConverterstrFont = fc.ConvertToInvariantString(Text1.Font)2、由字符串转成字体Dim fc As New FontConverterText1.Font = fc.ConvertFromString(strFont)本方法的优
2021-06-08 19:41:36
1355
原创 vb.net中RichTextBox调整字体大小
vb.net的资料太少，查阅RichTextBox调整字体大小的方法没找到，看了几篇C#的介绍，有的写的好复杂，在一篇短文中找到解决方法： ‘缩小字号 Dim fonOld, fonNew As Font fonOld = rtbMain.Font Try fonNew = New Font(fonOld.FontFamily, fonOld.Size - 1, fonOld.Style) rtbMain.Fo
2021-05-23 11:24:59
1246
原创 关于作品发布
现在的电脑软件用的人少了，更多的人在用手机APP，所以发布也没什么意义。自娱自乐，没有下载量多少的牵挂，也没有用户升级的烦恼，悠哉妙哉！这也是编程爱好者与职业者的不同吧
2021-05-23 11:10:59
69
原创 《小说朗读器》又增新功能
2012.5.231.增加设置字体功能2.修改界面，将打开按钮删除，换成内容跳转；增加文字大小调整功能3.默认字体带下划线，并调整字体大小2021.5.221、优化启动显示以及加载文本速度；2、对出现乱码情况进行了二次加载处理；3、对重复目录进行处理2021.5.121、增加朗读记录的保存、加载功能2、增加看书功能，可以设置移动速度...
2021-05-23 11:03:09
300
原创 《小说朗读器》新增功能
新增功能：1、自动提取小说目录，点击相应目录可以快速定位跳读2、朗读定位到到一句话，定位更直观3、点击正文某位置，即可从该位置开始朗读
2021-05-03 10:51:38
133
原创 完成vb.net版的《小说朗读器》
经过三天晚上的努力，完成了《小说朗读器》的编程。它不仅能朗读，还能自动继续下一章节，并用颜色标出正在朗读的章节；调整语速和音量后，能及时更新朗读语速和音量。很满意。下步要解决小说目录的提取等难题。...
2021-04-27 23:05:42
188
原创 五子棋修复了两个bug
1.1.0.2升级说明1、修复bug2、仍有重复落子情况，第一重过滤不严密，直接去掉了。下载位置请在《新版五子棋功能写差不多了，可以赢一部分人了…》中的链接下载吧。发到资源中又变成要积分的了，还是到百度云盘中下载吧，程序只有476k。空时可能会先增加棋谱功能；原创算法卡住了，写不下去了。...
2020-10-31 22:15:27
435
原创 贪婪算法实例：换零钱（VB.net代码）
Public Class frmMoney Const conMax = 9 Public intValue(conMax) As Integer Private Sub frmMoney_Load(sender As Object, e As EventArgs) Handles MyBase.Load lblTell.Text = "贪婪算法追求最快得到结果的算法，它可能不是最优解。" & vbCrLf & "例如找零钱的
2020-10-24 17:16:34
282
原创 分治算法实例：赛程安排（VB.net代码）
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load lblTell.Text = "输入比赛人数（双数，大于8时必须是16、32或64），进行单循环赛程安排" lblNum.Text = "比赛人数" End Sub Private Sub btnCal_Click(sender As Object, e As
2020-10-24 17:10:33
262
1
原创 试探法算法实例：彩票M选N号码（VB.net代码）
Public Class Form1 Dim intNum(), intCode() As Integer '全局变量数组 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '初始化 '数值过大耗时较多，也可能出现溢出无法得到全部结果 txtM.Text = "15" txtN.Text = "5" End Sub
2020-10-24 16:42:59
525
原创 上班后感觉学编程的动力小了
昨天晚上强迫自己学习编程，不然感觉再放纵自己就会没有了动力。学着学着竟睡着了，捂脸！今天起得早，吃完饭看了一节试探性算法视频，它是讲彩票29选7的算法，用循环算法很容易写出，不过课程中讲得试探性算法就不太容易写，上班途中想明白了好处：通用性强，可以改写成M选N的通用算法；变量少，语句少，还不用检测重号；递归算法每次只更换一个数字，还是很容易理解，就是一般不会想到如此解决。此方法有想类似将一个鸡蛋竖起来，好象很难，但告诉你只要将鸡蛋一端砸破它就很轻松竖起来，你就晃然大悟。此算法已想明白，明天空时就改写为
2020-10-23 22:21:40
119
原创 今天休息，再发几个vb.net代码
刚才发了几个代码，上周发了几个免费资源，通过后都要积分了，唉，还是直接发代码吧。学习代码时，可以顺便下载编译好的程序，代码中有链接和提取码，程序与代码接合会更直观。上班后就没很多时间学编程、改程序了。不过没特殊情况，还会继续学习编程、写程序的。生活需要兴趣、动力、新意、成就感，你说是吗？...
2020-10-11 13:27:00
64
原创 递归算法实例：十进制转换N进制（vb.net代码）
vb.net自带进制算法，但我们这里要学习的是递归算法啊！代码中还有循环算法及vb.net自带进制算法Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load txtN.Text = "2" End Sub Private Sub btnConvto_Click(sender As Object, e As EventArgs) H
2020-10-11 13:04:12
487
原创 递归算法实例：阶乘（vb.net代码）
Public Class frmMain Private Sub 更新下载ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 更新下载ToolStripMenuItem.Click Process.Start("https://pan.baidu.com/s/1uHZturISzQifxeHL-FX-eQ") My.Computer.Clipboard.Clear() My
2020-10-11 12:54:51
1159
原创 枚举（穷举）算法实例：奥数计算题（vb.net代码）
枚举（穷举）算法其实就是我们用的最多的循环算法，将所有可能性都考虑在内进行循环计算。术语听不懂很可怕，嘿嘿嘿Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load lblNum1.Text = "算法描述题" lblCode.Text = "×" lblNum2.Text = " 算"
2020-10-11 12:45:13
288
原创 枚举（穷举）算法实例：趣味数学题（vb.net代码）
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load '5个5进行+-*/计算后仍等于5 lblTell.Text = "请在下面的等式中填写+-*/计算符号，使等式成立" lblNum1.Text = "5" lblNum2.Text = "5" lblNum3.Text = "5"
2020-10-11 12:24:14
777
原创 已实现冲四活三算法，程序可以在资源中免费下载
经测试，能实现冲四活三功能，不过有时又不行，还需改进算法，先发出来，祝贺一下。顺便也将做活三的功能开放了，昨晚测试没发现异常下子，先发出来，有兴趣地试玩一下，能提供战胜软件的截图就更好了。如果资源通过后变成要积分的，可以与我联系，或者通过以前的文章，找到本人的作品链接就能从中下载。...
2020-10-03 08:33:03
142
原创 新版五子棋功能写差不多了，可以赢一部分人了，软件可以在资源中下载
百度云盘：https://pan.baidu.com/s/1WcKjx2fAU3Aurd0BPyZ9dQ提取码:gukr说明1、提升棋力的做棋和捕捉对方的埋设都写了，但仍有问题，暂不提供有缺陷的功能了。2、以上功能完善后会较大提升棋力，大家趁机赶快赢几盘吧，以后可能没机会了，哈哈哈3、欢迎大家提出意见和建议，赢棋可以发个截图，以便于完善功能，谢谢！...
2020-10-03 00:11:57
342
2
原创 发了几个算法的vb.net代码
本人这几天在学习算法，主要是因为在五子棋调试中太烦人了，换换思路，同时也受五子棋终结者的刺激，开始学些算法。发代码主要是vb.net源代码太少了。我现在学的算法视频教程是C语言的，简单的能看懂，写起来也容易。讲算法的很多，只是vb.net代码好象没有，就顺手发几个。看不明白的可以看文章下面的其它文章，我就不重复了。看受关注程度吧，如果看得少就不再发了，省得浪费时间和精力。另外，顺便发的程序下载是为理解代码更直观，提供的代码对应的软件下载，是百度云盘下载，不需要积分下载，已让管理员重点审核了，怕怕！
2020-09-28 23:07:03
270
原创 顺推算法，算法实例：兔子繁殖vb.net代码
Private Sub btnHare_Click(sender As Object, e As EventArgs) Handles btnHare.Click '此算法实际是斐波拉契数列算法 Dim intMonth, intNum(), intI As Integer Try If IsNumeric(txtHare.Text) Then intMonth = CInt(txtHare.T...
2020-09-28 22:43:00
411
1
原创 逆推算法，算法实例：存款费用计算vb.net代码
Public Class frmMoney Private Sub btnMoney_Click(sender As Object, e As EventArgs) Handles btnMoney.Click '若在M月连续连本带息取N元，需要现在一次性存款多少？ Dim sngDraw, sngInterest, sngDeposit() As Single Dim intMonth, intI As Integer Try
2020-09-28 22:35:19
308
原创 二分法，算法实例——猜数字小游戏的vb.net代码
Public Class frmNum Dim intNum, intTimes， intMaxNum, intMinNum As Integer Private Sub chkTell_CheckedChanged(sender As Object, e As EventArgs) Handles chkTell.CheckedChanged If chkTell.Checked = True Then lblAbout.Text = "范围："
2020-09-28 12:42:33
517
原创 开始学算法
第一个算法：二分法猜数字——小游戏链接：https://pan.baidu.com/s/1pzx29N148EIXiRcucZ0acA提取码：9fj7作者的免费作品集链接：https://pan.baidu.com/s/1jr_3Yt5l1i6jNNbMy4R61A提取码：5ycz
2020-09-27 18:00:35
56
原创 五子棋新版已轻松战胜旧版
随手下了两盘，都是新版战胜旧版。旧版先手攻击性强些，新版与之久战不下；后手偏防守，棋力弱，很容易就被新版打败。新版还有些问题，比如第一盘的62手应下在63手位置，这样就赢了。还要完善啊。将绘制棋子改成全部重绘时发现仍有缺陷，界面闪动较厉害（因棋子全部重绘造成），截图后界面仍会棋子消失。所以还是恢复到只绘制最后一个棋子，在操作菜单中增加一个“重绘棋子”的功能作为补救。大部分功能已写完，没采用AI算法，只是按我们下棋的思路进行地模拟。又十一点多了，先写到这里吧。...
2020-09-24 23:06:17
111
原创 五子棋人机对战已初见成果
直接上图第12、14步下子都很准确。状态提示走棋是错误的，还未修改。还有一些棋型下子不对，需要不断测试，修改。不过已明显有小成，不错，进展很快。这两天遇到了很多问题，比如重复落子，下子后有关数据都更新为落子状态了，却总有重复落子的情况，因此不得不在空位的过程中又加二次检验空位的语句，还是出现问题，郁闷啊！今晚终于找出问题所在，哈哈哈！又弄得太晚了，赶快睡觉！...
2020-09-22 00:00:28
109
原创 五子棋双人对战的实现
完成了界面，实现双人对战就很简单了。1、定义公共变量和结构变量Public Structure FivePosDim x As IntegerDim y As IntegerDim color As IntegerEnd StructurePublic fpGoPos(225) As FivePos '记录下子顺序和位置Public intGoType(224) As Integer '记录下子分布Public intFirstGo As Integer '谁先手Public bLimi
2020-09-19 23:36:44
811
原创 五子棋的界面
我重写五子棋的一个目的是让程序界面漂亮些，所以添加一个棋盘图片是必须的，棋子也用图片会更漂亮。因此，我学习了zcsor的五子棋AI循序渐进【1】实现界面和位棋盘1、棋盘和棋子图片我都是使用zcsor的，棋子的图片绘制方法很好，赞一个。2、绘制棋子是将所有位置都循环一次，很浪费时间，我改成了只绘制最新一步棋；后来增加了棋子上写步数，需要将最新一步用红字，过后再改回黑白字，因此我又增加了对倒数第二步棋的进行重新写字；因为悔棋需要对不同边角进行判断，太麻烦，所以采用zcsor的思路，刷新pnlBoard然后重
2020-09-19 12:32:15
1108
原创 五子棋程序进展
其实在写《下步计划》时已经将五子棋界面图片和画棋子问题解决了。这段时间一直在查看自己的VB6五子棋源码，回忆原来的思路。这个程序放得时间很久了，我是知道的，但没想到竟有近20年了！单机版，功能还是不少的，就是界面太粗糙了！另外，也学习了《清月连珠》源码和作者写的博文。有空就开始写棋型识别的代码，我没有采用zcsor的模板方法，而且采用自己原来的代码识别：首先将原来的代码优化，对要下子位置进行分析是何棋型，原来是各种棋型分别判断，这就多次重复分析了棋子分布情况。这部分代码重新写了，思路与旧版有很多
2020-09-16 23:30:50
214
原创 破解好难
本周学习的是简单加密、解密，其中凯撒移位很简单，因为简单所以就不仅照着教程练习加密、解密，还试着进行破解。还算容易。后来又学到了字符交换加密方法，方法很好理解，又试着进行破解，涉及到字符串的排列组合，下功夫看了几篇博文，解决了排列组合问题。但因为组合产生的数量巨大，无法进行下一步了。想到了破解方法也不能破解，如果不知道加密方法又如何破解呢？这还是最简单的加密啊！真得是难啊！记得刚接触编程时，同事就有一本很厚的加密解密书，现在刚学了一点儿皮毛，要学的内容好多啊。...
2020-09-12 14:58:09
123
原创 《看图玩儿》1.2.0.4新增功能
1、修复“不显示背景”bug，画框尺寸没有与背景一样大2、修复保存bug3、增加浏览图标的图片类型4、修改菜单，增加了“下载最新”功能，直接进入百度云盘5、修复“关于”中版本号未更新的问题百度云盘：链接：https://pan.baidu.com/s/1aGzzICSvoR2Q1SusEMsavQ提取码：bcmr...
2020-09-12 11:54:38
107
原创 下步计划
1、《看图玩儿》功能有太多可写，计划添加图片处理的亮度等、操作的绘画功能、增强截屏功能等，边学边增加。2、加解密是个有趣且有前途的方向，已开始学习。难度也很大，加油！3、重新拾起编程的一个目的是把五子棋完善。当初用VB6写的五子棋界面都是用程序绘制的，很是粗糙，算法也是初级的，一直想更进一步。现在网络很发达，也有前辈分享代码，可以更好的学习借鉴！目前已完成了棋盘、棋子的绘制。悔棋的棋子绘制比下棋的绘制麻烦，先放一放吧。...
2020-09-06 10:08:28
164
原创 《看图玩儿》1.2.0.1新增功能
2020.9.6更新说明：1、更换背景图片，更适合“显示背景”功能使用2、完善设置功能2020.9.5更新说明：1、增加设置功能2、调整部分菜单选项3、增加显示列表、隐藏列表功能百度云盘：链接：https://pan.baidu.com/s/1aGzzICSvoR2Q1SusEMsavQ提取码：bcmr...
2020-09-06 09:18:28
224
原创 截取图片框范围图像已搞定
在https://blog.csdn.net/kguncn/article/details/107748118基本能完成截取图片，但每截图一次图像会小一些。经过最近的学习和体会，发现是坐标的问题1、Me.Left + panPic.Left, Me.Top + panPic.Top应该转换为屏幕坐标2、-panPic.Left, -35直接修改为0，0即可...
2020-09-03 22:58:21
148
清风五子棋1.1，支持冲四活三
2020-10-03
清风五子棋，非棋谱搜索类，完全免费，无广告
2020-10-03
vb.net编写的看图软件源代码
2020-08-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人