笨狗先飞-CSDN博客

原创用VB6来实现QBASIC中的Play语句

很久以前写的了，用Midi的API函数来实现以前QBasic中的Play语句，控制符实现可能还不完善，感觉演奏的还是有些问题，懒得弄了，发出来吧。下边是这个bas模块文件的代码，例程代码等下发。用法，Play "ABCDEFGAB"

2023-10-22 08:11:15 239 1

原创 ESP8266上用MicroPython写的WebServer

基本功能都有了，另外还实现了基本身份验证、 session 和 cookie，类似cgi的动态页单连接工作，跑的不好。。。。可能cpu不强吧import socket,time,osResponse=NoneRequest={}Session={}Cookie={}class CResponse: def __init__(self,f): self.status=200...

2018-06-05 15:36:03 8532 4

原创 MicroPython 下生成随机十六进制字符串

MicroPython 没有Python这么好的待遇，网上介绍的方法在MicroPython下都不怎么好用。需要的这些模块都没有，所以可以用这个方法来生成:print(''.join([('0'+hex(ord(os.urandom(1)))[2:])[-2:] for x in range(8)]))这个就可以生成一条16个十六进制的字符串...

2018-06-02 23:20:07 3766 1

原创用Lazarus写了一个ESP8266 for MicroPython 的编辑器

NodeMCU刷了MicroPython用起来还不错，不过没有好的操作软件，花了几天写了一个，总算可以好好玩了。

2018-05-30 12:49:25 819 2

转载关于树莓派vi方向键乱码的处理

参考：点击打开链接编辑/etc/vim/vimrc.tiny文件将 set compatible 改为 set nocompatible增加一行 set backspace=2

2018-03-10 13:16:27 2771

原创 PHP阿里云短信API发送代码

阿里云的SDK搞的真复杂，一个简单的函数就行了，没必要搞这么复杂//参数说明//$RecNum 目标手机号//$ParamString 短信模板中的变量；数字需要转换为字符串；个人用户每个变量长度必须小于15个字符。//$SignName 管理控制台中配置的短信签名（状态必须是验证通过）//$TemplateCode 管理控制台中配置的审核通过的短信模板的模板CODE（状态必须是验

2016-12-28 21:08:59 9733 3

原创 VB6下利用API计算MD2 MD4 MD5 SHA1

Public Const ALG_CLASS_HASH = 32768Public Const ALG_SID_MD2 = 1Public Const ALG_SID_MD4 = 2Public Const ALG_SID_MD5 = 3Public Const ALG_SID_SHA1 = 4Public Const ALG_TYPE_ANY = 0Public Const CRY

2016-12-28 19:32:14 2390 1

原创 VB6 基于API的远程开机代码

利用Magic Packet实现的远程开机代码调用示例:MagicPacket “192.168.1.100” "A1-B2-C3-D4-E5-F6"Private Const WSA_DescriptionLen = 256Private Const WSA_DescriptionSize = WSA_DescriptionLen + 1Private Const WSA_SYS

2016-08-18 20:16:35 2130

原创 VB6下简易的JSON解析器

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

2016-04-01 11:26:13 22460 8

原创 VB6基于Windows API的Modbus RTU/ASCII/TCP的主站实现代码

分三模块modSerialPort.bas 串口操作模块modTCPClient.bas TCP操作模块modModbusMaster.bas Modbus主站模块实现代码例举如下'打开hModbus=ModbusOpen("Com1",ModbusRTU) '或者hModbus=ModbusOpen("192.168.1.2:502",ModbusTCP)'===

2016-01-09 13:12:27 9069 10

原创百度翻译新版API的VB实现代码

Public Const BAIDU_APP_ID = "XXXXXXXXXXXXXXXXXXXXX" '在百度申请后得到Public Const BAIDU_APP_KEY = "XXXXXXXXXXXXXXXXXXXXXX" '在百度申请后得到 Public Type MD5_CTX dwNUMa As Long dwNUMb As Long

2015-11-11 16:05:21 3973 4

原创 Base64算法函数VB6

比网上搜索来的短一些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

2015-10-16 14:26:33 1302

转载 Lazarus开发串口通信

Lazarus开发串口通信文章出处：sujic2006 发布时间： 2011/08/26 | 1206 次阅读 | 1次推荐 | 0条留言每天新产品时刻新体验相信品牌的力量专业PCB打样工厂，24小时加急出货 Lazarus的设计目标是应用Free Pascal，所以所有凡是Free Pascal能运行的平台，Lazarus都可以运行。最新版本能运行于Linux，Win32和

2014-07-15 08:00:54 2734

原创不用比较运算符比较两个数的大小

纪念一下不准在函数体中使用任何比较运算，比如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*(!

2013-08-21 10:16:38 2088

<br />养老保险：<br />一般要交满15年，到退休的时候才能终生享受养老金,所以想拿养老金的人请务必在自己退休前15年就开始交。如果到退休年龄交养老保险不满15年,那等到你退休的时候国家会把你个人帐户上存的8%的养老金全部退给你。那单位给你交的21%到哪里去了?国家把单位为你交的21%的钱全部划到国家的养老统筹基金里了。国家规定，退钱的时候只退给个人自己扣交的钱,单位为他交的钱全部都为国家做贡献。退休时候的养老金是怎么算出来的。养老金的算法很复杂,国家每年都会把缴费基数变一次,:如果你现在30岁,你

2011-03-15 13:56:00 1060

原创 CRC16算法函数

//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^);

2009-03-04 20:10:00 7046 1

原创 BMP文件格式

位置大小说明 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

2005-04-15 22:27:00 1609

原创 WAVE文件格式

位置大小说明 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。

2005-04-15 22:26:00 1853

转载 Linux和windows在启动方面的比较

linux：第一步：硬件读取引导扇区； windows：第一步：硬件读取引导扇区； linux：第二步：加载LILO或者grub windows：第二步：加载NTLDR并读取BOOT.ini文件（类似与lilo.conf或者grub.conf） linux：第三步：加载内核； windows：第三步：NTDETECT运行并决策硬件设备； linux：第四步：挂装根文件系统； windows：第四步

2005-04-15 21:46:00 1714