ysq231的个人资料 - RAT

ysq231 ysq231

关注数: 7 粉丝数: 27 发帖数: 168 关注贴吧数: 8

专业自动投注软件定制专业级软件定制详情联系扣扣 8 3 0 0 6 9 9 3 价格优惠开发速度快，稳定性好，长期维护！

三大程序猿召集令孤身奋战在在线接单的道路上很苦逼。所有各路大神，菜鸟们只要有兴趣，咱可以组个小小团队。兴趣第一，友谊第二，赚钱第三。研二师兄照你去战斗！有兴趣联系：扣扣 2-7-6-5-0-9-1-8-2

Code39 条形码图片识别解析 Code39 的编码比较简洁 5黑4白组成一组9位数的编码。黑白的条的长短即为1和0。开始结束都为星号 "010010100" 例如：黑短白长黑短白短黑长白短黑长白短黑短 0 1 0 0 1 0 1 0 0 即为“ 010010100” ---- 星号所以code39 规则简单识别容易缺点是单位面积编码率低。

转贴:【新人报道】大家好,我是新来的测友! 内侧一下下礼品中心 | 百度众测平台内容来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ftest.baidu.com%2Fcrowdtest%2Fn%2Fgift%2Findex%3Ffrom%3Dtaskflow&urlrefer=c6d7ad22a79bd739d772570ba8c891bd

克拉默求解n个未知数n个线性方程的代码克拉默法则：线性方程组的系数行列式不等于零，那么方程组即有唯一解。（可以参考《线性代数》） Function klm(A() As Double, B() As Double) As Boolean Dim n As Integer Dim i As Integer, j As Integer, k As Integer Dim DetD As Double If UBound(A) = UBound(B) Then n = UBound(B) Else Exit Function End If ReDim mtxA(n, n) As Double ReDim mtxB(n) As Double For i = 1 To n For j = 1 To n mtxA(i, j) = A(i, j) Next Next DetD = MDetGauss(n, mtxA) If DetD = 0 Then klm = False Exit Function End If For k = 1 To n For i = 1 To n For j = 1 To n mtxA(i, j) = A(i, j) Next Next For i = 1 To n mtxA(i, k) = B(i) Next mtxB(k) = MDetGauss(n, mtxA) / DetD Next klm = True For i = 1 To n B(i) = mtxB(i) Next End Function N阶行列式（方阵）求行列式的值： Function MDetGauss(n As Integer, mtxA() As Double) As Double ' 局部变量 Dim i As Integer, j As Integer, k As Integer, nIs As Integer, nJs As Integer Dim f As Double, det As Double, q As Double, d As Double f = 1# det = 1# ' 选主元 For k = 1 To n - 1 q = 0# For i = k To n For j = k To n d = Abs(mtxA(i, j)) If (d > q) Then q = d nIs = i nJs = j End If Next j Next i ' 求解失败 If (q + 1# = 1#) Then MDetGauss = 0 Exit Function End If If (nIs <> k) Then f = -f For j = k To n d = mtxA(k, j) mtxA(k, j) = mtxA(nIs, j) mtxA(nIs, j) = d Next j End If ' 调整 If (nJs <> k) Then f = -f For i = k To n d = mtxA(i, nJs) mtxA(i, nJs) = mtxA(i, k) mtxA(i, k) = d Next i End If ' 计算行列式的值 det = det * mtxA(k, k) ' 调整方阵为上三角矩阵 For i = k + 1 To n d = mtxA(i, k) / mtxA(k, k) For j = k + 1 To n mtxA(i, j) = mtxA(i, j) - d * mtxA(k, j) Next j Next i Next k ' 计算行列式的值 det = f * det * mtxA(n, n) ' 求解成功 MDetGauss = det End Function 贴吧里做计算器或者求表达式的挺多的。希望这个对你们有帮助。多研究下高级数学算法吧。

VB快速取色 Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Private Type BITMAP bmType As Long '图像类型：0 表示是位图 bmWidth As Long '图像宽度（像素） bmHeight As Long '图像高度（像素） bmWidthBytes As Long '每一行图像的字节数 bmPlanes As Integer '图像的图层数 bmBitsPixel As Integer '图像的位数 bmBits As Long '位图的内存指针 End Type 调用了api效率比 GetPixel 快了一个数量级。虽然在验证码识别时候，采用GetPixel足够了，进一步扩展到orc识别的话，就成了软肋。所以选择了 GetBitmapBits。主要代码： GetObject picShow.Image, Len(PicInfo), PicInfo BytesPerPixel = PicInfo.bmBitsPixel \ 8 ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * BytesPerPixel) GetBitmapBits picShow.Image, UBound(PicBits), PicBits(1) ReDim Pica(1 To PicInfo.bmWidth, 1 To PicInfo.bmHeight) As Byte For Y = 1 To PicInfo.bmHeight For X = 1 To PicInfo.bmWidth i = (X - 1) * BytesPerPixel + (Y - 1) * PicInfo.bmWidthBytes B = PicBits(i + 1) G = PicBits(i + 2) R = PicBits(i + 3) Gray = R * 0.39 + G * 0.5 + B * 0.11 Pica(X, Y) = Gray Next Next 把picShow的图片的颜色取出并且灰度化了放在 Pica数组中，坐标和picturebox的初始坐标一致，原点为左上角。比起GetDIBits 从左下角为原点比较方便。查阅了不少代码才总结出坐标转换：i = (X - 1) * BytesPerPixel + (Y - 1) * PicInfo.bmWidthBytes 。特发此帖，方便那些需要的人！

验证码识别之关于不变形旋转倾斜识别主要原理还是X轴投影法。验证码的字符倾斜角度一般在（-45，45）之间。水平的字符，X轴投影最短。根据这个原理来识别旋转角度。分割字符，存储字符的二值矩阵。求出字符的质心坐标(x1,y1)。然后历遍（x，y）里对应每个黑点（值为1的点）转换新的坐标（x2，y2）存入黑点 x2=(x - x1) * Cos(angle * 3.14 / 180) - (y - y1) * Sin(angle * 3.14 / 180) + x1 y2=(y - y1) * Cos(angle * 3.14 / 180) + (x - x1) * Sin(angle * 3.14 / 180) + y1) 其中angle即为假设的角度。然后对（x2，y2）做X轴投影，如果比（x，y）中的短，则逐步增加角度，直至求出最短的角度。对字符旋转 -30度的效果对于字符的倾斜矫正（字体变形的）要用到不变矩的特性，暂时还没搞定！有兴趣可以交流。 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fuser.qzone.qq.com%2F276509182%2Fblog%2F1348749847&urlrefer=efb685587746570e98d0525dfc796aab 字模匹配的算法！

VB 控制 wifi 小车的上位机源码（含下位机51单片机的源码） http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D1385686631%26uk%3D2466579914&urlrefer=877e7a43d9257af4921ab55abe0708c0

关于老杨工作室义务承接项目的公告为考研复试祈福，本人从5月---9月之间承接VB相关项目。绝对免费，开源！承接范围必须符合我国相关法律，不能触碰我国道德底线，不违反我做人原则。最最关键的是我能力范围之内。虽然原则上只要你有思路，我能实现算法，就不存在难度。但是存在不可抗拒的因素导致无法完成项目的也请谅解。本人由于工作经验和个人能力有限，所有不能百分之百承诺可以完成所有项目。一旦我肯接下，那基本上就没有太多问题。

移动密盘--老杨作品先提供 exe下载 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D417918%26uk%3D2466579914&urlrefer=7a5f20691773f8905879e2d9018f9cc1 由于还没加入比较犀利的算法，所以破解这种隐藏方式也比较简单！不必太叫真，谨以此搞笑！为老杨工作室吧做宣传，若有50回复，或者10人访问，必须放出开源代码！同时邀请乐于开源代码的VB爱好者去老杨工作室吧！http://tieba.baidu.com/p/2231509485

VB源码开源----老杨作品图片来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fxiangce.baidu.com%2Fpicture%2Falbum%2Flist%2F9b7e12bd0ecd6a234f6181cc7f0f2f075f13509e&urlrefer=16e3f4739a783bacdfd025814a353a17 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D417867%26uk%3D2466579914&urlrefer=4a6b86959815578e11d49a61244a813e

开源是本吧的主题！欢迎亲们，来本吧讨论编程技术。略懂一些编程技术，曾在某汽车公司从事软件测试工作。此吧致力于开源，承接各类项目（谢绝问价，因为完全免费）。欢迎义务志愿者来此吧，参与建设。 VB，单片机，C语言。一起交流，一起成长！

贴吧扫楼带邮箱导出图片来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fxiangce.baidu.com%2Fpicture%2Falbum%2Flist%2F9b7e12bd0ecd6a234f6181cc7f0f2f075f13509e&urlrefer=16e3f4739a783bacdfd025814a353a17 原本还带有自动发邮件！但是由于smtp发现限制的恶心，一天发信50-100以内，所以就没有添加了！导出的邮箱记录默认用分号作为间隔。

1 下一页