- 博客(21)
- 资源 (84)
- 收藏
- 关注
原创 delphi 单元格是否合并 检测
/创建Excel对象。//打开某个Excel文件。if not vRange.MergeCells then //不是合并单元格的直接访问Cell。//重点,创建Range对象,范围是自己单元格本身,在Excel中相当于选中这个单元格。//激活第1个工作表。if vRange.MergeCells then //判断这个单元格是不是合并的。//单元格所在MergeArea的Cells[1,1]就是左上方第1格。
2024-08-13 10:10:00
225
原创 ESP32 点亮 oled 屏
修改为:SSD1306Wire display(0x3c, 23, 18, GEOMETRY_128_64, I2C_ONE, -1);找到例程中的:SSD1306Wire display(0x3c, SDA, SCL);用到的库是 ESP8266 and ESP32 Oled Driver for SSD1306 display。oled 0.9 128*64 4线的i2c 协议。开发环境 ardiuno ide 2.2.1。SCl 引脚 接 18。
2023-10-29 09:14:40
385
原创 Ardiuno ESP32 实现多线程
需要创建三个ino 文件 主文件main.ino 线程1:task1.ino ,线程2:task2.ino ,估计是一个线程一个ino 文件 目前没有测试更多线程
2023-10-27 22:09:16
1346
原创 普中的ESP32 没有数码管实验例程,我查找资料补上了
我的ardiuno ide 版本是 2.2.1,esp32 开发板的插件版本是 3.0.0.alpha2。实验中发现很多库不支持 ESP32 和TM1637 组合 最后找到了 TM16XX LEDs 能用。该驱动芯片是串行输入,只要两条线就能驱动 DIO(数据)和 CLK(时钟)
2023-10-22 21:21:12
154
原创 arduino 下的 ESP32 pwm 实验失败原因找到了
/ 绑定PWM通道到GPIO上。* 实验现象:程序下载成功后,D1指示灯呈现呼吸灯效果,由暗变亮,再由亮变暗。发现最新的3.0.0版本有一些函数已经变更 这个实验以下函数取消。原来的通道0 不再使用,直接用pin 其实使用更简单了。* 接线说明:LED模块-->ESP32 IO。上面两个函数已经取消导致 pwm实验失败。* 实验名称:PWM呼吸灯实验。
2023-10-20 21:29:16
291
2
原创 ADB命令帮助文档的中英文对照
Adb install [-l] [-r] [-s][——algo <算法名称>——key <十六进制编码的密钥>——iv <十六进制编码的iv>] <file>亚行备份[- f <文件>][apk | -noapk] [shared | -noshared][-][系统| -nosystem][<包…disconnect [<host>[:<port>]] -从TCP/IP设备断开连接。Adb pull <remote> [<local>] -从设备复制文件/dir。
2023-09-21 21:06:24
219
原创 使用marlin主板改CNC的尝试
marlin 原是应用于3D打印机的控制板,优点是价格便宜,容易获得,有G命令输入,研究以后完全能应用于CNC加工,初步思路是缺少一个实用的上位机软件,介于这个思路。我自己开发了,用于Windows下的软件,界面如下图。性能不断完善中,各位可以免费下载测试。多轴同步,具有S型曲线加速,具有网上自动升级功能,这是用于车床的两个轴。
2023-08-26 23:46:52
646
原创 Delphi10 安装Graphics32 图像插件 没有验证
一、下载Graphics安装包 官网:www.graphics32.org 下载地址:Graphics32 - Browse /graphics32 at SourceForge.net 二、修改编译文件GR32_Compiler.inc {$IFDEF VER260} {$DEFINE COMPILERXE5} {$IFNDEF BCB} {$DEFINE DELPHIXE5} {$ELSE} {$DEFINE BCBXE5} {$ENDI...
2022-04-28 18:43:13
203
原创 delphi //查找一个字符串在另一个字符串中出现的次数
procedure Delay(MSecs: Longint);//延时函数,MSecs单位为毫秒(千分之1秒)var FirstTickCount, Now: Longint;begin FirstTickCount := GetTickCount(); repeat Application.ProcessMessages; Now := GetTickCount(); until (Now - FirstTickCount >= MSecs) or (Now ...
2022-04-16 12:50:48
1400
原创 delphi 在一长字符串中提取字符串数组函数
type TArr = array of string; //字符串数组 // 举例 G01X00Y1.1Z123 转换成 G01, X00 ,Y1.1 ,Z123 这样的数组function Setstringtonum(cString: string): TArr;var i, j: integer; str: string; trayy: TArr;// ResultList: TStringList;begin j := 0;// Re...
2022-04-16 12:46:11
781
原创 delphi提取字符串中指定子字符串之间的字符串
function beween(Src, x, y: string): string; //输出xy之间的字符var E, F: Word; z: string; //截取后字符串begin E := POS(x, Src); //x位置 //取出子串a,在父串b中第一次出现的位置; if E < 1 then begin z := '-1' end else z := COPY(Src, E + 1, length(Src) - ...
2022-04-16 12:40:24
880
1
原创 delphi 计算平面两点之间的距离
function LenBetween(p1, p2: TGLVector): Single;var r: Single;begin//计算p1和p2之间的距离 if ((p1.X = 0) and (p1.Y = 0)) or ((p2.X = 0) and (p2.Y = 0)) then begin if (p1.X = 0) and (p1.Y = 0) then r := sqrt(sqr(p2.X) + sqr(p2.Y)); if (p2.X =...
2022-04-16 12:38:41
395
原创 求两条直线交点
procedure P_zhixianjiaodian(const x1, y1, x2, y2, x3, y3, x4, y4: double; var Solx1, Soly1: double);var a1, b1, c1, a2, b2, c2: double;begin a1 := y2 - y1; b1 := x1 - x2; c1 := x2 * y1 - x1 * y2; a2 := y4 - y3; b2 := x3 - x4; c2 := x4 * y3 ...
2022-03-31 11:40:19
132
原创 计算点P到直线的距离,AB可以平行于坐标轴代码
//计算点P到直线的距离,AB可以平行于坐标轴。delphifunction LenPToLine(P, A, B: TVector3f): Extended;var A1, B1, C1: Extended;begin if A.X = B.X then begin Result := P.X - A.X; Exit; end; if A.Y = B.Y then begin Result := P.Y - A.Y; Exit; end...
2022-03-31 11:38:31
85
原创 win10下pip升级报错的解决办法
win10下pip升级报错的解决办法(结合各位大佬以及自身经历总结的经验)原创 saoqi_boy 最后发布于2019-05-23 00:29:01 阅读数 414 收藏展开(前提:要配置好python路径,百度即可,此处不做过多解释)1.在Python\Lib\site-packages目录下删除原版本pip文件夹(例如:pip-7.1.1.dist-info,如果没有的话请跳过这个步...
2020-03-02 21:23:40
220
同步皮带轮计算软件根据皮带轮齿数 和节距计算 齿轮半径 直径
2024-04-13
arduino esp32 开发 离线包 第二个压缩包
2023-10-17
Arduino ide 开发 esp32 离线包
2023-10-17
CKD伺服调试软件及使用说明
2023-10-04
marlin主板改雕刻机 上位机软件又更新了
2023-08-26
marlin 改雕刻机上位机机软件v2.1,支持多轴同步,新增触摸屏控制,网上更新系统
2023-05-14
marlin 改雕刻机上位机机软件,支持多轴同步,新增触摸屏控制,网上更新系统
2023-05-10
marlin改雕刻机上位机软件最新发布
2022-12-13
服装批发行业专用进销存软件
2022-11-25
marlin改雕刻机 数控铣床的原代码,已经改成5轴
2022-11-25
marlin上位机软件
2022-11-25
marlin 主板 改5轴CNC雕刻机上位机软件v2.0版
2022-06-09
平面绘图delphi源代码
2022-06-08
delphi 编写的矢量绘图软件源代码
2022-05-27
Marlin CNC 五轴雕刻机控制软件DIY专用V1.8版最新版
2022-04-16
GLScene v2.1 for Embarcadero RAD Studio Delphi XE10
2022-03-31
GLScene v.1.8 for Embarcadero RAD Studio Delphi
2022-02-08
mkstft35_V1_open_bootloader-master.zip
2021-07-29
mach3六轴界面文件.zip
2020-06-02
GAL16V8.zip
2020-05-03
Django-3.0.3.tar.gz
2020-03-03
opencv_python-4.2.0.32-cp38-cp38-win32.whl
2020-03-03
PyQt5-5.14.1-5.14.1-cp35.cp36.cp37.cp38-none-win32.whl
2020-03-03
opencv_python-4.2.0.32-cp27-cp27m-win32.whl
2020-03-03
EhLib9.1.024 支持 D7-XE10.3.1破解版
2019-07-14
ReportMachineXE10.3.zip
2019-07-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人