- 博客(19)
- 资源 (15)
- 收藏
- 关注
原创 用VB6来实现QBASIC中的Play语句
很久以前写的了,用Midi的API函数来实现以前QBasic中的Play语句,控制符实现可能还不完善,感觉演奏的还是有些问题,懒得弄了,发出来吧。下边是这个bas模块文件的代码,例程代码等下发。用法,Play "ABCDEFGAB"
2023-10-22 08:11:15
276
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
8572
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
3809
1
原创 用Lazarus写了一个ESP8266 for MicroPython 的编辑器
NodeMCU刷了MicroPython用起来还不错,不过没有好的操作软件,花了几天写了一个,总算可以好好玩了。
2018-05-30 12:49:25
843
2
转载 关于树莓派vi方向键乱码的处理
参考:点击打开链接编辑/etc/vim/vimrc.tiny文件将 set compatible 改为 set nocompatible增加一行 set backspace=2
2018-03-10 13:16:27
2798
原创 PHP阿里云短信API发送代码
阿里云的SDK搞的真复杂,一个简单的函数就行了,没必要搞这么复杂//参数说明//$RecNum 目标手机号//$ParamString 短信模板中的变量;数字需要转换为字符串;个人用户每个变量长度必须小于15个字符。//$SignName 管理控制台中配置的短信签名(状态必须是验证通过)//$TemplateCode 管理控制台中配置的审核通过的短信模板的模板CODE(状态必须是验
2016-12-28 21:08:59
9780
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
2474
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
2177
原创 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
22673
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
9361
12
原创 百度翻译新版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
4065
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
1336
1
转载 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
2824
原创 不用比较运算符比较两个数的大小
纪念一下不准在函数体中使用任何比较运算,比如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
2101
转载 五险一金
<br />养老保险:<br />一般要交满15年,到退休的时候才能终生享受养老金,所以想拿养老金的人请务必在自己退休前15年就开始交。如果到退休年龄交养老保险不满15年,那等到你退休的时候国家会把你个人帐户上存的8%的养老金全部退给你。那单位给你交的21%到哪里去了?国家把单位为你交的21%的钱全部划到国家的养老统筹基金里了。国家规定,退钱的时候只退给个人自己扣交的钱,单位为他交的钱全部都为国家做贡献。退休时候的养老金是怎么算出来的。养老金的算法很复杂,国家每年都会把缴费基数变一次,:如果你现在30岁,你
2011-03-15 13:56:00
1069
原创 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
7134
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
1620
原创 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
1870
转载 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
1729
ESP8266上用MicroPython写的WebServer
2018-06-05
VB6基于Windows API的Modbus RTU/ASCII/TCP的主站实现代码
2016-10-29
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人