<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[Bingo]]></title><description><![CDATA[]]></description><link>https://blog.csdn.net/bakw</link><language>zh-cn</language><generator>https://blog.csdn.net/</generator><copyright><![CDATA[Copyright &copy; bakw]]></copyright><item><title><![CDATA[用VB6来实现QBASIC中的Play语句]]></title><link>https://blog.csdn.net/bakw/article/details/133969127</link><guid>https://blog.csdn.net/bakw/article/details/133969127</guid><author>bakw</author><pubDate>Sun, 22 Oct 2023 08:11:15 +0800</pubDate><description><![CDATA[很久以前写的了，用Midi的API函数来实现以前QBasic中的Play语句，控制符实现可能还不完善，感觉演奏的还是有些问题，懒得弄了，发出来吧。下边是这个bas模块文件的代码，例程代码等下发。用法，Play "ABCDEFGAB"]]></description><category></category></item><item><title><![CDATA[ESP8266上用MicroPython写的WebServer]]></title><link>https://blog.csdn.net/bakw/article/details/80582136</link><guid>https://blog.csdn.net/bakw/article/details/80582136</guid><author>bakw</author><pubDate>Tue, 05 Jun 2018 15:36:03 +0800</pubDate><description><![CDATA[基本功能都有了，另外还实现了基本身份验证、 session 和 cookie，类似cgi的动态页单连接工作，跑的不好。。。。可能cpu不强吧import socket,time,os

Response=None
Request={}
Session={}
Cookie={}

class CResponse:
  def __init__(self,f):
    self.status=200...]]></description><category></category></item><item><title><![CDATA[MicroPython 下生成随机十六进制字符串]]></title><link>https://blog.csdn.net/bakw/article/details/80552512</link><guid>https://blog.csdn.net/bakw/article/details/80552512</guid><author>bakw</author><pubDate>Sat, 02 Jun 2018 23:20:07 +0800</pubDate><description><![CDATA[MicroPython 没有Python这么好的待遇，网上介绍的方法在MicroPython下都不怎么好用。需要的这些模块都没有，所以可以用这个方法来生成:print(''.join([('0'+hex(ord(os.urandom(1)))[2:])[-2:] for x in range(8)]))这个就可以生成一条16个十六进制的字符串...]]></description><category></category></item><item><title><![CDATA[用Lazarus写了一个ESP8266 for MicroPython 的编辑器]]></title><link>https://blog.csdn.net/bakw/article/details/80508497</link><guid>https://blog.csdn.net/bakw/article/details/80508497</guid><author>bakw</author><pubDate>Wed, 30 May 2018 12:49:25 +0800</pubDate><description><![CDATA[NodeMCU刷了MicroPython用起来还不错，不过没有好的操作软件，花了几天写了一个，总算可以好好玩了。]]></description><category></category></item><item><title><![CDATA[关于树莓派vi方向键乱码的处理]]></title><link>https://blog.csdn.net/bakw/article/details/79507040</link><guid>https://blog.csdn.net/bakw/article/details/79507040</guid><author>bakw</author><pubDate>Sat, 10 Mar 2018 13:16:27 +0800</pubDate><description><![CDATA[参考：点击打开链接编辑/etc/vim/vimrc.tiny文件将 set compatible 改为 set nocompatible增加一行 set backspace=2]]></description><category></category></item><item><title><![CDATA[PHP阿里云短信API发送代码]]></title><link>https://blog.csdn.net/bakw/article/details/53914014</link><guid>https://blog.csdn.net/bakw/article/details/53914014</guid><author>bakw</author><pubDate>Wed, 28 Dec 2016 21:08:59 +0800</pubDate><description><![CDATA[阿里云的SDK搞的真复杂，一个简单的函数就行了，没必要搞这么复杂

//参数说明
//$RecNum 目标手机号
//$ParamString 短信模板中的变量；数字需要转换为字符串；个人用户每个变量长度必须小于15个字符。
//$SignName 管理控制台中配置的短信签名（状态必须是验证通过）
//$TemplateCode 管理控制台中配置的审核通过的短信模板的模板CODE（状态必须是验]]></description><category></category></item><item><title><![CDATA[VB6下利用API计算MD2 MD4 MD5 SHA1]]></title><link>https://blog.csdn.net/bakw/article/details/53912483</link><guid>https://blog.csdn.net/bakw/article/details/53912483</guid><author>bakw</author><pubDate>Wed, 28 Dec 2016 19:32:14 +0800</pubDate><description><![CDATA[Public Const ALG_CLASS_HASH = 32768
Public Const ALG_SID_MD2 = 1
Public Const ALG_SID_MD4 = 2
Public Const ALG_SID_MD5 = 3
Public Const ALG_SID_SHA1 = 4
Public Const ALG_TYPE_ANY = 0

Public Const CRY]]></description><category></category></item><item><title><![CDATA[VB6 基于API的远程开机代码]]></title><link>https://blog.csdn.net/bakw/article/details/52244476</link><guid>https://blog.csdn.net/bakw/article/details/52244476</guid><author>bakw</author><pubDate>Thu, 18 Aug 2016 20:16:35 +0800</pubDate><description><![CDATA[利用Magic Packet实现的远程开机代码
调用示例:
MagicPacket “192.168.1.100” "A1-B2-C3-D4-E5-F6"
Private Const WSA_DescriptionLen = 256
Private Const WSA_DescriptionSize = WSA_DescriptionLen + 1
Private Const WSA_SYS]]></description><category></category></item><item><title><![CDATA[VB6下简易的JSON解析器]]></title><link>https://blog.csdn.net/bakw/article/details/51035338</link><guid>https://blog.csdn.net/bakw/article/details/51035338</guid><author>bakw</author><pubDate>Fri, 01 Apr 2016 11:26:13 +0800</pubDate><description><![CDATA[Public Function JSONParse(ByVal JSONPath As String, ByVal JSONString As String) As Variant
    Dim JSON As Object
    Set JSON = CreateObject("MSScriptControl.ScriptControl")
    JSON.Language = "JScr]]></description><category></category></item><item><title><![CDATA[VB6基于Windows API的Modbus RTU/ASCII/TCP的主站实现代码]]></title><link>https://blog.csdn.net/bakw/article/details/50487609</link><guid>https://blog.csdn.net/bakw/article/details/50487609</guid><author>bakw</author><pubDate>Sat, 09 Jan 2016 13:12:27 +0800</pubDate><description><![CDATA[分三模块
modSerialPort.bas 串口操作模块
modTCPClient.bas TCP操作模块
modModbusMaster.bas Modbus主站模块
实现代码例举如下
'打开

hModbus=ModbusOpen("Com1",ModbusRTU) '或者

hModbus=ModbusOpen("192.168.1.2:502",ModbusTCP)

'===]]></description><category></category></item><item><title><![CDATA[百度翻译新版API的VB实现代码]]></title><link>https://blog.csdn.net/bakw/article/details/49782735</link><guid>https://blog.csdn.net/bakw/article/details/49782735</guid><author>bakw</author><pubDate>Wed, 11 Nov 2015 16:05:21 +0800</pubDate><description><![CDATA[Public Const BAIDU_APP_ID = "XXXXXXXXXXXXXXXXXXXXX" '在百度申请后得到
Public Const BAIDU_APP_KEY = "XXXXXXXXXXXXXXXXXXXXXX" '在百度申请后得到 

Public Type MD5_CTX
      dwNUMa      As Long
      dwNUMb      As Long]]></description><category></category></item><item><title><![CDATA[Base64算法函数VB6]]></title><link>https://blog.csdn.net/bakw/article/details/49178423</link><guid>https://blog.csdn.net/bakw/article/details/49178423</guid><author>bakw</author><pubDate>Fri, 16 Oct 2015 14:26:33 +0800</pubDate><description><![CDATA[比网上搜索来的短一些
Public Function Base64Encode(ByVal srcCode As String, Optional ByVal Base64Table As String = "")
    Dim I As Integer, Result As String, Arr() As Byte
    If Len(Base64Table) <> 64 Then
  ]]></description><category></category></item><item><title><![CDATA[Lazarus开发串口通信]]></title><link>https://blog.csdn.net/bakw/article/details/37806107</link><guid>https://blog.csdn.net/bakw/article/details/37806107</guid><author>bakw</author><pubDate>Tue, 15 Jul 2014 08:00:54 +0800</pubDate><description><![CDATA[Lazarus开发串口通信
文章出处：sujic2006 发布时间： 2011/08/26 | 1206 次阅读 | 1次推荐 | 0条留言
每天新产品 时刻新体验 相信品牌的力量 专业PCB打样工厂，24小时加急出货     Lazarus的设计目标是应用Free Pascal，所以所有凡是Free Pascal能运行的平台，Lazarus都可以运行。最新版本能运行于Linux，Win32和]]></description><category></category></item><item><title><![CDATA[不用比较运算符比较两个数的大小]]></title><link>https://blog.csdn.net/bakw/article/details/10133809</link><guid>https://blog.csdn.net/bakw/article/details/10133809</guid><author>bakw</author><pubDate>Wed, 21 Aug 2013 10:16:38 +0800</pubDate><description><![CDATA[纪念一下
不准在函数体中使用任何比较运算，比如if，for， while等，不准调用任何库函数。

int max(int a,int b)  
{  
    int sa,sb,f;
	sa=((a/2)&0x80000000)>>31;
	sb=((b/2)&0x80000000)>>31;
	f=!(!(a/(b|1)));
	return (sa^sb)*(a*(!sa)+b*(!]]></description><category></category></item><item><title><![CDATA[五险一金]]></title><link>https://blog.csdn.net/bakw/article/details/6250604</link><guid>https://blog.csdn.net/bakw/article/details/6250604</guid><author>bakw</author><pubDate>Tue, 15 Mar 2011 13:56:00 +0800</pubDate><description><![CDATA[<br />养老保险：<br />一般要交满15年，到退休的时候才能终生享受养老金,所以想拿养老金的人请务必在自己退休前15年就开始交。如果到退休年龄交养老保险不满15年,那等到你退休的时候国家会把你个人帐户上存的8%的养老金全部退给你。那单位给你交的21%到哪里去了?国家把单位为你交的21%的钱全部划到国家的养老统筹基金里了。国家规定，退钱的时候只退给个人自己扣交的钱,单位为他交的钱全部都为国家做贡献。退休时候的养老金是怎么算出来的。养老金的算法很复杂,国家每年都会把缴费基数变一次,:如果你现在30岁,你]]></description><category></category></item><item><title><![CDATA[CRC16算法函数]]></title><link>https://blog.csdn.net/bakw/article/details/3957572</link><guid>https://blog.csdn.net/bakw/article/details/3957572</guid><author>bakw</author><pubDate>Wed, 04 Mar 2009 20:10:00 +0800</pubDate><description><![CDATA[//Delphi版function CRC16(P:PChar;Count:Cardinal):WORD;   var     I,CRC:WORD;     CH:Byte;   begin     CRC:=$FFFF;     for i:=1 to Count do       begin         CRC:=CRC xor Byte(p^);]]></description><category></category></item><item><title><![CDATA[BMP文件格式]]></title><link>https://blog.csdn.net/bakw/article/details/349591</link><guid>https://blog.csdn.net/bakw/article/details/349591</guid><author>bakw</author><pubDate>Fri, 15 Apr 2005 22:27:00 +0800</pubDate><description><![CDATA[位置 大小 说明 0000H 2 BM文件标识 0002H 4 文件大小 0006H 4 保留=0 000AH 4 从文件开始到位图数据之间的偏移量 000EH 4 位图信息头,用来描述位图的颜色、压缩方法等。 0012H 4 位图的宽度，以象素为单位 0016H 4 位图的高度，以象素为单位 001AH 2 位图的位面数=1 001CH 2 每个象素的位数 1/2/4/8/16/24/32 ]]></description><category></category></item><item><title><![CDATA[WAVE文件格式]]></title><link>https://blog.csdn.net/bakw/article/details/349587</link><guid>https://blog.csdn.net/bakw/article/details/349587</guid><author>bakw</author><pubDate>Fri, 15 Apr 2005 22:26:00 +0800</pubDate><description><![CDATA[位置 大小 说明 00H 4 RIFF 04H 4 文件长度 08H 4 WAVE 0CH 4 fmt  10H 4 过渡字节1000H 14H 2 格式类别 PCM格式为 01H 16H 2 通道数 18H 4 采样率 1CH 4 波形音频数据传送速率，其值为 通道数×每秒数据位数×每样本的数据位数/8 20H 2 数据块的调整数(按字节算的)，其值为 通道数×每样本的数据位值/8。]]></description><category></category></item><item><title><![CDATA[Linux和windows在启动方面的比较]]></title><link>https://blog.csdn.net/bakw/article/details/349531</link><guid>https://blog.csdn.net/bakw/article/details/349531</guid><author>bakw</author><pubDate>Fri, 15 Apr 2005 21:46:00 +0800</pubDate><description><![CDATA[linux：第一步：硬件读取引导扇区； windows：第一步：硬件读取引导扇区； linux：第二步：加载LILO或者grub windows：第二步：加载NTLDR并读取BOOT.ini文件（类似与lilo.conf或者grub.conf） linux：第三步：加载内核； windows：第三步：NTDETECT运行并决策硬件设备； linux：第四步：挂装根文件系统； windows：第四步]]></description><category></category></item></channel></rss>